VFP工资管理系统
P3=ALLTRIM(STR(YEAR(DATE()))) IF MYUSER=USERNAME(1) IF P1=P3
THISFORM.RELEASE do form gzgl ELSE
=MESSAGEBOX(\超级用户密码错误,请再试一遍!\提示信息') ENDIF ELSE IF P1=P2
THISFORM.RELEASE do form gzgl ELSE
=MESSAGEBOX(\普通用户密码错误,请再试一遍!\提示信息') ENDIF ENDIF
5.3 系统主菜单设计
A．在“项目管理器”窗口中，选择“其他”选项卡
B．在“其他”选项卡中，选择“菜单”，“新建”，“菜单”，系统进入“菜单设计
器”窗口，如图5-3所示。
图5-3系统菜单设计器
- 15 -
VFP工资管理系统
退出过程相应代码：
byebye=messagebox(\真的要退出系统吗?\提示信息\if byebye=1 close all clear events quit endif
要注意的是，要在设计菜单结束后，选择主菜单上的“显示”菜单下的“常规选项”命令，再选择顶层表单复选框。然后保存文件，再选择生成菜单选项。
5.4 系统主控表单设计
主控表单用来调用系统菜单，以形成对整个工资管理系统的控制与管理。 运行结果。如图5-4所示。
图5-4系统主控表单
本表单form的属性需做相应设置： Show window=2 Windowstate=2 Showtips=.t.
Form 表单中的load事件代码为 Do xtcd.mpr with this ,.t.
5.5 工资录入表单设计
工资录入模块是用来录入工资记录的，在具体操作时有些数据需要自动生成。运
- 16 -
VFP工资管理系统
行结果，如图5-5所示。
图5-5工资录入表
Form1表单的属性如下： Autocenter=.t. Showwindow=1 相应事件代码设置：
Txt应发工资的 Click 和gotfocus的代码如下： with this.parent
this.value=.TXT职务工资.value+.TXT综合补贴.value+.TXT出勤补.value+.TXT交通补.value+.TXT外租房补.value+.TXT补发工资.value endwith
Txt合计扣款的 Click 和gotfocus的代码如下： with this.parent
this.value=.TXT养老保险.value+.TXT公积金.value endwith
Txt实发工资的 Click 和gotfocus的代码如下： with this.parent
this.value=.TXT应发工资.value-.TXT合计扣款.value endwith
txt 所得税、txt实发现金的代码与其类似略去。各个按钮的功能比较简单，在此略去。
- 17 -
VFP工资管理系统
5.6 工资浏览表单设计
本表单用来对多个记录进行浏览，运行结果，如图5-6所示。
图5-6工资浏览
此表单功能较简单，其中所用控件代码，在此省略。
5.7 工资修改表单设计
此表单由页框控件组成，该页框由四个页面组成。 第一个页面：对查找满足条件的记录进行修改
图5-7-1对满足条件的记录修改
- 18 -
VFP工资管理系统
第二个页面：将已查找的记录显示在屏幕上，进行修改，即单个记录的修改
图5-7-2对已找到的记录进行修改
第三个页面：批量修改已满足条件的记录，也可以修改某一字段的内容。
图5-7-3批量修改
- 19 -