|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //发放所选员工的工资 procedure TmainButtonClick(Sender: TObject); var num:string; begin //获取要发放工资的员工的编号 num:=adoqueryFields[]AsString; //发放工资 adocommandCommandText:=exec sf_当月工资发放 +num+; adocommandExecute; MessageBox(所选员工的工资发放已成功!SuccessMB_OK); //刷新数据 adoqueryActive:=false; adoqueryActive:=true; end; 至此我们就完成了当月工资管理的功能运行结果如图和所示 http://developcsaicn/delphi/images/jpg> 图 导入工资历史 运行程序时单击【导入工资历史】按钮可以生成初始的工资信息将用户指定的历史月份中的工资纪录导入到指定的当前月份中此时有历史工资纪录的员工历史月份的工资纪录将被倒入到表中而自动生成没有历史工资记录的员工(如新员工)的各工资项均为用户可以手工修改这些工资项目修改完毕后单击【计算当月工资】按钮可以计算出工资使用导入工资历史的目的是为了让大部分员工的工资项明细可以通过【倒入工资历史】按钮从历史数据中倒入从而减轻输入工作的强调单击【工资发放】按钮可以发放选定职员的工资打印出工资条并将工资发放的记录放入历史将已经发放工资的员工从当月工资管理表中删去 http://developcsaicn/delphi/images/jpg> 图 修改并计算当月工资 right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [] |
