【正文】 + vbExclamation, = End If End If End IfEnd Sub//“取消”按紐單擊事件：退出“登陸”窗體Private Sub cmdCancle_Click() End Sub1）添加圖書信息流程圖如下：系統(tǒng)圖書管理圖書信息管理輸入圖書編號添加系統(tǒng)成功圖52 添加圖書信息流程圖2）代碼如下：Private Sub mand1_Click()Dim rs_addbook As New Dim conn As New Dim sql As StringIf Trim() = Then MsgBox 圖書編號不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 書名不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 請選擇圖書種類, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate() Then MsgBox 請按照yyyymmdd格式輸入日期, vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate() Then MsgBox 請按照yyyymmdd格式輸入日期, vbOKOnly + vbExclamation, Exit SubEnd If provider=。 data source= amp。 amp。 sql = select * from 書籍信息 where 圖書編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = 否 MsgBox 添加書籍信息成功!, vbOKOnly, Else MsgBox 圖書編號重復(fù)!, vbOKOnly + vbExclamation, Exit SubEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim rs_leibie As New Dim conn As New Dim sql As StringProvider = 。Persist Security Info=false。data source=D:\圖書管理系統(tǒng) provider=。 data source= amp。 amp。 sql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimisticDo While Not (0) LoopEnd Sub1）查詢流程圖如下：查詢已借出圖書查詢未借出的圖書輸入查詢條件查詢借書信息系統(tǒng)是否有此書系統(tǒng)圖53 查詢圖書信息流程圖2）代碼如下：Private Sub mand1_Click() Dim sql As String Dim rs_find As New Dim conn As New provider=。 data source= amp。 amp。 If = True Then sql = select * from 書籍信息 where 是否被借出=39。是39。 End If If = True Then sql = select * from 書籍信息 where 是否被借出=39。否39。 End If If = True And Then sql = select * from 借閱信息 where 讀者姓名=39。 amp。 amp。 39。 ElseIf = True And = Then MsgBox 請輸入讀者姓名！, vbOKOnly + vbExclamation Exit Sub End If = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_find End SubPrivate Sub Command2_Click() Unload MeEnd Sub(二)系統(tǒng)的發(fā)布在Visual Basic的集成開發(fā)環(huán)境中創(chuàng)建好企業(yè)訂單管理系統(tǒng)后，并不意味著全部工作已完成，此時(shí)生成的應(yīng)用程序只能在Visual Basic的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離Visual Basic的集成開發(fā)環(huán)境，首先要對企業(yè)訂單管理系統(tǒng)程序進(jìn)行編譯并且生成．exe或其他類型的文件，然后調(diào)用打包和展開向?qū)?chuàng)建安裝程序。編譯企業(yè)圖書信息管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工程文件合并成一個(gè)可執(zhí)行文件。在發(fā)布圖書信息管理應(yīng)用程序之前，首先應(yīng)該使用測試和調(diào)試工具對改應(yīng)用程序進(jìn)行前面測試，在排除了所有可能的錯(cuò)誤后，才可以開始對應(yīng)用程序進(jìn)行編澤。編譯應(yīng)用程序的主要目的如下；使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快。給發(fā)布應(yīng)用程序做準(zhǔn)備。使用應(yīng)用程序更安全。將應(yīng)用程序進(jìn)行編譯后，Visual 。Visual Basic提供APP對象來存儲應(yīng)用程序的有關(guān)信息屬性，例如版本以及其他相關(guān)信息。在設(shè)計(jì)中，可以通過這些屬性來告訴用戶一些重要的信息，在應(yīng)用程序運(yùn)行時(shí)用Visual Basic代碼讀出這些屬性值，也可以在Windows資源管理器中觀察應(yīng)用程序?qū)ο蟮陌姹拘畔傩灾怠?，然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。當(dāng)完成當(dāng)前工程的APP對象的屬性后，就可以編譯代碼了。VisualBasic6．O支持兩種編譯格式：P代碼和本地代碼。選擇P代碼格式編譯的應(yīng)用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應(yīng)用程序生成的可執(zhí)行文件要大的多，但是可執(zhí)行文件的運(yùn)行速度比較快。因此，圖書信息管理系統(tǒng)采用的是本地代碼的編譯格式。創(chuàng)建Visual Basic應(yīng)用程序后，可以將創(chuàng)建的圖書信息管理應(yīng)用程序通過磁盤，關(guān)盤，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來說，發(fā)布應(yīng)用程序必須經(jīng)過下面的兩個(gè)步驟：打包必須將應(yīng)用程序文件打包為一個(gè)或多個(gè)可以部署到選定位置的．cab文件(.cab文件是一種壓縮文件)，對于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。部署必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢茫员阌脩魜戆惭b應(yīng)用程序。可以使用兩種工具來打包和發(fā)布應(yīng)用程序。打包和展開向?qū)?Package and Deployment)Visual Basic安裝軟件提供的安裝工具包。打包和展開向?qū)ㄟ^提供有關(guān)如何配置．cab文件的選項(xiàng)，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動運(yùn)行，這是用戶一般所采用的方法。使用打包和展開向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。第三步，如果沒有編譯工程，打包和展開向?qū)缶幾g工程。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌?，我們這里使用向?qū)е谱靼惭b程序。當(dāng)向?qū)瓿芍谱靼惭b包以后，它會自動生成一個(gè)帶有很多重要信息的報(bào)告。將圖書信息管理系統(tǒng)打包后，制作安裝程序的過程并沒有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤，光盤等，發(fā)布圖書信息訂單管理信息系統(tǒng)的主要步驟如下：選擇“圖書信息管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到一個(gè)文件夾中，選擇發(fā)布的媒體，就可以完成“圖書信息管理系統(tǒng)”的發(fā)布工作了。結(jié)束語在對管理信息系統(tǒng)的開發(fā)過程有了基本了解后，本人使用Visual Basic開發(fā)了這個(gè)“圖書信息管理系統(tǒng)”。系統(tǒng)基本實(shí)現(xiàn)了內(nèi)部圖書借閱管理的系統(tǒng)化、規(guī)范化和自動化。例如對圖書進(jìn)行登記，添加借閱人等。圖書的借閱、歸還。實(shí)現(xiàn)了簡單的統(tǒng)計(jì)分析功能，可以展示出庫存圖書與借出圖書的比例、館藏圖書種類的情況。并能對借閱規(guī)則進(jìn)行設(shè)置。還能夠?qū)κ褂迷摴芾硐到y(tǒng)的用戶進(jìn)行管理，按照不同的工作職能提供不同的功能授權(quán)。通過對該系統(tǒng)的設(shè)計(jì)、開發(fā)和調(diào)試，一方面讓我了解Visual Basic開發(fā)過程與方法另一方面，讓我初步掌握了Visual Basic開發(fā)工具的使用方法，熟悉了窗口、菜單以及一些可視化控件的使用方法。通過使用還了解到窗口對象、數(shù)據(jù)窗口對象、各類控件的屬性與方法。同時(shí)，在制作過程中遇到了不少問題和困難，通過查閱書籍及互連網(wǎng)得到了不小的幫助。致 謝三年的大學(xué)生活即將結(jié)束，而我也即將踏上職業(yè)生涯的起點(diǎn)?；厥變赡甑臅r(shí)光，對于技術(shù)的不斷深入和應(yīng)用，個(gè)人思想的日趨成熟和磨礪，個(gè)人發(fā)展的計(jì)劃和設(shè)想，都讓我收獲多多。在此，我首先要感謝此次擔(dān)任我畢業(yè)設(shè)計(jì)導(dǎo)師，她對技術(shù)的孜孜不倦，對學(xué)生的悉心指導(dǎo)和關(guān)愛，這些都深深的影響和激勵(lì)著我，感謝老師在指導(dǎo)我們生活的各個(gè)方面的付出和努力。感謝生活給予我的一切，不論快樂，幸福，還是悲傷失望，所有這些都將成為我人生路上最珍貴的記憶，讓我積極生活，樂觀堅(jiān)強(qiáng)。參 考 文 獻(xiàn)[1] Basic程序設(shè)計(jì) .北京：人民郵電出版社，2010[2]－原理、：高等教育出版社，2007[3]明日科技. Visual ：清華大學(xué)出版社，2011[4] Basic項(xiàng)目開發(fā)案例精粹 .北京：清華大學(xué)出版社，2010[5] 陶國榮. . 北京：人民郵電出社,2010[6] ：大連理工大學(xué)出版社，2008[7] ：清華大學(xué)出版社. 2011[8] ：浙江大學(xué)出版社. 2011[9] 李德有, ：中國水利水電出版社，2010