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

Posted 2022-07-14 库存

篇首语：博观而约取，厚积而薄发。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统库存查询功能的实现[2]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

( ) 为窗体添加如下代码完成库存查询的功能 // 窗体关闭时返回的窗体的选择 procedure Tstore FormClose(Sender: TObject; var Action: TCloseAction); begin manage show; //如果此时是从销售单功能中调用库存查询窗体则不返回管理主窗体而返回销售单窗体 if (output Enabled=false) then begin manage Hide; output enabled:=true; end end; // 窗体显示时从两张不同的表里面进行组合查询库存数据 procedure Tstore FormShow(Sender: TObject); begin adoquery Close; adoquery SQL Clear; adoquery SQL Text:= select 库存库货号商品清单品名商品清单单位库存库仓库库存库库存数量库存库库存单价库存库库存金额 from 库存库商品清单 where 库存库货号=商品清单货号 ; adoquery Open; end; // 执行查询 procedure Tstore Button Click(Sender: TObject); begin adoquery Close; adoquery sql Clear; adoquery SQL Add( select 库存库货号商品清单品名商品清单单位库存库仓库库存库库存数量库存库库存单价库存库库存金额 from 库存库商品清单 ); adoquery SQL Add( where 库存库货号=商品清单货号 and ); adoquery SQL Add( ((商品清单货号= +edit Text+ )or ); adoquery SQL Add( (商品清单拼音编码= +edit Text+ )or ); adoquery SQL Add( (库存库仓库= +bobox text+ )) ); adoquery Open; //上面SQL语句的作用是从数据库中查询任意与输入的商品拼音货号仓库三者之一有相同值的记录因此 //后面三个语句是或的关系但是任何结果必须至少符合三个条件中的一个所以又是一个与的关系 //这里我们没有使用前面所讲过的模糊查询读者可以参照前面的章节自行修改程序看看会有什么样的结果 end; // 在销售单窗体中调用库存查询窗体 // 实现通过单击grid控件向销售单中传送相应的数据 procedure Tstore DBGrid DblClick(Sender: TObject); var name num:string; begin if (output Enabled=false) then begin num:=dbgrid Fields[ ] AsString; name:=dbgrid Fields[ ] AsString; //向将客户编号和名称传回销售单窗体 if output currentRow= then output currentRow:= ; output StringGrid Cells[ output currentRow]:=num; output StringGrid Cells[ output currentRow]:=name; output Enabled:=true; //成功后返回销售单 store Close; manage Hide; end; end;

cha138/Article/program/Delphi/201311/24870

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

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