氧化铝攻城设备管理系统程序截图+代码-无忧无虑毕设网.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 rs.Open select * from SysAd_Info where Admin_Name= + ListView1.Selecte