📄 用户信息.vb
字号:
Public Class 用户信息
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents LstUser As System.Windows.Forms.ListBox
Friend WithEvents Btn添加 As System.Windows.Forms.Button
Friend WithEvents Edit用户名 As System.Windows.Forms.TextBox
Friend WithEvents Btn删除 As System.Windows.Forms.Button
Friend WithEvents Btn关闭 As System.Windows.Forms.Button
Friend WithEvents Edit密码 As System.Windows.Forms.TextBox
Friend WithEvents Btn修改 As System.Windows.Forms.Button
Friend WithEvents CmbBox权限 As System.Windows.Forms.ComboBox
Friend WithEvents Lbl用户名 As System.Windows.Forms.Label
Friend WithEvents Lbl密码 As System.Windows.Forms.Label
Friend WithEvents Lbl权限 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.LstUser = New System.Windows.Forms.ListBox()
Me.Btn添加 = New System.Windows.Forms.Button()
Me.Edit用户名 = New System.Windows.Forms.TextBox()
Me.Btn删除 = New System.Windows.Forms.Button()
Me.Btn关闭 = New System.Windows.Forms.Button()
Me.Edit密码 = New System.Windows.Forms.TextBox()
Me.Lbl用户名 = New System.Windows.Forms.Label()
Me.Lbl密码 = New System.Windows.Forms.Label()
Me.Btn修改 = New System.Windows.Forms.Button()
Me.Lbl权限 = New System.Windows.Forms.Label()
Me.CmbBox权限 = New System.Windows.Forms.ComboBox()
Me.SuspendLayout()
'
'LstUser
'
Me.LstUser.ItemHeight = 12
Me.LstUser.Location = New System.Drawing.Point(16, 112)
Me.LstUser.Name = "LstUser"
Me.LstUser.Size = New System.Drawing.Size(144, 100)
Me.LstUser.TabIndex = 1
'
'Btn添加
'
Me.Btn添加.Location = New System.Drawing.Point(168, 16)
Me.Btn添加.Name = "Btn添加"
Me.Btn添加.TabIndex = 2
Me.Btn添加.Text = "添 加"
'
'Edit用户名
'
Me.Edit用户名.Location = New System.Drawing.Point(72, 16)
Me.Edit用户名.Name = "Edit用户名"
Me.Edit用户名.Size = New System.Drawing.Size(88, 21)
Me.Edit用户名.TabIndex = 3
Me.Edit用户名.Text = ""
'
'Btn删除
'
Me.Btn删除.Location = New System.Drawing.Point(168, 74)
Me.Btn删除.Name = "Btn删除"
Me.Btn删除.TabIndex = 4
Me.Btn删除.Text = "删 除"
'
'Btn关闭
'
Me.Btn关闭.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Btn关闭.Location = New System.Drawing.Point(168, 190)
Me.Btn关闭.Name = "Btn关闭"
Me.Btn关闭.TabIndex = 5
Me.Btn关闭.Text = "关 闭"
'
'Edit密码
'
Me.Edit密码.Location = New System.Drawing.Point(72, 44)
Me.Edit密码.Name = "Edit密码"
Me.Edit密码.Size = New System.Drawing.Size(88, 21)
Me.Edit密码.TabIndex = 6
Me.Edit密码.Text = ""
'
'Lbl用户名
'
Me.Lbl用户名.AutoSize = True
Me.Lbl用户名.Location = New System.Drawing.Point(16, 19)
Me.Lbl用户名.Name = "Lbl用户名"
Me.Lbl用户名.Size = New System.Drawing.Size(54, 14)
Me.Lbl用户名.TabIndex = 7
Me.Lbl用户名.Text = "用户名："
'
'Lbl密码
'
Me.Lbl密码.AutoSize = True
Me.Lbl密码.Location = New System.Drawing.Point(16, 48)
Me.Lbl密码.Name = "Lbl密码"
Me.Lbl密码.Size = New System.Drawing.Size(54, 14)
Me.Lbl密码.TabIndex = 8
Me.Lbl密码.Text = "密 码："
'
'Btn修改
'
Me.Btn修改.Location = New System.Drawing.Point(168, 132)
Me.Btn修改.Name = "Btn修改"
Me.Btn修改.TabIndex = 9
Me.Btn修改.Text = "修 改"
'
'Lbl权限
'
Me.Lbl权限.AutoSize = True
Me.Lbl权限.Location = New System.Drawing.Point(16, 80)
Me.Lbl权限.Name = "Lbl权限"
Me.Lbl权限.Size = New System.Drawing.Size(54, 14)
Me.Lbl权限.TabIndex = 11
Me.Lbl权限.Text = "权 限："
'
'CmbBox权限
'
Me.CmbBox权限.ItemHeight = 12
Me.CmbBox权限.Location = New System.Drawing.Point(72, 74)
Me.CmbBox权限.Name = "CmbBox权限"
Me.CmbBox权限.Size = New System.Drawing.Size(88, 20)
Me.CmbBox权限.TabIndex = 12
'
'用户信息
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(264, 229)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.CmbBox权限, Me.Lbl权限, Me.Lbl密码, Me.Lbl用户名, Me.Btn修改, Me.Edit密码, Me.Btn关闭, Me.Btn删除, Me.Edit用户名, Me.Btn添加, Me.LstUser})
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "用户信息"
Me.Text = "用户信息"
Me.ResumeLayout(False)
End Sub
#End Region
Dim UserCnn As ADODB.Connection
Dim UserRS As ADODB.Recordset
Private Sub 用户信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
UserCnn = New ADODB.Connection()
UserRS = New ADODB.Recordset()
'创建Connection对象和Recordset对象
strCnn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=f:\人事管理.mdb"
UserCnn.Open(strCnn)
UserRS.Open("Select * From 用户信息", UserCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
'获得“用户信息”表中的记录
UserRS.MoveFirst()
Dim i As Integer
For i = 0 To UserRS.RecordCount - 1
Me.LstUser.Items.Add(UserRS.Fields(1).Value)
UserRS.MoveNext()
Next
'向LstUser中添加列
'并将UserRS中的字段名称设置为LstUser控件中列的名称
Me.Btn修改.Enabled = False
Me.Btn删除.Enabled = False
'将“修改”和“删除”按钮设置为无效状态
Me.CmbBox权限.Items.Add("系统管理员")
Me.CmbBox权限.Items.Add("操作员")
Me.CmbBox权限.Items.Add("普通用户")
'为“CmbBox权限”控件添加列表项
End Sub
Private Sub LstUser_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstUser.SelectedIndexChanged
Dim i As Integer
UserRS.MoveFirst()
For i = 0 To UserRS.RecordCount - 1
If UserRS.Fields(1).Value.ToString = LstUser.SelectedItem Then
Exit For
End If
UserRS.MoveNext()
Next
Me.Edit用户名.Text = UserRS.Fields(1).Value.ToString
Me.Edit密码.Text = UserRS.Fields(2).Value.ToString
Me.CmbBox权限.Text = UserRS.Fields(3).Value.ToString
Me.Btn修改.Enabled = True
Me.Btn删除.Enabled = True
End Sub
Private Sub Btn关闭_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn关闭.Click
UserRS.Close()
UserCnn.Close()
UserRS = Nothing
UserCnn = Nothing
End Sub
Private Sub Btn修改_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn修改.Click
Dim i As Integer
If Me.Edit用户名.Text = "" Then
MessageBox.Show("用户名不能为空，请重新输入用户名")
Exit Sub
End If
If Me.Edit密码.Text = "" Then
MessageBox.Show("用户密码不能为空，请重新输入用户密码")
Exit Sub
End If
If Me.CmbBox权限.Text = "" Then
MessageBox.Show("用户权限不能为空，请重新输入用户权限")
Exit Sub
End If
If (Me.CmbBox权限.Text <> Me.CmbBox权限.Items(0)) And (Me.CmbBox权限.Text <> Me.CmbBox权限.Items(1)) And (Me.CmbBox权限.Text <> Me.CmbBox权限.Items(2)) Then
MessageBox.Show("该种权限不存在！")
Exit Sub
End If
For i = 0 To LstUser.Items.Count - 1
If Me.Edit用户名.Text = LstUser.Items(i).ToString Then
If i <> LstUser.SelectedIndex Then
MessageBox.Show("该用户已经存在，请重新输入用户名")
Exit Sub
End If
End If
Next
UserRS.MoveFirst()
For i = 0 To UserRS.RecordCount - 1
If UserRS.Fields(1).Value.ToString = LstUser.SelectedItem.ToString Then
Exit For
End If
UserRS.MoveNext()
Next
UserRS.Fields(1).Value = Me.Edit用户名.Text
UserRS.Fields(2).Value = Me.Edit密码.Text
UserRS.Fields(3).Value = Me.CmbBox权限.Text
UserRS.Update()
LstUser.Items.Clear()
UserRS.MoveFirst()
For i = 0 To UserRS.RecordCount - 1
Me.LstUser.Items.Add(UserRS.Fields(1).Value)
UserRS.MoveNext()
Next
End Sub
Private Sub Btn删除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn删除.Click
Dim i As Integer
UserRS.MoveFirst()
For i = 0 To UserRS.RecordCount - 1
If UserRS.Fields(1).Value.ToString = Me.Edit用户名.Text Then
Exit For
End If
UserRS.MoveNext()
Next
UserRS.Delete()
UserRS.Update()
LstUser.Items.Clear()
UserRS.MoveFirst()
For i = 0 To UserRS.RecordCount - 1
Me.LstUser.Items.Add(UserRS.Fields(1).Value)
UserRS.MoveNext()
Next
End Sub
Private Sub Btn添加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn添加.Click
Dim i As Integer
If Me.Edit用户名.Text = "" Then
MessageBox.Show("用户名不能为空，请重新输入用户名")
Exit Sub
End If
If Me.Edit密码.Text = "" Then
MessageBox.Show("用户密码不能为空，请重新输入用户密码")
Exit Sub
End If
If Me.CmbBox权限.Text = "" Then
MessageBox.Show("用户权限不能为空，请重新输入用户权限")
Exit Sub
End If
If (Me.CmbBox权限.Text <> Me.CmbBox权限.Items(0)) And (Me.CmbBox权限.Text <> Me.CmbBox权限.Items(1)) And (Me.CmbBox权限.Text <> Me.CmbBox权限.Items(2)) Then
MessageBox.Show("该种权限不存在！")
Exit Sub
End If
For i = 0 To UserRS.RecordCount - 1
If Me.Edit用户名.Text = LstUser.Items(i) Then
MessageBox.Show("该用户已经存在，请重新输入用户名")
Exit Sub
End If
Next
UserRS.AddNew()
UserRS.Fields(1).Value = Me.Edit用户名.Text
UserRS.Fields(2).Value = Me.Edit密码.Text
UserRS.Fields(3).Value = Me.CmbBox权限.Text
UserRS.Update()
LstUser.Items.Clear()
UserRS.MoveFirst()
For i = 0 To UserRS.RecordCount - 1
Me.LstUser.Items.Add(UserRS.Fields(1).Value)
UserRS.MoveNext()
Next
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -