📄 frmuserman.frm
字号:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form FrmUserMan
BorderStyle = 3 'Fixed Dialog
Caption = "用户管理"
ClientHeight = 2805
ClientLeft = 45
ClientTop = 330
ClientWidth = 6255
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2805
ScaleWidth = 6255
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Caption = "用户列表"
Height = 1935
Left = 240
TabIndex = 5
Top = 120
Width = 1815
Begin MSDataListLib.DataList DataList1
Bindings = "FrmUserMan.frx":0000
Height = 1530
Left = 120
TabIndex = 6
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 2699
_Version = 393216
ListField = "UserName"
End
End
Begin VB.Frame Frame1
Caption = "用户信息"
Height = 1935
Left = 2280
TabIndex = 4
Top = 120
Width = 3855
Begin VB.Label lblUserType
Caption = "lblUserType"
Height = 255
Left = 1320
TabIndex = 10
Top = 1080
Width = 2415
End
Begin VB.Label Label3
Caption = "用户类型:"
Height = 255
Left = 360
TabIndex = 9
Top = 1080
Width = 975
End
Begin VB.Label lblUserName
Caption = "lblUserName"
Height = 255
Left = 1320
TabIndex = 8
Top = 600
Width = 2295
End
Begin VB.Label Label1
Caption = "用户名:"
Height = 255
Left = 360
TabIndex = 7
Top = 600
Width = 735
End
End
Begin VB.CommandButton Command4
Caption = "返 回"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 3
Top = 2280
Width = 1275
End
Begin VB.CommandButton Cmd_Del
Caption = "删除用户"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3240
TabIndex = 2
Top = 2280
Width = 1275
End
Begin VB.CommandButton Cmd_Modi
Caption = "修改用户"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
TabIndex = 1
Top = 2280
Width = 1275
End
Begin VB.CommandButton Cmd_Add
Caption = "添加用户"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 0
Top = 2280
Width = 1275
End
Begin MSAdodcLib.Adodc AdoUserList
Height = 375
Left = 1080
Top = 2520
Visible = 0 'False
Width = 2655
_ExtentX = 4683
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=TikuSys"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "TikuSys"
OtherAttributes = ""
UserName = ""
Password = "8263958"
RecordSource = "Users"
Caption = "AdoUserList"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Attribute VB_Name = "FrmUserMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Add_Click()
With frmUserEdit
.Label2.Caption = "输入密码："
.Label3.Caption = "确认密码："
.Caption = "添加用户"
'如果不是 Admin用户,则只可以添加科目管理员
If FrmLogin.NameKey <> "admin" Then
.Option1.Value = False
.Option2.Value = True
.Frame1.Enabled = False
End If
.Modify = True '表示添加用户
.Show 1
End With
'刷新用户名列表框
MsgBox "添加新用户成功!", vbOKOnly + 64, "添加成功"
AdoUserList.Refresh
DataList1_Click
Form_Load
End Sub
Private Sub Cmd_Modi_Click()
'如果没有选择用户名，则返回
If DataList1.Text = "" Then
MsgBox "请选择要修改的用户！", vbOKOnly + 64, "提示"
Exit Sub
End If
'Admin 用户只能自己修改
If DataList1.Text = "admin" Then
If FrmLogin.NameKey <> "admin" Then
MsgBox "您不能修改此用户！", vbOKOnly + 48, "警告"
Exit Sub
End If
End If
'如果登录用户不是 Admin ,那么他只能管理自己和科目管理员。
'并且无权设置系统用户
If FrmLogin.NameKey <> "admin" Then
frmUserEdit.Option1.Value = False
frmUserEdit.Option2.Value = True
frmUserEdit.Frame1.Enabled = False
If DataList1.Text <> FrmLogin.NameKey And MyUser.UserType = 0 Then
MsgBox "您不能修改此用户！" & Chr(10) & Chr(13) & "只有 Admin 可以修改此用户！", vbOKOnly + 48, "警告"
Exit Sub
End If
End If
'如果选择了自己的话，不能把自己改成科目管理员
If DataList1.Text = FrmLogin.NameKey Then
frmUserEdit.DataCombo1.Enabled = False
frmUserEdit.Option1.Value = False
frmUserEdit.Option2.Value = True
frmUserEdit.Frame1.Enabled = False
End If
'把当前用户的数据赋值到FrmUserEdit窗体的相关位置
With frmUserEdit
.New_Name = MyUser.UserName
.New_Name.Enabled = False
'如果当前用户为Admin，则不能修改用户名
If MyUser.UserName = "admin" Then
.DataCombo1.Enabled = False
.New_Name.Enabled = False
Else
End If
'启动窗体FrmUserEdit
.Modify = False '表示修改用户属性
.Show 1
End With
'刷新用户名列表框
AdoUserList.Refresh
DataList1_Click
Form_Load
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub DataList1_Click()
'如果没有选择用户名，则返回
If DataList1.Text = "" Then
Exit Sub
End If
'读取当前用户数据
MyUser.GetInfo (DataList1.Text)
'设置用户名
lblUserName = MyUser.UserName
'设置用户类型
If MyUser.UserType = 0 Then
lblUserType = "系统管理员"
Else
lblUserType = MyClass.GetName(MyUser.UserType) & " 管理用户"
End If
End Sub
Private Sub Form_Load()
lblUserType = ""
lblUserName = ""
End Sub
Private Sub Cmd_Del_Click()
'如果没有选择用户名，则返回
If DataList1.Text = "" Then
MsgBox "请选择要删除的用户！", vbOKOnly + 64, "提示"
Exit Sub
End If
'如果选择用户名为系统用户，则提示不能删除，返回
If MyUser.UserName = "admin" Then
MsgBox "此用户不能删除！", vbOKOnly + 48, "警告"
Exit Sub
End If
If FrmLogin.NameKey <> "admin" Then
If DataList1.Text <> FrmLogin.NameKey And MyUser.UserType = 0 Then
MsgBox "您不能删除此用户！" & Chr(10) & Chr(13) & "只有 Admin 可以删除此用户！", vbOKOnly + 48, "警告"
Exit Sub
End If
End If
If DataList1.Text = FrmLogin.NameKey Then
MsgBox "请不要您删除自己！", vbOKOnly + 48, "警告"
Exit Sub
End If
'确认删除
If MsgBox("是否删除当前用户？", vbYesNo + 32, "请确认") = vbYes Then
'删除当前用户
MyUser.Delete (DataList1.Text)
'刷新用户名列表框内容
MsgBox "删除用户成功!", vbOKOnly + 64, "删除成功"
AdoUserList.Refresh
DataList1.Refresh
DataList1_Click
End If
Form_Load
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -