user.txt

经过几个月的设计和开发

Public inx As Integer   '用户列表的索引号

Private Sub Command1_Click()    '增加账号
Dim user As userdata
Dim ans As String   '用户选择
Dim sql, ss As String
ss = CStr(Trim(Text1.Text))
If Trim(Text1.Text) = "" Then
  frmMsg.Show
  frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "用户名不能为空！"
   Text1.SetFocus
   Exit Sub
End If
'检测用户名是否已经存在
sql = "select * from user_table where [登录名]='" & ss & " '"
rst.Close
rst.Open sql, con, adOpenDynamic, adLockOptimistic
  If rst.RecordCount > 0 Then
   Msgbox "用户账号" & ss & "已存在!", vbInformation, "提示！"
  
   Exit Sub
End If
'检测用户权限数是否在规定值之间
'1：数据浏览者；
'2：借书管理员；
'3：还书管理员；
'4：系统管理员
  If Not (Trim(Text3.Text) < 5 And Trim(Text3.Text) > 0) Then
     frmMsg.Show
     frmMsg.notice.Visible = True
     frmMsg.Text1.Text = "用户权限级别必须是1--4之间的整数！"
     Exit Sub
 End If
  '添加新记录
  user.user_id = CStr(LTrim(Text1.Text))
  user.pwd = CStr(LTrim(Text2.Text))
  user.right = LTrim(Text3.Text)
 ans = Msgbox("增加用户吗？", vbOKCancel + vbInformation, "提示！")
   If ans = vbOK Then
     rst.AddNew
     
     rst![登录名] = user.user_id
     rst![密码] = user.pwd
    rst![权限] = user.right
     rst.Update
     
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
     
     List1.AddItem rst![登录名]
     Command3.Enabled = True
     
     Exit Sub
     
  Else
     Exit Sub
  End If

End Sub

Private Sub Command2_Click()      '修改账号
Dim ss As String
Dim sql As String
ss = CStr(Trim(Text1.Text))
If Trim(Text1.Text) = "" Then
   frmMsg.Show
   frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "你没有选择要编辑的信息！"
   Text1.SetFocus
   Exit Sub
End If
'修改用户信息
If inx <> -1 Then
 sql = "UPDATE" & " user_table " & " SET  [登录名] ='" & Trim(Text1.Text) & "'" & " where [登录名] = '" & Trim(List1.List(inx)) & "'"
 con.BeginTrans            '启动事务
 con.Execute sql           '执行查询
 con.CommitTrans           '保存所有更改并退出事务


 sql = "UPDATE" & " user_table " & " SET  [密码] ='" & Trim(Text2.Text) & "'" & " where [登录名] = '" & Trim(List1.List(inx)) & "'"
 con.BeginTrans
 con.Execute sql
 con.CommitTrans
 
 sql = "UPDATE" & " user_table " & " SET  [权限] ='" & Trim(Text3.Text) & "'" & " where [登录名]= '" & Trim(List1.List(inx)) & "'"
 con.BeginTrans
 con.Execute sql
 con.CommitTrans
 
  List1.AddItem (Trim(Text1.Text))
  List1.RemoveItem (inx)
 
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
End If
End Sub

Private Sub Command3_Click()    '删除账号
Dim ans As String

If inx = -1 Then        '没有选择要删除的项
  frmMsg.Show
  frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "请挑选要删除的项！"
   Exit Sub
 End If
 
If Not rst.EOF Then       '如果不是最后一个用户记录
   ans = Msgbox("确实要删除此用户吗？", vbOKCancel + vbInformation, "提示！")
   If ans = vbOK Then
 List1.RemoveItem (inx)        '索引显示删除
 rst.Delete                    '删除表内记录
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 inx = -1
  Else
   Exit Sub
 End If
Else
Command2.Enabled = False
Command3.Enabled = False
End If
End Sub


Private Sub Command4_Click()
Unload Me
End Sub



Private Sub Form_Load()
Dim i As Integer
inx = -1           '初始值定为-1
Call open_connection("user_table")    '打开user_table表

   For i = 0 To rst.RecordCount - 1    '显示用户列表
     List1.AddItem rst![登录名]
     rst.MoveNext
   Next i
End Sub



Private Sub Image1_Click()

End Sub

Private Sub List1_Click()
Dim sql As String
'选择要修改的用户记录，根据索引显示用户信息
inx = List1.ListIndex
 sql = "select * from user_table where [登录名] ='" & Trim(List1.List(inx)) & "'"
 rst.Close
 rst.Open sql, con, adOpenDynamic, adLockOptimistic
 Text1.Text = rst![登录名]
 Text2.Text = rst![密码]
 Text3.Text = rst![权限]
 
End Sub





Private Sub xptopbuttons1_Click()
Unload Me
End Sub

Private Sub xptopbuttons2_Click()
Me.WindowState = 1
End Sub