工资查询系统—毕业设计论文

工资查询系统—毕业设计论文内容摘要：

par1=inname do form salary\form\gresult endif endif 按“退出”按钮就释放表单。 1 gresult 主要是被 grcx (工资查询 )调用，当然生成器 里连接了其它表。 1 gwgz(岗位工资 ) 对岗位工资的管理。 同 gzgl 功能一样。 1 gcgz(等级 )也同 gzgl 功能一样 jm（密码表） 代码在“确定按钮里” click 事件： sele mab loca for allt( )==allt() and allt( )==allt() if foun() do C:\修改工资管理 3\ read events =.f. = release thisform else = messagebox(你没有权限，请输入正确密码 ,0+16+0,出错 ) endi 2 personnel 它包含一个页框，页框下有三个选项分别是： ●浏览 它可以对员工信息进行浏览。 还可以增加删 除员工信息 浏览掉用的类库的命令按钮组。 具有浏览功能。 格式如下： 按钮“增加新记录”命令如下： =.F. =.F. =.F. =.T. if =39。 增加新记录 39。 =.T. =.T. =.T. =.T. =.T. =.T. append blank =39。 增加确认 39。 else getid=alltrim() getname=alltrim() getsex=alltrim() getjob=alltrim() getindate=alltrim() getrank=alltrim() if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank) messagebox(资料不足 ,48,错误 ) else =39。 增加新记录 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. endif endif 按钮“修改这条记录”如下 =.F. =.F. =.T. =.F. if =39。 修改这条记录 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。 修改确认 39。 else =39。 修改这条记录 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.F. =.T. endif 按钮“删除这条记录“如下： getid=alltrim() =39。 39。 =39。 39。 =39。 39。 =39。 39。 =39。 39。 =39。 39。 use personnel exclusive set order to pid seek getid delete pack =39。 d39。 =39。 personne39。 =39。 personnel.psex39。 =39。 personnel.pjob39。 =39。 personn39。 =39。 personnel.prank39。 =.F. =.F. =.F. =.F. =.F. =.F. ● 查询 （ 3） 可以根据员工号和员工姓名查询 ● 查询结果 退出查询 8 类库 —— fy_____fy 上一个 这个主要用于浏览 9|、代码 有一个程序文件： mainmpr set sysmenu off clear screen clear events do form salary\form\jm open database database\salary read events 其它 1连编生成一个 EXE 文件 (gzgl)_ 五、最终介面 介面 2 本系统实用于小行企业进行工资管理及查询。 毕业论文说明书 名 称： 工资查询系统 学 生 姓 名 ： 专 业： 计算机信息管理 层 次 类 别 ： 指 导 教 师 ： 日 期： 工资查询系统 系统分析 一、需求分析 需求分析的任务，在于完全志弄清用户对所开发的数据库应用系统的确切要求。 开发人员要向用户展开调查研究， 开清用户到底需要应用系统具备哪些功能，需要完成那些任务。 工资查询系统是企业对员工进行管理所必须的，工资查询系统包括对员工的工资进行基本工资设定，工资情况、个人工资查询、打印预览、打印退出等操作。 一直以来，工资查询工作都是人工直接来完成的，如果对于一个大型企业来说工作量就很大，而且很容易出错。 随着科技的发展，实现现代化和自动化管理既可能也很有心要。 二、系统功能 （ 19） 员工信息：可以对员工工资情况进行浏览，查询，增加，删除，修改。 （ 20） 员工工资设定：包括基本工资，岗位工资，工龄工资分别可以对他们内容进行修改、修 改确定、添加、删除等功能。 （ 21） 打印预览：可以打印预览。 打印出工资单。 （ 22） 个人查询：输入个要员工号和密码。 （ 23） 最后是退出程序。 （ 24） 权限设置：只有管理员才能进行此操作。 三、系统结构 总体介面 四、项目管理器 做 VF 首先建一个项目管理器；它包括许多内容，也被称做后台数据库，功能也比较强大。 本项目管理器里包括： 数据库 欢迎界面 退出 退出 打印预览 工资查询库 员工信息 员工工资设定 基本工资 岗位工资 打印预览 工龄工资 浏览 主菜单 个人工资 查询 个人查询 所用的表。 文档 制作的表单 接后的就是类库、代码、其它，这里就不多说了，想了解就往下看。 后面还有精彩的约。 五 、具体功能 首先，介绍一下表单 2 gzgl 它包括： 1 个表格， 5 个命令按钮 ① 表格，连接的 gongling表。 ② 按钮包括： ⑴修改按钮。 命令如下： click事件：=.T. =.T. ⑵ 修改确认按钮 click 事件： =.F. =.F. ⑶ 添加按钮： click 事件： append blank go bottom =.T. =.T. ⑷ 删除按 钮： click 事件： =39。 39。 use database\gongling exclusive delete from gongling where gname=getgname pack =39。 gongling39。 ⑸退出按钮： click 事件： 总体介面如下： 2 grcx (工资查询 ) 这个表单的是实现按工号查询，没一个工号有一个固定的密码查询的结果是 职工的基本情况。 当然工号和密码要连接生成器。 代码在“确定”按钮里具体如下： inname=alltrim() inpswd=alltrim() set order to tms_user seek inname if !found() cMessageTitle=39。 设备管理系统 39。 cMessageText=39。 用户名错误，请重新输入 39。 nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 =39。 39。 case nAnswer=7 messagebox(请勿偷窥他人资料 ,48,警告 ) endcase else if tms_pswd!=inpswd cMessageTitle=39。 设备管理系统 39。 cMessageText=39。 密码错误，请重新输入 39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 if flag2 =39。 39。 flag=flag+1 else messagebox(请勿偷窥他人资料 ,48,警告 ) endif case nAnswer=7 messagebox(请勿偷窥他人资料 ,48,警告 ) endcase else par1=inname do form salary\form\gresult endif endif 按“退出”按钮就释放表单。 2 gresult 主要是被 grcx (工资查询 )调用，当然生成器里连接了其它表。 2 gwgz(岗位工资 ) 对岗位工资的管理。 同 gzgl 功能一样。 2 gcgz(等级 )也同 gzgl 功能一样 2 jm（密码表） 代码在“确定按钮里” click 事件： sele mab loca for allt( )==allt() and allt( )==allt() if foun() do C:\修改工资管理 3\ read events =.f. = release thisform else = messagebox(你没有权限，请输入正确密码 ,0+16+0,出错 ) endi 2 personnel 它包含一个页框，页框下有三个选项分别是： ●浏览 它可以对员工信息进行浏览。 还可以增加删除员工信息 浏览掉用的类 库的命令按钮组。 具有浏览功能。 格式如下： 按钮“增加新记录”命令如下： =.F. =.F. =.F. =.T. if =39。 增加新记录 39。 =.T. =.T. =.T. =.T. =.T. =.T. append blank =39。 增加确认 39。 else getid=alltrim() getname=alltrim() getsex=alltrim() getjob=alltrim() getindate=alltrim() getrank=alltrim() if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank) messagebox(资料不足 ,48,错误 ) else =39。 增加新记录 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. endif endif 按钮“修改这条记录”如下 =.F. =.F. =.T. =.F. if =39。 修改这条记录 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。 修改确认 39。 else =39。 修改这条记录 39。 tableupdate(.t.) =.F. =。