function.bas

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

Attribute VB_Name = "function"


'borrow_form窗体事件函数===========================================================================
'信息验证
'1.用户验证



Public Sub va_u_id_borrow()




ado.users_rs.MoveFirst

 
    While Not ado.users_rs.EOF
    
 
       If borrow_form.Uid.Text = ado.users_rs.Fields("users_id") Then

           GoTo ed

       End If
 
            users_rs.MoveNext
 
    Wend
    
    
    
 
        MsgBox "用户不存在", vbInformation, "T6-G4"
        
        
 
        Call borrow_clear
        
        
ed:

   
End Sub










'1.书籍验证-------------------------------------------------------------



Public Sub va_b_id_borrow()




     ado.books_rs.MoveFirst


        While Not ado.books_rs.EOF
 
 
        '将书籍指针移动到ID对应位置
           
                If borrow_form.Bid.Text = ado.books_rs.Fields("books_id") Then
                
          
        '检验书籍是否已经借出
        
        
      
                     If ado.books_rs.Fields("b_have").Value = "是" Then
      
         
                         GoTo ed
      
         Else
         
         
      
          MsgBox "书籍已经借出", vbInformation, "T6-G4"
          
          
          
             Call borrow_clear
          
             ado.books_rs.MoveLast
             ado.books_rs.MoveNext
          
             GoTo ed:
        
      
      
      End If
      
    End If
    
 
books_rs.MoveNext
 
Wend

 
 
MsgBox "书籍不存在", vbInformation, "T6-G4"



Call borrow_clear





ed:

End Sub









'3.获取信息-------------------------------------------------------------



Public Sub get_br_value_borrow()



   borrow_form.Uname.Text = ado.users_rs.Fields("u_name").Value

   borrow_form.Bname.Text = ado.books_rs.Fields("b_name").Value

   borrow_form.Bisbn.Text = ado.books_rs.Fields("b_isbn").Value

   borrow_form.U_b_date.Text = Date

   borrow_form.brdate.Text = Date + 30

   borrow_form.oper.Text = ini_form.operator_a

   borrow_form.borrow.Enabled = True





End Sub










'借书提交-------------------------------------------------------------




Public Sub borrow_update()




   ado.borrow_rs.AddNew

   ado.borrow_rs.Fields("users_id").Value = borrow_form.Uid.Text

   ado.borrow_rs.Fields("books_id").Value = borrow_form.Bid.Text

   ado.borrow_rs.Fields("br_u_name").Value = borrow_form.Uname.Text

   ado.borrow_rs.Fields("br_b_name").Value = borrow_form.Bname.Text

   ado.borrow_rs.Fields("br_isbn").Value = borrow_form.Bisbn.Text

   ado.borrow_rs.Fields("br_b_date").Value = borrow_form.U_b_date.Text

   ado.borrow_rs.Fields("br_r_date").Value = borrow_form.U_b_date.Text

   ado.borrow_rs.Fields("br_price").Value = ado.books_rs.Fields("b_price").Value

   ado.borrow_rs.Fields("br_r_date").Value = ado.borrow_rs.Fields("br_r_date").Value + 30

   ado.borrow_rs.Fields("br_oper").Value = borrow_form.oper.Text

   ado.borrow_rs.Update

   ado.books_rs.Fields("b_have").Value = "否"

   ado.books_rs.Update






MsgBox "已记录", vbInformation, "T6-G4"



Call borrow_clear


borrow_form.borrow.Enabled = False





End Sub









'清除数据-------------------------------------------------------------

Public Sub borrow_clear()





   borrow_form.Uid.Text = ""

   borrow_form.Bid.Text = ""

   borrow_form.Uname.Text = ""

   borrow_form.Bname.Text = ""

   borrow_form.Bisbn.Text = ""

   borrow_form.U_b_date.Text = ""

   borrow_form.brdate.Text = ""

   borrow_form.oper.Text = ""

   borrow_form.borrow.Enabled = False


End Sub





'return_form窗体事件函数===========================================================================
'信息验证


'1.书籍验证


Public Sub va_b_id_return()




On Error GoTo ed2:



ado.borrow_rs.MoveFirst

While Not ado.borrow_rs.EOF
 

    If return_form.Bid.Text = ado.borrow_rs.Fields("books_id") Then

      GoTo ed
      
    End If


ado.borrow_rs.MoveNext
 
 
Wend
 
 
 
 
MsgBox "书籍未借出", vbInformation, "T6-G4"




Call return_clear


ed:


Exit Sub






ed2:


MsgBox "非法操作...!", vbInformation, "T6-G4"

Call return_clear




End Sub










'3.获取信息-------------------------------------------------------------


Public Sub get_br_value_return()


  return_form.Uid.Text = ado.borrow_rs.Fields("users_id").Value

  return_form.Uname.Text = ado.borrow_rs.Fields("br_u_name").Value

  return_form.Bname.Text = ado.borrow_rs.Fields("br_b_name").Value

  return_form.Bisbn.Text = ado.borrow_rs.Fields("br_isbn").Value

  return_form.u_t_date.Text = ado.borrow_rs.Fields("br_r_date").Value

  return_form.price.Text = ado.borrow_rs.Fields("br_price").Value

  return_form.U_b_date.Text = Date

  return_form.oper.Text = ini_form.operator_a

  return_form.return.Enabled = True
  
  

End Sub







'还书提交-------------------------------------------------------------



Public Sub return_update()




On Error GoTo ed2:




While Not ado.books_rs.EOF
 

    If ado.books_rs.Fields("books_id") = return_form.Bid.Text Then

      
      ado.books_rs.Fields("b_have").Value = "是"

      ado.books_rs.Update
      
    End If

ado.books_rs.MoveNext
 
Wend





ado.books_rs.MoveFirst





ado.return_rs.AddNew

ado.return_rs.Fields("users_id").Value = return_form.Uid.Text

ado.return_rs.Fields("books_id").Value = return_form.Bid.Text

ado.return_rs.Fields("re_u_name").Value = return_form.Uname.Text

ado.return_rs.Fields("re_b_name").Value = return_form.Bname.Text

ado.return_rs.Fields("re_isbn").Value = return_form.Bisbn.Text

ado.return_rs.Fields("re_r_date").Value = return_form.U_b_date.Text

ado.return_rs.Fields("re_br_date").Value = ado.borrow_rs.Fields("br_b_date").Value

ado.return_rs.Fields("re_oper").Value = return_form.oper.Text





If return_form.Option1(1) = ture Then


    ado.return_rs.Fields("re_pay_for").Value = "是"
    

End If




ado.return_rs.Update






ado.borrow_rs.Delete

ado.borrow_rs.Update






Call return_clear

return_form.return.Enabled = False



MsgBox "归还成功", vbInformation, "T6-G4"

Exit Sub






ed2:

MsgBox "非法操作...!", vbInformation, "T6-G4"

Call return_clear




End Sub










'清除数据-------------------------------------------------------------

Public Sub return_clear()


   return_form.Uid.Text = ""

   return_form.Bid.Text = ""

   return_form.Uname.Text = ""

   return_form.Bname.Text = ""

   return_form.Bisbn.Text = ""

   return_form.U_b_date.Text = ""

   return_form.u_t_date.Text = ""

   return_form.oper.Text = ""

   return_form.price.Text = ""

   return_form.Option1(1) = True

   return_form.Option1(0) = False

   return_form.return.Enabled = False

End Sub












'================================================================================================================
'================================================================================================================