工资查询系统说明书.doc

论途网 毕业论文说明书名 称： 工资查询系统 学生姓名： 专 业： 计算机信息管理 层次类别： 指导教师： 日 期： 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事件：append blankgo bottomthisform.grdgongling.column1.text1.enabled=.T.thisform.grdgongling.column2.text1.enabled=.T.thisform.grdgongling.column1.text1.setfocus删除按钮：click事件：thisform.grdgongling.recordsource=use databasegongling exclusivedelete from gongling where gname=getgnamepackthisform.grdgongling.recordsource=gonglingthisform.grdgongling.refresh退出按钮：click 事件：thisform.release总体介面如下：2、 grcx (工资查询)这个表单的是实现按工号查询，没一个工号有一个固定的密码查询的结果是职工的基本情况。当然工号和密码要连接生成器。代码在“确定”按钮里具体如下：inname=alltrim(thisform.text1.value)inpswd=alltrim(thisform.text2.value)set order to tms_userseek innameif !found() cMessageTitle=设备管理系统 cMessageText=用户名错误，请重新输入 nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 thisform.text1.value= thisform.text1.setfocus case nAnswer=7 messagebox(请勿偷窥他人资料,48,警告) thisform.release endcaseelseif tms_pswd!=inpswdcMessageTitle=设备管理系统 cMessageText=密码错误，请重新输入 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 if flag2 thisform.text2.value= thisform.text2.setfocus flag=flag+1 else messagebox(请勿偷窥他人资料,48,警告) thisform.release endif case nAnswer=7 messagebox(请勿偷窥他人资料,48,警告) thisform.release endcase else thisform.release par1=inname do form salaryformgresultendif endif按“退出”按钮就释放表单。3、 gresult 主要是被grcx (工资查询)调用，当然生成器里连接了其它表。4、 gwgz(岗位工资) 对岗位工资的管理。同gzgl功能一样。5、 gcgz(等级)也同gzgl功能一样6、 jm（密码表）代码在“确定按钮里”click事件：sele mabloca for allt(mab.用户名)=allt(thisform.txtusername.value) and allt(mab.密码)=allt(thisform.txtpassword.value)if foun() do C:修改工资管理3main.mpr read events thisform.visible=.f. thisform.txtpassword.value= release thisformelse thisform.txtpassword.value= messagebox(你没有权限，请输入正确密码,0+16+0,出错) thisform.txtpassword.setfocusendi7、 personnel 它包含一个页框，页框下有三个选项分别是： 浏览 它可以对员工信息进行浏览。还可以增加删除员工信息浏览掉用的类库的命令按钮组。具有浏览功能。格式如下：按钮“增加新记录”命令如下：thisform.pageframe1.page1.fy1.enabled=.F.mand2.enabled=.F.mand3.enabled=.F.mand4.enabled=.T.if mand1.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.append mand1.caption=增加确认thisform.pageframe1.page1.refreshthisform.pageframe1.page1.txtpid.setfocuselsegetid=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)if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank)messagebox(资料不足,48,错误)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.endifendif按钮“修改这条记录”如下mand1.enabled=.F.mand3.enabled=.F.mand4.enabled=.T.thisform.pageframe1.page1.fy1.enabled=.F.if mand2.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=修改确认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=use personnel exclusiveset order to pidseek getiddeletepackthisform.pageframe1.page1.txtpid.controlsource=personnel.pidthisform.pageframe1.page1.txtpname.controlsource=personnel.pnamethisform.pageframe1.page1.txtpsex.controlsource=personnel.psexthisform.pageframe1.page1.txt