登录功能怎么实现 进销存管理系统资料管理功能的实现（二）[2]

进销存管理系统资料管理功能的实现（二）[2]  

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

    // 窗体关闭时返回的窗体选择     procedure TInfo FormClose(Sender: TObject; var Action: TCloseAction);     begin     manage show;     //如果此时是从进货单功能中调用信息管理窗体 则不返回管理主窗体而返回进货单窗体     if (input Enabled=false) then      begin      manage Hide;      input enabled:=true;     end     end;           // 窗体显示时 默认显示商品清单     procedure TInfo FormShow(Sender: TObject);     begin     n Click;     end;           // 实现查询功能     procedure TInfo Button Click(Sender: TObject);     begin     //根据标签的文字进行判断应该对那个数据表进行查询     //查询商品清单中的信息      if label Caption= 商品拼音 then       begin       adoquery Close;       adoquery SQL Clear;       adoquery SQL Add( select * from 商品清单where 拼音编码 like % +edit text+ % );       adoquery Open;       dbgrid Columns[ ] Width:= ;       dbgrid Columns[ ] Width:= ;       dbgrid Columns[ ] Width:= ;       dbgrid Columns[ ] Width:=       end;             //查询供货商清单中的信息       if label Caption= 供货商拼音 then       begin       adoquery Close;       adoquery SQL Clear;       adoquery SQL Add( select * from 供货商清单where 拼音编码 like % +edit text+ % );       adoquery Open;       dbgrid Columns[ ] Width:= ;       dbgrid Columns[ ] Width:= ;       dbgrid Columns[ ] Width:= ;       dbgrid Columns[ ] Width:=       end;             //查询客户清单中的信息       if label Caption= 客户拼音 then       begin       adoquery Close;       adoquery SQL Clear;       adoquery SQL Add( select * from 客户清单where 拼音编码 like % +edit text+ % );

lishixinzhi/Article/program/Delphi/201311/24967