Query1.SQL.Clear;
Query1.SQL.Add('Select * From Task');
Query1.SQL.Add('Where (地点 = ''' + ComboBox1.Text + ''') '
+ ' and (任务性质 = ''' + ComboBox2.Text + ''')');
Query1.Open;
Query1.SQL.Add('Select * From Task');
Query1.SQL.Add('Where (地点 = ''' + ComboBox1.Text + ''') '
+ ' and (任务性质 = ''' + ComboBox2.Text + ''')');
Query1.Open;
解决方案 »
- Delphi中使用Quickreport生成报表的问题
- 添加数据后如何刷新from1的listView数据 问题,在线等....
- blazingfire近来接分5(如何在内存中直接打开Word文档?)
- 程序有内存泄露,郁闷中...msxml,com,widestring,olevariant帮顶有分!
- cuteant(我这张旧船票还能否登上你的破船|涛声是否依旧)进来接分吧
- 【建议贴】所谓的对csdn的“建议贴”的发贴地点
- 用包的高手请进,请问用package封装dbexpress组件问题,up给分!
- MSCOMM接收数据问题,请高手指点
- 敬请高手解决,我该如何打印这个窗体。
- 关于控件数组和动态数组?
- 以cdr结尾的是什么文件?
- printersetup后怎么知道是横向还是纵向打印?
Query1.SQL.Clear;
Add('select * from task where 地点='''+combobox1.Text+ '' and '
+ '任务性质='''+combobox2.text+'''');—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
+ '''任务性质='''+combobox2.text+'''');
条件合起来就可以了!
query1.Params.items[0].asstring := combobox2.text;