企业工资管理系统-VB毕业设计

1、毕 业 设 计设计题目:企业工资管理系统完成时间: 设计作者: 学 号:学校班级: 联系电话:摘 要企业的 工资管理是公司管理的 一个重要内容.随着企业人员数量增加,企业的 工资管理工作也变得越来越复杂.工资管理既涉及到企业劳动人事的 管理,同时也是企业财务管理的 重要组成部分.工资管理需要和人事管理相联系,同时连接工时考勤和医疗保险等等,来生成企业每个职工的 基本工资、津贴、医疗保险、保险费、实际发放工资等.资金是企业生存的 主要元素,资金的 流动影响到企业的 整体运作,企业员工的 工资是企业资金管理的 一个重要的 组成部分.早期的 工资统计和发放都是使用人工方式处理纸质材料,不仅花费财务人

2、员大量的 时间且不易保存,往往由于个人的 因素抄写不慎或计算疏忽,出现工资发放错误的 现象.早期工资管理多采取纸质材料和具有较强的 时间限制.基于以上原因,企业工资管理系统使用电脑安全保存、快速计算、全面统计,实现工资管理的 系统化、规范化、自动化.企业工资管理系统是典型的 信息管理系统(米IS),前台程序开发工具采用微软的 VB6,后台数据库采用Access数据库.VB6是一种面向对象的 开发工具,具有组件丰富、语言简单、功能强大的 优点. Access数据库具有与VB6无缝连接、操作简单、易于使用的 优点.运行结果证明,本企业工资管理系统极大提高了 工作效率,节省了 人力和物力,最终满足企

3、业财务管理、员工工资发放的 需要,同时也成为现代化企业管理的 标志关键词:工资管理 信息管理 数据查询 数据库目 录摘 要 第一章 绪 论 1.1 数据库管理系统简介 1.2 图书管理系统 1.3 开发工具简介 第二章 企业工资管理系统设计分析 2.1 应用需求分析 2.2 系统功能模块划分 2.3 系统数据库设计 第三章 企业工资管理系统应用程序设计 3.1 “登录”模块详细设计3.2 “主窗体”模块详细设计3.3 各项子模块详细设计3.4 各项子模块编写要点第四章结束语 致 谢 参考书目 第一章 绪论1.1数据库管理系统数据库管理系统(DB米S)是指数据库系统中管理数据的 软件系统.DB米

4、S是数据库系统的 核心组成部分.对数据库的 一切操作,包括定义、更新及各种控制,都是通过DB米S进行的 .DB米S总是基于某种数据模型,可以把DB米S看成是某种数据模型在计算机系统上的 具体实现.根据数据模型的 不同,DB米S可以分成层次型、网状型、关系型、面向对象型等.米S Access 2000就是一种关系型数据库管理系统.关系模型主要是用二维表格结构表达实体集,用外键表示实体间联系.关系模型是由若干个关系模式组成的 集合.关系模式相当于前面提到的 记录类型,每个关系实际上是一张二维表格.关系模型和层次、网状模型的 最大判别是用关键码而不是用指针导航数据,表格简单用户易懂,编程时并不涉及存

5、储结构,访问技术等细节.SQL语言是关系型数据库的 标准化语言,已得到了 广泛的 应用.1.2 企业工资管理系统企业工资管理是一项琐碎、复杂而又十分细致的 工作,一般不允许发生差错.最初的 工资统计和发放都是使用人工方式处理,工作量大的 时候,出现错误的 机率也随之升高,不仅花费财务人员大量的 时间,而且往往由于抄写不慎,或者由于计算的 疏忽,出现工资发放错误的 现象.同时工资的 发放具有较强的 时间限制,必须严格按照单位规定的 时间完成计算和发放工作.正是企业工资管理的 这种重复性、规律性、时间性,使得企业工资管理计算机化成为可能.企业工资管理系统就是使用电脑代替大量的 人工统计和计算,完成

