内容发布更新时间 : 2024/9/20 7:23:12星期一 下面是文章的全部内容请认真阅读。

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 修改用户

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