当前位置:首页>> >>


[vf毕设]工资查询系统.rar

收藏

资源目录
    文档预览:
    编号:20180824112536553    类型:共享资源    大小:540.92KB    格式:RAR    上传时间:2018-08-24
      
    40
    金币
    关 键 词:
    vf 工资 查询 系统
    资源描述:
    毕业论文说明书名 称: 工资查询系统 学 生 姓 名 : 专 业: 计算机信息管理 层 次 类 别 : 指 导 教 师 : 日 期: 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 database\gongling exclusivedelete from gongling where gname=getgnamepackthisform.grdgongling.recordsource='gongling'thisform.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+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)do casecase nAnswer=6 thisform.text1.value=''thisform.text1.setfocus case nAnswer=7 messagebox(“请勿偷窥他人资料“,48,“警告“)thisform.releaseendcaseelseif tms_pswd!=inpswdcMessageTitle='设备管理系统'cMessageText='密码错误,请重新输入'nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)do casecase nAnswer=6if flag<2thisform.text2.value=''thisform.text2.setfocusflag=flag+1elsemessagebox(“请勿偷窥他人资料“,48,“警告“)thisform.releaseendifcase nAnswer=7 messagebox(“请勿偷窥他人资料“,48,“警告“) thisform.releaseendcaseelsethisform.releasepar1=innamedo form salary\form\gresultendifendif按“退出”按钮就释放表单。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:\修改工资管理 3\main.mprread eventsthisform.visible=.f.thisform.txtpassword.value=““release thisformelsethisform.txtpassword.value=““messagebox(“你没有权限,请输入正确密码“,0+16+0,“出错“) thisform.txtpassword.setfocusendi7、 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.if thisform.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.append blankthisform.pageframe1.page1.command1.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,“ 错误“)elsethisform.pageframe1.page1.command1.caption='增加新记录'tableupdate(.t.)thisform.pageframe1.page1.txtpid.enabled=.F.
    展开阅读全文
    1
      金牌文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    0条评论

    还可以输入200字符

    暂无评论,赶快抢占沙发吧。

    关于本文
    本文标题:[vf毕设]工资查询系统.rar
    链接地址:http://www.gold-doc.com/p-82673.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们
    copyright@ 2014-2018 金牌文库网站版权所有
    经营许可证编号:浙ICP备15046084号-3
    收起
    展开