内容发布更新时间 : 2024/12/25 0:08:33星期一 下面是文章的全部内容请认真阅读。

一、问题描述:

设计一个工资管理系统，使其具有以下功能： 1）员工基本信息的管理功能。

2）单位员工变动、奖惩情况的管理功能。 3）工资的计算、修改功能。 4）查询统计功能。 5）报表打印功能。

6）具有数据备份和数据恢复功能。 二、系统总体设计：

1）设计一个登录界面，使该系统具有一定的安全性和通用性，对应的，在数据库里建立一个登录界面表。

2）在数据库内设计三个信息表，分别是员工情况表，员工部门表，工资表。 3）在VB界面内设计窗体，并书写代码，使其与数据库连接起来，并具有相应功能。 三、数据库设计：(由队友负责) 四、详细设计： 1）设计VB登录界面 图像如下：

设置身份为管理员，成功登录 相应代码为：

Set Conn = New ADODB.Connection 'On Error GoTo MyErr:

ConnStr = \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 = \ MsgBox \请输入口令!\ Text1.SetFocus Exit Sub End If

SQL = \系统登录 WHERE 用户名 ='\密码='\& Text2.Text & \and 身份='\& Combo1.Text & \' objcn, adOpenStatic, adLockOptimistic

Set rs = Selectsql(SQL) If rs.RecordCount > 0 Then Form2.Show '想要打开的主窗体

MsgBox \恭喜兄弟,登录成功!\提示\ Unload Me Else

MsgBox \口令不对,请重新输入!\提示\ 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

员工信息表将实现以下功能： 1） 员工基本信息的展览