比如我要查询数量大于700的产品,大我的符号是用combobox下拉显示的,怎么班
解决方案 »
- 指针与链表的使用
- 动态创建组件的赋值问题
- Indy的demo中chat为什么一运行就死机?
- 用tdbf实现dbf2sql的问题
- 我已将pagesize中的orientation属性选择landscape ,应该说可以横向打印,但是为什么预览的时候不是横向的呢
- Delphi 6 下为何 StrToBool('TRUE') 不行,可帮助里说可以呀
- 简单问题 在线等!表插入
- 急死偶了!请各位师哥师姐快快帮忙!
- 请问那一位有货仓货理系统呀?如果编一个这样的系统要多少价钱呢?
- 请问怎样在delphi中调用.vxd文件?(如:vpacket.vxd)
- Trim怎么用?
- 请教各位大虾,如何用API函数创建目录
begin
Close;
Sql.Clear;
Sql.Add('select * from tablename where number>:number');
ParamByName('number').AsInteger := 700;
Open;
ComboBox.Items.BeginUpdate;
while not eof do
begin
ComboBox.Items.Add(FieldByName('name').AsString;
Next;
end;
ComboBox.Items.EndUpdate;
end;
a,s,d:string ;
i:integer;
begin
a:='xh'; //字段名变量
s:='<'; //符号变量
i:=700 ; //参数值
d:=inttostr(i);
query1.close ;
query1.sql.clear ;
query1.SQL.Add ('select * from jbqk where ' + a + s +d); query1.open ;
但是我的程序还是有问题
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * from 入库单表');
Query1.Sql.Add('where 产品名称<>''''');
if ylksubfind.Edit1.Text<>'' then
Query1.Sql.Add('And 产品名称='''+ylksubfind.Edit1.Text+'''');
if ylksubfind.Edit4.Text<>'' and ylksubfind.ComboBox1.text<>'' then
Query1.Sql.Add('And 数量'+ylksubfind.Edit4.Text+''''+ylksubfind.ComboBox1.Text+'''';
if ylksubfind.Edit3.Text<>''then
Query1.Sql.Add('And 单据号='''+ylksubfind.Edit3.Text+'''');
Query1.Open;
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * from 入库单表');
Query1.Sql.Add(' where 产品名称<>''''');
if ylksubfind.Edit1.Text<>'' then
Query1.Sql.Add(' And 产品名称='''+ylksubfind.Edit1.Text+'''');
if ylksubfind.Edit4.Text<>'' and ylksubfind.ComboBox1.text<>'' then
Query1.Sql.Add(' And 数量'+ylksubfind.Edit4.Text+''''+ylksubfind.ComboBox1.Text+'''';
if ylksubfind.Edit3.Text<>''then
Query1.Sql.Add(' And 单据号='''+ylksubfind.Edit3.Text+'''');
Query1.Open;