|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 在这里我们要实现对于【省医药集团】所属的所有机构信息的维护和查找因此可以用很简单的程序来实现它我们在前面的进销存系统实例中曾讲过类似的功能首先该页面的页面设置如图所示控件清单和属性设置如表所示图右上角的数据链接图标为本实例用到的所有数据链接控件它们浮在面板上方本节功能用到的仅仅是其中的一个ADOQuery和一个DataSource而已 http://developcsaicn/delphi/images/jpg> 图 机构信息管理页面控件设置 http://developcsaicn/delphi/images/gif> 表 机构信息管理页控件及其属性设置 实现该功能的代码非常简单只需要分别为【查询】按钮和该页面显示时的TabSheetShow事件添加处理代码即可代码如下 // //机构信息管理功能的实现 // procedure TmainTabSheetShow(Sender: TObject); //显示机构信息 begin adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select 内部编号单位编号单位名称拼音编码单位地址); adoquerySQLAdd(单位电话号码开户银行帐号开户全称 from 组织机构编码表); right>[] [http://developcsaicn/delphi/htm>] |
