books_mod.bas

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

Attribute VB_Name = "books_mod"

'书籍添加

Public Function book_save()


On Error GoTo err1



books_rs.AddNew

books_rs.Fields("b_name").Value = books_save.b_name.Text

books_rs.Fields("b_author").Value = books_save.b_author.Text

books_rs.Fields("b_type").Value = books_save.b_type.Text

books_rs.Fields("b_pub").Value = books_save.b_pub.Text

books_rs.Fields("b_isbn").Value = books_save.b_isbn.Text

books_rs.Fields("b_p_date").Value = books_save.b_p_date.Text

books_rs.Fields("b_reg_date").Value = books_save.b_reg_date.Text

books_rs.Fields("b_address").Value = books_save.b_address.Text

books_rs.Fields("b_price").Value = books_save.b_price.Text

books_rs.Fields("b_text").Value = books_save.b_text.Text

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

books_rs.Fields("b_oper").Value = ini_form.operator_a

books_rs.Update





MsgBox "书籍添加成功", vbOKOnly, "T6-G4"





'清空text内容





 books_save.b_name.Text = ""
 
   books_save.b_author.Text = ""
   books_save.b_type.Text = ""
   books_save.b_pub.Text = ""
   books_save.b_isbn.Text = ""
   books_save.b_p_date.Text = ""
   books_save.b_reg_date.Text = ""
   books_save.b_address.Text = ""
   books_save.b_price.Text = ""
   books_save.b_text.Text = ""

Exit Function


err1:



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



End Function







'删除窗体查寻书籍资料函数



Public Function fid_books(id As Integer)


Dim i As Integer

On Error GoTo err1

books_rs.MoveFirst

While Not books_rs.EOF

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

             GoTo to_ok

        End If

             On Error GoTo err1

               books_rs.MoveNext
Wend



GoTo to_worr


to_ok:
  
   books_del.b_name.Caption = books_rs.Fields("b_name").Value
  
   books_del.b_author.Caption = books_rs.Fields("b_author").Value
   
   books_del.b_type.Caption = books_rs.Fields("b_type").Value
   
   books_del.b_pub.Caption = books_rs.Fields("b_pub").Value
   
   books_del.b_isbn.Caption = books_rs.Fields("b_isbn").Value
   
   books_del.b_p_date.Caption = books_rs.Fields("b_p_date").Value
   
   books_del.b_reg_date.Caption = books_rs.Fields("b_reg_date").Value
   
   books_del.b_address.Caption = books_rs.Fields("b_address").Value
   
   books_del.b_price.Caption = books_rs.Fields("b_price").Value
   
   books_del.b_text.Caption = books_rs.Fields("b_text").Value
   
   Exit Function
   
   

err1:


 
 MsgBox "无该书籍资料", vbInformation, "T6-G4"
 
 
 
  
'清空text内容





   books_del.b_name.Caption = ""
   books_del.b_author.Caption = ""
   books_del.b_type.Caption = ""
   books_del.b_pub.Caption = ""
   books_del.b_isbn.Caption = ""
   books_del.b_p_date.Caption = ""
   books_del.b_reg_date.Caption = ""
   books_del.b_address.Caption = ""
   books_del.b_price.Caption = ""
   books_del.b_text.Caption = ""
 Exit Function


to_worr:

MsgBox "无该书籍资料", vbInformation, "T6-G4"




'清空text内容



   books_del.b_name.Caption = ""
   books_del.b_author.Caption = ""
   books_del.b_type.Caption = ""
   books_del.b_pub.Caption = ""
   books_del.b_isbn.Caption = ""
   books_del.b_p_date.Caption = ""
   books_del.b_reg_date.Caption = ""
   books_del.b_address.Caption = ""
   books_del.b_price.Caption = ""
   books_del.b_text.Caption = ""
   
End Function








'删除书籍资料函数

Public Function book_dele()


On Error GoTo err1:






'del_books_rs.AddNew

'del_books_rs.Fields("dk_bid").Value = books_rs.Fields("books_id").Value

'del_books_rs.Fields("dk_name").Value = books_rs.Fields("b_name").Value

'del_books_rs.Fields("dk_author").Value = books_rs.Fields("b_author").Value

'del_books_rs.Fields("dk_type").Value = books_rs.Fields("b_type").Value

'del_books_rs.Fields("dk_pub").Value = books_rs.Fields("b_pub").Value

'del_books_rs.Fields("dk_isbn").Value = books_rs.Fields("b_isbn").Value

'del_books_rs.Fields("dk_p_date").Value = books_rs.Fields("b_p_date").Value

'del_books_rs.Fields("dk_reg_date").Value = books_rs.Fields("b_reg_date").Value

'del_books_rs.Fields("dk_address").Value = books_rs.Fields("b_address").Value

