医师工资管理系统ER图+流程图+功能模块图+源代码 第4页

工资管理系统
图 5-5系统主表单截图
“医师信息管理“控件的代码：
do form 医师信息
“工资浏览编辑“控件的代码：
do form 工资浏览编辑
“工资查询”控件的代码：
do form 工资信息查询
“退出“控件的代码：
？？ CHR(7)
result=MessageBox("是否退出本系统?",4+32+256,"信息")
IF result=6
    Thisform.Release
    ENDIF
3、创建医师信息表单
利用表单向导创建医师信息表单。
本表单的主要功能是管理人员通过编辑记录和查询记录来实现对员工信息的浏览，添加，修改，删除等功能。
 
图5-6 医师信息表单截图
4、创建工资信息浏览编辑表单
此表单可以删除需要删除的记录，添加新记录，便于对工资信息的修改，解决由于医师的工作变动而带来的工资信息管理麻烦。
 
图5-7工资信息浏览编辑表单截图
   鼠标右键点击“请选择医师编号”后的组合框，在弹出的快捷菜单中选择“生成器”再选定工资信息表中的“医师编号”字段，即可生成。其中表单中的表的生成方法类似，使得工资信息能在表单中完全显示。
 
图5-8组合框生成器截图
“删除记录“控件的代码
Select 工资信息
If MessageBox("是否删除该记录",32+1+256,"系统信息")==1
Delete
Pack
Endif
go top
Thisform.refresh
“添加记录“控件的代码
append blank &&在表中追加一条新记录
thisform.refresh&&刷新表单
“撤消“控件的代码
?? CHR(7)
result=MessageBox("是否退出本系统?",4+32+256,"信息")
IF result=6
Thisform.Release
ENDIF
5、创建工资信息查询表单
查询是系统的最基本而有很重要的一个功能，能让用户方便快捷、多角度地得知想查找的信息。本系统能快速浏览浏览医师工资信息的基本情况。在查询时只要选择相应的查询条件，然后单击“查询”，系统将会自动给出显示记录。
 
                 图5-9 工资信息查询表单截图
thisform.combo1.setfocus
locate all for thisform.combo1.value=工资信息.医师编号
thisform.Text1.value=工资信息.医师编号
thisform.Text2.value=工资信息.基本工资
thisform.Text3.value=工资信息.岗位工资
thisform.Text4.value=工资信息.津贴
thisform.Text5.value=工资信息.扣所得税
thisform.Text6.value=工资信息.实发工资
thisform.refresh
thisform.combo1.refresh
“第一个记录“控件的代码
go top
this.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
thisform.refresh
“上一个记录”控件的代码
skip-1
thisform.command1.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
if bof()
this.enabled=.f.
else
this.enabled=.t.
endif
thisform.refresh
www.751com.cn
thisform.command3.enabled=.f.
else
this.enabled=.t.
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
endif
thisform.refresh
“尾记录”控件的代码
go bottom
this.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
thisform.refresh
“退出”控件的代码
?? CHR(7)
result=MessageBox("是否退出本系统?",4+32+256,"信息")
IF result=6
Thisform.Release
ENDIF
6、设计工资统计表单
此表单可以统计出所发放的所有工资的总额。
“总工资统计“控件的代码：
Select 工资信息
JFZS=()
If Thisform.Commbo1.Text<>””then
Sum 实发工资for 医师编号=“”+Alltrim(Thisform.Combo1.Text)+””to JFZS
Else
Sum 实发工资 to JFZS
Endif
This.Text1.value=JFZS
Thisform.grid1.setfocus
Thisform.refresh 
图5-10工资统计表单截图5.3  菜单的设计
如下图所示在菜单设计器中建立“主菜单”，并编辑子菜单。

上一页  [1] [2] [3] [4] [5] [6] 下一页

医师工资管理系统ER图+流程图+功能模块图+源代码 第4页下载如图片无法显示或论文不完整，请联系qq752018766