工资查询系统论文.docx

工资查询系统论文.docx

《工资查询系统论文.docx》由会员分享，可在线阅读，更多相关《工资查询系统论文.docx（13页珍藏版）》请在冰豆网上搜索。

工资查询系统论文

工资查询系统

系统分析

一、需求分析

需求分析的任务，在于完全志弄清用户对所开发的数据库应用系统的确切要求。

开发人员要向用户展开调查研究，开清用户到底需要应用系统具备哪些功能，需要完成那些任务。

工资查询系统是企业对员工进行管理所必须的，工资查询系统包括对员工的工资进行基本工资设定，工资情况、个人工资查询、打印预览、打印退出等操作。

一直以来，工资查询工作都是人工直接来完成的，如果对于一个大型企业来说工作量就很大，而且很容易出错。

随着科技的发展，实现现代化和自动化管理既可能也很有心要。

二、系统功能

（1）员工信息：

可以对员工工资情况进行浏览，查询，增加，删除，修改。

（2）员工工资设定：

包括基本工资，岗位工资，工龄工资分别可以对他们内容进行修改、修改确定、添加、删除等功能。

（3）打印预览：

可以打印预览。

打印出工资单。

（4）个人查询：

输入个要员工号和密码。

（5）最后是退出程序。

（6）权限设置：

只有管理员才能进行此操作。

三、系统结构

总体介面

四、项目管理器

做VF首先建一个项目管理器；它包括许多内容，也被称做后台数据库，功能也比较强大。

本项目管理器里包括：

1、数据库

所用的表。

2、文档

制作的表单

接后的就是类库、代码、其它，这里就不多说了，想了解就往下看。

后面还有精彩的约。

五、具体功能

首先，介绍一下表单

1、gzgl它包括：

1个表格，5个命令按钮

1表格，连接的gongling表。

2按钮包括：

⑴修改按钮。

命令如下：

click事件：

thisform.grdgongling.column1.text1.enabled=.T.

thisform.grdgongling.column2.text1.enabled=.T.

thisform.grdgongling.column1.text1.setfocus

⑵修改确认按钮

click事件：

thisform.grdgongling.column1.text1.enabled=.F.

thisform.grdgongling.column2.text1.enabled=.F.

⑶添加按钮：

click事件：

appendblank

gobottom

thisform.grdgongling.column1.text1.enabled=.T.

thisform.grdgongling.column2.text1.enabled=.T.

thisform.grdgongling.column1.text1.setfocus

⑷删除按钮：

click事件：

thisform.grdgongling.recordsource=''

usedatabase\gonglingexclusive

deletefromgonglingwheregname=getgname

pack

thisform.grdgongling.recordsource='gongling'

thisform.grdgongling.refresh

⑸退出按钮：

click事件：

thisform.release

总体介面如下：

2、grcx（工资查询）

这个表单的是实现按工号查询，没一个工号有一个固定的密码查询的结果是

职工的基本情况。

当然工号和密码要连接生成器。

代码在“确定”按钮里具体如下：

inname=alltrim（thisform.text1.value）

inpswd=alltrim（thisform.text2.value）

setordertotms_user

seekinname

if!

found（）

cMessageTitle='设备管理系统'

cMessageText='用户名错误，请重新输入'

nDialogType=4+32

nAnswer=messagebox（cMessageText,nDialogType,cMessageTitle）

docase

casenAnswer=6

thisform.text1.value=''

thisform.text1.setfocus

casenAnswer=7

messagebox（"请勿偷窥他人资料",48,"警告"）

thisform.release

endcase

else

iftms_pswd!

=inpswd

cMessageTitle='设备管理系统'

cMessageText='密码错误，请重新输入'

nDialogType=4+32

nanswer=messagebox（cMessageText,nDialogType,cMessageTitle）

docase

casenAnswer=6

ifflag<2

thisform.text2.value=''

thisform.text2.setfocus

flag=flag+1

else

messagebox（"请勿偷窥他人资料",48,"警告"）

thisform.release

endif

casenAnswer=7

messagebox（"请勿偷窥他人资料",48,"警告"）

thisform.release

endcase

else

thisform.release

par1=inname

doformsalary\form\gresult

endif

endif

按“退出”按钮就释放表单。

3、gresult主要是被grcx（工资查询）调用，当然生成器里连接了其它表。

4、gwgz（岗位工资）对岗位工资的管理。

同gzgl功能一样。

5、gcgz（等级）也同gzgl功能一样

6、jm（密码表）

代码在“确定按钮里”

click事件：

selemab

locaforallt（mab.用户名）==allt（thisform.txtusername.value）andallt（mab.密码）==allt（thisform.txtpassword.value）

iffoun（）

doC:

\修改工资管理3\main.mpr

readevents

thisform.visible=.f.

thisform.txtpassword.value=""

releasethisform

else

thisform.txtpassword.value=""

messagebox（"你没有权限，请输入正确密码",0+16+0,"出错"）

thisform.txtpassword.setfocus

endi

7、personnel它包含一个页框，页框下有三个选项分别是：

●浏览它可以对员工信息进行浏览。

还可以增加删除员工信息

浏览掉用的类库的命令按钮组。

具有浏览功能。

格式如下：

按钮“增加新记录”命令如下：

thisform.pageframe1.page1.fy1.enabled=.F.

