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

　　

【正文】 ectclose() If = adStateOpen Then End If End Function Sub main() Call ConnectToServer End Sub 圖書管理 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 31 頁 本功能界面為普通窗體，采用菜單方式打開。如圖： 圖 52 2． 功能 本模塊主要為管理員登記新書，來方便顧客查詢新出版的圖書和資料，各個(gè)項(xiàng)目必須完全填充。 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è)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 32 頁 (jointime).Value = Txtjointime (BookIndex).Value = = = = Txtpublish = = Now() = End Sub Private Sub Cmdclose_Click() Unload Me End Sub Private Sub Form_Load() 科技 課本 文學(xué) 教程 詩集 其他 = Now() End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 33 頁 圖書查詢 1． 界面樣式 本功能界面為普通窗體，如圖： 圖 53 2． 功能 本模塊可以通過“圖書編號(hào)”、“圖書名稱”、“圖書類型”四種方式 對(duì)圖書進(jìn)行查詢，可以選填或不填其中的任意選項(xiàng)。當(dāng)查詢出結(jié)果時(shí)， 來顯示圖書狀態(tài) “在庫”或“借出”?？梢詫?duì)更換的書籍進(jìn)行刪除管理。 3． 源代碼 Dim strsql As String Private Sub Cmdcancel_Click() Unload Me End Sub Private Sub Cmdcheck_Click() = True 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 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。清除當(dāng)前查詢 End Sub Private Sub cmdDel_Click() If (MsgBox(確定要?jiǎng)h除嗎 ?, vbQuestion + vbYesNo, 提示 ) = vbYes) Then 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 35 頁 End If End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() 科技 文學(xué) 教程 詩集 其他 End Sub 讀者管理 借閱登記 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 36 頁 圖 54 本模塊功能基本等讀者登記模塊，可不完整填充項(xiàng)目。 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è)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 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è)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 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è)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 39 頁 End Sub Private Sub Cmdclose_Click() Unload Me End Sub 借閱信息查詢 界面樣式 功能 本窗體功能是為了實(shí)現(xiàn)圖書借閱的模塊。 源代碼 Private Sub Cmdclose_Click() Unload Me End Sub 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 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è)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 41 頁 = End Sub 管理員登錄 1． 登錄 界面 樣式 圖 56 2． 功能 此模塊實(shí)現(xiàn)用戶登錄功能，密碼填寫正確與否，會(huì)彈出系統(tǒng)的對(duì)話框，提示 用戶名、密碼是否正確。 如果連續(xù) 3次帳號(hào)和密 碼不正確連接界面將自動(dòng)退出。 3． 源代碼 Private Sub Cmdcancel_Click() Unload Me 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 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 帳號(hào)、密碼錯(cuò)誤，請(qǐng)重新輸入！ , vbCritical + vbOKOnly, 提示信息 = i = i + 1 If i = 3 Then End End If If = 123 Then 畢業(yè)論文 （ 設(shè)計(jì) ） 用紙 佳木斯大學(xué)教務(wù)處 第 43 頁 = True = True = True = True = True = True 39。 = True Else: MsgBox 密碼錯(cuò)誤，請(qǐng)重新輸入！ , vbCritical + vbOKOnly, 提示信息 i = i + 1 If i = 3 Then End = End If End S