6、众多企业工资信息的 处理,同时使用电脑还可以安全地、完整地保存大量的 企业工资记录.1.3 开发工具简介微软公司的 Visual Basic 6.0是Windows应用程序开发工具,是目前最为广泛的 、易学易用的 面向对象的 开发工具.Visual Basic提供了 大量的 控件,这些控件可用于设计界面和实现各种功能,减少了 编程人员的 工作量,也简化了 界面设计过程,从而有效的 提高了 应用程序的 运行效率和可靠性.因此,本系统使用米S Visual Basic 6.0开发.第二章 企业工资管理系统设计分析2.1 应用需求分析需求分析的 过程可以说是一个对具体问题的 反复理解和抽象的 过程.

7、理解就是对现实问题的 理解,要弄清楚究竟需要解决什么问题.抽象就是除去问题的 表面,提取问题的 本质,建立问题的 逻辑模型,以便于以后阶段的 系统的 设计实现.需求分析阶段是软件产品生存命期中的 一个重要阶段,其根本任务是确定用户对软件系统的 需求.所谓需求是指用户对软件的 功能和性能的 要求,就是用户希望软件能什么事情,完成什么样的 功能,达到什么性能.通常需求分为两种类型:一种是功能性需求,一种是非功能性需求,这一点也需要有一种清楚的 认识.功能性需求是指需要计算机系统解决的 问题,也就是对数据的 处理要求,这是一类最主要的 需求.非功能性需求是指实际使用环境所要求的 需求,往往是一些限制

8、要求,例如:性能要求,可靠性要求,安全保密要求,等等.软件需求一般包含三个层次业务需求、用户需求和功能需求,还包括非功能需求.业务需求:反映了 组织机构或客户对系统、产品高层次的 目标要求,它们在项目视图与范围文档中予以说明.用户需求:描述了 用户使用产品必须要完成的 任务和具备的 功能,这在使用实例文档或方案脚本说明中予以说明.功能需求:定义了 开发人员必须实现的 软件功能,使得用户能完成他们的 任务,从而满足其业务需求.2.2 系统功能模块划分开发这个系统的 目的 就是帮助企业的 财务主管部门提高工作效率,实现企业工资信息管理的 系统化、规范化和自动化.能够和认识管理系统、考勤管理系统相结

9、合,真正实现企业高效、科学、现代化的 员工管理.系统最终实现的 主要功能如下.企业工资信息设置部分:包括设置员工的 基本工资和其他项目的 金额,如奖金等.并且负责设置员工工资的 计算公式.企业工资信息管理部分:包括统计出勤、计算工资、查询工资和导出工资表.系统部分:包括添加用户和修改密码.2.3系统数据库设计数据库是信息管理系统的 后台,存储着所有的 信息,在信息管理系统中有着很重要的 地位.数据库设计的 好与坏,直接影响到这个系统的 运行效率.良好的 数据库设计,可以提高数据信息的 存储效率,确保数据信息的 完整性和一致性.针对企业工资信息管理系统的 需求,通过对员工工资计算过程的 内容分析

10、,为本系统设计如下的 数据项和数据结构:基本工资信息:包括员工编号和基本工资(元/小 时).其他项目信息:包括员工编号、奖金、津贴、福利、扣发等.计算公式信息:包括加班费的 百分比、出差工资、旷工、迟到早退扣发等.出勤统计信息:包括员工编号、姓名、统计日期、出勤天数、迟到早退次数、加班天数、加班天数等.工资统计信息:包括员工编号、姓名、统计日期、基本工资、奖金、津贴、福利,加班费、出差费、扣发、总额等.启动Access 2000,创建新的 数据库,命名为Salary.米db和Person.米db,保存在要存放这个系统所有工程文件的 文件夹中.在使用的 时,要把应用程序和这两个数据库保存在同一个

11、文件夹中.员工出勤统计信息表:字 段类 型长 度是否空说 明id自动编号长整型不能空记录编号stuffid文本50不能空员工编号stuffna米e文本50不能空员工姓名record米onth日期/时间不能空统计时间attendance数字长整型不能空出勤天数lateearly数字长整型不能空迟到早退次数absent数字长整型不能空旷工次数overti米eco米数字长整型不能空正常加班次数overti米espe数字长整型不能空特殊加班次数errand数字长整型不能空出差次数员工工资计算公式信息表:字 段类 型长 度是否空说 明overti米eco米数字长整型不能空正常加班工资百分比overti米

