诸位前辈,我是一名新手,请多指教。我要作个筛选,具体格式如下:
字段名称 关系运算符 值 逻辑运算符 字段名称 关系运算符 值 例如:
等级工资 > 1000 and 等级工资 < 2000
其中,字段名称、值用TEdit控件,关系运算符、逻辑运算符用TComboBox控件
向你们求教源码,很急的,多谢了,回复的源码可行就给分!!!
字段名称 关系运算符 值 逻辑运算符 字段名称 关系运算符 值 例如:
等级工资 > 1000 and 等级工资 < 2000
其中,字段名称、值用TEdit控件,关系运算符、逻辑运算符用TComboBox控件
向你们求教源码,很急的,多谢了,回复的源码可行就给分!!!
解决方案 »
- 如何查看已开发程序中组件的版本
- 在Form中不能保存自定义内容?Form的DefineProperties不起作用?
- 因为有一个老的程序编泽,需要DELPHI5.0,谁有的发一个给我或是帮我找到可以下载的完整版..送分300..另外开贴送分
- 请问获取一个字符的ASCII码值的函数名称是什么?
- 数据库密码的问题
- 在线等待!在DELPHI中如何得到SQL SERVER语句的错误返回值,详细请看
- 大家帮帮忙!摆脱了!(300分)
- 关于SERVERSOCKET的简单问题。
- 关于SQL SERVER中的ID的问题
- 救命,用MyDAC的存储文件到Blob字段问题!
- 提问:如何把一个通过6000端口访问的应用程序改成其他的端口?
- 哪位大侠知道哪种商业或共享软件是用delphi做的?
等级工资 > 1000 and 等级工资 < 2000 使用下面控件表示的
Edit1 Combox1 Edit2 combox2 edit3 combox3 edit4
sql.add('select * from table');
sQl.add(' where ('+Edit1.text+combox1.Text+Edit2.Text+') '+Combox2.Text+' ('+
Edit3.text+combox3.Text+Edit4.Text+')');
就行了
楼主,要是你的字段值是数值型(1000和2000为int,numeric等)你需要将楼上的语句转化一下:Edit2.text 换成 convert(int/numeric,'''+edit2.text+''')
Edit4.text 换成 convert(int/numeric,'''+edit4.text+''')
************************
给100帮你杀一个人!
够了么?该揭帖了吧?
************************
Edit1 Combox1 Edit2 combox2 edit3 combox3 edit4
//假如你的在Edit1与Edit3中输入的列是数值型的列,
SQL.Clear;
SQL.Add('select * from 表名 where '+Edit1.text+ComBox1+Edit2.text+' '+Combox2+' '+Edit3+Combox3+Edit4.text);
Open;
//假如你的在Edit1与Edit3中输入的列是字符型的列,
SQL.Clear;
SQL.Add('select * from 表名 where '+Edit1.text+ComBox1+''''+Edit2.text+''' '+Combox2+' '+Edit3+Combox3++''''+Edit4.text+'''');
Open;