VB+SQL 工资管理系统设计报告.docVIP

一、问题描述: 设计一个工资管理系统，使其具有以下功能： 1）员工基本信息的管理功能。 2）单位员工变动、奖惩情况的管理功能。 3）工资的计算、修改功能。 4）查询统计功能。 5）报表打印功能。 6）具有数据备份和数据恢复功能。 二、系统总体设计： 1）设计一个登录界面，使该系统具有一定的安全性和通用性，对应的，在数据库里建立一个登录界面表。 2）在数据库内设计三个信息表，分别是员工情况表，员工部门表，工资表。 3）在VB界面内设计窗体，并书写代码，使其与数据库连接起来，并具有相应功能。 三、数据库设计：(由队友负责) 四、详细设计： 1）设计VB登录界面 图像如下： 设置身份为管理员，成功登录 相应代码为： Set Conn = New ADODB.Connection On Error GoTo MyErr: ConnStr = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工资管理系统;Data Source=XGJYJ2OKZYWHIWB 这是连接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 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 * FROM 系统登录 WHERE 用户名 = Text1.Text AND 密码= Text2.Text and 身份= Combo1.Text objcn, adOpenStatic, adLockOptimistic Set rs = Selectsql(SQL) If rs.RecordCount 0 Then Form2.Show 想要打开的主窗体 MsgBox 恭喜兄弟,登录成功!, 64, 提示 Unload Me Else MsgBox 口令不对,请重新输入!, 16, 提示 Text1.Text = Text2.Text = Combo1.Text = Text1.SetFocus End If End Sub Private Sub Form_Load() End Sub Private Sub Text2_Change() Text2.PasswordChar = * End Sub 将出现此界面，表示成功登录 2）登录成功后，同时出现基本功能界面 3）点击员工信息管理按钮，将出现员工信息表，代码如下： Private Sub Command1_Click() Form2.Hide Form3.Show End Sub 员工信息表将实现以下功能： 员工基本信息的展览 员工基本信息的添加、删除、修改 增加了一个adodc1控件，通过改变各控件的属性，达到VB与数据库连接的目的，具体操作见VB书最后一章。 设计了一个datagrid控件，使所以信息以表的信息清楚的展示，如果基本信息有什么变动，那可以在控件里得到结果。 该界面的代码如下： Private Sub Command1_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() Form2.Show Unload Me End Sub Private Sub Command3_Click() Adodc1.Recordset(员工编号) = Text1.Text Adodc1.Recordset(姓名) = Text5