数据库检索思路求解(100)

K

ksx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #1

准备检索一个SQL数据库的表.条件为7个,分别建立7个TEdit控件,若7Tedit控件的Text内容都为空时,检索返回值为整个表数据,若其中几个Tedit的Text有内容,那检索就包含这些内容为条件的值..例如在姓名栏输入'王',那就检索所有姓王的订户资料 select * from 表1 where 姓名 like '%王%' .....求解编程思路

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #2

var cond:String; sql:string;begin cond:=''; if Trim(edit_Name.text)<>'' then cond:= cond+' And Name like '''+Trim(Edit_Name.text)+''' '; if Trim(edit_Code.text)<>'' then cond:= cond+' And Code like '''+Trim(Edit_Code.text)+''' '; ..... if Cond<>'' then begin system.delete(Cond,1,4); //删除第一个and Cond:='Where '+Cond; end; sql:='Select * from Table1 '+Cond+' Order by Name' ShowMessage(sql);end;

 

L

lasmai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #3

cond := 'where 1=1';然后if Trim(edit_Name.text)<>'' then cond:= cond+' And Name like '''+Trim(Edit_Name.text)+''' ';......

 

K

ksx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #4

哦,知道了,是先遍历TEdit的Text...谢谢,除了楼上的2位老师的思路,还有别的没有...同样的回答不给分了,呵呵

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-10

• #5

对的！只是第一条不能加 Andcond:=''; if Trim(edit_Name.text)<>'' then cond:= 'Name like '''+Trim(Edit_Name.text)+''' ';

 

K

ksx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #6

多人接受答案了。

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #7

我倒！就给我5分，呵呵