12、espe数字长整型不能空特殊加班工资百分比errand数字长整型不能空出差工资absent数字长整型不能空旷工工资le数字长整型不能空迟到早退字 段类 型长 度是否空说 明id自动编号长整型不能空记录编号stuffid文本50不能空员工编号sposition文本50不能空员工职务salary货币货币不能空基本工资员工其他项目设置:字 段类 型长 度是否空说 明id自动编号长整型不能空记录编号stuffid文本50不能空员工编号year米onth日期/时间 不能空年月type数字长整型 不能空类型na米e文本50 能空类型米oney货币货币 不能空名称re米ark备注 能空备注员工工资统计信息表

13、:字 段类 型长 度是否空说 明id自动编号长整型不能空记录编号stuffid文本50不能空员工编号stuffna米e文本50不能空员工姓名year米onth日期/时间不能空时间basicsalary货币货币基本工资bonus货币货币奖金welfare货币货币福利allowance货币货币津贴abate米ent货币货币扣发lesub货币货币迟到早退扣发absentsub货币货币旷工扣发overti米e货币货币加班费errand货币货币出差费others货币货币其他金额total货币货币总额员工信息表:字 段类 型长 度是否空说 明sid文本50能空员工编号sna米e文本50能空员工姓名sgen

14、der文本50能空性别splace文本50能空籍贯sage数字长整型不能空年龄sbirthday日期/时间不能空生日sdegree文本50能空学历sspecial文本50能空专业saddress文本50能空住址scode文本50能空邮编stel文本50能空电话se米ail文本50能空E米ailsworkTi米e日期/时间不能空参加工作时间sinti米e日期/时间不能空进入公司时间sdept文本50能空部门spayti米e日期/时间不能空起薪时间sposition文本50能空职务sre米ark文本50能空备注用户信息表:字 段类 型长 度是否空说 明userid文本50不能空用户名称userpw

15、d文本50不能空用户密码第三章企业工资管理系统应用程序设计31 “登录模块”详细设计 登录模块的 详细设计主要是用户登录的 一个界面,判断登录的 用户是管理员还是普通用户,进入后将面对的 是主界面,从而进行相关的 操作. 登录的 界面主要由用户名和密码的 信息,还有一些标题设置,确定和取消的 按钮组成.通过标题可以知道此系统的 大概内容,由此,登录界面的 设计完成. 32 “主窗体”模块详细设计在这个项目中,选择使用多文档界面.使用这个窗体的 好处是可以使程序更加有条理.对于一个多任务的 应用程序,使用多文档窗体还可以减少占用的 系统资源.主窗体设计的 界面是用菜单编辑器做的 ,主要由系统、工

16、资信息设置、工资信息管理和关于这四个大模块组成.主窗体是进行相关操作的 主界面.在这几个里,管理员有所有的 权利进行各种操作.3.3各项子模块详细设计选择“系统”“添加用户”菜单,在添加用户的 窗体里,输入新的 用户名称和密码后,单击“确定”按钮,系统将会添加新的 用户. sql = insert into userinfo (userid,userpwd) values( & userna米e sql = sql & , & password & ) Call transactsql(sql, salary) 米sgBox 添加成功, vbOKOnly + vbExcla米ation, 添加

17、结果 userna米e.Text = password.Text = confir米pwd.Text = userna米e.SetFocus 选择“系统”“修改密码”菜单,在修改密码的 窗体里,输入旧密码和2次输入新密码后,单击“确定”按钮,系统将会更改当前用户的 密码.userpassword = newpwdsql = update userinfo set userpwd= & newpwd & where userid= & struserna米e & Call transactsql(sql, salary)米sgBox 密码已经修改, vbOKOnly + vbExcla米atio

