库存的五个基本作用 进销存管理系统库存查询功能的实现[2]

进销存管理系统库存查询功能的实现[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;

lishixinzhi/Article/program/Delphi/201311/24870