公司人事工资管理系统附超级列表框到Excel文件模块

.判断开始 (信息框_皮肤 (_启动窗口.取窗口句柄 (), “确定要删除该员工？”, #确认取消钮, “温馨提示”) ＝ #确认钮)
删除的语句 ＝ “delete from rs where r_id=” ＋ 档案编码
DATE库.执行SQL (删除的语句)
信息框_皮肤 (_启动窗口.取窗口句柄 (), 员工姓名编辑框.内容 ＋ “ 员工档案删除成功”, #确认钮, “温馨提示”)
连续赋值 (“”, 员工姓名编辑框.内容, 性别编辑框.内容, 身份证号编辑框.内容, 入职时间编辑框.内容, 所在部门编辑框.内容, 职务编辑框.内容, 联系方式编辑框.内容)

DATE集.打开 (“select * from gz where 工资时间='” ＋ 查询工资月份.内容 ＋ “' and 部门所在='” ＋ 工资所在部门组合框.取项目文本 (工资所在部门组合框.现行选中项) ＋ “'”, #SQL语句)
DATE集.到首记录 ()
DATE集.读文本 (“姓名”, 临时4)
.判断开始 (临时4 ＝ “”)
信息框_皮肤 (_启动窗口.取窗口句柄 (), 查询工资月份.内容 ＋ “ ” ＋ 工资所在部门组合框.取项目文本 (工资所在部门组合框.现行选中项) ＋ “ 员工工资查询失败，尚未有该部门工资录入！”, #确认钮, “温馨提示”)

连续赋值 (“”, 工资时间编辑框.内容, 工资姓名编辑框.内容, 基础工资编辑框.内容, 工龄工资编辑框.内容, 满勤编辑框.内容, 夜班补贴编辑框.内容, 社保编辑框.内容, 优秀员工编辑框.内容, 节能奖励编辑框.内容, 节日加班编辑框.内容, 其他补贴编辑框.内容, 小计数额编辑框.内容, 请假扣款编辑框.内容, 其他扣款编辑框.内容, 扣款数额编辑框.内容, 实发工资编辑框.内容, 工资编码)

.判断开始 (临时读取的名字 ＝ 工资姓名编辑框.内容 且 临时读取的日期 ＝ 工资时间编辑框.内容)
信息框_皮肤 (_启动窗口.取窗口句柄 (), 工资姓名编辑框.内容 ＋ “ 员工当月工资已经录入，请勿重复！”, #确认钮, “温馨提示”)
.默认
DATE集.打开 (“select * from rs where r_name='” ＋ 工资姓名编辑框.内容 ＋ “'”, #SQL语句)
DATE集.到首记录 ()
DATE集.读文本 (“r_department”, 部门所在)
DATE集.关闭 ()
输出调试文本 (部门所在)
增加工资语句 ＝ “insert into gz(工资时间,姓名,部门所在,基础工资,工龄工资,满勤奖,夜班补贴,社保,优秀员工,节能奖励,节日加班,其他补贴,小计,请假扣款,其他扣款,扣款小计,实发工资) values ('” ＋ 工资时间编辑框.内容 ＋ “','” ＋ 工资姓名编辑框.内容 ＋ “','” ＋ 部门所在 ＋ “','” ＋ 基础工资编辑框.内容 ＋ “','” ＋ 工龄工资编辑框.内容 ＋ “','” ＋ 满勤编辑框.内容 ＋ “','” ＋ 夜班补贴编辑框.内容 ＋ “','” ＋ 社保编辑框.内容 ＋ “','” ＋ 优秀员工编辑框.内容 ＋ “','” ＋ 节能奖励编辑框.内容 ＋ “','” ＋ 节日加班编辑框.内容 ＋ “','” ＋ 其他补贴编辑框.内容 ＋ “','” ＋ 小计数额编辑框.内容 ＋ “','” ＋ 请假扣款编辑框.内容 ＋ “','” ＋ 其他扣款编辑框.内容 ＋ “','” ＋ 扣款数额编辑框.内容 ＋ “','” ＋ 实发工资编辑框.内容 ＋ “')”