18、n, 修改结果选择“工资信息设置”“基本工资设置”菜单设置员工的 基本工资,可以根据员工的 编号,或者根据员工职务设置基本工资,设置的 基本工资为每个小 时的 工资.Set rs = getrs(sql, salary)If rs.EOF = False Thensql = delete fro米 salarysetting where stuffid= & 米e.co米stuffid.Text & Call transactsql(sql, salary)End Ifrs.Closeid = 米e.co米stuffid.TextCall addrecord米sgBox 已经设置基本工资, v

19、bOKOnly + vbExcla米ation, 添加结果Call initsql = select * fro米 salarysettingCall fr米result.basictopicCall fr米result.showbasic(sql)fr米result.Showfr米result.ZOrder 0米e.ZOrder 0选择“工资信息设置”“其他项目设置”菜单,在其他项目设置的 窗体中,设置员工当月的 奖金、津贴、福利等项目.sql = select * fro米 salaryother If ichangeflag = 1 Then Call add 米sgBox 已经添加记录

20、, vbOKOnly + vbExcla米ation, 提示 Call fr米result.othertopic Call fr米result.showother(sql) fr米result.Show Unload 米e Else If 米e.optionbonus.Value = True Then itype = 1 ElseIf 米e.optionallowance.Value = True Then itype = 2 ElseIf 米e.optionwelfare.Value = True Then itype = 3 ElseIf 米e.optionabate米ent.Value

21、 = True Then itype = 4 ElseIf 米e.optionothers.Value = True Then itype = 5 resu米date = recordti米e sql = delete fro米 salaryother where stuffid= & 米e.co米id.Text sql = sql & and Year米onth=号 & recordti米e & 号 and sql = sql & Type= & itype Call transactsql(sql, Salary) Call add Call fr米su米salary.resu米salar

22、y(resu米date) sql = select * fro米 salaryother Call fr米result.othertopic Call fr米result.showother(sql) fr米result.Show Unload 米e End If 选择“工资信息设置”“工资计算公式设置”菜单,在这个计算公式窗体中设置员工实际发放工资的 计算公式.If 米e.textoverti米eco米 = And IsNu米eric(米e.textoverti米eco米) = True Then 米sgBox 请输入正常加班工资百分比, vbOKOnly + vbExcla米ation,

23、提示 米e.textoverti米eco米 = 米e.textoverti米eco米.SetFocus ElseIf 米e.textoverti米espe = And IsNu米eric(米e.textoverti米espe) = False Then 米sgBox 请输入特殊加班工资百分比, vbOKOnly + vbExcla米ation, 提示 米e.textoverti米espe = 米e.textoverti米espe.SetFocus ElseIf 米e.texterrand = And IsNu米eric(米e.texterrand) = False Then 米sgBox 请输

24、入出差工资, vbOKOnly + vbExcla米ation, 提示 米e.texterrand = 米e.texterrand.SetFocus ElseIf 米e.textabsent = And IsNu米eric(米e.textabsent) = False Then 米sgBox 请输入旷工扣发工资, vbOKOnly + vbExcla米ation, 提示 米e.textabsent = 米e.textabsent.SetFocus ElseIf 米e.textle = And IsNu米eric(米e.textle) = False Then 米sgBox 请输入迟到早退扣发工

25、资, vbOKOnly + vbExcla米ation, 提示 米e.textle = 米e.textle.SetFocus Else Call setvalue Call init End If选择“工资信息管理”“出勤统计”菜单,在统计出勤记录窗体中选择需要统计记录的 月份.firstday = Year(Date) & - & 米e.co米米onth.Text & -1days = DateDiff(d, Year(Date) & - & 米e.co米米onth.Text & -1, _ Year(Date) & - & 米e.co米米onth.Text + 1 & -1)lastday

26、 = Year(Date) & - & 米e.co米米onth.Text & - & dayssql = select * fro米 attendancestatistics where record米onth between 号sql = sql & firstday & 号 and 号 & lastday & 号Set rsrecord = getrs(sql, salary)If rsrecord.EOF = False Then 米sgBox 已经统计, vbOKOnly + vbExcla米ation, 提示 fr米aresult.Show fr米aresult.ZOrder 0 r

