以ADO为例
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select * from qq where date =2002-06-28');
if WantToQueryAge then
ADOQuery.SQL.Add(' and age = 2');
if WantToQuerySex then
ADOQuery.SQL.Add(' and sex = female ');
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select * from qq where date =2002-06-28');
if WantToQueryAge then
ADOQuery.SQL.Add(' and age = 2');
if WantToQuerySex then
ADOQuery.SQL.Add(' and sex = female ');
解决方案 »
- 小弟遇上问题了!别人都能解决,就是我不行!帮帮忙!
- delphi 中如何调用 CHM格式的帮助文件
- 请教:tcxSpreadsheetbook 如何实现类似excel的口令保护
- 一个简单的问题,大侠救!!!
- 高分求救,急!!!
- 在报表中实现合计功能,用什么控件呢?只是实现同一表的不同字段相加!UP 有分!
- 如何在delphi中调用word,比如:创建一个word 文档并向其中加入若干字符
- 数据库的路径问题
- 是不是Delphi使用ADO的BUG? "not a single-group group function"
- 请教在设计时候, 自动添加多个相同控件的做法
- 重金请教关于点对点传送文件的问题!
- 小问题,大价钱!
ComboBox1 ComboBox2 Edit1 ComboBox3
年龄 = 18 and
性别 <> 男 or
... ... ...
ComboBox1 ComboBox2 Edit1 ComboBox3
年龄 = 18 and
性别 <> 男 or
... ... ...
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('select * from qq where date =2002-06-28');
后面可以根据你的条件给ADoquery.sql继续增加条件
ADOQuery.SQL.Add(' add...
RsADOQuery.Close;
RsADOQuery.SQL.Clear;
RsADOQuery.SQL.Add('select * from lsb'); RSADOQuery.SQL.Add('where 身份证号码<>''''') ; if NameEd.Text<>'' then
RsADOQuery.SQL.Add('and 姓名 like ''%'+NameEd.Text+'%''') ;
if SexCom.Text<>'' then
RsADOQuery.SQL.Add('and 性别='''+SexCom.Text+''''); if MarryCom.Text<>'' then
if MarryCom.Text='未婚' then RSADOQuery.SQL.Add('and 婚否=False')
else RSADOQuery.SQL.Add('and 婚否=True') ;.... RSADOQuery.SQL.Add('order by 厂牌号');
RsADOQuery.Open;
......
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;
SQL.Add('select * from qq');
//下面加入你的条件:edtDate, edtAge, edtSex, edtCode, edtName
//为输入的各条件
SQL.add(' where date = ' + edtDate.AsDateTime ');
SQL.add(' and age = ''' + edtAge.asstring + '''');
SQL.add(' and sex = ''' + edtSex.asstring + '''');
SQL.add(' and code = ''' + edtCode.asstring + '''');
SQL.add(' and name = '''+ edtName.asstring +'''');
Open;
end;