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

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

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

    双击图 所示界面中的【查询】按钮 为按钮添加下面的事件处理程序 实现对所使用的数据表的动态判断和模糊查询 整个信息管理窗体的代码如下     // 单击商品信息管理菜单 显示商品清单     procedure TInfo N Click(Sender: TObject);     begin     //查询商品信息     adoquery Close;     adoquery SQL Clear;     adoquery SQL Text:= select * from  商品清单 ;     adoquery Open;     //设置列的宽度 方便用户查看     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     //提示用户输入商品拼音以供查询     label Caption:= 商品拼音 ;     end;           // 单击供货商信息管理菜单 显示供货商清单     procedure TInfo N Click(Sender: TObject);     begin     //查询供货商信息     adoquery Close;     adoquery SQL Clear;     adoquery SQL Text:= select * from  供货商清单 ;     adoquery Open;     //设置列的宽度 方便用户查看     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     //提示用户输入供货商拼音以供查询     label Caption:= 供货商拼音 ;     end;     // 单击客户信息管理菜单 显示客户清单     procedure TInfo N Click(Sender: TObject);     begin     //查询客户信息     adoquery Close;     adoquery SQL Clear;     adoquery SQL Text:= select * from  客户清单 ;     adoquery Open;     //设置列的宽度 方便用户查看     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     dbgrid Columns[ ] Width:= ;     //提示用户输入客户拼音以供查询     label Caption:= 客户拼音 ;     end;

lishixinzhi/Article/program/Delphi/201311/24966