Delphi多条件查询格式

最新推荐文章于 2023-03-16 06:39:59 发布
最新推荐文章于 2023-03-16 06:39:59 发布
阅读量3.1k 收藏
点赞数
分类专栏： Delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/delphi308/article/details/9471381
版权

定义sql

var

    sql:string;


查询语句

 DataModule1.worksdata.CommandText:='select * from 送气工 where '+sql+'';


查询多条件判断

if(flag = false)   then
begin
    if(ComboBox2.Text = '等于') then
    begin
      sql:=''+trim(ComboBox1.Text)+' = '''+trim(Edit1.Text)+'''';
    end
    else if(ComboBox2.Text = '包含') then
    begin
      sql:=''+trim(ComboBox1.Text)+'  like '''+'%'+trim(Edit1.Text)+'%'+'''';

    end;

end

else if(flag =true) then
begin
    if(ComboBox2.Text = '等于') then
    begin
      if(ComboBox3.Text = '并且') then
      begin
        sql:=sql+ 'and' +' ' + ''+trim(ComboBox1.Text)+'  = '''+'%'+trim(Edit1.Text)+'%'+'''';
      end
      else if(ComboBox3.Text = '或者') then
      begin
        sql:=sql+ 'or' +' ' + ''+trim(ComboBox1.Text)+'  = '''+'%'+trim(Edit1.Text)+'%'+'''';
      end
      else if(ComboBox3.Text = '排除') then
      begin
        sql:=sql+ 'and' +' ' +''+trim(ComboBox1.Text)+'  <> '''+'%'+trim(Edit1.Text)+'%'+'''';
      end;
    end
    else if(ComboBox2.Text = '包含') then
    begin
      if(ComboBox3.Text = '并且') then
      begin
        sql:=sql+ 'and' +' ' + ''+trim(ComboBox1.Text)+'  like '''+'%'+trim(Edit1.Text)+'%'+'''';
      end
      else if(ComboBox3.Text = '或者') then
      begin
        sql:=sql+ 'or' +' ' + ''+trim(ComboBox1.Text)+'  like '''+'%'+trim(Edit1.Text)+'%'+'''';
      end
      else if(ComboBox3.Text = '排除') then
      begin
        sql:=sql +'and'+' '+''+trim(ComboBox1.Text)+' not like '''+'%'+trim(Edit1.Text)+'%'+'''';
      end;
    end;
 end;


delphi308
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi自定义的多条件查询公共单元代码
05-16
内容索引:Delphi源码,控件组件,查询　　Delphi自定义的多条件查询公共单元代码，其它程序也可使用，部分代码摘要： 　　uses iunit; //还需要引用ComCtrls单元以供Tlistitem调用 　　procedure TeForm.S1Click(Sender: TObject); 　　 //以下是将查询关键字添加到列表中,格式:关键字,数据库中字段名,类型(分字符、数值、日期),最后一个不要加豆号 s := '学员证件号码,fcode,字符,学员准考证号,fexam,字符,缴款日期,fdate,日期,缴款金额,famount,数值';
Delphi 通过字符串查找指定控件
小印丶的笔记
06-10 934
Delphi 通过字符串查找指定控件
Delphi按类型查询窗体上控件并且赋值
m0_37866352的博客
06-03 2526
//遍历所有控件并置为空。 for i := 0 to Self.ComponentCount -1 do begin if Self.Components[i] is TEdit then begin (Self.Components[i] as TEdit).Text := ''; end; end; ...
Delphi 使用复合查询一次查询多个数据表.rar
07-10
Delphi 复合查询数据库的例子，一次查询三个表，主要是这句SQL实现复合查询：select distinct 学生.姓名,班级.班级,班级.班主任,教师.年龄 as 教师年龄 from 学生,教师,班级 where 学生.班级=班级.班级 and 班级.班主任=教师.姓名，在很多Delphi数据库系统中，都有用到SQL复合查询的需求。下面是具体代码： 　　table1.DatabaseName:=dir1 '\data'; 　　table2.DatabaseName:=table1.DatabaseName; 　　table3.DatabaseName:=table1.DatabaseName; 　　query1.DatabaseName:=table1.DatabaseName; 　　table1.TableName:='学生.db'; 　　table2.TableName:='教师.db'; 　　table3.TableName:='班级.db'; 　　table1.Open; 　　table2.Open; 　　table3.Open; 　　except 　　showmessage('数据库读取错误！！'); 　　end; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　with query1 do 　　 begin 　　 close; 　　 sql.Clear; 　　 sql.Add('select distinct 学生.姓名,班级.班级,班级.班主任,教师.年龄 as 教师年龄 from 学生,教师,班级 where 学生.班级=班级.班级 and 班级.班主任=教师.姓名'); 　　 open; 　　 end; 　　end;
Delphi中多库关联查询
s13596191285的博客
03-16 549
第三步 在表单中增加两个DataBase控件“DataBase1”和“DataBase2”，在AliasName属性中分别选择“ZFGjj”和“RSDA”，DataBaseName属性中分别键入“ZFGjj”和“RSDA”，最后将KeepConnection和Connected属性都设为“True”。Query1.Sq1.Add(′Select A.七月，B.个人账号，B.用户号，C.姓名From“：ZFGjj：个人汇激部门表”A，“:ZFGjj:住房公积金明细表”B，“:RSDA:在职职工目录”C。
Delphi与SQL模糊查询
继网开来的专栏
07-17 2081
1．用变量进行模糊查询   对数据进行模糊查询主要用SQL语句LIKE来实现。该语句放在Where语句的后面，使用标识符“%”、“_”、“[]”、“[^]”对数据进行模糊查询。   例如，对姓名为“王”，并且姓名为两个字的学生信息。   Select * FROM MR_Student where 姓名 like '林_'   例如，查询数学成绩在70~79之间的学生信息。   Select * FROM MR_Student where 数学 like '7[0123456789]'   例如，查询除三年
Delphi XLgrid 动态创建下拉框列
lzbcsdn的博客
02-28 985
Delphi XLgrid 动态创建下拉框列 由于自己要用XLgrid 实现excel导入，但是有一些列想动态设置为 下拉框，并且能自动填充设置的东西。 百度网上资料都没有找到。自己琢磨了一天，看了看源码，终于试出来了。在此分享给大家。----可乐 Delphi XLGrid 动态创建列 动态设置 formatCell属性。 比如 要设置1行1列的格子为 下拉框 ...
Delphi多条件检索代码实例.rar
07-10
Delphi多条件检索代码实例，支持自定义的多条件搜索单元代码，虽不是完整程序，但这个单元挺不错，可用到你需要定制高级搜索的地方。uses iunit; //还需要引用ComCtrls单元以供Tlistitem调用 　procedure TeForm.S1...
网站查询排名DELPHI源码
06-05
4. **多线程**：为了提高查询效率，源码可能使用了DELPHI的TThread类或者异步编程模型，允许程序并行处理多个查询请求，避免因为网络延迟导致的阻塞。 5. **用户界面设计**：DELPHI提供了直观的可视化设计工具，...
简单的Delphi销售记录查询程序.rar
07-10
标题中的“简单的Delphi销售记录查询程序”是一个基于Delphi编程环境开发的简易应用程序，用于查询销售记录。这个程序展示了如何在Delphi中与数据库进行交互，以展示和浏览存储的销售数据。描述中提到，它包含了一个...
Delphi 开发的程序自动更新控件
08-17
- 控件会发送请求到指定的服务器，查询当前版本信息，比如通过XML或JSON格式的数据交换。 - 比较本地程序版本号与服务器返回的最新版本号，决定是否需要更新。 3. **下载更新**： - 如果检测到有新版本，控件会...
【delphi】下拉框显示多列字段，显示其中一列的值，获取其他字段的值
weixin_45616483的博客
11-21 1240
要求：下拉框显示多个字段的信息：编码、名称、计划号，选中时显示名称，获取计划号。 解决： 使用cxLookUpCombox控件， 在properties–>listsoruce中关联数据源， 在ListColumns中添加下拉框中要显示的字段， 在ListFieldIndex中设置要选中时要显示的字段的索引号， 在keyFiledNames中设置key值。 添加onchange事件，获取选...
策略模式
草帽的博客
05-05 182
优点： 1.策略模式的功能就是通过抽象、封装来定义一系列的算法，使得这些算法可以相互替换， 所以为这些算法定义一个公共的接口，以约束这些算法的功能实现。如果这些算法具有公共的功能，可以将接口变为抽象类，将公共功能放到抽象父类里面。 　2.策略模式的一系列算法是可以相互替换的、是平等的，写在一起就是if-else组织结构， 如果算法实现里又有条件语句，就构成了多重条件语句，可以用策略模式，避...
【阳光有点冷】Delphi+SQL数据库增加，删除，修改，查询操作
阳光有点冷
12-03 878
SQL需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete） 增加 with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)');//前面的字段就是需要增加的 parameters.ParamByName('a').Value:=t
delphi if多个条件_超级实用的IF函数及其实用技巧解读！
weixin_39757265的博客
11-21 772
IF函数，无人不知，无人不晓，在刚接触Excel的时候就已经开始学习了，但是，你真的会用吗？一、基本功能及语法结构。作用：判断是否满足某个条件，如果满足返回一个值，不满足返回另一个值。语法：=IF(判断条件，条件为真时的返回值，条件为假时的返回时)。示例：目的：判断销量情况，如果>=60，返回“达标”，否则返回“不达标”。方法：在目标单元格中输入公式：=IF(D3>=60,...
delphi if多个条件
最新发布
06-09
在 Delphi 中，可以使用 if 语句嵌套来实现多个条件。例如： ``` if condition1 then begin // 如果条件1成立，则执行这里的代码 if condition2 then begin // 如果条件2也成立，则执行这里的代码 end; end else if condition3 then begin // 如果条件1不成立，但条件3成立，则执行这里的代码 end; ``` 可以根据实际情况，嵌套多个 if 语句来实现更多的条件判断。需要注意的是，条件判断的顺序非常重要，因为只有第一个成立的条件会执行对应的代码块。如果条件判断的顺序不正确，可能会导致代码逻辑出现问题。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值