数据库课程设计《职工工资系统》.docx

1、攀枝花学院本科课程设计（论文） 摘 要 摘 要对企业而言，人力资源是企业最宝贵的资源，也是企业的“生命线” 。而工资 管理又是人力资源管理的重中之重。实行电子化的工资管理，可以让人力资源管理人员从繁 重琐碎的案头工作解脱出来，去完成更重要的工作。本文介绍毕业设计课题的选题背景和意 义，相关的研究和开发的比较和综述，研究开发的过程，以及设计思路和实现细节的考虑， 最后给出了作者在毕业设计过程的体会。关键词 管理信息系统，数据库，工资管理，数据I攀枝花学院本科课程设计（论文） 目 录目 录摘 要I1系统总体设计12数据库设计22.1创建数据库22.2创建员工情况表22.3创建工资表22.4创建员工

2、部门表32.5 创建系统登录表33详细设计53.1 VB 登录界面的设计54员工信息管理模块75员工变动管理模块86奖惩情况管理模块107工资管理模块128查询功能模块149统计功能模块1610数据库备份功能模块1811报表打印功能1912结论20参考文献21攀枝花学院本科课程设计（论文） 1 系统总体设计1 系统总体设计总体设计：1. 设计一个登录界面，使该系统具有一定的安全性和通用性，对应的，在数据库里建立一个登录界面表。2. 在数据库内设计三个信息表，分别是员工情况表，员工部门表，工资表。3. 在 VB 界面内设计窗体，并书写代码，使其与数据库连接起来，并具有相应功能。21攀枝花学院本科

3、课程设计（论文） 2 数据库设计2 数据库设计使用SQL语句创建数据库，表，及所要添加的相应数据：2.1 创建数据库语句如下： create database 工资管理系统2.2 创建员工情况表语句如下： create table 员工情况表员工编号 char10 NOT NULL姓名 varchar50性别 char10出生年月 datetime部门编号 char10 NOT NULL向员工情况表添加数据：insert into 员工情况表，员工编号，姓名，性别，出生年月，部门编号values01张三，男11/23/1991，ainsert into 员工情况表，员工编号，姓名，性别，出生年

4、月，部门编号values02李四，男5/23/1994，binsert into 员工情况表，员工编号，姓名，性别，出生年月，部门编号values03王五，男8/28/1992，cinsert into 员工情况表，员工编号，姓名，性别，出生年月，部门编号values04小红，女9/07/1992，dinsert into 员工情况表，员工编号，姓名，性别，出生年月，部门编号values05小明，男10/01/1992，e添加数据完毕2.3创建工资表语句如下：create table 工资表员工编号 char10 NOT NULL基本工资 char10 NOT NULL奖金 char10扣除

5、char10向工资表内添加数据：insert into 工资表，员工编号，基本工资，奖金扣除values 01，4000，300，100insert into 工资表，员工编号，基本工资，奖金扣除values 02，2300，200，50insert into 工资表，员工编号，基本工资，奖金扣除values 03，2500，150，100insert into 工资表，员工编号，基本工资，奖金扣除values 04，3000，220，150insert into 工资表，员工编号，基本工资，奖金扣除values 05，2000，100，0添加数据完毕2.4创建员工部门表语句如下：create

6、 table 员工部门表（员工编号 char10 NOT NULL部门编号 char10 NOT NULL部门名 varchar50NOT NULL负责人 varchar50NOT NULL向员工部门表内添加数据：insert into 员工部门表，员工编号，部门编号，部门名，负责人values 01，a，办公室，张强insert into 员工部门表，员工编号，部门编号，部门名，负责人values 02，b，一车间，王强insert into 员工部门表，员工编号，部门编号，部门名，负责人values 03，c，销售部，夏雨insert into 员工部门表，员工编号，部门编号，部门名，负责

7、人values 04，d，设计部，露露insert into 员工部门表，员工编号，部门编号，部门名，负责人values 05，e，管理部，刘伟添加数据完毕2.5 创建系统登录表语句如下：Create table 系统登录（用户名 char10 not null 密码 char10 not null 身份 varchar50 not null向系统登录表内添加数据：Insert into 系统登录 123,23,”管理员” Insert into 系统登录 122,01,”普通用户”添加数据完毕数据库创建完毕！攀枝花学院本科课程设计（论文） 3 详细设计3 详细设计3.1 VB 登录界面的设计

