frmuserman.frm

在VB中开发的连接SQL的图书管理系统。

VERSION 5.00
Begin VB.Form frmUserMan 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "用户管理"
   ClientHeight    =   4575
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6315
   Icon            =   "frmUserMan.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   6315
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdAddUser 
      Caption         =   "增加用户"
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Top             =   3720
      Width           =   1215
   End
   Begin VB.CommandButton cmdDelUser 
      Caption         =   "删除用户"
      Enabled         =   0   'False
      Height          =   495
      Left            =   3000
      TabIndex        =   2
      Top             =   3720
      Width           =   1215
   End
   Begin VB.CommandButton cmdModiUser 
      Caption         =   "修改用户"
      Enabled         =   0   'False
      Height          =   495
      Left            =   1800
      TabIndex        =   1
      Top             =   3720
      Width           =   1215
   End
   Begin VB.CommandButton cmdBack 
      Cancel          =   -1  'True
      Caption         =   "返　回"
      Height          =   495
      Left            =   4200
      TabIndex        =   3
      Top             =   3720
      Width           =   1215
   End
   Begin VB.ListBox lstPasswd 
      Height          =   2760
      Left            =   840
      TabIndex        =   5
      Top             =   600
      Width           =   4455
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用户名"
      Height          =   180
      Left            =   840
      TabIndex        =   6
      Top             =   240
      Width           =   540
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "用户类型"
      Height          =   180
      Left            =   3600
      TabIndex        =   4
      Top             =   240
      Width           =   720
   End
End
Attribute VB_Name = "frmUserMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'窗体变为活动的时候，刷新List控件
Private Sub Form_Activate()
  Call AddList(lstPasswd, SQLStmt)
End Sub

'单击列表时，修改和删除按钮变为可用
Private Sub lstPasswd_Click()
  cmdModiUser.Enabled = True
  cmdDelUser.Enabled = True
End Sub

'添加用户按钮
Private Sub cmdAddUser_Click()
  frmUserEdit.txtUser = ""
  frmUserEdit.txtPasswd = ""
  frmUserEdit.txtConfirm = ""
  IsAdd = True
  frmUserEdit.Show 1
End Sub

'删除用户按钮
Private Sub cmdDelUser_Click()
  If lstPasswd.Text = "" Then
    MsgBox "请选择一个用户", vbInformation, "信息提示"
    cmdDelUser.Enabled = False
  Else
    objPasswd.UserName = Trim(Left(lstPasswd.Text, 30))
    If objPasswd.UserName = "super" Then
      MsgBox "此用户不能删除", vbExclamation, "警告"
    Else
      objPasswd.Delete objPasswd.UserName
      MsgBox "删除成功！", vbInformation, "删除"
      Call AddList(lstPasswd, SQLStmt)
    End If
  End If
End Sub

'修改用户按钮
Private Sub cmdModiUser_Click()
  If lstPasswd.Text = "" Then
    MsgBox "请选择一个用户", vbInformation, "信息提示"
    cmdModiUser.Enabled = False
  Else
    frmUserEdit.txtUser = Trim(Left(lstPasswd.Text, 30))
    frmUserEdit.txtUser.Locked = True
    frmUserEdit.txtPasswd = ""
    frmUserEdit.txtConfirm = ""
    frmUserEdit.cboUserType.ListIndex = IIf(Right(lstPasswd.Text, _
      Len(lstPasswd.Text) - 30) = "超级用户", 0, 1)
    IsAdd = False
    frmUserEdit.Show 1
  End If
End Sub

'返回按钮
Private Sub cmdBack_Click()
  Unload Me
End Sub