'del_books_rs.Fields("dk_price").Value = books_rs.Fields("b_price").Value

'del_books_rs.Fields("dk_text").Value = books_rs.Fields("b_text").Value

'del_books_rs.Fields("dk_oper_add").Value = books_rs.Fields("b_oper").Value

'del_books_rs.Fields("dk_oper_d").Value = ini_form.operator_a

'del_books_rs.Update


books_rs.Delete



MsgBox "删除成功", vbInformation, "T6-G4"



books_del.b_name.Caption = ""
  
  books_del.b_author.Caption = ""
   
   books_del.b_type.Caption = ""
   
   books_del.b_pub.Caption = ""
   
   books_del.b_isbn.Caption = ""
   
   books_del.b_p_date.Caption = ""
   
   books_del.b_reg_date.Caption = ""
   
   books_del.b_address.Caption = ""
   
   books_del.b_price.Caption = ""
   
   books_del.b_text.Caption = ""

Exit Function





err1:


MsgBox "此书籍可能已借出", vbInformation, "T6-G4"



End Function






'修改窗体查寻书籍资料函数

Public Function fid_chag_books(id As Integer)



Dim i As Integer

books_rs.MoveFirst

While Not books_rs.EOF

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

         GoTo to_ok

      End If
         books_rs.MoveNext
Wend



GoTo to_worr





to_ok:
  
  books_chag.b_name.Text = books_rs.Fields("b_name").Value
 
   books_chag.b_author.Text = books_rs.Fields("b_author").Value
   
   books_chag.b_type.Text = books_rs.Fields("b_type").Value
   
   books_chag.b_pub.Text = books_rs.Fields("b_pub").Value
   
   books_chag.b_isbn.Text = books_rs.Fields("b_isbn").Value
   
   books_chag.b_p_date.Text = books_rs.Fields("b_p_date").Value
   
   books_chag.b_reg_date.Text = books_rs.Fields("b_reg_date").Value
   
   books_chag.b_address.Text = books_rs.Fields("b_address").Value
   
   books_chag.b_price.Text = books_rs.Fields("b_price").Value
   
   books_chag.b_text.Text = books_rs.Fields("b_text").Value

   
  Exit Function
  
  
  
to_worr:



MsgBox "无该书籍资料", vbInformation, "T6-G4"



   
'清空text内容


   books_chag.b_name.Text = ""
   books_chag.b_author.Text = ""
   books_chag.b_type.Text = ""
   books_chag.b_pub.Text = ""
   books_chag.b_isbn.Text = ""
   books_chag.b_p_date.Text = ""
   books_chag.b_reg_date.Text = ""
   books_chag.b_address.Text = ""
   books_chag.b_price.Text = ""
   books_chag.b_text.Text = ""
   
   
End Function




'书籍修改

Public Function book_change()







On Error GoTo err1



books_rs.Fields("b_name").Value = books_chag.b_name.Text

books_rs.Fields("b_author").Value = books_chag.b_author.Text

books_rs.Fields("b_type").Value = books_chag.b_type.Text

books_rs.Fields("b_pub").Value = books_chag.b_pub.Text

books_rs.Fields("b_isbn").Value = books_chag.b_isbn.Text

books_rs.Fields("b_p_date").Value = books_chag.b_p_date.Text

books_rs.Fields("b_reg_date").Value = books_chag.b_reg_date.Text

books_rs.Fields("b_address").Value = books_chag.b_address.Text

books_rs.Fields("b_price").Value = books_chag.b_price.Text

books_rs.Fields("b_text").Value = books_chag.b_text.Text

books_rs.Fields("b_oper").Value = ini_form.operator_a

books_rs.Update




MsgBox "修改成功", vbOKOnly, "T6-G4"


books_chag.b_name.Text = ""

books_chag.b_author.Text = ""

books_chag.b_type.Text = ""

books_chag.b_pub.Text = ""

books_chag.b_isbn.Text = ""

books_chag.b_p_date.Text = ""

books_chag.b_reg_date.Text = ""

books_chag.b_address.Text = ""

books_chag.b_price.Text = ""

books_chag.b_text.Text = ""



Exit Function




err1:


MsgBox "请正确填写书籍信息", vbInformation, "T6-G4"



End Function





'================================================================================
'=====================================================================
'其他功能




Public Function book_other()



'隐藏文本框函数



   books_chag.b_name.Text = ""
   books_chag.b_author.Text = ""
   books_chag.b_type.Text = ""
   books_chag.b_pub.Text = ""
   books_chag.b_isbn.Text = ""
   books_chag.b_p_date.Text = ""
   books_chag.b_reg_date.Text = ""
   books_chag.b_address.Text = ""
   books_chag.b_price.Text = ""
   books_chag.b_text.Text = ""
   
   
End Function