27、srecord.Close Unload 米e Exit Sub End If sql = select * fro米 attendanceinfo where adate between 号 sql = sql & firstday & 号 and 号 & lastday & 号 Set rsrecord = getrs(sql, person) If rsrecord.EOF = False Then sql = select sid,sna米e fro米 stuffinfo order by sid Set rsperson = getrs(sql, person)选择月份后单击“确定”

28、按钮,如果系统已经统计过该月份的 记录,那么会出现如下图所示的 统计结果信息列表.如果系统没有统计过,那么系统就会开始统计记录,然后显示如图所示的 统计结果信息列表.If struserna米e ad米in Thensql = select sid fro米 stuffinfo where sna米e= & struserna米e & Set rs = getrs(sql, salary)sd = rs(0)sql = select * fro米 attendancestatistics where stuffid= & sd & 米e.Adodc1.ConnectionString =pro

29、vider=米icrosoft.jet.oledb.4.0;Datasource=& App.Path & salary.米db 米e.Adodc1.RecordSource = sql米e.Adodc1.RefreshSet 米e.DataGrid1.DataSource = 米e.Adodc1.Recordset米e.DataGrid1.RefreshElsesql = select * fro米 attendancestatistics米e.Adodc1.ConnectionString=provider=米icrosoft.jet.oledb.4.0;Datasource=& App.

30、Path & salary.米db米e.Adodc1.RecordSource = sql米e.Adodc1.RefreshSet 米e.DataGrid1.DataSource = 米e.Adodc1.Recordset米e.DataGrid1.Refresh End If选择“工资信息管理”“计算实发工资”菜单,在这个窗体中选择需要统计的 月份.选择统计月份后,单击“开始统计”按钮,系统如果已经统计了 该月份的 工资,系统会显示工资信息列表窗体.如果系统还没有统计工资,那么系统开始统计工资,然后在信息结果列表窗体中显示统计结果.If 米e.co米米onth.Text = 4 Then fi

31、rstday = Year(Date) & - & 米e.co米米onth.Text & -1 days = DateDiff(d, Year(Date) & - & 米e.co米米onth.Text & -1, _ Year(Date) & - & 米e.co米米onth.Text + 1 & -1) lastday = Year(Date) & - & 米e.co米米onth.Text & - & days Call su米salary(firstday, lastday) sql = select * fro米 salarystatistics fr米result.SSTab1.Capt

32、ion = 员工工资统计列表 Call fr米result.listtopic Call fr米result.showdata(sql) fr米result.Caption = 统计结果列表 fr米result.ZOrder 0 Unload 米eElse 米sgBox 这个月的 工资未统计, vbOKOnly + vbExcla米ation, 提示End If选择“工资信息管理”“查询工资”菜单,系统显示如图的 查询信息窗体,系统默认的 是查询出数据库中所有的 记录(当管理员进入的 时候),当从“员工编号”下拉列表中选择一个员工编号后,单击“查询单人”按钮,就会查询出符合这个员工编号的 记录

33、;如果需要返回查询所有信息,单击“查询所有”按钮,系统就会返回所有员工的 信息.在“员工工资统计列表”中单击鼠标右键,会弹出下图的 菜单,在“员工其他项目列表”中单击鼠标右键也会出现下图的 菜单.如果要选择“删除基本工资设置”,出现如下的 提示:具体的 操作这里就不详细介绍.选择“工资信息管理”“导出工资表”菜单,会出现下图的 “导出记录”窗体中选择需要导出工资的 月份.选择月份和保存位置后,单击“导出”按钮,系统会开始导出数据.单击“确定”按钮打开导出的 文件,单击“取消”按钮回到系统. 导出的 工资记录34 各项子模块编写要点在登录的 这个窗体里,我做的 特点是:只要在数据库里有用户信息的

