vb课程设计 职工工资管理系统代码

第一篇：vb课程设计 职工工资管理系统代码

Form1: Dim errorCount As Integer Private Sub Command1_Click()If Text1.Text = “system” And Text2.Text = “1234” Then

Load Form2

Form2.Show

Me.Hide

MsgBox “登陆成功，欢迎您进入职工工资管理系统”, vbInformation, “登陆成功”

Else

errorCount = errorCount + 1

If errorCount < 3 Then

MsgBox “用户名或密码错误(第” & errorCount & “次)！”, vbOKOnly + vbExclamation, “登陆失败”

Text1.SetFocus

End If

If errorCount >= 3 Then

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

MsgBox “三次输入用户名或密码错误,程序将自动退出！”, vbOKOnly + vbExclamation, “登陆失败”

End

End If End If

End Sub

Private Sub Command2_Click()Unload Me End Sub

Private Sub Form_Load()errorCount = 0 End Sub

Private Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo Then

Cancel = 1 End If End Sub

For i = 1 To jlNum

ygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensui

CSng(ygList(i).jingtie)

ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub

Private Sub Command5_Click()Dim linShi As YuanGong

linShi.ygnamg = InputBox(“请输入要添加的姓名”, “添加员工-姓名录入”)If Len(Trim(linShi.ygnamg))> 0 Then

linShi.jibengz = InputBox(“请输入添加员工的基本工资”, “添加员工-基本工资录入”)

If Len(Trim(linShi.jibengz))> 0 Then

linShi.jingtie = InputBox(“请输入添加员工的津贴”, “添加员工-津贴录入”)

If Len(Trim(linShi.jingtie))> 0 Then

linShi.gerensui = InputBox(“请输入添加员工的个人所得税”, “添加员工-个税录入”)

If Len(Trim(linShi.gerensui))> 0 Then

linShi.suidianfei = InputBox(“请输入添加员工的水电费”, “添加员工-水电费录入”)

If Len(Trim(linShi.suidianfei))> 0 Then

Open filedir For Append As #1

Write #1, linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei

Close #1

MsgBox “添加员工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim Preserve ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Next

Close #1

MsgBox “删除员工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Input #1, ygList(jlNum).gerensui

Input #1, ygList(jlNum).suidianfei

Loop

Close #1

loadData

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = True

Command6.Enabled = True End If

Text1.Text = “姓名” & vbTab & “工资” & vbTab & “津贴” & vbTab & “所得税” & vbTab & “水电费” & vbCrLf

For i = 1 To jlNum

Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf

Next Else

MsgBox “删除员工失败！”, vbOKOnly + vbExclamation, “失败” End If End Sub

Private Sub Command7_Click()

第二篇：vb课程设计档案管理系统代码

一、登陆界面

运行本系统需要进行用户名和密码验证，没有用户名的可以在登陆界面注册，详细注册方法在下文有介绍。登陆界面效果图如图1-1：

图1-1 登陆界面设计的代码如下：

Private Sub Command1_Click()str1 = Text1.Text str2 = Text2.Text STRSQL = “SELECT * FROM 密码表 WHERE 用户名='” & str1 & “'” + “ AND 密码='” & str2 & “ '” Data1.RecordSource = STRSQL Data1.Refresh If Data1.Recordset.EOF Then

MsgBox “用户名或密码错！”, 16, 提示“ Else

Form8.Show

Form1.Hide End If End Sub

Private Sub Command2_Click()

End End Sub

Private Sub Command3_Click()

Form6.Show End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time End Sub

二、欢迎界面

当用户名和密码验证成功后即可进入欢迎界面如图2-1

图2-1 在欢迎界面的设计时用了一个时钟控件，让欢迎界面出现3秒后自动消失进入系统主界面，欢迎界面的代码设计如下：

Private Sub Timer1_Timer()

If Timer1.Enabled = True Then

Form8.Hide

Form2.Show

Timer1.Enabled = False

End If End Sub

三、系统主界面

系统主界面可以进行简单的信息浏览（如图3-1），在主界面设置了一些命令按扭，其中 “修改”、“删除”、“打印”可以在主界面直接进行，而“查询”和“添加”需要打开另一个窗体操作。代码设计如下：

