VFP工资查询系统(论文和程序)
VFP工资查询系统(论文和程序)-包括论文和程序列表 |
包括目录名称:
VFP工资查询系统(论文和程序) - 1 文件数, 2 目录数.
包括目录名称:
VF工资查询系统016 - 1 文件数, 1 目录数.
包括目录名称:
工资查询系统 - 0 文件数, 0 目录数.
..\工资查询系统.rar
包括目录名称:
工资查询系统 - 19 文件数, 2 目录数.
包括目录名称:
database - 24 文件数, 0 目录数.
..\dept.BAK
..\dept.CDX
..\dept.DBF
..\getsalary.BAK
..\getsalary.CDX
..\getsalary.dbf
包括目录名称:
form - 24 文件数, 0 目录数.
..\dataformat.SCT
..\dataformat.scx
..\glgz.SCT
..\glgz.scx
..\grcx.SCT
..\grcx.scx
..\FOXUSER.DBF
..\FOXUSER.FPT
..\fy.VCT
..\fy.vcx
..\mab.BAK
..\mab.dbf
..\工资查询系统说明书(doc)911.doc
工资查询系统说明书(doc)911-部分内容毕业论文说明书
名称:工资查询系统
学生算机信息管理
层次类别:
指导教师:
日期:2004.04.15
工资查询系统
系统分析
一、需求分析
需求分析的任务,在于完全志弄清用户对所开发的数据库应用系统的确切要求。开发人员要向用户展开调查研究,开清用户到底需要应用系统具备哪些功能,需要完成那些任务。
工资查询系统是企业对员工进行管理所必须的,工资查询系统包括对员工的工资进行基本工资设定,工资情况、个人工资查询、打印预览、打印退出等操作。一直以来,工资查询工作都是人工直接来完成的,如果对于一个大型企业来说工作量就很大,而且很容易出错。随着科技的发展,实现现代化和自动化管理既可能也很有心要。
二、系统功能
(1)员工信息:可以对员工工资情况进行浏览,查询,增加,删除,修改。
(2)员工工资设定:包括基本工资,岗位工资,工龄工资分别可以对他们内容进行修改、修改确定、添加、删除等功能。
(3)打印预览:可以打印预览。打印出工资单。
(4)个人查询:输入个要员工号和密码。
(5)最后是退出程序。
(6)权限设置:只有管理员才能进行此操作。
三、系统结构
总体介面
四、项目管理器
做VF首先建一个项目管理器;它包括许多内容,也被称做后台数据库,功能也比较强大。本项目管理器里包括:
1、数据库
所用的表。
2、文档
制作的表单
接后的就是类库、代码、其它,这里就不多说了,想了解就往下看。后面还有精彩的约。
五、具体功能
首先,介绍一下表单
1、gzgl它包括:1个表格,5个命令按钮
①表格,连接的gongling表。
②按钮包括:
⑴修改按钮。命令如下:
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.
thisform.pageframe1.page1.command2.enabled=.F.
thisform.pageframe1.page1.command3.enabled=.F.
thisform.pageframe1.page1.command4.enabled=.T.
ifthisform.pageframe1.page1.command1.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
thisform.pageframe1.page1.command1.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
thisform.pageframe1.page1.command1.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.
thisform.pageframe1.page1.command2.enabled=.T.
thisform.pageframe1.page1.command3.enabled=.T.
thisform.pageframe1.page1.command4.enabled=.F.
endif
endif
按钮"修改这条记录"如下
thisform.pageframe1.page1.command1.enabled=.F.
thisform.pageframe1.page1.command3.enabled=.F.
thisform.pageframe1.page1.command4.enabled=.T.
thisform.pageframe1.page1.fy1.enabled=.F.
ifthisform.pageframe1.page1.command2.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.
thisform.pageframe1.page1.command2.caption='修改确认'
thisform.pageframe1.page1.refresh
thisform.pageframe1.page1.txtpid.setfocus
else
thisform.pageframe1.page1.command2.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.command1.enabled=.T.
thisform.pageframe1.page1.command3.enabled=.T.
thisform.pageframe1.page1.command4.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
本系统实用于小行企业进行工资管理及查询。
上一篇:
VFP工程预算系统(论文和程序)
下一篇:
亚洲中小企业融资的发展趋势及对策思考