Z
zzwl77
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了个管理系统，在原材料表（包括原材料品名号、名称、单价、数量、金额、日期）查询操作时只能输入原材料品名号查询，我想做个随便输入个条件都可以查询，而且同时输入多个条件也可以查询。
我开始的代码是：
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 原材料 where 原材料品名号='''+edit1.Text+'''');
query1.Active:=true;
if query1.RecordCount=0 then
showmessage('你输入的信息不存在，请重新输入!')
else
begin
edit1.Text:=query1.FieldValues['原材料品名号'];
edit2.Text:=query1.FieldValues['名称'];
edit3.Text:=query1.FieldValues['数量'];
edit4.Text:=query1.FieldValues['单价'];
edit5.Text:=query1.FieldValues['金额'];
combobox1.Text :=query1.FieldValues['活动'];
edit8.Text:=query1.FieldValues['日期'];
end;
end;
麻烦高手们指点下。谢谢！
我开始的代码是：
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 原材料 where 原材料品名号='''+edit1.Text+'''');
query1.Active:=true;
if query1.RecordCount=0 then
showmessage('你输入的信息不存在，请重新输入!')
else
begin
edit1.Text:=query1.FieldValues['原材料品名号'];
edit2.Text:=query1.FieldValues['名称'];
edit3.Text:=query1.FieldValues['数量'];
edit4.Text:=query1.FieldValues['单价'];
edit5.Text:=query1.FieldValues['金额'];
combobox1.Text :=query1.FieldValues['活动'];
edit8.Text:=query1.FieldValues['日期'];
end;
end;
麻烦高手们指点下。谢谢！