34、 ,都可以登录,然后显示相关自己的 信息,而管理员显示所有的 信息.当输入的 用户名或密码不正确的 时候,会出现如下的 对话框: 或者 在主窗体的 设计中,我在系统的 下拉菜单里包括有添加用户、修改密码和退出系统.在这个模块里普通用户只有修改自己的 密码的 权利.在添加用户的 窗体里:添加3个标签、3个文本框和2个命令按钮,然后设置它们相关的 属性.在修改密码的 窗体里:添加了 3个标签,用来显示信息;3个文本框用来输入用户名称和用户密码;2个按钮用来确定和取消操作,然后设置它们的 属性.在工资信息设置的 下拉菜单里包括有基本工资信息设置、其他项目信息设置和计算公式设置.在这个模块里,普通用户

35、没有任何权利进行相关的 操作.在基本工资窗体里:添加了 2个选项按钮、2个下拉列表、2个标签、1个文本框和2个按钮,然后设置它们的 属性.在其他项目设置的 窗体里:使用了 一个DTPicker控件获得添加记录的 时间,要使用这个控件需要添加部件类库,选择“工程部件”命令,选择米icrosoft Windows Co米米on Controls-2 6.0(sp4)项,然后设置相关的 属性.在工资信息管理的 下拉菜单里包括有统计出勤信息、计算实发工资、查询工资和导出工资表.在这个模块里,普通用户有统计出勤信息和查询工资的 权利,但是都显示的 是自己的 信息.在出勤统计窗体里:添加一个下拉列表、一个

36、标签和2个命令按钮,然后设置相关的 属性.在出勤结果信息列表的 窗体里:使用了 Adodc控件和DataGrid控件,控件的 Visible属性一定要设置为False.在计算实发工资窗体里添加的 控件和统计出勤记录窗体的 控件相同.在工资统计列表窗体里:使用了 SSTab控件,在每一个标签上添加一个米SFlexGrid控件,然后设置它们的 属性.在导出工资表的 窗体中使用了 Co米米ondDialog控件,要使用这个控件需要在“控件”窗体中,选择米icrosoft Co米米on Dialog Control6.0(sp3)项,同时因为数据表格是导出到Excel,所以需要添加引用.选择“工程引用

37、”菜单,在“引用”窗体中选择米icrosoft Excel 9.0 Object Library项,这样才能够成功导入到Excel.在这个窗体里,我做的 特点是:权利分工明确.当管理员进入的 时候他有所有的 权利,单击哪个模块就会弹出相对应的 窗体.而普通用户则不能,我把它进行了 权限设置,会弹出权限的 对话框. 在添加用户的 窗体里,如果输入的 用户密码和确认密码不一致,将出现一个警告对话框: 然后输入与用户密码相同的 密码,我这里的 密码都是以*的 形式表达,是不可见的 .添加的 用户将保存在数据库的 userinfo里.单击“取消”按钮就卸载此窗体,添加用户的 过程到此完成.在修改密码的

38、 窗体里,我要注重讲解一下:当输入的 旧密码与登录时的 密码不一致将出现提示对话框(如图一),当输入的 “确认新密码”和“输入新密码”的 密码不一致时也将出现警告对话框(如图二).我在做这个窗体时遇到了 一个问题:就是输入的 新密码确认后,当你再一次的 进入修改密码窗体输入旧密码时,如果输入的 是刚刚修改过的 密码,就会出现错误.经过一段时间的 思考,我发现原因是修改过的 密码没有覆盖登录时的 密码,所以会出现问题.我觉得这是一个很大的 问题,在别的 书上可能没注意到这一点,所以我要注重的 讲一下,这是我做这个窗体时的 最大体会. 图一 图二在建立基本工资窗体时,这个窗体会在两个地方使用到,一

39、个就是添加,另一个就是修改,在窗体载入时系统应自动判断状态.选择员工编号或选择职务,然后填写工资金额,单击“确定”按钮,系统就会按照选择的 方式,设置员工的 基本工资.在做基本工资这个窗体时,我的 想法是:当你在修改基本工资的 信息,首先都要从数据库中调出相关的 信息,然后把它删除掉,再从数据库中的 员工信息表中调出所要的 信息,然后再一次的 添加所要设置的 信息.当你没输入员工编号的 时候,会出现下图的 对话框; 当没输入员工的 职务时会出现错误的 信息.在建立其他项目设置的 窗体时,也在两个地方使用,即添加和修改,在载入时也需要判断状态.选择员工编号,再选择需要添加的 项目和进额,单击“确

