S
sailor_zh
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
我的dbgrid1中的内容却没有变化,我相信我的DATASOURCE 和query及table,都没有错误,因为相同的设置,我用别
的sql语句都能够查询出来。
procedure TcxipxxForm.BitBtn1Click(Sender: TObject);
var
sqlall,log:string;
arrstr:array[1..7]of string;
i,lenofstr,p:integer;
function getsth(curredit:tedit):boolean;
begin
result:=false;
if curredit.text<>'' then
result:=true;
end;
begin
log:='and';
sqlall:='select * from "局直使用IP地址.db" where';
if getsth(edit1) then arrstr[1]:='(IP地址='''+edit1.text+''')';
if getsth(edit2) then arrstr[2]:='(部门='''+edit2.text+''')';
if getsth(edit3) then arrstr[3]:='(使用人='''+edit3.text+''')';
if getsth(edit4) then arrstr[4]:='(机器型号='''+edit4.text+''')';
if getsth(edit5) then arrstr[5]:='(MAC地址='''+edit5.text+''')';
if getsth(edit6) then arrstr[6]:='(控制修改='''+edit6.text+''')';
arrstr[7]:='';
for i:=1 to 6 do
begin
arrstr[7]:=arrstr[7]+arrstr;
if arrstr<>'' then sqlall:=sqlall+log+arrstr;
end;
if arrstr[7]='' then
begin
showmessage('没有查询项目!');
exit ;
end;
p:=pos('and',sqlall);
lenofstr:=length(sqlall);
arrstr[7]:=copy(sqlall,p+3,(lenofstr-3));
sqlall:=arrstr[7];
with dm.cxipxxquery do
begin
dm.cxipxxquery.sql.clear;
dm.cxipxxquery.sql.add('select * from "局直使用IP地址.db" where');
dm.cxipxxquery.sql.add(sqlall);
prepare;
dm.cxipxxquery.execsql;
dm.cxipxxquery.open;
showmessage(sql.text)
end;
end;