工资是当月发还是下个月发 当月工资管理功能的实现[3]

当月工资管理功能的实现[3]  

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

    // 发放所选员工的工资     procedure Tmain Button Click(Sender: TObject);     var     num:string;     begin     //获取要发放工资的员工的编号     num:=adoquery Fields[ ] AsString;     //发放工资     adomand CommandText:= exec sf_当月工资发放 +num+ ;     adomand Execute;     MessageBox( 所选员工的工资发放已成功! Success MB_OK);     //刷新数据     adoquery Active:=false;     adoquery Active:=true;     end;      

    至此 我们就完成了当月工资管理的功能 运行结果如图 和 所示

//develop csai cn/delphi/images/ jpg >图   导入工资历史

    运行程序时 单击【导入工资历史】按钮可以生成初始的工资信息 将用户指定的历史月份中的工资纪录导入到指定的当前月份中 此时有历史工资纪录的员工历史月份的工资纪录将被倒入到表中 而自动生成没有历史工资记录的员工(如新员工)的各工资项均为 用户可以手工修改这些工资项目 修改完毕后 单击【计算当月工资】按钮可以计算出工资 使用导入工资历史的目的是为了让大部分员工的工资项明细可以通过【倒入工资历史】按钮从历史数据中倒入 从而减轻输入工作的强调 单击【工资发放】按钮 可以发放选定职员的工资 打印出工资条并将工资发放的记录放入历史 将已经发放工资的员工从当月工资管理表中删去

//develop csai cn/delphi/images/ jpg >图   修改并计算当月工资

lishixinzhi/Article/program/Delphi/201311/24820