mand2.enabled=.F.

mand3.enabled=.F.

mand4.enabled=.T.

ifmand1.caption='增加新记录'

thisform.pageframe1.page1.txtpid.enabled=.T.

thisform.pageframe1.page1.txtpname.enabled=.T.

thisform.pageframe1.page1.txtpsex.enabled=.T.

thisform.pageframe1.page1.txtpjob.enabled=.T.

thisform.pageframe1.page1.txtpindate.enabled=.T.

thisform.pageframe1.page1.txtprank.enabled=.T.

appendblank

mand1.caption='增加确认'

thisform.pageframe1.page1.refresh

thisform.pageframe1.page1.txtpid.setfocus

else

getid=alltrim（thisform.pageframe1.page1.txtpid.value）

getname=alltrim（thisform.pageframe1.page1.txtpname.value）

getsex=alltrim（thisform.pageframe1.page1.txtpsex.value）

getjob=alltrim（thisform.pageframe1.page1.txtpjob.value）

getindate=alltrim（thisform.pageframe1.page1.txtpindate.value）

getrank=alltrim（thisform.pageframe1.page1.txtprank.value）

ifempty（getid）orempty（getname）orempty（getsex）orempty（getjob）orempty（getindate）orempty（getrank）

messagebox（"资料不足",48,"错误"）

else

mand1.caption='增加新记录'

tableupdate（.t.）

thisform.pageframe1.page1.txtpid.enabled=.F.

thisform.pageframe1.page1.txtpname.enabled=.F.

thisform.pageframe1.page1.txtpsex.enabled=.F.

thisform.pageframe1.page1.txtpjob.enabled=.F.

thisform.pageframe1.page1.txtpindate.enabled=.F.

thisform.pageframe1.page1.txtprank.enabled=.F.

thisform.pageframe1.page1.fy1.enabled=.T.

mand2.enabled=.T.

mand3.enabled=.T.

mand4.enabled=.F.

endif

endif

按钮“修改这条记录”如下

mand1.enabled=.F.

mand3.enabled=.F.

mand4.enabled=.T.

thisform.pageframe1.page1.fy1.enabled=.F.

ifmand2.caption='修改这条记录'

thisform.pageframe1.page1.txtpid.enabled=.T.

thisform.pageframe1.page1.txtpname.enabled=.T.

thisform.pageframe1.page1.txtpsex.enabled=.T.

thisform.pageframe1.page1.txtpjob.enabled=.T.

thisform.pageframe1.page1.txtpindate.enabled=.T.

thisform.pageframe1.page1.txtprank.enabled=.T.

mand2.caption='修改确认'

thisform.pageframe1.page1.refresh

thisform.pageframe1.page1.txtpid.setfocus

else

mand2.caption='修改这条记录'

tableupdate（.t.）

thisform.pageframe1.page1.txtpid.enabled=.F.

thisform.pageframe1.page1.txtpname.enabled=.F.

thisform.pageframe1.page1.txtpsex.enabled=.F.

thisform.pageframe1.page1.txtpjob.enabled=.F.

thisform.pageframe1.page1.txtpindate.enabled=.F.

thisform.pageframe1.page1.txtprank.enabled=.F.

mand1.enabled=.T.

mand3.enabled=.T.

mand4.enabled=.F.

thisform.pageframe1.page1.fy1.enabled=.T.

endif

按钮“删除这条记录“如下：

getid=alltrim（thisform.pageframe1.page1.txtpid.value）

thisform.pageframe1.page1.txtpid.controlsource=''

thisform.pageframe1.page1.txtpname.controlsource=''

thisform.pageframe1.page1.txtpsex.controlsource=''

thisform.pageframe1.page1.txtpjob.controlsource=''

thisform.pageframe1.page1.txtpindate.controlsource=''

thisform.pageframe1.page1.txtprank.controlsource=''

usepersonnelexclusive

setordertopid

seekgetid

delete

pack

thisform.pageframe1.page1.txtpid.controlsource='personnel.pid'

thisform.pageframe1.page1.txtpname.controlsource='personnel.pname'

thisform.pageframe1.page1.txtpsex.controlsource='personnel.psex'

thisform.pageframe1.page1.txtpjob.controlsource='personnel.pjob'

thisform.pageframe1.page1.txtpindate.controlsource='personnel.pindate'

thisform.pageframe1.page1.txtprank.controlsource='personnel.prank'

thisform.pageframe1.page1.refresh

thisform.pageframe1.page1.txtpid.enabled=.F.

thisform.pageframe1.page1.txtpname.enabled=.F.

thisform.pageframe1.page1.txtpsex.enabled=.F.

thisform.pageframe1.page1.txtpjob.enabled=.F.

thisform.pageframe1.page1.txtpindate.enabled=.F.

thisform.pageframe1.page1.txtprank.enabled=.F.

●查询

（1）可以根据员工号和员工姓名查询

●查询结果

退出查询

8类库——fy_____fy

上一个

这个主要用于浏览

9|、代码有一个程序文件：

mainmpr

setsysmenuoff

clearscreen

clearevents

doformsalary\form\jm

opendatabasedatabase\salary

readevents

10、其它

11、连编生成一个EXE文件（gzgl）_

五、最终介面

介面2

本系统实用于小行企业进行工资管理及查询。