8、图像如下：设置身份为管理员，成功登录相应代码为：Set Conn New ADODB.Connection On Error GoTo MyErr: ConnStr ProviderSQLOLEDB.1IntegratedSecuritySSPIPersist Security InfoFalseInitial Catalog工资管理系统Data SourceXGJYJ2OKZYWHIWB 这是连接 SQL数据库的语句Conn.Open ConnStr rs.CursorLocation adUseClient rs.Open TrimSQL Conn adOpenDynamic adLock

9、Optimistic Set Selectsql rs Exit FunctionMyErr: Set rs Nothing Set Conn Nothing 释放相关的系统资源 MsgBox Err.Description vbInformation 系统提示 显示出错信息End FunctionPrivate Sub Command1_Click Dim SQL As String Dim rs As ADODB.Recordset If Text1.Text Then MsgBox 请输入口令 16 Text1.SetFocus Exit Sub End If SQL SELECT FR

10、OM 系统登录 WHERE 用户名Text1.Text AND 密码Text2.Text and 身份Combo1.Text objcn adOpenStatic adLockOptimistic Set rs SelectsqlSQL If rs.RecordCount 0 Then Form2.Show 想要打开的主窗体 MsgBox 恭喜兄弟登录成功 64 提示 Unload Me Else MsgBox 口令不对请重新输入 16 提示Text1.Text Text2.Text Combo1.Text Text1.SetFocus End IfEnd SubPrivate Sub For

11、m_LoadEnd SubPrivate Sub Text2_Change Text2.PasswordChar End Sub将出现此界面，表示成功登录基本功能界面攀枝花学院本科课程设计（论文） 4 员工信息管理模块4 员工信息管理模块代码如下：Private Sub Command1_ClickForm2.HideForm3.ShowEnd Sub员工信息表将实现以下功能：1） 员工基本信息的展览2） 员工基本信息的添加、删除、修改3） 增加了一个 adodc1 控件，通过改变各控件的属性，达到 VB 与 数据库连接的目的，具体操作见 VB 书最后一章。4） 设计了一个 datagrid

12、控件，使所以信息以表的信息清楚的展 示，如果基本信息有什么变动，那可以在控件里得到结果。该界面的代码如下：Private Sub Command1_ClickAdodc1.Recordset.AddNewEnd SubPrivate Sub Command2_ClickForm2.ShowUnload MeEnd SubPrivate Sub Command3_ClickAdodc1.Recordset员工编号Text1.TextAdodc1.Recordset姓名Text5.TextAdodc1.Recordset性别Text4.TextAdodc1.Recordset出生年月Text3.T

13、extAdodc1.Recordset部门编号Text2.TextForm4.Adodc1.Recordset员工编号Text1.TextForm5.Adodc1.Recordset员工编号Text1.TextForm6. Adodc1.Recordset员工编号Text1. TextForm4. Adodc1.Recordset部门编号Text2. TextAdodc1. Recordset .UpdateMsgBox 修改成功End SubPrivate Sub Command4_ClickIf MsgBox确定删除当前记录？ vbQuestion vbYesNo 删除？ vbYes Th

14、enAdodc1. Recordset . DeleteAdodc1. Recordset .MoveNextIf Adodc1. Recordset .EOF Then Adodc1. Recordset .MoveLastEnd IfEnd Sub4 攀枝花学院本科课程设计（论文） 5 员工变动管理模块5 员工变动管理模块代码如下：Private Sub Command2_ClickForm2.HideForm4.ShowEnd Sub单位员工变动管理界面将实现以下功能：1） 员工部门表的展览2） 员工部门表的添加、删除、修改，解决了员工工作变动的问题。3） 增加了一个 adodc1 控件

