氧化铝攻城设备管理系统程序截图+代码-无忧无虑毕设网.docVIP

本文配套程序下载地址：无忧无虑毕设网()-大学生毕业设计站,免费毕业设计论文,无忧无虑毕设网大学生毕业设计,出售各类毕业设计源码,论文,程序源码,网站源码,免费视频教程,我们将竭诚为您服务！ 代码 添加用户 Private Sub Command1_Click() '单击添加用户按钮时，将界面上文本框置空，以便输入要添加的用户信息 TxtName.Locked = False '添加用户时将用户名文本框改为可编辑 TxtName.Text = "" Txtsec.Locked = False Combo1.Text = "" RTxtBox1.Text = "" MsgBox "请输入要添加的用户信息！" End Sub 确定添加用户 Private Sub Command1_Click() '单击添加用户按钮时，将界面上文本框置空，以便输入要添加的用户信息 TxtName.Locked = False '添加用户时将用户名文本框改为可编辑 TxtName.Text = "" Txtsec.Locked = False Combo1.Text = "" RTxtBox1.Text = "" MsgBox "请输入要添加的用户信息！" End Sub 修改用户 Private Sub ListView1_Click() '当单击ListView1中相应用户时，在文本框中显示出该用户的信息 TxtName.Locked = True '修改用户名文本框 Dim rs2 As New ADODB.Recordset rs2.Open "select Role_Name from Role_Info where Role_id in (select Role_id from SysAd_Info where Admin_Name='" + ListView1.SelectedItem + "')", DBCnn, adOpenStatic, adLockOptimistic Dim rs3 As New ADODB.Recordset '定义记录集，用于打开在listview中选定的用户信息 rs3.Open "select * from SysAd_Info where Admin_Name='" + ListView1.SelectedItem + "'", DBCnn, adOpenStatic, adLockOptimistic '将选定的用户信息显示出来 TxtName.Text = rs3.Fields("Admin_Name") Txtsec.Text = rs3.Fields("Admin_SecNum") Combo1.Text = rs2.Fields("Role_Name") RTxtBox1.Text = rs3.Fields("Admin_Else") If rs3.Fields("Times") >= 6 Then TxtZT.Text = "被锁定" Else TxtZT.Text = "未锁定" End If rs3.Close rs2.Close End Sub 删除用户 Private Sub Command2_Click() '删除一个已经存在的用户，并同时将权限表中的信息删除 Dim rs As New ADODB.Recordset '定义记录集，用于打开用户信息表 Dim rs1 As New ADODB.Recordset '定义记录集，用于打开权限信息表 '打开用户信息表 If TxtName.Text = "" Then MsgBox "请从左侧用户列表中选择一个要删除的用户" Exit Sub End If If TxtName.Text = "Admin" Then MsgBox "不能删除超级用户：Admin" Exit Sub End If '选择了一个用户后，将该用户信息从用户信息表中删除，并将权限信息一并删除 '打开用户信息表 If MsgBox("确实要删除记录吗？", vbYesNo + vbQuestion + vbDefaultButton1, "确认窗口") = vbYes Then r