end;
end;
end;
§5.5 查询功能的实现
查询功能包括员工信息查询，供应商信息查询，入库信息查询和出库信息查询。由于每一个功能的实现都差不太多，而且其窗体也差不太多，所以在这里只给出员工信息查询窗体及其源代码。
图5.6 员工信息查询窗体
procedure tfindempform.speedbutton1click(sender: tobject);
var s1,s2,s3 :string;
begin file://员工记录查询窗体查找按钮事件
with datamoduleform.empquery do
begin
close;
sql.clear;
sql.add(''select * from employee'');
sql.add(''where employeeid like :empid and employeename like :name and grade like :grade''); file://实现模糊查询功能
if edit1.text<>'''' then s1:=''%''+edit1.text+''%'' else s1:=''%'';
parameters.parambyname(''empid'').value:=s1;
if edit2.text<>'''' then s2:=''%''+edit2.text+''%'' else s2:=''%'';
parameters.parambyname(''name'').value:=s2;
if edit3.text<>'''' then s3:=''%''+edit3.text+''%'' else s3:=''%'';
parameters.parambyname(''grade'').value:=s3;
open;
if fieldvalues[''employeeid'']<>null
<< 上一页 [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] ... 下一页 >>