内容发布更新时间 : 2024/5/4 4:27:30星期一 下面是文章的全部内容请认真阅读。

一、问题描述:

设计一个工资管理系统，使其具有以下功能：

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 = \* FROM 系统登录 WHERE 用户名 ='\&

Text1.Text & \密码='\身份='\

Combo1.Text & \' objcn, adOpenStatic, adLockOptimistic Set rs = Selectsql(SQL)

If rs.RecordCount > 0 Then

Form2.Show '想要打开的主窗体

MsgBox \恭喜兄弟,登录成功!\ 64, \提示\