frmuserman.frm

引用枕善居网站上的职工工资系统

  If DataList1.Text = "" Then
    MsgBox "请选择要修改的用户"
    Exit Sub
  End If
If MyUser.name = "Admin" And CurUser.User_type = 1 Then
    xg = MsgBox("不能修改此用户的权限及用户名，只能" + Chr$(13) + Chr$(10) _
    + "修改密码！是否要修改密码？", vbYesNo + vbCritical, "警告")
    If xg = vbYes Then
       CurUser.name = MyUser.name
       With FrmUserEdit
            .Caption = "修改密码"
            .OriUser = CurUser.name
            .txtUserName = CurUser.name
         If CurUser.User_type = 1 Then
            .ComboType.AddItem "超级用户"
         ElseIf CurUser.User_type = 2 Then
            .ComboType.AddItem "系统管理员"
         ElseIf CurUser.User_type = 3 Then
            .ComboType.AddItem "系统操作员"
         Else
            .ComboType.AddItem "普通用户"
        End If
           .ComboType.ListIndex = 0
           .ComboType.Enabled = False
           .txtUserName = Trim(CurUser.name)   '用户名
           .txtUserName.Enabled = False        '不允许修改用户名
            .Modify = True
           .Show 1
 End With
                            '添加系统日志信息
  MyLog.Title = "成员:" + Trim(Me.Caption)
  MyLog.Body = "修改用户密码"
  MyLog.LogType = "修改"
  MyLog.UserName = CurUser.name
  MyLog.Save
  
  End If
    Exit Sub
  End If
If MyUser.name = "Admin" And CurUser.User_type = 1 And CurUser.name <> "Admin" Then
  MsgBox "你没有修改此用户的权限！", vbOKOnly + vbCritical, "警告"
      Exit Sub
  End If
  If UCase(CurUser.User_type) = "2" Then   ' 当前用户权限为"2"
   If MyUser.User_type = "1" Then       '设置不能修改权限为"1"的用户
    MsgBox "你没有修改此用户的权限！", vbOKOnly + vbCritical, "警告"
    Else
      With FrmUserEdit
  .OriUser = MyUser.name
  .txtUserName = MyUser.name
  .txtPass = i ' MyUser.passer
  .txtPass2 = i 'MyUser.passer
  .Caption = "修改用户信息"
  .ComboType.AddItem "系统管理员"
  .ComboType.AddItem "系统操作员"
  .ComboType.AddItem "普通用户"
  .ComboType.ListIndex = MyUser.User_type - 2
  .Modify = True
  .Show 1
  End With
                                '添加系统日志信息
  MyLog.Title = "成员:" + Trim(Me.Caption)
  MyLog.Body = "修改用户信息"
  MyLog.LogType = "修改"
  MyLog.UserName = CurUser.name
  MyLog.Save
  End If
    Exit Sub
  End If
    If UCase(CurUser.User_type) = "3" Then      ' 当前用户权限为"3"
   If MyUser.User_type = "1" Or MyUser.User_type = "2" Then    '设置不能修改权限为"1"或"2"的用户
    MsgBox "你没有修改此用户的权限！", vbOKOnly + vbCritical, "警告"
    Else
      With FrmUserEdit
  .OriUser = MyUser.name
  .txtUserName = MyUser.name
  .txtPass = i 'MyUser.passer
  .txtPass2 = i 'MyUser.passer
  .Caption = "修改用户信息"
  .ComboType.AddItem "系统操作员"
  .ComboType.AddItem "普通用户"
  .ComboType.ListIndex = MyUser.User_type - 3
  .Modify = True
  .Show 1
  End With
                                '添加系统日志信息
  MyLog.Title = "成员:" + Trim(Me.Caption)
  MyLog.Body = "修改用户信息"
  MyLog.LogType = "修改"
  MyLog.UserName = CurUser.name
  MyLog.Save
  End If
    Exit Sub
  End If
  If UCase(CurUser.User_type) = "1" Then
  With FrmUserEdit
  .OriUser = MyUser.name
  .txtUserName = MyUser.name
  .txtPass = i 'MyUser.passer
  .txtPass2 = .txtPass 'MyUser.passer
  .Caption = "修改用户信息"
  .ComboType.AddItem "超级用户"
  .ComboType.AddItem "系统管理员"
  .ComboType.AddItem "系统操作员"
  .ComboType.AddItem "普通用户"
  .ComboType.ListIndex = MyUser.User_type - 1
  .Modify = True
  .Show 1
  End With
                              '添加系统日志信息
  MyLog.Title = "成员:" + Trim(Me.Caption)
  MyLog.Body = "修改用户信息"
  MyLog.LogType = "修改"
  MyLog.UserName = CurUser.name
  MyLog.Save
  End If
  AdoUserList.Refresh
 DataRefresh
 DataList1_Click

