SQL vb课程设计工资管理系统概要_vb课程设计管理系统
SQL vb课程设计工资管理系统概要由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb课程设计管理系统”。
课程设计报告
课程设计题目： 工资管理系统
学生姓名 ： 专 业 ：
班 级 ： 指导教师 ：
2011年 12 月 17 日
姓名： 学号： 实验时间：12月14日 实验地点：
一、课程设计题目：
工资管理系统
二、课程设计目的：
本次课程设计的主要目的是综合运用所学的数据库与VB知识解决一个比较实际的简单问题，侧重对数据库连接、查询等相关内容的综合应用，使同学们能进一步熟悉掌握数据库的基本使用方法，进一步提升自己的编程能力并逐步培养编程思维，进而不断提高同学们解决问题的能力，并为以后的语言学习打下良好的基础。
三、课程设计要求： 1.独立完成；
2.此次课程设计在规定的时间必须在实验室完成，不得以任何理由在其他地点进行；
3．每个人需按照选题规则确定好自己的题目（注意不是多人完成一题，每人独立完成一题），不得以任何理由选择其他的题目，当然在完成自己的题目之后根据个人兴趣可以继续选做其他的题目；
4．课程设计完成后严格按照报告格式撰写课程设计报告，并于结束后的第三天上交到学习委员统一交给老师；
5．课程设计的成绩由两部分组成：程序检查成绩（40％，每个功能占程序分的20%）＋报告检查成绩（40％）＋平时考核（20%）
四、试验要求员工基本信息的管理功能。单位员工变动、奖惩情况的管理功能。3 工资的计算、修改功能。4 查询统计功能。5 报表打印功能。具有数据备份和数据恢复功能。
五、试验过程
1.数据库的设计
本系统的数据库是SQL数据库，在SQL环境下创建数据库工资.mdb文件。该数据库包括员工信息表、工资标准表、其他工资标准表、用户表用于纪录员工的基本信息数据库表结构如下所示： 字段名 类型 varchar
大小 8
允许空 Not null 员工编号
姓名 varchar 10 Not null 性别 varchar 职务 Varchar 出生年月 datetime 员工头像 image
员工信息表
字段名 类型
员工编号 varchar
月份 int 津贴 money 奖金 Money 扣保险 Money 扣考勤 Money 扣其他 Money 其他工资标准表Not null 8 Not null Not null
大小
允许空 8NULLNULLNULLNULLNULL
字段名 类型
大小
职务 varchar
基本工资 money 8
工资标准表
字段名 类型
大小
用户名 char
口令 char 10
用户表 2．主要内容 登录窗体
登录窗体 设计代码：
允许空
Not null
Not null
允许空
Not null
Not null
Option Explicit
Private Function Selectsql(SQL As String As ADODB.Recordset '返回ADODB.Recordset对象 Dim ConnStr As String
Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection 'On Error GoTo MyErr:
ConnStr = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工资;Data Source=(local” '这是连接SQL数据库的语句 Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL, Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function 'MyErr: 'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, “系统提示” '显示出错信息 End Function
Private Sub Command3_Click(Unload Me End Sub
Private Sub Form_Load(Dim SQL As String Dim rs As ADODB.Recordset Dim X As Long
On Error GoTo Err_box SQL = “ select * from 用户表” Set rs = Selectsql(SQL If rs.RecordCount > 0 Then rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields(“用户名”.Value rs.MoveNext Next X
Combo1.ListIndex = 0 End If rs.Close Exit Sub Err_box: End Sub
Private Sub Command1_Click(Dim SQL As String Dim rs As ADODB.Recordset If Text1.Text = “” Then MsgBox “请输入口令!”, 16 Text1.SetFocus Exit Sub End If
If Combo1.Text = “” Then MsgBox “请选择登录用户!”, 16 Combo1.SetFocus Exit Sub
End If
SQL = “SELECT * FROM 用户表 WHERE 用户名='” & Combo1.Text & “' AND 口令='” & Text1.Text & “' ” Set rs = Selectsql(SQL If rs.RecordCount > 0 Then form2.Show '想要打开的主窗体 MsgBox “登录成功!”, 64, “提示” Unload Me Else
MsgBox “口令不对,请重新输入!”, 16, “提示” Text1.SetFocus End If End Sub
主控界面
主控界面
设计过程：
所有功能都在菜单中打开来实现，在最下面添加了工具栏，来显示时间，操作员，状态等信息。
设计代码：
Private Sub rechaxun_Click（form3.Show End Sub
Private Sub reluru_Click(form3.Show End Sub
Private Sub cygl2_Click(form5.Show End Sub
Private Sub cyxx_Click(form3.Show End Sub
Private Sub Form_Load(Label2.Caption = Time End Sub
Private Sub gzcx_Click(Form4.Show End Sub
Private Sub Image1_Click(End Sub
Private Sub jcqk_Click(form6.Show End Sub
Private Sub rexiugai_Click(form6.Show End Sub
Private Sub rescbb_Click(Form4.Show
MsgBox “请先查询，再点击生成报表按钮”, , “提示窗口” End Sub
Private Sub sjbf_Click(Form7.Show End Sub
Private Sub sjhf_Click(Form7.Show End Sub
Private Sub tjcy_Click(form5.Show End Sub
成员管理 成员浏览
成员浏览 设计过程：
用控件可以实现档案的浏览，在此窗体用户可以浏览员工信息，此窗体与数据轮中的员工信息表进行连接。
设计代码：
Private Sub Command4_Click(Unload Me End Sub 成员管理
成员管理
设计过程：
用于档案的登记，此窗体和档案浏览窗体中的数据表进行了连接，可以直接进行添加，删除，修改等。
设计代码：
Private Sub Command1_Click(Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click(Adodc1.Recordset.Update End Sub Private Sub Command3_Click(Adodc1.Recordset.Delete End Sub
Private Sub Command4_Click(Dim strb(As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 f1 = LOF(1 ReDim strb(f1 Get #1, , strb Adodc1.Recordset.Fields(“员工头像”.AppendChunk strb Close #1 Image1.Picture = LoadPicture(CommonDialog1.FileName End Sub Private Sub Form_Load(End Sub 奖惩信息：
员工奖惩情况
设计过程：
用户可以查找各月份的扣除以及奖励状况。
设计代码：
Private Sub Command1_Click(Unload Me End Sub
Private Sub Command2_Click(Adodc1.Recordset.Update End Sub
Private Sub Text1_Change（Adodc1.RecordSource = “ select * from 其他工资标准 where 月份='” & Text1 & “'” Adodc1.Refresh DataGrid1.Refresh End Sub
工资查询：
工资查询
设计过程：
通过在姓名栏和月份栏输入信息，可以快速查找所需查询人的工资情况；并将查询结果生成execl表，方便用户打印及携带。
设计代码：
Private Sub Command1_Click(Dim i As Integer, r As Integer, c As Integer Dim newxls As Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet Set newxls = CreateObject(“Excel.Application” '创建excel应用程序,打开excel Set newbook = newxls.Workbooks.Add '创建工作簿 Set newsheet = newbook.Worksheets(1 '创建工作表 If Adodc1.Recordset.RecordCount > 0 Then For i = 0 To DataGrid1.Columns.Count1 DataGrid1.Col = c newsheet.Cells(r + 1, c + 1 = DataGrid1.Columns(c Next c Adodc1.Recordset.MoveNext Loop Dim myval As Long Dim mystr As String myval = MsgBox(“是否保存该Excel表?”, vbYesNo, “提示窗口”
If myval = vbYes Then mystr = InputBox(“请输入文件名称”, “输入窗口” If Len(mystr = 0 Then MsgBox “系统不允许文件名称为空！”, , “提示窗口” Exit Sub End If newsheet.SaveAs “d:” & mystr & “.xls” MsgBox “Excel文件保存成功，位置：d:” & mystr & “.xls”, , “提示窗口” newxls.Quit End If End If End Sub Private Sub Command2_Click(Unload Me End Sub Private Sub Form_Load(End Sub Private Sub Text1_Change(Adodc1.RecordSource = “select a.员工编号,姓名,月份,基本工资,津贴+奖金+扣保险+扣考勤+扣其他 as 奖惩总额,基本工资+津贴+奖金+扣保险+扣考勤+扣其他 as 实发工资 from 员工信息表 a,工资标准 b,其他工资标准 c where a.职务=b.职务 and a.员工编号=c.员工编号 and 姓名 like '” & Text2 & “%'and c.月份='” & Text1 & “' ” Adodc1.Refresh DataGrid1.Refresh End Sub Private Sub Text2_Change（Adodc1.RecordSource = “select a.员工编号,姓名,月份,基本工资,津贴+奖金+扣保险+扣考勤+扣其他 as 奖惩总额,基本工资+津贴+奖金+扣保险+扣考勤+扣其他 as 实发工资 from 员工信息表 a,工资标准 b,其他工资标准 c where a.职务=b.职务 and a.员工编号=c.员工编号 and 姓名 like '” & Text2 & “%' and c.月份='” & Text1 & “'” Adodc1.Refresh DataGrid1.Refresh End Sub 数据备份及恢复：
数据备份及恢复 设计过程：
用户可以将数据库进行完全备份和差异备份，并且在操作不当时可以进行恢复。
设计代码：
Public Cn As ADODB.Connection Private Sub Command1_Click(Cn.Execute “backup database 工资 to disk='d:工资完全备份.bak' with name='工资 backup all',description='Full Backup Of pubs'” MsgBox “数据完全备份已经完成”, vbOKOnly + vbInformation, “提醒” End Sub Private Sub Command2_Click(Cn.Execute “backup database 工资 to disk='d:工资差异备份.bak' with differential ,noinit,name='工资 backup dif',description='Differential Backup Of 工资'”
MsgBox “数据差异备份已经完成”, vbOKOnly + vbInformation, “提醒” End Sub Private Sub Command3_Click(Cn.Execute “restore database 工资 from disk='d:工资完全备份.bak' with FILE=1” MsgBox “数据恢复已经完成”, vbOKOnly + vbInformation, “提醒” End Sub Private Sub Command4_Click(Cn.Execute “restore database 工资 from disk='d:工资差异备份.bak' with FILE=1” MsgBox “数据恢复已经完成”, vbOKOnly + vbInformation, “提醒” End Sub Private Sub Form_Load(Set Cn = New ADODB.Connection strcon = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工资;Data Source=(local;” + _ “use procedure for prepare=1;auto translate=true;” + _ “use encryption for data=false;tag with column collation when poible=false” Cn.ConnectionString = strcon On Error Resume Next Cn.Open If Cn.Errors.Count > 0 Then For i = 0 To Cn.Errors.Count-1 If Cn.Errors(i.Number =-2147467259 Then MsgBox “网络不通或服务器未开，请确认后再试”, vbOKOnly + vbInformation, “提醒” Unload Me
Exit Sub Exit For End If Next i End If End Sub3、设计体会
在数据库课程开课之前我就下决心要学好这一门课，因为这是我的专业课，我一开始就谨慎小心，争取每一个细节都做得很好。现在终于是完成了，我的设计体会如下：
小心谨慎是关键，因为做程序关键就是写代码，每一个字母都要很小心输入，若是不小心错了一个，就会带来庞大的“查错工程”，不过从我检查错误当中也学会了一些检查的方法，比如设置中断点，可以观查每一个变量的当前值，很有效的。
小心是一个方面，另一个是怎么样让程序最人性化，并且保持较简洁的程序代码，通俗说就是事半功倍。有很多时间我是花在了调试程序方面，一部分是在找错误，还有就是怎么用最简练的代码实现当前的作用。其中绝大多数都是自己写的代码，只有在自己不会的时候才借鉴了指导老师发下来的那个示例作品的代码。
我的程序大多数是我自己写的，但是自己的知识和水平都十分有限，所以会经常去查看书或者在网上寻找资料，通过看书、看资料，我改进了自己的不足，也学会的很多新的作程序方法，都是十分有用的。
在一个体会就是做程序要有对全局和面的分析能力，老师告诉我好多设计中不曾想到的东西，比如数据表建立的不完美，用户权限应该分开等。做什么事都是一样的，具体体现在了这次的数据库课程设计上来，让我学到了很多东西。就像要完成一个很大的工作，要先从小的部分做起，不能急于求成，细心谨慎才是关键，坚持不懈，最后再把这些小的窗体在连接起来，就构成了一个整体。
只有实践真正动手做了才会真正了解，在不断的学习和实践中体会到更多的经验。