Private Sub Command6_Click()

Data1.Recordset.MoveFirst End Sub Private Sub Command7_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End Sub Private Sub Command8_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command9_Click()

Data1.Recordset.MoveLast End Sub Private Sub Form_Load()

Timer1.Enabled = True

Label11.Left = Me.Width End Sub Private Sub Command10_Click()DataReport1.Show End Sub Private Sub Command3_Click()

ans = MsgBox(”确认修改Ä?“, 32 + 1, 提示”)

If ans = 1 Then

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.Edit

End If End Sub

Private Sub Command4_Click()

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox “确认删除?”, 32 + 1, “提示” End Sub

Private Sub Timer1_Timer()

Label11.Left = Label11.Left-200

If Label11.Left <=-Label11.Width Then

Form2.BackColor = vbRed

End If End Sub Private Sub Timer2_Timer()

Label12.Caption = Time End Sub

图3-1

四、查询

查询的效果图如图4-1

图4-1 代码设计如下：

Private Sub Command1_Click()

a = “select * from学生档案 where ”

n = 0 If Check1.Value = Checked Then

a = a + “ 姓名='” + DataCombo1 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check2.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 学号 ='” + DataCombo2 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check3.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 院系='” + DataCombo3 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If

If Check4.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 专业='” + DataCombo4 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check5.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 班级='” + DataCombo5+ “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check6.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 入学时间='” + DataCombo6 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If End Sub

五、添加

添加效果图如图5-1

图5-1

代码设计如下：

Private Sub Command1_Click()

If Command1.Caption = “Ìí¼Ó” Then

Command1.Caption = “È·ÈÏ”

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.AddNew

Data1.Recordset.MoveLast

Data1.Refresh

Text1(0).SetFocus

End If

MsgBox “È·ÈÏÌí¼Ó?”, 32 + 1, “Ìáʾ” End Sub

Private Sub Command2_Click()For i = 0 To 13

Text1(i)= “" Next i

Text1(0).SetFocus End Sub

Private Sub Command3_Click()

Unload Form4 End Sub

六、修改、删除、打印

这部分的效果图如图6-

1、图6-2

图6-1

图6-2

代码设计如下：

Private Sub Command4_Click()

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox ”确认删除?“, 32 + 1, ”提示“ End Sub

Private Sub Command3_Click()

ans = MsgBox(”确认修改?“, 32 + 1, ”提示“)

If ans = 1 Then

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.Edit

End If End Sub

Private Sub Command6_Click()

Data1.Recordset.MoveFirst End Sub

七、统计

必须添加一个MSFlexGrid控件与Data控件连接，用来保存统计的结果，统计的效果图如图7-1

图7-1

代码设计如下：

Private Sub Command2_Click(Index As Integer)

Data1.RecordSource = ”select 院系,count(*)as人数 from学生档案¸ group by 院系“

Data1.Refresh End Sub Private Sub Command3_Click()

Data1.RecordSource = ”select专业,count(*)as人数 from学生档案¸ group by 专业“

Data1.Refresh End Sub Private Sub Command4_Click()

Data1.RecordSource = ”select 入学时间,count(*)as人数 from学生档案¸ group by入学时间“

Data1.Refresh End Sub Private Sub Command5_Click()

Data1.RecordSource = ”select 籍贯,count(*)as人数 from学生档案¸ group by 籍贯“

Data1.Refresh End Sub Private Sub Command6_Click()

Data1.RecordSource = ”select 民族,count(*)as人数 from学生档案¸ group by 民族“

Data1.Refresh End Sub Private Sub Command7_Click()

Data1.RecordSource = ”select 政治面貌,count(*)as人数 from学生档案¸ group by 政治面貌“

Data1.Refresh End Sub Private Sub Command8_Click()

Unload Form9 End Sub

八、帐户管理

（一）帐号注册

由于本系统登陆需要用户名和密码验证，所以本系统设置了一个帐号注册的功能，其效果图如图8-

1、图8-2

图8-1

图8-2 帐号注册代码设计如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你没有输入用户名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你没有输入密码！“, 16, ”提示“

Exit Sub End If If Text3.Text = ”“ Then

MsgBox ”你没有再次输入密码！“, 16, ”提示“

