“核算”按键的代码
Private Sub Gzhscmd_Click()
Adodc1.RecordSource = "select 人员信息表.编号,姓名,性别, 部门,(请假天数*50+迟到次数*10) as 应扣款,(基本工资+奖金+津贴-医疗保险-公积金-会员费) as 应发工资,(应发工资-应扣款) as 实发工资 from 员工信息表,工资表, 考勤表 where 员工信息表.编号=工资表.编号and 工资表.编号=考勤表.编号and month(工资表.发放日期)=考勤表.月份"
Adodc1.Refresh
End Sub
设置ADODC控件的数据源为工资表时,运行显示“不能绑定到字段或数据成员请假天数”、“不能绑定到字段或数据成员迟到次数”、“不能绑定到字段或数据成员姓名”、不能绑定到字段或数据成员编号