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

Posted 2022-07-21 知

篇首语：拳不离手，曲不离口。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统资料管理功能的实现（二）[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+ % );

cha138/Article/program/Delphi/201311/24967

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

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