进销存管理系统库存查询功能的实现[2]

() 为窗体添加如下代码完成库存查询的功能

//窗体关闭时返回的窗体的选择

procedure TstoreFormClose(Sender: TObject; var Action: TCloseAction);

begin

manageshow;

//如果此时是从销售单功能中调用库存查询窗体则不返回管理主窗体而返回销售单窗体

if (outputEnabled=false) then

begin

manageHide;

outputenabled:=true;

end

end;

//窗体显示时从两张不同的表里面进行组合查询库存数据

procedure TstoreFormShow(Sender: TObject);

begin

adoqueryClose;

adoquerySQLClear;

adoquerySQLText:=select 库存库货号商品清单品名商品清单单位库存库仓库库存库

库存数量库存库库存单价库存库库存金额 from 库存库商品清单 where 库存库货号=商品清单货号;

adoqueryOpen;

end;

//执行查询

procedure TstoreButtonClick(Sender: TObject);

begin

adoqueryClose;

adoquerysqlClear;

adoquerySQLAdd(select 库存库货号商品清单品名商品清单单位库存库仓库库存库

库存数量库存库库存单价库存库库存金额 from 库存库商品清单);

adoquerySQLAdd(where 库存库货号=商品清单货号 and );

adoquerySQLAdd(((商品清单货号=+editText+)or);

adoquerySQLAdd((商品清单拼音编码=+editText+)or);

adoquerySQLAdd((库存库仓库=+comboboxtext+)));

adoqueryOpen;

//上面SQL语句的作用是从数据库中查询任意与输入的商品拼音货号仓库三者之一有相同值的记录因此

//后面三个语句是或的关系但是任何结果必须至少符合三个条件中的一个所以又是一个与的关系

//这里我们没有使用前面所讲过的模糊查询读者可以参照前面的章节自行修改程序看看会有什么样的结果

end;

//在销售单窗体中调用库存查询窗体

//实现通过单击grid控件向销售单中传送相应的数据

procedure TstoreDBGridDblClick(Sender: TObject);

var

namenum:string;

begin

if (outputEnabled=false) then

begin

num:=dbgridFields[]AsString;

name:=dbgridFields[]AsString;

//向将客户编号和名称传回销售单窗体

if outputcurrentRow= then

outputcurrentRow:=;

outputStringGridCells[outputcurrentRow]:=num;

outputStringGridCells[outputcurrentRow]:=name;

outputEnabled:=true;

//成功后返回销售单

storeClose;

manageHide;

end;

end;

right>[http://developcsaicn/delphi/htm>] []

上一篇：进销存管理系统库存查询功能的实现[1]

下一篇：经典案例 财务管理系统（14）[3]