15、，通过改变各控件的属性，达到 VB 与 数据库连接的目的，具体操作见 VB 书最后一章。4） 设计了一个 datagrid 控件，使所以信息以表的信息清楚的展 示，如果基本信息有什么变动，那可以在控件里得到结果。单位员工变动管理界面代码如下：Private Sub Command1_ClickAdodc1.Recordset.AddNewEnd SubPrivate Sub Command2_ClickIf MsgBox确定删除当前记录？ vbQuestion vbYesNo 删除？ vbYes ThenAdodc1. Recordset . DeleteAdodc1. Recordset .

16、MoveNextIf Adodc1.Recordset.EOF ThenAdodc1. Recordset .MoveLastEnd IfEnd SubPrivate Sub Command3_ClickAdodc1.Recordset员工编号 Text1. TextAdodc1.Recordset部门编号Text2. TextAdodc1.Recordset部门名Text3. TextAdodc1.Recordset负责人Text4. TextForm3. Adodc1.Recordset员工编号Text1. TextForm3. Adodc1.Recordset部门编号Text2. Tex

17、tAdodc1. Recordset .UpdateMsgBox 修改成功End SubPrivate Sub Command4_ClickForm2.ShowUnload MeEnd Sub攀枝花学院本科课程设计（论文） 6 奖惩情况管理模块6 奖惩情况管理模块界面，相应代码如下：Private Sub Command3_ClickForm2. HideForm5.ShowEnd Sub奖惩情况管理界面将实现以下功能：1） 工资表的展览2） 工资表的添加、删除、修改，解决了员工奖惩情况的问题。3） 增加了一个 adodc1 控件，通过改变各控件的属性，达到 VB 与 数据库连接的目的，具体操

18、作见 VB 书最后一章。4） 设计了一个 datagrid 控件，使所以信息以表的信息清楚的展 示，如果基本信息有什么变动，那可以在控件里得到结果。该界面代码如下：Private Sub Command1_ ClickAdodc1. Recordset .AddNewEnd SubPrivate Sub Command2_ClickIf MsgBox确定删除当前记录？ vbQuestion vbYesNo 删除？ vbYes ThenAdodc1. Recordset . DeleteAdodc1. Recordset.MoveNextIfAdodc1. Recordset .EOF Then

19、Adodc1. Recordset .MoveLastEnd IfEnd SubPrivate Sub Command3_ ClickAdodc1.Recordset员工编号Text1. TextAdodc1.Recordset奖金StrText2. TextAdodc1.Recordset扣除StrText3. TextForm6. Adodc1.Recordset员工编号Text1. TextForm6. Adodc1.Recordset奖金Text2. TextForm6. Adodc1.Recordset扣除Text3. TextAdodc1. Recordset .UpdateMsg

20、Box 修改成功End SubPrivate Sub Command4_ ClickForm2.ShowUnload MeEnd Sub6攀枝花学院本科课程设计（论文） 7 工资管理模块7 工资管理模块相应代码如下：Private Sub Command4_ ClickForm2. HideForm6.ShowEnd Sub单位员工变动管理界面将实现以下功能：1）员工工资表的展览2）员工工资表的总工资计算功能，解决了员工工作变动的问题。3）增加了一个 adodc1 控件，通过改变各控件的属性，达到 VB 与数据库连接的目的，具体操作见 VB 书最后一章。4）设计了一个 datagrid 控件，

21、使所以信息以表的信息清楚的展示，如果基本信息有什么变动，那可以在控件里得到结果该界面代码如下：Private Sub Command1_ ClickAdodc1. Recordset .AddNewEnd SubPrivate Sub Command2_ClickIf MsgBox确定删除当前记录？ vbQuestion vbYesNo 删除？ vbYes ThenAdodc1. Recordset . DeleteAdodc1. Recordset .MoveNextIf Adodc1. Recordset .EOF ThenAdodc1. Recordset .MoveLastEnd If

22、End SubPrivate Sub Command3_ClickMsgBox 修改成功Adodc1.Recordset员工编号Text1. TextAdodc1.Recordset基本工资Text2. TextAdodc1.Recordset奖金 StrText3. TextAdodc1.Recordset扣除StrText4. TextAdodc1. Recordset .UpdateEnd SubPrivate Sub Command4_ ClickForm2.ShowUnload MeEnd SubPrivate Sub Form_ LoadText5.Text ValText2.Te

