|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //窗体关闭时返回的窗体选择 procedure TInfoFormClose(Sender: TObject; var Action: TCloseAction); begin manageshow; //如果此时是从进货单功能中调用信息管理窗体则不返回管理主窗体而返回进货单窗体 if (inputEnabled=false) then begin manageHide; inputenabled:=true; end end; //窗体显示时默认显示商品清单 procedure TInfoFormShow(Sender: TObject); begin nClick; end; //实现查询功能 procedure TInfoButtonClick(Sender: TObject); begin //根据标签的文字进行判断应该对那个数据表进行查询 //查询商品清单中的信息 if labelCaption=商品拼音 then begin adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select * from 商品清单where 拼音编码 like %+edittext+%); adoqueryOpen; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:= end; //查询供货商清单中的信息 if labelCaption=供货商拼音 then begin adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select * from 供货商清单where 拼音编码 like %+edittext+%); adoqueryOpen; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:= end; //查询客户清单中的信息 if labelCaption=客户拼音 then begin adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select * from 客户清单where 拼音编码 like %+edittext+%); right>[http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] |
