admin.bas

一个图书馆的VB做的mis系统

Attribute VB_Name = "admin"
'用户增加
Public Function adminadd()
  
  ado.admin_rs.AddNew

  admin_rs.Fields("a_name").Value = frmadd.txtname.Text
  admin_rs.Fields("a_pwd").Value = frmadd.txtpwd.Text
  admin_rs.Fields("a_type").Value = frmadd.Cmbtype.Text
  admin_rs.Update

MsgBox "新用户增加成功"

 frmadd.txtname = ""
 frmadd.Cmbtype = ""
 frmadd.txtpwd = ""
 frmadd.txtrepwd = ""
 frmadd.Cmbtype.SetFocus
 
End Function







'用户删除

Public Function admindel()


If frmdel.txtid.Text = "" Then

     MsgBox "请输入用户ID", vbInformation + vbOKOnly, "用户注意"

Else

 On Error GoTo err
 
   admin_rs.Find ("admin_id=" & frmdel.txtid.Text)
 
   If MsgBox("你确定要删除用户ID" & frmdel.txtid.Text & "吗", _
   vbYesNo) = vbYes Then

   admin_rs.Delete
   
 MsgBox "用户ID" & frmdel.txtid.Text & "删除成功"
  
   End If







'删除后移动游标

     If admin_rs.EOF = True Then
     
     admin_rs.MoveFirst
     
     Else
     admin_rs.MoveNext

     End If




'清空


frmdel.txtid = ""
frmdel.txtname = ""
frmdel.Cmbtype = ""
frmdel.txtpwd = ""
frmdel.txtrepwd = ""
frmdel.txtid.SetFocus




Exit Function


err:

MsgBox "用户ID不能找到,请重新输入!", vbInformation + vbOKOnly, "T6-G4"


End If


End Function