电脑故障

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

发布日期：2020/5/4

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

双击图所示界面中的【查询】按钮为按钮添加下面的事件处理程序实现对所使用的数据表的动态判断和模糊查询整个信息管理窗体的代码如下

//单击商品信息管理菜单显示商品清单

procedure TInfoNClick(Sender: TObject);

begin

//查询商品信息

adoqueryClose;

adoquerySQLClear;

adoquerySQLText:=select * from 商品清单;

adoqueryOpen;

//设置列的宽度方便用户查看

dbgridColumns[]Width:=;

//提示用户输入商品拼音以供查询

labelCaption:=商品拼音;

end;

//单击供货商信息管理菜单显示供货商清单

procedure TInfoNClick(Sender: TObject);

begin

//查询供货商信息

adoqueryClose;

adoquerySQLClear;

adoquerySQLText:=select * from 供货商清单;

adoqueryOpen;

//设置列的宽度方便用户查看

dbgridColumns[]Width:=;

//提示用户输入供货商拼音以供查询

labelCaption:=供货商拼音;

end;

//单击客户信息管理菜单显示客户清单

procedure TInfoNClick(Sender: TObject);

begin

//查询客户信息

adoqueryClose;

adoquerySQLClear;

adoquerySQLText:=select * from 客户清单;

adoqueryOpen;

//设置列的宽度方便用户查看

dbgridColumns[]Width:=;

//提示用户输入客户拼音以供查询

labelCaption:=客户拼音;

end;

right>[] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>]