users_mod.bas

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

Attribute VB_Name = "users_mod"

Public Function zhu_ce()
'会员注册函数
'会员资料修改



users_rs.AddNew

users_rs.Fields(1).Value = users_save.u_name.Text

users_rs.Fields(2).Value = users_save.sex.Text

users_rs.Fields(3).Value = users_save.dep.Text

users_rs.Fields(4).Value = users_save.phone.Text

users_rs.Fields(5).Value = users_save.address.Text

users_rs.Fields(6).Value = users_save.Day.Text

users_rs.Fields(7).Value = users_save.tex.Text

users_rs.Fields(8).Value = ini_form.operator_a

users_rs.Update






'清空text内容
   users_save.u_name.Text = ""
   users_save.sex.Text = ""
   users_save.dep.Text = ""
   users_save.phone.Text = ""
   users_save.address.Text = ""
   users_save.Day.Text = ""
   users_save.tex.Text = ""

MsgBox "是否注册", vbYesNo, "T6-G4"

End Function










Public Function dele()
'删除会员资料函数
On Error GoTo err1:

'del_users_rs.Fields("du_uid").Value = users_rs.Fields(0).Value

'del_users_rs.Fields("du_name").Value = users_rs.Fields(1).Value

'del_users_rs.Fields("du_sex").Value = users_rs.Fields(2).Value

'del_users_rs.Fields("du_dep").Value = users_rs.Fields(3).Value

'del_users_rs.Fields("du_phone").Value = users_rs.Fields(4).Value

'del_users_rs.Fields("du_address").Value = users_rs.Fields(5).Value

'del_users_rs.Fields("du_reg_date").Value = users_rs.Fields(6).Value

'del_users_rs.Fields("du_text").Value = users_rs.Fields(7).Value

'del_users_rs.Fields("du_oper_add").Value = users_rs.Fields(8).Value

'del_users_rs.Fields("du_oper_d").Value = ini_form.operator_a

users_rs.Delete



    MsgBox "是否删除", vbYesNo, "T6-G4"
    
    
Exit Function
    
    
    
    
err1:

MsgBox "请检查用户借阅或id有误", vbInformation, "T6-G4"


End Function





Public Function fid(id As Integer)




'删除窗体查寻会员资料函数


Dim i As Integer

users_rs.MoveFirst

While Not users_rs.EOF

      If users_rs.Fields(0).Value = id Then
        
        GoTo to_ok
      
      End If

users_rs.MoveNext

Wend






GoTo to_worr

to_ok:
   users_del.u_name.Caption = users_rs.Fields(1).Value
 
   users_del.sex.Caption = users_rs.Fields(2).Value
   
   users_del.dep.Caption = users_rs.Fields(3).Value
   
   users_del.phone.Caption = users_rs.Fields(4).Value
   
   users_del.address.Caption = users_rs.Fields(5).Value
   
   users_del.Day.Caption = users_rs.Fields(6).Value

   users_del.tex.Caption = users_rs.Fields(7).Value

   
  Exit Function
  
to_worr:


  
  MsgBox "无该用户信息", vbInformation, "T6-G4"
  
  '清空text内容
  users_del.u_name.Caption = ""
   
   users_del.sex.Caption = ""
   
   users_del.dep.Caption = ""
   
   users_del.phone.Caption = ""
   
   users_del.address.Caption = ""
   
   users_del.Day.Caption = ""
   
   users_del.tex.Caption = ""
  
  
  End Function
  
  
  
  

Public Function change()


'修改用户信息函数
On Error GoTo err1:


   users_rs.Fields(1).Value = users_chag.u_name.Text
 
   users_rs.Fields(2).Value = users_chag.sex.Text
   
   users_rs.Fields(3).Value = users_chag.dep.Text
   
   users_rs.Fields(4).Value = users_chag.phone.Text
   
   users_rs.Fields(5).Value = users_chag.address.Text
   
   users_rs.Fields(6).Value = users_chag.Day.Text

   users_rs.Fields(7).Value = users_chag.tex.Text
   
   users_rs.Fields(8).Value = ini_form.operator_a
   
   users_rs.Update
   
MsgBox "是否修改资料", vbYesNo, "T6-G4"


Exit Function




err1:

MsgBox "请填入正确信息", vbInformation, "T6-G4"

End Function





Public Function fid_chag(id As Integer)

'修改窗体查寻会员资料函数

Dim i As Integer

users_rs.MoveFirst


While Not ado.users_rs.EOF

    If users_rs.Fields(0).Value = id Then

        GoTo to_ok

    End If
    
    users_rs.MoveNext

Wend

GoTo to_worr



to_ok:
  users_chag.u_name.Text = users_rs.Fields(1).Value
 
   users_chag.sex.Text = users_rs.Fields(2).Value
   
   users_chag.dep.Text = users_rs.Fields(3).Value
   
   users_chag.phone.Text = users_rs.Fields(4).Value
   
   users_chag.address.Text = users_rs.Fields(5).Value
   
   users_chag.Day.Text = users_rs.Fields(6).Value

   users_chag.tex.Text = users_rs.Fields(7).Value

  Exit Function




to_worr:


  MsgBox "无该用户信息", vbInformation, "T6-G4"
  
  
  '清空text内容
  
   users_chag.u_name.Text = ""
  
   users_chag.sex.Text = ""
   
   users_chag.dep.Text = ""
   
   users_chag.phone.Text = ""
   
   users_chag.address.Text = ""
   
   users_chag.Day.Text = ""
   
   users_chag.tex.Text = ""
   
  End Function