Exit Sub End If

If Text2.Text <> Text3.Text Then

MsgBox ”两次输入的密码不一致！“, 16, ”提示“

Exit Sub End If If Text2.Text = Text3.Text Then

If Command1.Caption = ”注册“ Then

Command1.Caption = ”确认“

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.AddNew

Text1.SetFocus

Else

Command1.Caption = ”注册“

Data1.Recordset.Update

Data1.Recordset.MoveLast

End If

Text3.Text = ”“

MsgBox ”恭喜你注册成功！“, 48, ”欢迎使用“ End If End Sub

（二）密码修改

密码修改的效果图如图8-

3、图8-4

图8-3

图8-4 密码修改代码设计如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你没有输入用户名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你没有输入旧密码！“, 16, ”提示“

Exit Sub End If If Text2.Text <> Text3.Text Then

MsgBox ”旧密码错误！“, 16, ”提示“

Exit Sub End If If Text3.Text = ”“ Then

MsgBox ”你没有输入新密码！“, 16, ”提示“

Exit Sub End If If Text4.Text = ”“ Then

MsgBox ”你没有再次输入新密码！“, 16, ”提示“

Exit Sub End If If Text3.Text <> Text4.Text Then

MsgBox ”两次输入的密码不一致！“, 16, ”提示“

Exit Sub End If If Text3.Text = Text4.Text Then

prompt = ”确认修改?“

answer = MsgBox(prompt, 32 + 0, ”确认修改“)

If answer = vbYes Then

Data1.Recordset.Edit

Data1.Recordset.Fields(0)= Trim(Text1.Text)

Data1.Recordset.Fields(1)= Trim(Text3.Text)

Data1.Recordset.Update

Data1.Refresh

MsgBox ”密码修改成功！“, vbOKOnly, ”密码修改“

End If End If End Sub

（三）帐号注销

效果图如图8-5

图8-5 代码设计如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你没有输入用户名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你没有输入旧密码！“, 16, ”提示“

Exit Sub End If If Text2.Text <> Text3.Text Then

MsgBox ”旧密码错误！“, 16, ”提示“

Exit Sub End If If Text2.Text = Text3.Text Then

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox ”确认注销该用户?“, 32 + 1, ”提示" End If End Sub

第三篇：SQL 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

大小

允许空 8 NULL NULL NULL NULL NULL

字段名 类型

大小

职务 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 possible=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 Sub

3、设计体会

在数据库课程开课之前我就下决心要学好这一门课，因为这是我的专业课，我一开始就谨慎小心，争取每一个细节都做得很好。现在终于是完成了，我的设计体会如下：

小心谨慎是关键，因为做程序关键就是写代码，每一个字母都要很小心输入，若是不小心错了一个，就会带来庞大的“查错工程”，不过从我检查错误当中也学会了一些检查的方法，比如设置中断点，可以观查每一个变量的当前值，很有效的。

小心是一个方面，另一个是怎么样让程序最人性化，并且保持较简洁的程序代码，通俗说就是事半功倍。有很多时间我是花在了调试程序方面，一部分是在找错误，还有就是怎么用最简练的代码实现当前的作用。其中绝大多数都是自己写的代码，只有在自己不会的时候才借鉴了指导老师发下来的那个示例作品的代码。

我的程序大多数是我自己写的，但是自己的知识和水平都十分有限，所以会经常去查看书或者在网上寻找资料，通过看书、看资料，我改进了自己的不足，也学会的很多新的作程序方法，都是十分有用的。

在一个体会就是做程序要有对全局和面的分析能力，老师告诉我好多设计中不曾想到的东西，比如数据表建立的不完美，用户权限应该分开等。做什么事都是一样的，具体体现在了这次的数据库课程设计上来，让我学到了很多东西。就像要完成一个很大的工作，要先从小的部分做起，不能急于求成，细心谨慎才是关键，坚持不懈，最后再把这些小的窗体在连接起来，就构成了一个整体。

只有实践真正动手做了才会真正了解，在不断的学习和实践中体会到更多的经验。

第四篇：数据库课程设计工资管理系统.

数据库课程设计报告 工资管理系统

组员:廖翔, 刘小芳, 强江波, 张晶晶,冯兆强,夏冲 组长 :刘小芳 需求分析员 :张晶晶

程序员 :廖翔 , 刘小芳 , 强将波 测试员 :冯兆强 界面设计员 :夏冲 目录

一 绪论 ··········································3 二 课程设计说明····································3 三 需求分析·········································4 四 物理结结构设计···································5 五 数据字典·········································5 六 数据库设计·······································10 七 功能实现截图·····································11 八,小结············································21 附录 1.(组员及学号

廖翔(,刘小芳(41009040127,冯兆强(, 张晶晶(41009040130,夏冲(,强将波(2.开发环境说明

使用 C#进行客户端应用程序的开发,数据库管理系统采用 SQL SERVER

一、绪论

随着计算机技术的飞速发展和经济体制改革的不断深入, 传统企业管理方法、手段以及 工作效率已不能适应新的发展需要, 无法很好地完成员工工资管理工作。提高公司企业管理 水平的主要途径是更新管理者的思想,增强对管理活动的科学认识。基于 C#与 SQL server 数据库技术建立一个通用工资管理系统,该系统为提供了查询、增加记录、删除等 功能, 功能比较的齐全, 并对工资进行了统计如津贴管理、报表统计等。基本上能满足管理 员和公司的要求。

此次数据库课程设计的主要设计如下: 原理分析、程序设计过程、程序实现和程序调试以及数据库的设计。需求分析、概要结构设计、逻辑结构设计、物理结构设计和数据库的实施和维护。二.课程设计说明

1.设计题目:工资管理系统 2.设计任务与要求: 2.1实验任务

1.掌握数据库设计和实现的基本过程 2.掌握数据库模式设计、分析和实现的方法 3.了解数据库应用系统软件开发的一般过程。2.2 实验基本要求(1学习相关的预备知识

(2按照数据库设计与实现过程完成数据库的设计,应用程序的开发,上机调试、运 行

(3写出课程设计报 3.目的

本说明书目的在于明确说明系统需求,界定系统实现功能的范围, 指导系统设计以 及编码。本文档作为人力资源管理系统的需求说明文档,用于与用户确定最终的目标, 并成为协议文本的一部分,同时也是本系统设计人员的基础文档。

4.背景 工资管理系统

工资管理部门希望建立一个数据库来管理员工的工资。要计算员工的工资, 就需要考虑 不在休假日期以内的假期、工作期间的病假时间、奖金和扣除的部分。必须指明给每个员工 发薪水的方式, 随着时间的推移, 方式可能会有些改变。大多数的员工是通过银行卡来结算 工资的, 但是也有一部分人使用现金或支票。如果是通过银行卡, 就需要知道账号和卡的类 型。付款方式只可能是一种方式。有几种原因可以扣除工资:例如,个人所得税、国家税、医疗保险、退休保险或者预付款。

5.主要包括三大功能模块: 1.登录界面选择 [员工登录 ]即可进入 [员工登陆界面 ], 选择 [管理员登陆 ]即可进入 [管理员 登录界面 ]。

2.管理员功能模块。3.员工功能模块.6.操作说明

6.1 无论是管理员还是员工,操作都以员工编号来进行。

6.2 管理员可以对员工基本信息增、删、查、改, 员工只能对本人基本信息和工资信息查询。三.需求分析

1.功能需求分析: 该通用工资管理系统具备下列功能:登录界面选择 [员工登录 ]即可进入 [员工登陆界面 ], 选 择 [管理员登陆 ]即可进入 [管理员登录界面 ].管理员通过输入用户名和密码进下该系统后, 可以进行一些基本查询(员工个人信息查 询 , 员工工资信息查询 , 修改(修改员工基本信息 , 修改工资信息 , 删除(员工个人资料删除 , 员工工资信息删除 , 录入(员工资料录入 , 员工工资资料录入;;通过输入密码,可以进行 查询员工的数据(工资,奖金津贴,加班情况。

员工通过输入用户名和密码即可进入系统 , 可以进行查询(查询个人基本信息和工资信 息.2.数据流需求分析:

数据库 数据库需求分析——数据流图 四.物理结构设计 1.系统模块划分

五.数据字典 2.1表字典

2.2表字段字典

六.数据库设计 1.建表 : EmpInfoTable(Id[主键 ],Name,Position,Status;SalaryInfoTable(Id主键 ],Name,Prize,Pasepay,RetirementInsurance,Income,Stute,Medical, Dayleave,Deduced,Paytpe,CardNumber,Cardtype,GrossSalary,NetSalary,Date;(1 员工基本信息表 :(2员工工资表 :

七.功能实现截图 1.登录界面

2.管理员部分 :(1管理员登陆界面

(2管理员功能选择界面

(3.录入员工基本信息界面(4录入员工工资信息

(5.修改功能选择界面

A.修改员工基本信息

B.修改工资信息

(6.管理员查询界面 A.查询功能选择界面

B.查询员工基本信息

C.查询工资信息

(7.管理员查询界面 A.功能选择界面

B.管理员修改员工个人信息

C.管理员修改员工工资界面界面

(8.管理员删除界面 A.功能选择界面

B.删除员工个人信息及工资信息界面

C.删除员工工资信息界面

3.员工功能界面(1.员工登录界面

(2.员工功能选择界面

(3.员工查询本人基本信息(4.员工查询本人工资信息 4.测试分析 4.1 更改员工资料不可以更改身份。4.2 修改员工工资信息一旦失败 就会把原有信息删除。4.3 管理员固定，且只有一个。八.小结 该工资管理系统总体说来功能比较齐全，管理

员和员工的一些基本的功能 都已经具备； 数据库的设计方面，建有员工表、工资表。数据库中存在一些问题，如数据冗余，不够完善。但在做课程设计的过程中也遇到很多问题，一开始时其中最大的问题是数 据库的连接部分,该部分直接影响到数据库与应用程序接口实现,而且必须注意 数据库数据库的名称与连接数据库的取名以致.后来经过大家的合作努力解决了 这个问题.在编写程序时,确实也遇到了很多困难,后来经过调试后终于把自已想 到实现的功能一步步实现了，通过这次课程设计使我收获了好多，熟悉了 C#的 运用，还复习了数据库相关语句的编写。此次课程设计让我感受颇多：做一个数据库其实是一件很有趣的事情。想到

自己可以创建一个小型的数据库系统，有点学习后的满足感。数据库的建立并非 难事，难点在于数据库的连接和编程语言的选择。C#的功能很强大，这也是我以 后需要学习的课程，于是我毅然选择了它。再就是建立数据库系统的步骤，我的 经验就是要先总体规划，再局部整理。先做好总的界面，再通过该界面的布置一 步一步实现其功能！同时我体会到： 熟练的编程能力，对知识运用的强烈渴望及其创新和团队的合作 精神设做好一个大型数据库的基础。因此通过此次课程设计我明显感觉到自身的 不足，并希望以后能更加用心地运用所学知识和学习新的知识。

第五篇：Vb课程设计-职工信息系统.

职工信息系统设计报告

一、设计思路 1.要达到的目的

培养学生综合利用VB语言进行程序设计的能力,主要是培养学生综合使用基本控件的、文件读写、数组操作和菜单设计等能力。

2.关键问题的解决 ①设置属性

设计时要注意一些功能需要在其它功能之后才能使用,如“平均工资”、“高于平均”等按钮需要在读入数据后才能使用,设计界面时需要将相应的按钮的Enable属性为false,在读入数据后才设置Enable属性为True。

②编写代码

需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中,代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组,由于单击按钮时,都要对姓名、职称、工资进行操作,因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点:(1定义动态数组分别用于存放姓名、职称、工资数据。

(2单击“读取数据”按钮,利用通用对话框所提供的打开标准对话框来选择要打开的数据文件,并利

用文件的基本操作将该文件中的的数据依次读入到相应数组中。注意为保留动态数组中存放的内容,在使用ReDim语句中要加上Preserve关键字。

(3计算职工的平均工资,并存放在平均工资变量,此变量应定位模块级的。

(4利用InputBox 函数来输入要追加的学生的信息。(5利用InputBox 函数来输入要删除的职工的姓名。

利用MsgBox 函数或另一个窗体来显示高于及等于(或低于平均工资和分类汇总的结果。。

二、部分程序关键源代码及注释 Dim i As Integer, aver As Single Dim a(As String, b(As String, c(As String Private Sub Command1_Click(Dim str As String CommonDialog1.Filter = “txt(*.txt|*.txt|all file(*.*|*.*” CommonDialog1.FilterIndex = 1 On Error GoTo usercancle CommonDialog1.ShowOpen usercancle: Text1 = “姓名职称工资” fileno = FreeFile Open CommonDialog1.FileName For Input As #fileno i = 1 Do While Not EOF(fileno

ReDim Preserve a(i, b(i, c(i Input #fileno, a(i, b(i, c(i str = a(i & “ ” & b(i & “ ” & c(i Text1 = Text1 + vbNewLine + str i = i + 1 Loop Close #fileno i = i1 Print i aver = sum / i s1 = “职工的平均工资为:” & aver s2 = “职工总人数:” & i MsgBox s1 & vbCrLf & s2, , “zh1” Command3.Enabled = True Command4.Enabled = True End Sub Private Sub Command3_Click(Dim x As Integer, l1 As String, m1 As String Form2.Text1 = “姓名职称工资” Form2.Text1 = Form2.Text1 & vbNewLine & “--------------------------” x = 0 Print i For i = 1 To i If c(i >= aver Then x = x + 1

l1 = a(i & “ ” & b(i & “ ” & c(i Form2.Text1 = Form2.Text1 & vbNewLine & l1 End If Next i i = i1 Print i Form2.Text1 = Form2.Text1 & vbNewLine & “--------------------------” m2 = “工资小于平均工资的人数” & y Form2.Text1 = Form2.Text1 & vbNewLine & m2 Form2.Caption = “工资小于平均工资的人数” Load Form2 Form2.Show End Sub Private Sub Command5_Click(Dim n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer Dim str1 As String, str2 As String, str3 As String, str4 As String For i = 1 To i

If a(i = “教授” Then n1 = n1 + 1 ElseIf b(i = “副教授” Then n2 = n2 + 1 ElseIf c(i = “讲师” Then n3 = n3 + 1 Else n4 = n4 + 1 End If Next i i = i1 a(i = a(i + 1 b(i = b(i + 1 c(i = c(i + 1 Next i i = i1 Print i End Sub Private Sub manu1_Click(Dim m1 As Integer, m2 As Integer m1 = InputBox(“请输入工资下限” m2 = InputBox(“请输入工资上限” Form2.Text1 = “姓名职称工资” r = 1 For i = 1 To i If c(i >= m1 And c(i <= m2 Then r = r + 1 str5 = a(i & “ ” & b(i & “ ” & c(i Form2.Text1 = Form2.Text1 & vbCrLf & str5 End If Next i i = i1 For j = i + 1 To g If Val(c(i > Val(c(j Then t = c(i c(i = c(j c(j = t t = a(i a(i = a(j a(j = t t = b(i b(i = b(j

b(j = t End If Next j Next i i = i1 For j = i + 1 To g If Val(c(i < Val(c(j Then

t = c(i c(i = c(j c(j = t t = a(i a(i = a(j a(j = t t = b(i b(i = b(j b(j = t End If Next j Next i i = i-1 Form2.Text1 = “姓名职称工资” For i = 1 To i str7 = a(i & “ ” & b(i & “ ” & c(i Form2.Text1 = Form2.Text1 & vbNewLine & str7 Next i Form2.Caption = “降序排序” Load Form2

Form2.Show End Sub Private Sub manu5_Click(End End Sub

三、设计方案的完善及目前存在的问题 1.设计方案要完善的地方 ①对编程语言的进一步完善 ②对程序的调用 ③程序不够人性化 2.目前存在的问题 ①编程语言不够流畅。

四、本次设计的收获及心得体会

对VB理解不深刻,知识匮乏,但这是颇有实际用处的,认真学习vb,不断认识自己的不足,并不断改进。认真学习科学知识,在学习中充分实践。把运用与学习结合在一起。

五、对该题目和VB设计的意见和建议 1.对该题目的意见和建议 该程序应该充分与现实结合。

让程序更容易让顾客进行操作。更加人性化。

2.对本次设计的意见和建议

设计课程比较实用,但颇有难度,希望以后能给我们较多时间进行设计,并请老师多帮助解决疑难问题,谢谢。