23、xt ValText3.Text ValText4.TextEnd Sub攀枝花学院本科课程设计（论文） 8 查询功能模块8 查询功能模块相应代码如下：Private Sub Command5_ ClickForm2. HideForm8.ShowEnd Sub查询界面将实现以下功能：1）将员工所在部门分类2）将员工按分类进行统计，相应显示3）增加了两个 adodc 控件，通过改变各控件的属性，达到 VB 与数据库连接的目的，具体操作见 VB 书最后一章。4）设计了一个 datagrid 控件，使所以信息以表的信息清楚的展示，如果基本信息有什么变动，那可以在控件里得到结果。5）增加了一个 da

24、talist 控件，达到分类的效果。该界面代码如下：Private Sub Command1_Click()Form2.ShowUnload MeEnd SubPrivate Sub DataList1_Click()Adode1.Recordsource=”select * from 员工部门表 where 部门名=”&DataList1.BoundText &” ”Adode1.RefreshEnd SubPrivate Sub Form_Load()Dim mpath$, mlink&mpath = App.PathIf Right(mpath, 1) ”Then mpath =mpat

25、h+”mlink=”provider=microsoft1.jet.oledb.4.0;”mlink=mlink+”data source=”+mpath+”工资管理系统”.mdb”Adode1.ConnectionString=mlinkAdpde1.CommandType=adcmdUnknownDataList1.ListField=Adode1.RecordSource=”select * from 员工部门表”where 部门名=办公室”& DataList1.BoundText&” “Adode1.RefreshEnd Sub攀枝花学院本科课程设计（论文） 9 统计功能模块9 统计

26、功能模块代码如下：Private Sub Command7_Click()Form2.HideForm7.ShowEnd Sub统计功能界面将实现以下功能：1） 将所有员工按性别、年龄、部门分类2） 对不同的分类进行统计并查询3） 增加了一个adode控件，通过改变各控件的属性，达到VB与数据库连接的目的。4） 设计了一个datagrid控件，使所有信息以表的信息清楚的展示。5） 增加了一个datalist控件，达到分类的效果。该界面代码如下：Private Sub Command1_Click()Adode1.RecordSource=”select year(出生年月) as 年龄, co

27、unt(*) as 人数 from 员工情况表 group by year(出生年月)”Adode1.RefreshEnd SubPrivate Sub Command2_Click()Form2.ShowUnload MeEnd SubPrivate Sub Command3_Click()Adode1.RecordSource=”select 部门名,count(*) as 人数 from 员工部门表 group by 部门名”Adode1.RefreshEnd SubPrivate Sub Command4_Click()Adode1.RecordSource=”select 性别, c

28、ount(*) as 人数from 员工情况表 group by 性别 ”Adode1.RefreshEnd Sub攀枝花学院本科课程设计（论文） 10 数据库备份功能模块10 数据库备份功能模块代码如下：Private Sub Command7.Click()Form2.HideForm9.ShowEnd Sub单击备份恢复按钮，将实现数据库备份恢复功能，界面如下：攀枝花学院本科课程设计（论文） 11 报表打印功能11 报表打印功能代码如下：CommanDialog1.Action=5Printer.Print DataGrid1.TextEnd Sub界面如下：攀枝花学院本科课程设计（论文

29、） 12 结论12 结论在此次课程设计中，我对VB程序的操作和数据库的各种操作有了更深入的理解，设计相关登录界面更加注意系统安全性。在此次设计中我运用了以往较为少接触的空间来达到同级分类的效果，虽然在很多方面还比较粗糙，但我从实际动手中学到不少知识，只要自己认真去做，就可以实现代码功能。攀枝花学院本科课程设计（论文） 参考文献参考文献1张莉 SQL SEVER数据库原理及应用 2萨师煊 王珊著.数据库系统概论第三版.高等教育出版社3=施伯乐 丁宝康 汪卫.数据库系统教程 高等教育出版社2003年第2版4庄成三等.数据库系统原理及其应用.电子工业出版社5宋伟 吴建国.中文Visual Basic 6.0编程基础.清华大学出版社