企业工资管理系统.ppt

*——在“员工工资表”中查找定位记录 SELECT PSalary LOCATE FOR 员工编号 = pNo IF FOUND() *——从“员工工资表”中读取记录并显示在表单中 LOCAL ARRAY tempArray[11] FOR i = 1 TO 11 tempArray[i] = ConSal[i] tempArray[i].VALUE = FieSal[i] ENDFOR ENDIF *——表单进入“浏览”状态 THISFORM.SETALL(READONLY, .T., TextBox) THISFORM.SETALL(ENABLED, .F., ComboBox) 表单Init-8/10 THISFORM.REFRESH RETURN ENDIF *——如果新增记录 IF THISFORM.FormMode = new SELECT PERSONNEL SET FILTER TO *——生成员工编号 GO BOTTOM pNo = AutoInc(员工编号) *——修改表单标题 THISFORM.CAPTION = 新增员工 *——显示修改的员工编号 表单Init-9/10 THISFORM.MainCon.MainFrame.PageInfo.txt员工编号.VALUE = pNo THISFORM.MainCon.MainFrame.PageInfo.txt员工编号.READONLY = .T. *——修改“修改”按钮的标题为“保存” THISFORM.MainCon.MyControl.CmdModify.CAPTION = 保存 THISFORM.Refresh ENDIF 表单Init-10/10 *——定义InfoPage对象表示“员工信息”选项卡 InfoPage = THISFORM.MainCon.MainFrame.PageInfo *——如果是作为“修改”按钮 IF THIS.CAPTION = 修改 THISFORM.SETALL(READONLY, .F. , TextBox) THISFORM.SETALL(Enabled, .T., ComboBox) InfoPage.txt员工编号.READONLY = .T. THIS.CAPTION = 保存 *——刷新表单 THISFORM.REFRESH RETURN ENDIF *——精确比较 SET EXACT ON CmdModify.Click-1/14 *——如果是作为“保存”按钮 IF THIS.CAPTION = 保存 IF EMPTY(InfoPage.cbo性别.VALUE) MESSAGEBOX(性别不能为空, 48, 企业工资管理系统) InfoPage.cbo性别.SETFOCUS RETURN ENDIF IF EMPTY(InfoPage.cbo婚否.VALUE) MESSAGEBOX(婚否不能为空, 48, 企业工资管理系统) InfoPage.cbo婚否.SETFOCUS RETURN ENDIF CmdModify.Click-2/14 IF EMPTY(InfoPage.cbo民族.VALUE) MESSAGEBOX(民族不能为空, 48, 企业工资管理系统) InfoPage.cbo民族.SETFOCUS RETURN ENDIF IF EMPTY(InfoPage.cbo部门.VALUE) MESSAGEBOX(部门不能为空, 48, 企业工资管理系统) InfoPage.cbo部门.SETFOCUS RETURN ENDIF CmdModify.Click-3/14 IF EMPTY(InfoPage.cbo职务.VALUE) MESSAGEBOX(职务不能为空, 48, 企业工资管理系统) InfoPage.cbo职务.SETFOCUS RETURN ENDIF IF EMPTY(InfoPage.cbo政治面貌.VALUE) MESSAGEBOX(政治面貌不能为空, 48, 企业工资管理系统) InfoPage.cbo政治面貌.SETFOCUS RETURN ENDIF CmdModify.Click-4/14 IF EMPTY(InfoPage.cbo学历.VALUE) MESSAGEBOX(学历不能为空, 48, 企业工资管理系统) InfoPage.cbo学历.SETFOCUS RETURN ENDIF IF EMPTY(ALLT