内容发布更新时间 : 2024/11/10 12:30:33星期一 下面是文章的全部内容请认真阅读。
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 修改用户
选择“系统”->“修改用户”菜单，在窗体里输入新的用户名称和用