End Sub

Private Sub Command1_Click()
  
  With FrmUserEdit
  .txtUserName = ""
  .txtPass = ""
  .txtPass2 = ""
  .Caption = "添加用户"
  'Admin用户可以添加系统管理员和普通用户
  '其他系统管理员则只能添加普通用户
  If UCase(CurUser.User_type) = "1" Then
    .ComboType.AddItem "超级用户"
    .ComboType.AddItem "系统管理员"
    .ComboType.AddItem "系统操作员"
    .ComboType.AddItem "普通用户"
      .ComboType.ListIndex = 0

  .Modify = False
  .Show 1
  ElseIf UCase(CurUser.User_type) = "2" Then
    .ComboType.AddItem "系统管理员"
    .ComboType.AddItem "系统操作员"
    .ComboType.AddItem "普通用户"
      .ComboType.ListIndex = 0

  .Modify = False
  .Show 1
 ElseIf UCase(CurUser.User_type) = "3" Then
    .ComboType.AddItem "系统操作员"
    .ComboType.AddItem "普通用户"
    .ComboType.ListIndex = 0
    .Modify = False
    .Show 1
    Else
    MsgBox "没有添加用户的权限！"
  End If

  End With
  AdoUserList.Refresh
  DataRefresh
  DataList1_Click

                           '添加系统日志信息
  MyLog.Title = "成员:" + Trim(Me.Caption)
  MyLog.Body = "添加用户记录"
  MyLog.LogType = "添加"
  MyLog.UserName = CurUser.name
  MyLog.Save
End Sub

Private Sub Command2_Click()
  If DataList1.Text = "" Then
    MsgBox "请选择要删除的用户", vbOKOnly + vbCritical, "警告"
    Exit Sub
  End If
  If MyUser.name = "Admin" Then
    MsgBox "此用户不能删除", vbOKOnly + vbCritical, "警告"
    Exit Sub
  End If
  '确认删除
   ' If UCase(CurUser.name) <> "Admin" And MyUser.User_type = 1 Then
If UCase(CurUser.User_type) = "2" Then
    If MyUser.User_type = "1" Then
    MsgBox "没有删除此用户的权限！"
    Exit Sub
  End If
  End If
If UCase(CurUser.User_type) = "3" Then
    If MyUser.User_type = "1" Or MyUser.User_type = "2" Then
    MsgBox "没有删除此用户的权限！"
    Exit Sub
  End If
  End If
  If MsgBox("是否删除当前用户？", vbYesNo, "请确认") = vbYes Then
    MyUser.Delete (DataList1.Text)
    MsgBox "也成功删除该用户！"
     AdoUserList.Refresh
    DataRefresh
    DataList1_Click

  End If
End Sub

Private Sub Command3_Click()
 Unload Me
End Sub
Private Sub DataRefresh()
  AdoUserList.ConnectionString = Conn   '数据库连接字符串
  AdoUserList.RecordSource = "SELECT * FROM mima"
  AdoUserList.Refresh
  Set DataList1.RowSource = AdoUserList  '设置数据源
  DataList1.ListField = "name"      '显示字段
  DataList1.BoundColumn = "name"    '设置绑定字段
End Sub

Private Sub DataList1_Click()
  If DataList1.Text = "" Then
    lblUserType = ""
    lblUserName = ""
    Exit Sub
  End If
  '读取用户数据
  MyUser.GetInfo (DataList1.Text)
  Select Case MyUser.User_type
    Case 1
      lblUserType = "超级用户"
    Case 2
      lblUserType = "系统管理员"
    Case 3
      lblUserType = "系统操作员"
    Case 4
      lblUserType = "普通用户"
  End Select
  lblUserName = MyUser.name
End Sub

Private Sub Form_Load()
   '-----声明X按钮无效------'
  MyMenu = GetSystemMenu(Me.hwnd, 0)
 RemoveMenu MyMenu, &HF060, MF_BYCOMMAND
   
   lblUserType = ""
  lblUserName = ""
 DataRefresh
 WindowsXPC1.InitSubClassing
End Sub