如何实现delphi的多条件查询,要用到两个checkbox的

可以单个checkbook使用,可以两个同时用
例如第一个checkbox对应的是用户名,第二个对应的是时间(时间用两个DateTimePicker划分时间范围),对数据库进行查询。

恳求哪位高手给一段代码来,万分感谢!!

呵呵,我知道你要干啥,
是用CHECKBOOK按钮选定是否要查询此字段内容。
可以单选,也可双选是吧?

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 表名');
adoquery1.sql.add('where 字段名<>'asdfasfsadf');//随便写
if checkbox.checked then
adoquery1.sql.add(' and 用户名='''+edit1.text+'''');
if chkbox2.checked then
adoquery1.sql.add(' and 时间 between %s and %s',[DateTimePicker1.datetime,DateTimePicker2.datetime]));
adoquery1.open;
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-04-03
checkbox如何对应用户名?这个实在看不懂你的意思

with adoquery1 do
begin
Close;
SQL.clear
SQL.add(format('select * from db where 时间 between %s and %s',[DateTimePicker1.datetime,DateTimePicker2.datetime]));
Open;
end;

如何实现delphi的多条件查询,要用到两个checkbox的
是用CHECKBOOK按钮选定是否要查询此字段内容。可以单选,也可双选是吧?adoquery1.close;adoquery1.sql.clear;adoquery1.sql.add('select * from 表名');adoquery1.sql.add('where 字段名<>'asdfasfsadf');\/\/随便写 if checkbox.checked then adoquery1.sql.add(' and 用户名='''+edit1.tex...

delphi中如何实现checkbox的多选
1、使用 CheckListBox 组件 2、建立一个 GroupBox,然后根据需要放入多个复选框 3、使用第三方组件,如 RzCheckGroup

delphi多查询条件自由组合问题
据个人理解,貌似不是什么大难题,你只要检查生成的语句中,最后一个字符是否是逗号,如果是逗号就删除。示例代码如下:s1 := CheckBox1.Hint+''+CheckBox2.Hint+''+CheckBox3.Hint+''+CheckBox4.Hint+''+CheckBox5.Hint+''+CheckBox6.Hint+''+CheckBox7.Hint+''+CheckBox8.Hint; if s1[Leng...

delphi中如何实现checkbox的多选
遍历窗体上的控件,是Tcheckbox的就勾上。procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to Self.ControlCount - 1 do if Self.Controls[i] is TCheckBox then TCheckBox(Self.Controls[i]).Checked := True;end;...

DELPHI中的查询功能的完善
其实办法很多,但最好用的方法是用TCheckBox来处理判断,具体可以参考如下方法:procedure ***;var tmpstr : string ;begin tmpstr := 'select * from Minfor where (1=1)';if checkbox1.Checked then begin tmpstr := tmpstr + ' and (Mname ='+QuotedStr(Trim(edit1.Text))+')';end...

Delphi怎么遍历Groupbox中4个Checkbox哪个选中,并取得他们的Caption值...
那就定义checkbox的名字 依次为 checkBox1 checkBox2 checkBox3 checkBox4 var i:integer;Str:String;begin Str:='';for i:=1 to 4 do begin if TCheckBox(FindComponent('checkBox'+inttostr(i))).Checked then str:=str+TCheckBox(FindComponent('checkBox'+inttostr(i))).Caption;end;sho...

delphi中checkbox问题.
我理解你的意思了,实际上在每次赋值前将s的值清空就可以了 在按钮点击事件的begin……end中键入以下代码,当然不要忘了声明s:string哦 s:='';if Self.chk1.Checked=True then s:=s+self.chk1.Caption;if Self.chk2.Checked=True then s:=s+self.chk2.Caption;ShowMessage(s);...

VB用复选框怎么实现多条件的查询
1、用字符串或字节型定义一个变量,初始全部置0,其形式如“000000000”(注,字节型变量为各位的值,而字符串为各个字符),具体位数由复选框个数来作适当调整。2、篇历所有复选框,每个复选框对应变量的一位,根据复选框的值设置该变量。得结果形如“0101110111”3、代码中条件组合编码形如“...

delphi中我添加了10个dbchenckbox,我想把点了钩的都存到数据库的一个...
可以实现,不过需要你自己编程。首先,设置DBCheckBox的Tag依次为1、2、4、8、16、32、64、128、256、512。然后,代码如下:function TForm1.GetChkBoxStatus: String;var i:Integer;begin i:=0;if CheckBox1.Checked then i:=i or CheckBox1.Tag;if CheckBox2.Checked then i:=i or CheckBox2...

delphi问题,不知道dbgrideh这种控件中有没有checkbox和combobox这两个...
dbgrideh上双击 弹出小窗口 增加一个个字段编辑 点击一个新增的字段 属性栏有 checkboxes 属性 改成true就可以 当然了 要增加对数据库字段的关联绑定 也就是fieldName属性

相似回答
大家正在搜