第9章企业工资管理系统.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 THISF