📄 frm_userset.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form Frm_UserSet
BackColor = &H00F0BB79&
Caption = " 用 户 设 置"
ClientHeight = 5010
ClientLeft = 60
ClientTop = 450
ClientWidth = 6705
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Frm_UserSet.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5010
ScaleWidth = 6705
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Cmd_Cancel
Caption = "取 消"
Enabled = 0 'False
Height = 375
Left = 5400
TabIndex = 14
Top = 3780
Width = 975
End
Begin VB.CommandButton Cmd_Update
Caption = "修 改"
Height = 375
Left = 5400
TabIndex = 13
Top = 3120
Width = 975
End
Begin MSComctlLib.ListView LisV_U
Height = 2655
Left = 240
TabIndex = 12
Top = 240
Width = 6255
_ExtentX = 11033
_ExtentY = 4683
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "序号"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "用 户 名"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "密 码"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "角 色"
Object.Width = 3528
EndProperty
End
Begin VB.CommandButton Cmd_Add
Caption = "添 加"
Height = 375
Left = 3960
TabIndex = 0
Top = 3120
Width = 975
End
Begin VB.ComboBox Cob_Role
Appearance = 0 'Flat
Enabled = 0 'False
Height = 330
ItemData = "Frm_UserSet.frx":058A
Left = 1320
List = "Frm_UserSet.frx":0594
TabIndex = 4
Top = 4500
Width = 2175
End
Begin VB.TextBox Txt_PassW2
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 1320
MaxLength = 10
PasswordChar = "*"
TabIndex = 3
Top = 4005
Width = 2175
End
Begin VB.TextBox Txt_PassW1
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 1320
MaxLength = 10
PasswordChar = "*"
TabIndex = 2
Top = 3495
Width = 2175
End
Begin VB.TextBox Txt_UserName
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
MaxLength = 10
TabIndex = 1
Top = 3000
Width = 2175
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 375
Left = 5400
TabIndex = 11
Top = 4440
Width = 975
End
Begin VB.CommandButton Cmd_Del
Caption = "删 除"
Height = 375
Left = 3960
TabIndex = 10
Top = 4440
Width = 975
End
Begin VB.CommandButton Cmd_Save
Caption = "保 存"
Enabled = 0 'False
Height = 375
Left = 3960
TabIndex = 9
Top = 3780
Width = 975
End
Begin VB.Label Lab_U
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "角 色："
Height = 210
Index = 3
Left = 240
TabIndex = 8
Top = 4560
Width = 1050
End
Begin VB.Label Lab_U
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "确认密码："
Height = 210
Index = 2
Left = 240
TabIndex = 7
Top = 4080
Width = 1050
End
Begin VB.Label Lab_U
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码："
Height = 210
Index = 1
Left = 240
TabIndex = 6
Top = 3600
Width = 1050
End
Begin VB.Label Lab_U
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用 户 名："
Height = 210
Index = 0
Left = 240
TabIndex = 5
Top = 3120
Width = 1050
End
End
Attribute VB_Name = "Frm_UserSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim BZ As String
Private Sub Cmd_Add_Click()
Cmd_Add.Enabled = False
Cmd_Update.Enabled = False
Cmd_Save.Enabled = True
Cmd_Cancel.Enabled = True
Cmd_Del.Enabled = False
Txt_UserName.Enabled = True
Txt_UserName.Text = ""
Txt_PassW1.Enabled = True
Txt_PassW1.Text = ""
Txt_PassW2.Enabled = True
Txt_PassW2.Text = ""
Cob_Role.Enabled = True
Cob_Role.Text = "操作员"
BZ = "Add"
Txt_UserName.SetFocus
End Sub
Private Sub Cmd_Cancel_Click()
Cmd_Add.Enabled = True
Cmd_Update.Enabled = True
Cmd_Save.Enabled = False
Cmd_Cancel.Enabled = False
Cmd_Del.Enabled = True
Txt_UserName.Enabled = False
Txt_UserName.Text = ""
Txt_PassW1.Enabled = False
Txt_PassW1.Text = ""
Txt_PassW2.Enabled = False
Txt_PassW2.Text = ""
Cob_Role.Enabled = False
Cob_Role.Text = "操作员"
List_Add
End Sub
Private Sub Cmd_Del_Click()
On Error GoTo Err:
If MsgBox("确实要删除用户[" & Txt_UserName.Text & "]？", vbYesNo + vbCritical) = vbYes Then
Open_Data ("delete from ST_UserInfo where username='" & Txt_UserName.Text & "'")
Open_Data ("select * from ST_UserInfo where username='" & Txt_UserName.Text & "'")
If rs.RecordCount = 0 Then
MsgBox "用户 " & Txt_UserName.Text & " 删除成功！"
Else
MsgBox "用户 " & Txt_UserName.Text & " 删除失败！"
End If
List_Add
End If
Err:
End Sub
Private Sub Cmd_Exit_Click()
Unload Me
End Sub
Private Sub Cmd_Save_Click()
On Error GoTo Err:
If Txt_UserName.Text = "" Then
MsgBox "用户名不能为空"
Txt_UserName.SetFocus
Exit Sub
End If
If BZ = "Add" Then
Open_Data ("select * from ST_UserInfo where username='" & Txt_UserName.Text & "'")
If rs.RecordCount > 0 Then
MsgBox "用户 " & Txt_UserName.Text & " 已经存在！"
Txt_UserName.SetFocus
Exit Sub
End If
End If
If Txt_PassW1.Text <> Txt_PassW2.Text Then
MsgBox "两次输入的密码不一致！"
Txt_PassW1.SetFocus
Exit Sub
End If
If Cob_Role.Text = "" Then
MsgBox "请选择一项角色！"
Cob_Role.SetFocus
Exit Sub
End If
Dim n As Integer
If BZ = "Add" Then
Open_Data ("insert into ST_UserInfo(username,userpass,userrole) values('" & Txt_UserName.Text & "','" & Txt_PassW1.Text & "','" & Cob_Role.Text & "')")
ElseIf BZ = "Update" Then
Open_Data ("update ST_UserInfo set userpass='" & Txt_PassW1.Text & "',userrole='" & Cob_Role.Text & "' where username='" & Txt_UserName.Text & "'")
End If
Open_Data ("select * from ST_UserInfo where username='" & Txt_UserName.Text & "'")
If rs.RecordCount = 1 Then
If BZ = "Add" Then
MsgBox "用户 " & Txt_UserName.Text & " 添加成功！"
ElseIf BZ = "Update" Then
MsgBox "用户 " & Txt_UserName.Text & " 修改成功！"
End If
Cmd_Add.Enabled = True
Cmd_Update.Enabled = True
Cmd_Save.Enabled = False
Cmd_Cancel.Enabled = False
Cmd_Del.Enabled = True
Txt_UserName.Enabled = False
Txt_UserName.Text = ""
Txt_PassW1.Enabled = False
Txt_PassW1.Text = ""
Txt_PassW2.Enabled = False
Txt_PassW2.Text = ""
Cob_Role.Enabled = False
Cob_Role.Text = "操作员"
Else
If BZ = "Add" Then
MsgBox "用户 " & Txt_UserName.Text & " 添加失败！"
ElseIf BZ = "Update" Then
MsgBox "用户 " & Txt_UserName.Text & " 修改失败！"
End If
End If
List_Add
Set rs = Nothing
Err:
End Sub
Private Sub Cmd_Update_Click()
Cmd_Add.Enabled = False
Cmd_Update.Enabled = False
Cmd_Save.Enabled = True
Cmd_Cancel.Enabled = True
Cmd_Del.Enabled = False
Txt_UserName.Enabled = False
Txt_PassW1.Enabled = True
Txt_PassW2.Enabled = True
Cob_Role.Enabled = True
BZ = "Update"
End Sub
Private Sub Form_Load()
' Frm_Main.M_W_UserSet.Visible = True
List_Add
' 设置行高 15
LisV_U.SmallIcons = Frm_Main.ImageList1
End Sub
Sub List_Add()
On Error GoTo Err:
LisV_U.ListItems.Clear
Open_Data ("select * from ST_UserInfo")
If rs.RecordCount > 0 Then
For i = 1 To rs.RecordCount
If rs.EOF Then rs.MoveFirst
Set ite = LisV_U.ListItems.Add(, , i)
If IsNull(rs.Fields(0)) = False Then ite.SubItems(1) = rs.Fields(0)
If IsNull(rs.Fields(1)) = False Then ite.SubItems(2) = rs.Fields(1)
If IsNull(rs.Fields(2)) = False Then ite.SubItems(3) = rs.Fields(2)
rs.MoveNext
Next i
End If
Err:
End Sub
Private Sub LisV_U_Click()
If LisV_U.ListItems.Count > 0 Then
Txt_UserName.Text = LisV_U.SelectedItem.SubItems(1)
Txt_PassW1.Text = LisV_U.SelectedItem.SubItems(2)
Txt_PassW2.Text = LisV_U.SelectedItem.SubItems(2)
Cob_Role.Text = LisV_U.SelectedItem.SubItems(3)
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -