form1.frm

现阶段很多图书租赁店仍然使用手工方式管理

VERSION 5.00
Begin VB.Form ConfigRank 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "权限设置"
   ClientHeight    =   3420
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4695
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   3420
   ScaleWidth      =   4695
   Begin VB.CommandButton AllInfo 
      Caption         =   "查看员工信息"
      Height          =   495
      Left            =   360
      TabIndex        =   8
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton ConfirmA 
      Caption         =   "修改完毕"
      Height          =   495
      Left            =   1920
      TabIndex        =   4
      Top             =   2520
      Width           =   1455
   End
   Begin VB.CommandButton SetEmployer 
      Caption         =   "设置为员工权限"
      Height          =   495
      Left            =   3840
      TabIndex        =   3
      Top             =   480
      Width           =   855
   End
   Begin VB.CommandButton SetAdmin 
      Caption         =   "设置管理员权限"
      Height          =   495
      Left            =   2880
      TabIndex        =   2
      Top             =   480
      Width           =   855
   End
   Begin VB.TextBox UserId 
      Height          =   375
      Left            =   1560
      TabIndex        =   0
      Top             =   480
      Width           =   375
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Caption         =   "请输入员工号，按ENTER键可以查看当前员工的权限级别。"
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   1200
      Width           =   4455
   End
   Begin VB.Label DisRank 
      Height          =   375
      Left            =   2160
      TabIndex        =   7
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "员工号"
      Height          =   375
      Left            =   1440
      TabIndex        =   6
      Top             =   120
      Width           =   615
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "当前权限"
      Height          =   375
      Left            =   2040
      TabIndex        =   5
      Top             =   120
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "请填写员工号"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   480
      Width           =   1215
   End
End
Attribute VB_Name = "ConfigRank"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub ShowRank_Click(Index As Integer)

End Sub

Private Sub AllInfo_Click()
Vari = "employeeinfo"       '将VARI的值设置为employeeinfo表名，使ViewInfo显示员工信息
ViewInfo.Show
End Sub

Private Sub ConfirmA_Click()
Unload Me
End Sub

Private Sub SetAdmin_Click()
cnn.Execute "update employeeinfo set access=1 where id='" & UserId & "'"
DisRank.Caption = "管理员"
End Sub

Private Sub SetEmployer_Click()
cnn.Execute "update employeeinfo set access=0 where id='" & UserId & "'"
DisRank.Caption = "员工"
End Sub

 

Private Sub UserId_KeyPress(KeyAscii As Integer)  '当文本框内容变化时，按ENTER查看信息，在label控件DISRANK的CAPTION里显示当前成员是否是管理员
If KeyAscii = vbKeyReturn Then
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim id As String
id = Trim(UserId)
If id <> "" Then
rst.Open "select access from employeeinfo where id='" & id & "'", cnn, adOpenDynamic, adLockReadOnly
   If rst.EOF Then
      MsgBox "不存在此员工", vbOKOnly, "错误"
      UserId = ""
      Else
          If rst("access") = 1 Then
          DisRank.Caption = "管理员"
             Else
             DisRank.Caption = "员工"
          End If
   End If
rst.Close
Set rst = Nothing
End If
Set rst = Nothing
End If
End Sub