【文章內(nèi)容簡介】 50 ........................................................................................................................................50 參考資料51一、序言圖書管理系統(tǒng)的設計與推出是多方面原因促成的，比如學校的圖書管理，日常管理工作 1 都是人工操作，歷史數(shù)據(jù)很難保存和利用。而其他的小型圖書館大多如此。針對這種狀況，我計劃開發(fā)一個面向小型圖書館的圖書管理系統(tǒng)，實現(xiàn)對人員、物流的全面管理，以幫助這些圖書館早日實現(xiàn)書店管理信息化。為了系統(tǒng)的順利開發(fā)和維護，特編制如下技術文檔：想要全部 請加：76536415 專業(yè)設計 畢業(yè)論文第二篇：vb圖書管理系統(tǒng)源代碼Borbook：Public sqltxt As String Public rno As String39。保存讀者借書證號 Public bno As String39。保存讀者圖書編號 Public xm As String39。保存讀者姓名 Public dw As String39。保存讀者單位 Public rs As Private Sub Comm1_Click()rno = Trim(Text1(0).Text)If rno = “ ThenMsgBox ”借書證號不能為空,請輸入“, vbOKOnly, ”信息提示“ = FalseElsesqltxt = ”select * from reader where 借書證號=39?！?+ rno + ”39。“Set rs = exesql(sqltxt)If = 0 ThenMsgBox ”該讀者未登記,不能借書“, vbOKOnly, ”信息提示“ = FalseElseText2(0).Text = (”姓名“)Text2(1).Text = str((”借書總數(shù)“))Text2(2).Text = str((”借書總數(shù)“)(”已借書數(shù)“))End IfEnd IfEnd If End SubPrivate Sub retCom_Click()Unload Me End SubPrivate Sub Form_Load() = False End SubEdbook：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()39。說明:為什么使用recs,?在調(diào)用edbook1窗體添加一個記錄(確定)后,再39。返回到本表單,若不在Form_Activate(),39。仍未增1,這樣調(diào)用enm過程時出錯。若在Form_Activate()，39。,調(diào)用enm過程時也正確,但返回本窗體時,當前行總是第一行,顯然也不行，39。 = End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub Comm1_Click()flag = 1 vbModal End SubPrivate Sub Comm2_Click()flag = 2 vbModal End SubPrivate Sub Comm3_Click()If MsgBox(”真的要刪除[“ + Trim((”書名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Thenrecs = recs1Call enmEnd If End SubPrivate Sub Comm4_Click()Unload Me End SubPrivate Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubEdlev1：Dim cond As StringPrivate Sub Form_Load()If flag = 2 ThenText1(0).Text = (”級別“)Text1(1).Text = (”過期罰款“)Text1(2).Text = (”借書總數(shù)“)Text1(3).Text = (”借書天數(shù)“)End If End SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Text1(2).Text)= ”“ Or _Trim(Text1(3).Text)= ”“ ThenMsgBox ”數(shù)據(jù)項不全,請重新設置“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfIf flag = 1 Then 39。添加操作If 0 Then 39。原記錄個數(shù)大于0cond = ”級別=39?！?+ Trim(Text1(0).Text)+ ”39?！?9。每次從頭開始查找(cond)If Not ()ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfEnd If(”級別“)= Trim(Text1(0).Text)(”過期罰款“)= Val(Trim(Text1(1).Text))(”借書總數(shù)“)= Val(Trim(Text1(2).Text))(”借書天數(shù)“)= Val(Trim(Text1(3).Text))recs = recs + 1Else39。修改操作n = cond = ”級別=39?！?+ Trim(Text1(0).Text)+ ”39。“ 39。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39。這兩個語句恢復原記錄位置(n1)(”級別“)= Trim(Text1(0).Text)(”過期罰款“)= Val(Trim(Text1(1).Text))(”借書總數(shù)“)= Val(Trim(Text1(2).Text))(”借書天數(shù)“)= Val(Trim(Text1(3).Text))End IfUnload Me End SubPrivate Sub Comm2_Click()Unload Me End SubEdreader：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()recs = End SubPrivate Sub Form_Activate()Call enm End SubPrivate Sub Comm1_Click()flag = 1 vbModal End SubPrivate Sub Comm2_Click()flag = 2 vbModal End SubPrivate Sub Comm3_Click()If MsgBox(”真的要刪除[“ + Trim((”姓名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Thenrecs = recs1Call enmEnd If End Sub Private Sub Comm4_Click()Unload Me End Sub Private Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubEdrec1：Dim cond As StringPrivate Sub Form_Load() = capIf flag = 1 Then = ”“Else = (”fn“)End If End SubPrivate Sub Comm1_Click()If Trim()= ”“ ThenMsgBox ”數(shù)據(jù)項不能為空,請重新設置“, vbOKOnly, ”信息提示“Exit SubEnd IfIf flag = 1 Then 39。添加操作If 0 Then 39。原記錄個數(shù)大于0cond = ”fn=39?！?+ Trim()+ ”39?！?9。每次從頭開始查找(cond)If Not ()ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“Exit SubEnd IfEnd If(”fn“)= Trim()recs = recs + 1Else39。修改操作n = cond = ”fn=39?！?+ Trim()+ ”39?！?39。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39。這兩個語句恢復原記錄位置(n1)(”fn“)= Trim()End IfUnload Me End SubPrivate Sub Comm2_Click()Unload Me End SubMenu：Private Sub MDIForm_Load()If Not userlevel = ”系統(tǒng)管理員“ Then = False = False = False = FalseEnd If End SubPrivate Sub menu11_Click() vbModal End SubPrivate Sub menu12_Click() vbModal End SubPrivate Sub menu13_Click()End End SubPrivate Sub menu21_Click() vbModal End SubPrivate Sub menu22_Click() vbModal End SubPrivate Sub menu31_Click() vbModal End SubPrivate Sub menu32_Click() vbModal End SubPrivate Sub menu41_Click() vbModal End SubPrivate Sub menu42_Click()If MsgBox(”本功能要清除系統(tǒng)中所有數(shù)據(jù),真的初始化嗎?“, vbYesNo, ”確認初始化操作“)= vbYes ThenCall deldata(”book“)Call deldata(”reader“)Call deldata(”borrow“)Call deldata(”rlevel“)Call deldata(”depart“)Call deldata(”press“)Call deldata(”oper“)MsgBox ”系統(tǒng)初始化完畢,下次只能以1234/1234(用戶名/口令)進入本系統(tǒng)“, vbOKOnly, ”信息提示“End If End SubPass：Public n As IntegerPrivate Sub Command1_Click()Dim mrc As txtsql = ”select * from oper where 用戶名=39?！?amp。 _Trim$(Text1(0).Text)amp。 ”39?！?amp。 ” And 口令 = 39?！?amp。 Trim$(Text1(1).Text)+ ”39。“Set mrc = exesql(txtsql)If = 0 Then 39。未找到用戶記錄n = n + 1If n 3 ThenMsgBox ”沒有這個用戶,繼續(xù)登錄“, vbOKOnly + vbExclamation, ”信息提示“Text1(0).Text = ”“Text1(1).Text = ”“Text1(0).SetFocusElseMsgBox ”已登錄失敗三次,退出系統(tǒng)“, vbOKOnly + vbExclamation, ”信息提示“Unload MeEnd IfElse39。找到合法用戶記錄userlevel = Trim((”級別“))Unload Me 39。調(diào)用menu窗體End If End SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load()n = 039。n保存登錄的次數(shù) End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubQubook：Private Sub Comm1_Click()Dim sqltxt As StringIf (”借否“)= ”借“ Thenno = Trim((”圖書編號“))sqltxt = ”select * from borrow where 圖書編號=39?！?+ no + ”39。“Set rs = exesql(sqltxt)If = 0 ThenMsgBox ”該圖書沒有借書記錄“, vbOKOnly, ”信息提示“ElseMsgBox ”圖書編號:“ + no + Chr(10)+ Chr(13)+ _”書名:“ + Trim((”書名“))+ Chr(10)+ Chr(13)+ _”借 書 人:“ + Trim((”姓名“))+ Chr(10)+ Chr(13)+ _”單位:“ + Trim((”單位“))+ Chr(10)+ Chr(13)+ _”借書日期:“ + Format((”借書日期“), ”“), vbOKOnly, ”查找結(jié)果“End IfElseMsgBox ”該書沒有外借,不能顯示借書人“, vbOKOnly, ”信息提示“End If End Su