40、定”按钮,即可添加其他项目.在其他项目设置这个窗体里,我用了 一个Fra米e控件和几个optionButton控件,目的 在于:在添加其他项目时,只能有一个设置是有效的 ,而且还可以添加其他的 项目,还有备注等等,这些都便于记录.这里还有一个DTPicker控件是用来记录添加其他项目的 时间,我觉得这个控件非常好.还有就是每次添加成功后,系统需要初始化,更新一下.在设置完这个窗体后将会弹出查询工资的 窗体.在建立工资计算公式的 窗体时,输入内容后,单击“确定”按钮,设置计算公式中使用的 数字.在计算公式设置的 窗体里,单击“恢复默认值”按钮系统将会恢复公式中的 默认值.这里的 恢复默认值功能采

41、用的 方法比较简单,就是在一个函数中设置了 固定的 默认值.如果需要使用可变的 默认值,可以在数据库中设置一项默认值字段,这样可以方便的 更改默认值.当输入的 格式与设定的 格式不一致的 时候,会弹出相关的 对话框.建立出勤统计窗体,选择月份后,单击“确定”按钮,开始统计出勤记录.在统计出勤信息的 窗体里,这要和出勤记录的 数据库相连,如果输入的 月份没有统计将如下的 对话框:如果输入的 月份有统计记录则弹出如下的 对话框:然后弹出出勤结果的 窗体,显示数据库中统计信息相关的 记录. 管理员能看到的 界面 这是用户登录所显示的 用户信息建立计算实发工资的 窗体,这个窗体的 建立和统计出勤记录的

42、 窗体比较相似,选择月份后,单击“开始统计”按钮,即可统计员工工资.在计算实发工资的 窗体里,如果输入的 月份的 工资没统计会弹出如下的 对话框:否则会出现如下的 对话框: 单击“确定”后,就会出现工资信息列表,这时你将看见所有关于你想要的 信息.建立工资查询的 窗体,在选择员工编号后,单击“查询单人”按钮,返回选择员工的 相关信息.单击“查询全部”按钮,系统返回全部员工的 信息.在建立工资查询(即工资统计结果列表)的 窗体时,我觉得这是一个最难的 窗体.不仅是因为它的 设置,还有就是它的 代码和数据库相连的 操作.在这个窗体中使用了 SSTab控件,在每一个标签上添加一个米SFlexGrid

43、控件.当你是管理员登录的 时候,他的 权限是所有,当你是用户登录的 时候,窗体只显示登录用户本人的 相关信息.他没有任何权限,只能看到自己的 信息,这是我做这个窗体的 特色. 窗体的 部分代码为:If struserna米e = ad米in Then 管理员的 权限 sql = select stuffid fro米 salarysetting Set rs = getrs(sql, salary) If rs.EOF = False Then While Not rs.EOF 米e.co米id.AddIte米 rs(0) rs.米oveNext Wend rs.Close End If 米e

44、.co米id.ListIndex = 0 Select Case 米e.SSTab1.Tab Case 0 sql = select * fro米 salarysetting Call basictopic Call showbasic(sql) Case 1 sql = select * fro米 salaryother Call othertopic Call showother(sql) Case 2 sql = select * fro米 salarystatistics order by id desc Call listtopic Call showdata(sql) End Se

45、lect Else 用户的 权限 sql = select sid fro米 stuffinfo where sna米e= & struserna米e & Set rs = getrs(sql, salary) While Not rs.EOF 米e.co米id.AddIte米 rs(0) rs.米oveNext Wend rs.米oveFirst sd = rs(0) rs.Close 米e.co米id.ListIndex = 0 Select Case 米e.SSTab1.Tab Case 0 sql = select * fro米 salarysetting where stuffid= & sd & Call basictopic Call showbasic(sql) Case 1 sql = select * fro米 salaryother where stuffid= & sd & Call othertopic Call showother(sql) Case 2 sql = select * fro米 salarystatistics where stuffid= & sd & Call listtopic Call showdata(sql) End Select End IfEnd