员工工资管理系统 VB SQL

Dim rst As ADODB.Recordset sql = \权限 from 用户表 \ Set rst = ExecuteSQL(sql, \ For i = 1 To rst.RecordCount rst.MoveNext Next i

3.3 “主窗体”模块详细设计

在这个项目中,选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。

对于一个多任务的应用程序,使用多文档窗体还可以减少占用的系统资源。

主窗体设计的界面是用菜单编辑器做的,主要由系统、工资信息设置、工资信息管理

和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里,管理员有所有的权利进行各种操作。 主窗体及核心代码:

Private Sub bumenxinxi_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作!\警告\Else

If Trim(power) = \管理员\frm_bumenxinxi.Show Unload Me End If End If End Sub

Private Sub gangweigongzi_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作!\警告\Else

If Trim(power) = \管理员\frm_gangweigongzi.Show Unload Me End If End If End Sub

Private Sub jiben_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作!\警告\Else

If Trim(power) = \管理员\frm_jiben.Show

Unload Me End If End If End Sub

Private Sub yonghushanchu_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作!\警告\Else

If Trim(power) = \管理员\frm_tianjiayushanchu.Show Unload Me End If End If End Sub

Private Sub yonghutianjia_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作!\警告\Else

If Trim(power) = \管理员\frm_tianjiayushanchu.Show Unload Me End If End If End Sub

Private Sub Form_Load() Dim i As Integer Dim sql As String

Dim rst As ADODB.Recordset sql = \权限 from 用户表 \ Set rst = ExecuteSQL(sql, \ For i = 1 To rst.RecordCount

rst.MoveNext Next i End Sub

3.4 各项子模块详细设计

3.4.1添加用户与删除

选择“系统”—>“添加用户与删除”菜单,在添加用户的窗体里,输入新的用户名称和密码后,单击“添加”按钮,系统将会添加新的用户。在窗体里输入用户名称和密码,单击“删除”按钮,系统将会删除原来用户。

Private Sub cmd_adduser_Click() Dim newrst As ADODB.Recordset

Dim sql As String

sql = \用户表 values(\

& \ & \Set newrst = execute_sql(sql) sql = \用户表\Set newrst = select_sql(sql)

Set DataGrid1.DataSource = newrst End Sub

Private Sub cmd_cancel_Click() Unload Me End Sub

Private Sub cmd_delete_Click() Dim sql As String

sql = \用户表\If txt_username <> \

Set objrs = ExecuteSQL(sql, \ Set DataGrid1.DataSource = objrs '刷新网格,显示操作后的结果 End If

If objrs.RecordCount = 0 Then MsgBox \库中没有记录!\ Exit Sub End If

If objrs.RecordCount <> 0 Then

If MsgBox(\真的要删除该级用户信息吗?\警告\ objrs.Delete

MsgBox \删除成功!\提示\ End If End If End Sub

Private Sub Form_Load()

Dim newrst As ADODB.Recordset Dim sql As String

sql = \用户表\Set newrst = select_sql(sql)

Set DataGrid1.DataSource = newrst End Sub

3.4.2 修改用户

选择“系统”->“修改用户”菜单,在窗体里输入新的用户名称和用

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4