|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 工资发放历史页面的作用是查询职员历史月份的工资预设的查询条件有月份职员编号两个属性在【工资发放历史】页面上放置个文本框控件个按钮控件个Label控件他们的属性设置如图所示数据库组件的设置如表所示 http://developcsaicn/delphi/images/jpg> 图 工资发放历史查询页控件设置 http://developcsaicn/delphi/images/gif> 表 工资发放历史查询页控件及其属性设置 双击【查询】按钮为其添加如下代码 //工资发放历史查询 procedure TmainButtonClick(Sender: TObject); var i:integer; begin adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select b姓名a* from 工资发放历史表 a职员基本信息表 b ); adoquerySQLAdd(where (a职员编号=b职员编号)and((b姓名 like %+editText+%)and); adoquerySQLAdd((a日期 like %+editText+%))); adoqueryOpen; //设置表的宽度 for i:= to do dbgridColumns[i]Width:=; end; procedure TmainTabSheetShow(Sender: TObject); //显示时列出表中所有数据相当于输入空值进行查询 begin buttonClick; end; 该功能相当简单直接使用我们以前讲过的内容既可很轻松地完成程序运行结果如图所示 http://developcsaicn/delphi/images/jpg> 图 工资发放历史查询功能 |
