//设置初始查询条件
procedure TForm1.Button3Click(Sender: TObject);
var zdname01,czf01,zdvalue01:string;
begin
if trim(cmb1.Text) = '' then
begin
showmessage('字段名不能为空');
exit;
end;
if trim(cmb2.Text) = '' then
begin
showmessage('操作符不能为空');
exit;
end;
zdname01:= Cmb1.items[cmb1.itemindex];
//xx101Name := fields[cmb_zdm.Itemindex];
czf01:= cmb2.items[cmb2.itemindex];
if czf01 = 'like' then
zdvalue01 := '%' + Cmb3.text + '%'
else
zdvalue01 :=Trim(cmb2.text);
filtervalue := zdName01 + ' ' + czf01 + ' ''' + zdvalue01 + ''' ';
memo1.lines.add(zdname01 + ' ' + czf01 + ' ' + cmb3.text);
end;//设置并列组合查询条件
procedure TForm1.Button4Click(Sender: TObject);
var zdname02,czf02,zdvalue02:string;
begin
if trim(cmb1.Text) = '' then
begin
showmessage('字段名不能为空');
exit;
end;
if trim(cmb2.Text) = '' then
begin
showmessage('操作符不能为空');
exit;
end;
zdname02:= Cmb1.items[cmb1.itemindex];
//xx101Name := fields[cmb_zdm.Itemindex];
czf02:= cmb2.items[cmb2.itemindex];
if czf02 = 'like' then
zdvalue02 := '%' + Trim(Cmb3.text) + '%'
else
zdvalue02 :=Trim(cmb2.text);
filtervalue :=filtervalue+' and ' + zdName02 + ' ' + czf02 + ' ''' + zdvalue02 + ''' ';
memo1.lines.add('并且 ' +zdname02 + ' ' + czf02 + ' ' + cmb3.text);
end;//设置或者组合查询条件
procedure TForm1.Button5Click(Sender: TObject);
var zdname03,czf03,zdvalue03:string;
begin
if trim(cmb1.Text) = '' then
begin
showmessage('字段名不能为空');
exit;
end;
if trim(cmb2.Text) = '' then
begin
showmessage('操作符不能为空');
exit;
end;
zdname03:= Cmb1.items[cmb1.itemindex];
czf03:= cmb2.items[cmb2.itemindex];
if czf03 = 'like' then
zdvalue03 := '%' + Cmb3.text + '%'
else
zdvalue03 :=Trim(cmb2.text);
filtervalue :=filtervalue+' or ' + zdName03 + ' ' + czf03 + ' ''' + zdvalue03 + ''' ';
memo1.lines.add('或者 ' +zdname03 + ' ' + czf03 + ' ' + cmb3.text);
end;//执行查询
procedure TForm1.Button2Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='select * from wz_qxgl_yhsz where ''' + filtervalue + ''' ';
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add(sqlstr);
adoquery2.Open;
end;
说明:cmb1、cmb2、cmb3是三个combobox分别是存储字段名、操作符、字段值
procedure TForm1.Button3Click(Sender: TObject);
var zdname01,czf01,zdvalue01:string;
begin
if trim(cmb1.Text) = '' then
begin
showmessage('字段名不能为空');
exit;
end;
if trim(cmb2.Text) = '' then
begin
showmessage('操作符不能为空');
exit;
end;
zdname01:= Cmb1.items[cmb1.itemindex];
//xx101Name := fields[cmb_zdm.Itemindex];
czf01:= cmb2.items[cmb2.itemindex];
if czf01 = 'like' then
zdvalue01 := '%' + Cmb3.text + '%'
else
zdvalue01 :=Trim(cmb2.text);
filtervalue := zdName01 + ' ' + czf01 + ' ''' + zdvalue01 + ''' ';
memo1.lines.add(zdname01 + ' ' + czf01 + ' ' + cmb3.text);
end;//设置并列组合查询条件
procedure TForm1.Button4Click(Sender: TObject);
var zdname02,czf02,zdvalue02:string;
begin
if trim(cmb1.Text) = '' then
begin
showmessage('字段名不能为空');
exit;
end;
if trim(cmb2.Text) = '' then
begin
showmessage('操作符不能为空');
exit;
end;
zdname02:= Cmb1.items[cmb1.itemindex];
//xx101Name := fields[cmb_zdm.Itemindex];
czf02:= cmb2.items[cmb2.itemindex];
if czf02 = 'like' then
zdvalue02 := '%' + Trim(Cmb3.text) + '%'
else
zdvalue02 :=Trim(cmb2.text);
filtervalue :=filtervalue+' and ' + zdName02 + ' ' + czf02 + ' ''' + zdvalue02 + ''' ';
memo1.lines.add('并且 ' +zdname02 + ' ' + czf02 + ' ' + cmb3.text);
end;//设置或者组合查询条件
procedure TForm1.Button5Click(Sender: TObject);
var zdname03,czf03,zdvalue03:string;
begin
if trim(cmb1.Text) = '' then
begin
showmessage('字段名不能为空');
exit;
end;
if trim(cmb2.Text) = '' then
begin
showmessage('操作符不能为空');
exit;
end;
zdname03:= Cmb1.items[cmb1.itemindex];
czf03:= cmb2.items[cmb2.itemindex];
if czf03 = 'like' then
zdvalue03 := '%' + Cmb3.text + '%'
else
zdvalue03 :=Trim(cmb2.text);
filtervalue :=filtervalue+' or ' + zdName03 + ' ' + czf03 + ' ''' + zdvalue03 + ''' ';
memo1.lines.add('或者 ' +zdname03 + ' ' + czf03 + ' ' + cmb3.text);
end;//执行查询
procedure TForm1.Button2Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='select * from wz_qxgl_yhsz where ''' + filtervalue + ''' ';
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add(sqlstr);
adoquery2.Open;
end;
说明:cmb1、cmb2、cmb3是三个combobox分别是存储字段名、操作符、字段值
但是我不知道是什么原因?