【導讀】在這種環(huán)境下，采用日趨成熟的數據庫技術和管理信息系統理論建立管理信息。系統，對于企業(yè)就顯得日益迫切和必要。書進出問題進行有效的管理。其開發(fā)主要包括前端應用程序的開發(fā)以及后臺數據庫的建立。和維護兩個方面。對于前者要求應用程序具有功能完備,易使用等特點。求建立起的數據庫具有數據一致性好，數據完整性強，數據安全性高的特點。數據窗口這一能方便而簡潔操縱數據庫的智能化對象,首先在短時間內建立系統應用原型,然后,對初始原型系統進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統。佳性能，減輕管理員工作；豐富的編程接口工具，使開發(fā)數據庫應用程序更加靈活。處理、分析，從而對面臨的問題進行判斷決策。無論對經濟活動、社會活動、科學研究都?？赡埽⒌玫胶芸斓陌l(fā)展。今天數據庫技術已受。到普遍重視，在各行各業(yè)中得到廣泛的應用，起到了越來越大的作用。自VisualBasic誕生以來，它就具有了面向對象的特性。面向對象變成是建立在類

　　

【正文】 ectclose() If = adStateOpen Then End If End Function Sub main() Call ConnectToServer End Sub 圖書管理 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 31 頁 本功能界面為普通窗體，采用菜單方式打開。如圖： 圖 52 2． 功能 本模塊主要為管理員登記新書，來方便顧客查詢新出版的圖書和資料，各個項目必須完全填充。 Private Sub Cmdcheck_Click() Call (select * from BookMessage, con, adOpenDynamic, adLockOptimistic, 1) (bookname).Value = (auther).Value = Txtauther (publish).Value = Txtpublish (type).Value = Cmbtype (state).Value = 在庫 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 32 頁 (jointime).Value = Txtjointime (BookIndex).Value = = = = Txtpublish = = Now() = End Sub Private Sub Cmdclose_Click() Unload Me End Sub Private Sub Form_Load() 科技 課本 文學 教程 詩集 其他 = Now() End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 33 頁 圖書查詢 1． 界面樣式 本功能界面為普通窗體，如圖： 圖 53 2． 功能 本模塊可以通過“圖書編號”、“圖書名稱”、“圖書類型”四種方式 對圖書進行查詢，可以選填或不填其中的任意選項。當查詢出結果時， 來顯示圖書狀態(tài) “在庫”或“借出”?？梢詫Ω鼡Q的書籍進行刪除管理。 3． 源代碼 Dim strsql As String Private Sub Cmdcancel_Click() Unload Me End Sub Private Sub Cmdcheck_Click() = True 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 34 頁 If Trim() Empty Then 39。判斷是否為空 strsql = (BookIndex like 39。% amp。 Trim() amp。 %39。) End If If Trim() Empty Then If strsql Empty Then strsql = strsql amp。 and (bookname like 39。% amp。 Trim() amp。 %39。) Else strsql = (bookname like 39。% amp。 Trim() amp。 %39。) End If End If If Trim() Empty Then strsql = (type like 39。% amp。 Trim() amp。 %39。) End If If strsql Empty Then strsql = select * from bookmessage where amp。 strsql Else strsql = select * from bookmessage End If = strsql = Set = Adodc1 strsql = 39。清除當前查詢 End Sub Private Sub cmdDel_Click() If (MsgBox(確定要刪除嗎 ?, vbQuestion + vbYesNo, 提示 ) = vbYes) Then 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 35 頁 End If End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() 科技 文學 教程 詩集 其他 End Sub 讀者管理 借閱登記 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 36 頁 圖 54 本模塊功能基本等讀者登記模塊，可不完整填充項目。 Private Sub Cmdcheck_Click() Call (select * from ReaderMessage, con, adOpenDynamic, adLockOptimistic, 1) (readindex).Value = (readername).Value = (sex).Value = Cmbsex (age).Value = (duty).Value = = = = = End Sub Private Sub Cmdclose_Click() Unload Me End Sub Private Sub Form_Load() 男 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 37 頁 女 End Sub 返還登記 圖 55 本模塊主要功能為圖書返還功能，改變圖書在庫中的狀態(tài)。 Private Sub Cmdback_Click() Call (select * from BorrowMessage, con, adOpenDynamic, adLockOptimistic, 1) Do While = False If ( = Trim((BookIndex).Value)) Then (ReturnTime).Value = Now() 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 38 頁 Else End If Loop Call (select * from BookMessage, con, adOpenDynamic, adLockOptimistic, 1) Do While = False If ( = Trim((BookIndex).Value)) Then (state).Value = 在庫 Else End If Loop = 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 39 頁 End Sub Private Sub Cmdclose_Click() Unload Me End Sub 借閱信息查詢 界面樣式 功能 本窗體功能是為了實現圖書借閱的模塊。 源代碼 Private Sub Cmdclose_Click() Unload Me End Sub 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 40 頁 Private Sub CmdOk_Click() Call (select * from BorrowMessage, con, adOpenDynamic, adLockOptimistic, 1) (BookIndex).Value = (ReaderIndex).Value = (BorrowTime).Value = Now() Call (select * from BookMessage, con, adOpenDynamic, adLockOptimistic, 1) Do While = False If ( = Trim((BookIndex).Value)) Then (state).Value = 借出 Else End If Loop 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 41 頁 = End Sub 管理員登錄 1． 登錄 界面 樣式 圖 56 2． 功能 此模塊實現用戶登錄功能，密碼填寫正確與否，會彈出系統的對話框，提示 用戶名、密碼是否正確。 如果連續(xù) 3次帳號和密 碼不正確連接界面將自動退出。 3． 源代碼 Private Sub Cmdcancel_Click() Unload Me 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 42 頁 = False = False = False = False End Sub Private Sub CmdOk_Click() Static i As Integer If = yuechong Then = True = True = True = True = True = True 39。 = True Else: MsgBox 帳號、密碼錯誤，請重新輸入！ , vbCritical + vbOKOnly, 提示信息 = i = i + 1 If i = 3 Then End End If If = 123 Then 畢業(yè)論文 （ 設計 ） 用紙 佳木斯大學教務處 第 43 頁 = True = True = True = True = True = True 39。 = True Else: MsgBox 密碼錯誤，請重新輸入！ , vbCritical + vbOKOnly, 提示信息 i = i + 1 If i = 3 Then End = End If End S