1、.TOC o 1-3 h u HYPERLINK l _Toc19587 教科書管理系統(tǒng) PAGEREF _Toc19587 2 HYPERLINK l _Toc23122 第一章 系統(tǒng)開發(fā)概述 PAGEREF _Toc23122 3 HYPERLINK l _Toc25746 1.1 構建系統(tǒng)的必要性 PAGEREF _Toc25746 3 HYPERLINK l _Toc1209 1.2 可行性 PAGEREF _Toc1209 研究3 HYPERLINK l _Toc6593 第 2 章 系統(tǒng)分析 PAGEREF _Toc6593 4 HYPERLINK l _Toc9126 2.1 業(yè)

2、務流程分析 PAGEREF _Toc9126 4 HYPERLINK l _Toc28334 圖 2.1.1 業(yè)務流程圖 PAGEREF _Toc28334 6 HYPERLINK l _Toc18525 2.2 數(shù)據(jù)流分析 PAGEREF _Toc18525 7 HYPERLINK l _Toc31869 2.3 數(shù)據(jù)字典 PAGEREF _Toc31869 7 HYPERLINK l _Toc16217 第 3 章 系統(tǒng)設計 PAGEREF _Toc16217 13 HYPERLINK l _Toc27967 3.1 系統(tǒng)功能設計 PAGEREF _Toc27967 13 HYPERLIN

3、K l _Toc32657 圖 3.1.1 教材管理系統(tǒng)功能模塊設計 圖 PAGEREF _Toc32657 14 HYPERLINK l _Toc13883 3.2 數(shù)據(jù)結構和數(shù)據(jù)庫設計 PAGEREF _Toc13883 14 HYPERLINK l _Toc17479 3.3 代碼設計 PAGEREF _Toc17479 17 HYPERLINK l _Toc21301 3.4 界面設計 PAGEREF _Toc21301 18 HYPERLINK l _Toc19878 第 4 章 系統(tǒng)實現(xiàn) PAGEREF _Toc19878 35 HYPERLINK l _Toc12628 4.1

4、登錄界面的測試 PAGEREF _Toc12628 36 HYPERLINK l _Toc29496 4.2系統(tǒng)維護 PAGEREF _Toc29496 36 HYPERLINK l _Toc29939 第 5 章 結論 PAGEREF _Toc29939 36 HYPERLINK l _Toc12031 參考文獻 PAGEREF _Toc12031 36.主題：教科書管理系統(tǒng)本系統(tǒng)主要實現(xiàn)教材信息的管理。分為管理員登錄和教師登錄兩個模塊。管理員操作部分主要是教材管理、用戶管理、訂單管理；教師登錄后的主要操作是教材查詢模塊。.第一章系統(tǒng)開發(fā)概述1.1 建立制度的必要性教材管理是每所學校的一項復

5、雜繁瑣的工作，是高校教務管理的重要組成部分。由于高校專業(yè)眾多，各專業(yè)開設的課程種類繁多，其業(yè)務不僅涉及出版系，還要面對全校各院系的教師，以及各班的學生。圖書部門和管理所涉及的圖書進出圖書種類繁多，涉及人員廣泛，工作量大。而且，近年來，隨著我國高等教育規(guī)模的不斷擴大和在校學生人數(shù)的迅速增加，教材的管理工作更加繁重。因此，需要一個自動化的工具進行整體管理，以便及時準確地反映教科書的訂閱狀態(tài)。1.2 可行性研究1.2.1 技術可行性分析Visual Basic 6.0是一種可視化、面向對象和事件驅動的結構化高級編程，可用于在 Windows 下開發(fā)應用程序。易學、高效、功能強大，堪比Windows專

6、業(yè)開發(fā)工具SDK 。在Visual Basic 6.0環(huán)境下，采用事件驅動的編程機制，新穎易用的可視化設計工具，利用Windows部門的應用程序編程接口（API）函數(shù)與動態(tài)庫（DLL）進行通信、動態(tài)數(shù)據(jù)交換（DDE）、對象嵌入（OLE）、開放數(shù)據(jù)訪問（ODBC）等技術可以在Windows環(huán)境下高效、快速地開發(fā)出功能強大、圖形界面豐富的應用軟件系統(tǒng)。 ACCESS 數(shù)據(jù)庫是最易訪問的新一代個人、部門和業(yè)務管理數(shù)據(jù)數(shù)據(jù)庫。它兼容傳統(tǒng)數(shù)據(jù)庫，同時進一步增強了對Web的支持，具有Web特有的信息共享功能。跨平臺工作和共享數(shù)據(jù)非常方便。它不僅具有數(shù)據(jù)庫管理系統(tǒng)應有的功能，而且是一種面向對象、具有時間驅動

7、機制的新型關系數(shù)據(jù)庫管理系統(tǒng)。它有豐富的信息管理和分析工具，可以通過ODBC連接到其他數(shù)據(jù)庫。數(shù)據(jù)交換和共享數(shù)據(jù)庫的實現(xiàn)是信息管理的基礎。ACCESS 可以以兩種方式使用：作為獨立應用程序來創(chuàng)建個人或部門數(shù)據(jù)庫，或者作為接口客戶端連接到更強大和可擴展的后端數(shù)據(jù)庫。無論選擇何種后端數(shù)據(jù)源，最終用戶都將受益于流行的桌面數(shù)據(jù)庫客戶端的易用性。1.2.2 經濟可行性在教材管理系統(tǒng)中，可以實現(xiàn)教材信息的管理，提高工作效率，減少人為錯誤，提供良好的管理平臺。極低成本的數(shù)據(jù)處理、信息查詢、信息錄入等，可實現(xiàn)教材需求信息、訂單管理、教材進出管理、庫存管理等功能。從目前校園網(wǎng)和教材管理系統(tǒng)的推廣和運行來看，該系

8、統(tǒng)不需要增加過多的硬件投資和應用培訓，經濟成本非常低。1.2.3 管理可行性分析經領導批準，方可開發(fā)實施。第二章系統(tǒng)分析2.1 業(yè)務流程分析通過業(yè)務流程分析，進一步分析教材管理系統(tǒng)。教研室老師提出了要在寫作中使用的教材名稱。提交后，由部門領導審核。審核通過后，由教學秘書清點所需數(shù)量并提交給教材部。教科書科會處理教科書訂單，確定本學期教科書的數(shù)量（庫存訂單除外），同時完善教科書的基本信息，以保證新課本的要求。教研室存在基本教科書信息。教材科將根據(jù)庫存情況發(fā)放教材。如有庫存，教材管理員將打印出教材領取通知書到教研室，通知教材領取。如果庫存缺貨，打印下單給買家，買家根據(jù)下單制定補貨清單發(fā)給相應的供應

9、商。供應商將交貨通知致給買方。購買者購買并存放課本，打印收據(jù)，交給課本部（見圖2.1.1）教研室教研室領教材通知單教材需求單領教材通知單教材需求單學生領導學生領導領教材通知單批準教材需求單領教材通知單批準教材需求單領書通知單領書通知單教學秘書教學秘書教材需求單教材需求單教材科教材科入庫單入庫單訂書單訂書單采購員采購員提貨通知單補貨單提貨通知單補貨單供書商供書商圖 2.1.1 業(yè)務流程圖P1教材科2.2 數(shù)據(jù)流分析P1教材科出庫訂單教材出入庫管理入站訂單教材出入庫管理圖2.2.1 教材管理子系統(tǒng)頂層流程圖入庫單教材需求單3教材需求單2已批準教材需求單出庫單入庫單訂書單教材需求單1P1.4教材出庫

10、處理庫存臺帳F1P1.2判定教材處理方式教材科教研室 庫存臺賬F1教材采購處理P1.3制定學生教材使用計劃P1.1入庫單教材需求單3教材需求單2已批準教材需求單出庫單入庫單訂書單教材需求單1P1.4教材出庫處理庫存臺帳F1P1.2判定教材處理方式教材科教研室 庫存臺賬F1教材采購處理P1.3制定學生教材使用計劃P1.1圖2.2.2 教科書管理子系統(tǒng)第二層數(shù)據(jù)流程圖2.3 數(shù)據(jù)字典數(shù)據(jù)項描述資料編號：I-BOOK1數(shù)據(jù)項名稱：課本號簡要說明：存儲每本教科書的信息簡要說明：學校教科書編碼類型和長度：數(shù)字，4位取值范圍：00019999資料編號：I-BOOK2數(shù)據(jù)項名稱：教材名稱簡要說明：存儲有關每

11、本教科書名稱的信息簡要說明：學校課本名稱類型及長度：字符型，320位取值范圍：表 2.3.1表 2.3.2資料編號：I-TC1數(shù)據(jù)項名稱：教師編號簡要說明：存儲教師信息簡要說明：學校教師編號類型和長度：字符，3位數(shù)字取值范圍：001999表 2.3.3資料編號：I-TC2數(shù)據(jù)項名稱：教師簡要說明：存儲教師信息簡要說明： 學校教師姓名類型及長度：字符型，24位取值范圍：表 2.3.4數(shù)據(jù)結構描述數(shù)據(jù)結構編號：DS001數(shù)據(jù)結構名稱：收據(jù)簡要說明：教材入庫表格數(shù)據(jù)結構組成：課本編號+課本名稱+數(shù)量+存儲時間+存儲來源+備注表 2.3.5數(shù)據(jù)結構編號：DS002數(shù)據(jù)結構名稱：出庫單簡要說明：用于存儲

12、教科書出庫信息的表格數(shù)據(jù)結構構成：課本編號+課本名稱+數(shù)量+發(fā)貨時間+發(fā)貨目的地+備注表 2.3.6數(shù)據(jù)結構編號：DS003數(shù)據(jù)結構名稱：教材要求1描述：學生在課堂上需要的教材類型數(shù)據(jù)結構構成：課本編號+課本名稱+時間+老師+備注表 2.3.7數(shù)據(jù)結構編號：DS004數(shù)據(jù)結構名稱：批準的教科書要求簡要說明：領導批準的教科書申請表數(shù)據(jù)結構構成：課本編號+課本名稱+時間+老師+備注表 2.3.8數(shù)據(jù)結構編號：DS005數(shù)據(jù)結構名稱：訂單列表簡要說明：教科書部制定的教科書購買表數(shù)據(jù)結構構成：課本編號+課本名稱+時間+備注表 2.3.9數(shù)據(jù)流描述數(shù)據(jù)流號：D01數(shù)據(jù)流名稱：教材要求1描述：學生在課堂上

13、需要的教材類型數(shù)據(jù)流來源：教研室數(shù)據(jù)流向：制定教科書使用計劃數(shù)據(jù)流構成：課本號+課本名+作者+時間數(shù)據(jù)流量：16份/年表 2.3.10數(shù)據(jù)流號：D02數(shù)據(jù)流名稱：批準的教科書要求簡要說明：領導批準的教科書要求表數(shù)據(jù)流的來源：制定教材使用計劃數(shù)據(jù)流向：教材部數(shù)據(jù)流構成：課本號+課本名+作者+時間+老師名數(shù)據(jù)流量：16份/年表 2.3.11數(shù)據(jù)流號：D03數(shù)據(jù)流名稱：教材要求2簡要說明： 所需教材數(shù)量由教材部門確定數(shù)據(jù)流來源：教科書部分數(shù)據(jù)流向：確定教科書的處理方式數(shù)據(jù)流構成：課本編號+數(shù)量+課本名稱+作者+時間+教師姓名數(shù)據(jù)流量：16份/年表 2.3.12數(shù)據(jù)流號：D04數(shù)據(jù)流名稱：訂單簡要說明

14、：教科書部制定的教科書購買表數(shù)據(jù)流源：確定如何處理教科書數(shù)據(jù)流向：教材采購處理數(shù)據(jù)流構成：課本號+課本名+作者+時間+數(shù)量數(shù)據(jù)流量：16份/年數(shù)據(jù)流號：D05數(shù)據(jù)流名稱：教材要求3簡要說明：教科書部確定的教科書數(shù)量數(shù)據(jù)流源：確定如何處理教科書數(shù)據(jù)流向：教材交付處理數(shù)據(jù)流構成：課本號+課本名+作者+時間+數(shù)量+老師數(shù)據(jù)流量：16份/年表 2.3.13數(shù)據(jù)流號：D06數(shù)據(jù)流名稱：出庫單簡要說明：用于存儲教科書出庫信息的表格數(shù)據(jù)流來源：教科書出站處理數(shù)據(jù)流向：存貨賬本數(shù)據(jù)流構成：課本號+課本名+作者+時間+數(shù)量+老師數(shù)據(jù)流量：16份/年表 2.3.14數(shù)據(jù)流號：D07數(shù)據(jù)流名稱：入站訂單簡要說明：教

15、材存儲信息的形式數(shù)據(jù)流來源：教材采購處理數(shù)據(jù)流向：存貨賬本數(shù)據(jù)流構成：課本號+課本名+作者+時間+數(shù)量數(shù)據(jù)流量：16份/年表 2.3.15表 2.3.16處理邏輯說明處理邏輯名稱：制定學生教科書計劃處理數(shù)： P 1.1簡要說明：根據(jù)老師的課堂內容，確定學生需要使用的教材類型輸入數(shù)據(jù)流：教研室制定的教學計劃輸出數(shù)據(jù)流：教科書申請表表 2.3.17處理邏輯名稱：確定教材的處理方法處理數(shù)： P 1.2簡要說明：教科書板塊統(tǒng)計使用的教科書數(shù)量，確定需要購買的教科書數(shù)量輸入數(shù)據(jù)流：教材申請表輸出數(shù)據(jù)流：訂單清單+教材需求清單表 2.3.18加工名稱：課本采購加工處理數(shù)： P 1.3簡要說明：采購人根據(jù)訂

16、單采購教材輸入數(shù)據(jù)流：訂單輸出數(shù)據(jù)流：訂單列表加工名稱：教材派送加工處理數(shù)： P 1.4簡要說明：根據(jù)教材需求清單分發(fā)教材輸入數(shù)據(jù)流：教材請求列表輸出數(shù)據(jù)流：出庫單表 2.3.19表 2.3.20數(shù)據(jù)存儲描述數(shù)據(jù)存儲數(shù)：F1數(shù)據(jù)存儲名稱：庫存分類帳簡要說明：記錄教材的種類、數(shù)量和單價數(shù)據(jù)存儲構成：課本編號+課本名稱+數(shù)量+作者+。關鍵詞：課本號相關處理：P1.3、P1.4、表 2.3.21外部實體描述外部實體編號：W1外部實體名稱：教科書科簡要說明：管理學校教科書的訂購和分發(fā)輸入數(shù)據(jù)流：批準的教材申請表輸出數(shù)據(jù)流：教科書要求表 2表 2.3.22外部實體編號：W2對外單位名稱：教研室描述：確定

17、教育材料需求類型的部門輸入數(shù)據(jù)流：教材接收輸出數(shù)據(jù)流：教材請求列表表 2.3.23第三章系統(tǒng)設計3.1 系統(tǒng)功能設計該系統(tǒng)是基于教科書管理業(yè)務設計開發(fā)的。教科書部的日常運作一般包括以下幾項：1.教材預約。教科書類型的預訂基本上由教師或管理員完成。教材科向各系下發(fā)課本訂閱通知（輪轉閱讀），各系為擬開設的課程選擇和訂閱課本，填寫預約表，通過本系向教材科報告，部。教科書部門準備并填寫正式訂單，并將其致到每個學校。2.教材分發(fā)。專業(yè)和等級書籍在預訂時發(fā)行。書籍通常以班級為單位收集。3.查詢。這項工作包括四個內容，一是查詢預訂，了解各部門教科書的訂購情況；二是檢查入庫情況，及時了解入庫情況；三是查看庫存

18、狀態(tài)：打印和報告，主要用于訂購書籍和書籍的打印。4、系統(tǒng)管理主要包括用戶的更改、密碼和用戶的添加。教材管理系統(tǒng)管理員管理教材管理系統(tǒng)管理員管理教師管理教師管理教材庫存查詢教材征訂用戶管理教材管理教材庫存查詢教材征訂用戶管理教材管理修改用戶信息添加用戶訂單管理庫存信息管理入庫管理出庫管理修改用戶信息添加用戶訂單管理庫存信息管理入庫管理出庫管理圖 3.1.1 教科書管理系統(tǒng)功能模塊設計圖3.2 數(shù)據(jù)結構和數(shù)據(jù)庫設計1. ER模型設計教材編號教材編號 教材教材名稱教材教材作者圖 3.2.1 教科書實體 ER 圖教材編號教材編號倉庫教材入庫數(shù)量入庫時間入庫單價圖 3.2.2 倉庫實體 ER 圖班級班級

19、班級編號班級名稱圖3.2.3 類實體ER圖供應商代號供應商代號供應商 名稱 地址 圖 3.2.4 供應商實體 ER 圖教材教材倉庫供應商班級入庫1NNMNM出庫訂貨出庫訂貨圖 3.2.4 整體 ER 圖2 數(shù)據(jù)庫設計在系統(tǒng)數(shù)據(jù)庫中，有用戶管理表、教科書交付表、教科書存儲表、教科書訂閱表和教科書庫存表。3.2.1。用戶管理表：字段名稱數(shù)據(jù)類型文本密碼文本內容文本3.2.2.教材交付表：字段名稱數(shù)據(jù)類型課本名稱文本部門文本班級文本單價數(shù)字數(shù)量數(shù)字總額數(shù)字交貨時間日期3.2.3。教科書訂閱表格：字段名稱數(shù)據(jù)類型課本名稱文本作者文本文本發(fā)布日期日期數(shù)量數(shù)字訂閱時間日期訂戶文本3.2.4。課本收納桌字段

20、名稱數(shù)據(jù)類型課本名稱文本作者文本文本發(fā)布日期日期圖書類別文本單價數(shù)量數(shù)量數(shù)量總額數(shù)量處理程序文本庫存日期日期3.2.5。教材庫存表字段名稱數(shù)據(jù)類型課本名稱文本作者文本文本發(fā)布日期日期單價日期圖書類別文本庫存數(shù)量數(shù)量3.3 代碼設計設計問題是一個科學管理問題。設計好的代碼方案對系統(tǒng)的開發(fā)極為有利。它可以讓很多機器處理（比如一些統(tǒng)計、校對查詢等）變得非常方便，也可以讓一些現(xiàn)階段計算機難以處理的任務變得非常簡單。代碼就是用數(shù)字或字符來表示各種客觀實體。現(xiàn)實世界中有很多東西如果我們不給它們貼上標簽是無法區(qū)分的，機器很難處理它們。因此，是否唯一標識以前無法確定的事物是編譯代碼的首要任務。以課本編號為例。

21、在教材管理中，不難發(fā)現(xiàn)有些書名相同，但出版日期和作者不同。為了區(qū)分此類書籍，編制了教科書代碼（教科書編號：001001 001002 001003 001004 001005）。唯一性是代碼設計的首要任務。但是如果我們只是為了唯一性而編寫代碼，那么代碼可能會變得雜亂無章，無法識別，使用起來也不方便。比如管理系統(tǒng)中關于計算機的書籍以“01 ”開頭，其中“ 01001 ”代表計算機硬件書籍，01002代表計算機軟件書籍，“01003 ”代表計算機信息管理書籍。對于專業(yè)書籍非常方便。（專業(yè)書籍）代碼：01001 01002 01003 02002 03003 04004）為了保持系統(tǒng)的合理性，設置代

22、碼時也要注意系統(tǒng)規(guī)則，比如001表示秘書所在區(qū)域的圖書數(shù)量從001001到001070，添加新書時，會自動生成書號001071（區(qū)號：001 002 003 004）比如教材代碼設計=教材編號+教材類別+班主任=0001（數(shù)理統(tǒng)計）001（數(shù)學）001（機械工業(yè)）001（胡磊）3.4 界面設計登錄界面包括，權限和密碼，與數(shù)據(jù)庫用戶管理表連接如圖3.1圖 3.1代碼設計；私有子 Command1_Click()Adodc1.RecordSource = select * from user management where user= & Trim(DataCombo1.Text) & Adod

23、c1.Refresh點$如果 Trim(DataCombo1.Text) = 那么MsgBox 用戶名不能為空！, , 錯誤DataCombo1.SetFocus退出子萬一如果 Adodc1.Recordset.EOF 那么MsgBox 用戶不存在！, , 錯誤DataCombo1.Text = Text3.Text = Adodc1.RecordSource = 從用戶管理中選擇 *Adodc1.Refresh數(shù)據(jù)組合1.刷新DataCombo1.SetFocus別的=修剪（DataCombo1.Text）如果 Adodc1.Recordset.Fields(qx) RTrim(Combo1

24、.Text) 那么MsgBox 權限錯誤, , 錯誤Combo1.SetFocusAdodc1.RecordSource = 從用戶管理中選擇 *Adodc1.Refresh數(shù)據(jù)組合1.刷新DataCombo1.Text =別的如果 Trim(Text3.Text) Trim(Adodc1.Recordset.Fields(password) 那么如果 mi = 2 那么MsgBox 密碼輸入三遍錯誤 + Chr(13) + Chr(10) + 自動關閉系統(tǒng), , 學生教材管理軟件卸載我別的MsgBox 密碼錯誤！, , 錯誤米 = 米 + 1Adodc1.RecordSource = 從用戶

25、管理中選擇 *Adodc1.RefreshDataCombo1.Text =Text3.Text = Text3.SetFocus萬一別的如果 Trim(Combo1.Text) = Admin 那么卸載我主窗體.Show別的卸載我主窗體.Show帶主窗體.mnuyhgl.Enabled = 假.mnujcrk.Enabled = False.mnujcchk.Enabled = False結束于萬一萬一萬一萬一結束子私有子 Command2_Click()卸載我結束子私有子 Form_Activate()米 = 0結束子私人子Form_Load()mi = 0結束子私有子 Form_Load

26、()結束子主界面在登錄界面輸入正確的權限和密碼后，進入主界面，包括系統(tǒng)管理和教材管理兩個模塊。系統(tǒng)管理包括用戶管理和退出；教科書管理包括教科書訂閱、教科書存儲、教科書交付和教科書庫存。查詢。圖 3.2圖 3.2教師界面A 教科書訂閱：選擇主界面教科書訂閱，進入教科書訂閱界面。訂閱時輸入教科書名稱、作者、出版時間、訂閱時間、訂閱人及數(shù)量。圖 3.3圖 3.3代碼設計：私有子 Command1_Click()昏暗 i%, j%, m%選擇案例 Command1.Caption案例“繼續(xù)”Command1.Caption = 訂閱Command5.Enabled = FalseCommand6.En

27、abled = FalseCommand7.Enabled = 假Command2.Enabled = TrueCombo1.SetFocus案例“訂閱”i = Len（修剪（Text1.Text）如果 Combo1.Text = 或 Combo4.Text = 或 Trim(Text1.Text) = 那么MsgBox 信息不完整！, vbOKOnly + vbInformation: Combo1.SetFocusElseIf Trim(Text1.Text) Then米 = 1對于 j = 1 到 i如果 Asc(Mid$(Trim(Text1.Text), j, 1) 57 那么Msg

28、Box 請正確輸入數(shù)據(jù)！, vbOKOnly + vbInformationText1.Text = Text1.SetFocus米 = 0退出萬一下一個 j如果 m 那么Adodc1.RecordSource = 從教科書訂閱表單中選擇 *，其中教科書名稱 = & Trim(Combo1.Text) & and author= & Trim(Combo2.Text) & and = & Trim(Combo3 .Text) & and Publication Date=# & Trim(Str$(DTPicker2.Value) & #Adodc1.Refresh如果 Adodc1.Reco

29、rdset.RecordCount = 0 那么Adodc1.RecordSource = 從教科書訂閱表中選擇 *Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = Trim(Combo1.Text)Adodc1.Recordset.Fields(1) = Trim(Combo2.Text)Adodc1.Recordset.Fields(2) = Trim(Combo3.Text)Adodc1.Recordset.Fields(3) = DTPicker2.ValueAdodc1.Recordset.Fields

30、(4) = Trim(Text1.Text)Adodc1.Recordset.Fields(5) = DTPicker1.ValueAdodc1.Recordset.Fields(6) = Trim(Combo4.Text)Adodc1.Recordset.UpdateAdodc1.Refresh別的Adodc1.Recordset.Fields(4) = Adodc1.Recordset.Fields(4) + Val(Text1.Text)Adodc1.Recordset.UpdateAdodc1.Refresh萬一Adodc1.RecordSource = 從教科書訂閱表中選擇 *Ado

31、dc1.RefreshText1.Text = 組合1 = 組合 2 = 組合3 = 萬一萬一結束選擇結束子私有子 Command2_Click()zd = 1教科書訂閱查詢。顯示結束子私有子 Command3_Click()卸載我結束子私有子 Command5_Click()昏暗 i%, j%, m%i = Len（修剪（Text1.Text）如果 Combo1.Text = 或 Combo4.Text = 或 Trim(Text1.Text) = 那么MsgBox 信息不完整，請重新輸入！, vbOKOnly + vbInformation: Combo1.SetFocus別的米 = 1對

32、于 j = 1 到 i如果 Asc(Mid$(Trim(Text1.Text), j, 1) 57 那么MsgBox 請正確輸入數(shù)據(jù)！, vbOKOnly + vbInformationText1.Text = Text1.SetFocus米 = 0退出萬一下一個 j如果 m 那么Adodc1.Recordset.Fields(0) = Trim(Combo1.Text)Adodc1.Recordset.Fields(1) = Trim(Combo2.Text)Adodc1.Recordset.Fields(2) = Trim(Combo3.Text)Adodc1.Recordset.Fiel

33、ds(3) = DTPicker2.ValueAdodc1.Recordset.Fields(4) = Trim(Text1.Text)Adodc1.Recordset.Fields(5) = DTPicker1.ValueAdodc1.Recordset.Fields(6) = Trim(Combo4.Text)萬一Command1.Caption = 訂閱Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = 假Command2.Enabled = TrueCombo1.SetFocus萬一結束子私有子 Comm

34、and6_Click()出錯時繼續(xù)下一步Command1.Caption = 繼續(xù)Command5.Enabled = 真Command6.Enabled = 真Command7.Enabled = 真Command2.Enabled = 假Combo1.Text = Adodc1.Recordset.Fields(0)Combo2.Text = Adodc1.Recordset.Fields(1)Combo3.Text = Adodc1.Recordset.Fields(2)DTPicker2.Value = Adodc1.Recordset.Fields(3)Text1.Text = Ad

35、odc1.Recordset.Fields(4)DTPicker1.Value = Adodc1.Recordset.Fields(5)Combo4.Text = Adodc1.Recordset.Fields(6)Command1.Caption = 訂閱Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = 假Command2.Enabled = TrueCombo1.SetFocus結束子私有子 Command7_Click()出錯時繼續(xù)下一步Adodc1.Recordset.DeleteAdodc1.Refr

36、eshAdodc1.RecordSource = 從教科書訂閱表中選擇 *Adodc1.RefreshCommand1.Caption = 繼續(xù)Command5.Enabled = 真Command6.Enabled = 真Command7.Enabled = 真Command2.Enabled = 假Combo1.Text = Adodc1.Recordset.Fields(0)Combo3.Text = Adodc1.Recordset.Fields(1)Combo2.Text = Adodc1.Recordset.Fields(2)DTPicker2.Value = Adodc1.Rec

37、ordset.Fields(3)Text1.Text = Adodc1.Recordset.Fields(4)DTPicker1.Value = Adodc1.Recordset.Fields(5)Combo4.Text = Adodc1.Recordset.Fields(6)結束子私有子 DataGrid1_Click()Command1.Caption = 繼續(xù)Command5.Enabled = 真Command6.Enabled = 真Command7.Enabled = 真Command2.Enabled = 假結束子Private Sub DataGrid1_RowColChang

38、e（LastRow 作為變體，ByVal LastCol 作為整數(shù)）出錯時繼續(xù)下一步如果 Me.cmdadd.Enabled = True 那么Combo1.Text = Trim(Adodc1.Recordset.Fields(0)Combo2.Text = Trim(Adodc1.Recordset.Fields(1)Combo3.Text = Trim(Adodc1.Recordset.Fields(2)DTPicker2.Value = Trim(Adodc1.Recordset.Fields(3)Text1.Text = Trim(Adodc1.Recordset.Fields(4)

39、DTPicker1.Value = Trim(Adodc1.Recordset.Fields(5)Combo4.Text = Adodc1.Recordset.Fields(6)txtydjl.Text = Trim(Adodc1.Recordset.Fields(7)萬一結束子私有子 Form_Load()出錯時繼續(xù)下一步Dim i As Integer, bz As Integer, As IntegerDim i1 As Integer, bz1 As Integer,1 As IntegerDim i2 As Integer, bz2 As Integer,2 As IntegerDi

40、m i3 As Integer, bz3 As Integer,3 As IntegerCombo1.清除Combo2.清除Combo3.清除不做 Adodc2.Recordset.EOFbz = 0對于 i = 0 到 Combo1.ListCountIf Adodc2.Recordset.Fields(Textbook Name) = Combo1.List(i) 那么 bz = 1下一個If bz = 0 Then Combo1.AddItem Trim(Adodc2.Recordset.Fields(textbook name)bz = 0對于 i = 0 到 Combo1.ListC

41、ount如果 Adodc2.Recordset.Fields(Author) = Combo2.List(i) 那么 bz = 1下一個如果 bz = 0 那么 Combo2.AddItem Adodc2.Recordset.Fields(Author)bz = 0對于 i = 0 到 Combo1.ListCount如果 Adodc2.Recordset.Fields() = Combo3.List(i) 那么 bz = 1下一個如果 bz = 0 那么 Combo3.AddItem Adodc2.Recordset.Fields()Adodc2.Recordset.MoveNext環(huán)形不做

42、 Adodc1.Recordset.EOFAdodc2.Recordset.MoveFirst= Adodc2.Recordset.RecordCountbz = 0對于 i = 1 到如果 Trim(Adodc1.Recordset.Fields(Textbook Name) = Trim(Adodc2.Recordset.Fields(Textbook Name) 那么 bz = 1Adodc2.Recordset.MoveNext接下來我如果 bz = 0 那么bz = 0對于 i = 0 到 Combo1.ListCountIf Adodc1.Recordset.Fields(Text

43、book Name) = Combo1.List(i) 那么 bz = 1下一個If bz = 0 Then Combo1.AddItem Trim(Adodc1.Recordset.Fields(textbook name)萬一Adodc2.Recordset.MoveFirst1 = Adodc2.Recordset.RecordCountbz1 = 0對于 i1 = 1 To1如果 Trim(Adodc1.Recordset.Fields(Author) = Trim(Adodc2.Recordset.Fields(Author) 那么 bz1 = 1Adodc2.Recordset.M

44、oveNext下一個 i1如果 bz = 0 那么bz = 0對于 i = 0 到 Combo1.ListCount如果 Adodc1.Recordset.Fields(Author) = Combo2.List(i) 那么 bz = 1下一個If bz = 0 Then Combo2.AddItem Trim(Adodc1.Recordset.Fields(Author)萬一Adodc2.Recordset.MoveFirst2 = Adodc2.Recordset.RecordCountbz2 = 0對于 i2 = 1 To2如果 Trim(Adodc1.Recordset.Fields(

45、) = Trim(Adodc2.Recordset.Fields() 那么 bz2 = 1Adodc2.Recordset.MoveNext下一個 i2如果 bz = 0 那么bz = 0對于 i = 0 到 Combo1.ListCount如果 Adodc1.Recordset.Fields() = Combo3.List(i) 那么 bz = 1下一個If bz = 0 Then Combo3.AddItem Trim(Adodc1.Recordset.Fields()萬一Adodc2.Recordset.MoveFirst3 = Combo4.ListCountbz3 = 0對于 i3

46、= 1 To3如果 Trim(Adodc1.Recordset.Fields(Subscriber) = Trim(Combo4.List(i3) 那么 bz3 = 1下一個 i3如果 bz3 = 0 那么bz = 0對于 i = 0 到 Combo1.ListCount如果 Adodc1.Recordset.Fields(Subscriber) = Combo4.List(i) 那么 bz = 1下一個If bz = 0 Then Combo4.AddItem Trim(Adodc1.Recordset.Fields(Subscriber)萬一Adodc1.Recordset.MoveNex

47、t環(huán)形DTPicker1 = 日期結束子按條件查詢：訂閱后，可選擇按條件查詢已訂閱的圖書，可查詢圖書、作者、出版時間、訂閱人。圖 3.4圖 3.4B訂閱查詢：選擇主界面訂閱查詢，進入訂閱查詢界面。圖 3.5圖 3.5B 教科書存量查詢：選擇主界面教科書存量查詢，進入該界面，顯示存量圖書。圖 3.6圖 3.6按條件查詢：單擊“查詢”，可以按條件查詢庫存賬簿。圖 3.7圖 3.7管理界面如果是管理員，除了普通用戶外，還有獨特的功能A 用戶管理：可以修改、添加和刪除用戶。圖 3.8圖 3.8代碼設計：選項顯式私有子 Command1_Click()Text1.Text = : Text3.Text

48、= : Text5.Text = : Text6.Text = Text1.SetFocusCommand1.Enabled = 假Command3.Enabled = FalseCommand2.Enabled = 假Command5.Enabled = 真Command6.Enabled = 真Command5.Caption = 確定添加Command6.Caption = 取消添加Adodc1.Recordset.AddNew結束子私有子 Command2_Click()將 aa 變暗為整數(shù)aa = MsgBox(您確定要刪除嗎？, 32 + 1)如果 aa = 1 那么Adodc1.

49、Recordset.DeleteAdodc1.Recordset.MoveFirstText1.Text = Adodc1.Recordset.Fields(用戶)Combo1.Text = Adodc1.Recordset.Fields(qx)萬一結束子私有子 Command3_Click()Text1.SetFocusFrame3.Visible = TrueCommand5.Enabled = 真Command6.Enabled = 真Command1.Enabled = 假Command2.Enabled = 假Command3.Enabled = FalseText3.Text =

50、結束子私有子 Command4_Click()卸載我結束子私有子 Command5_Click()如果 Command5.Caption = OK 修改 則如果 Text3.Text Adodc1.Recordset.Fields(password) 那么MsgBox 舊密碼錯誤，請重新輸入！, vbOKOnly + vbInformation: Text3.Text = : Text3.SetFocus別的如果 Text5.Text Text6.Text 那么MsgBox 兩次輸入的密碼不一致，請重新輸入！, vbOKOnly + vbInformation: Text5.SetFocus:

51、 Text5.Text = Text6.Text = 別的Adodc1.Recordset.Fields(密碼) = Trim(Text5.Text)Text3.Text = Frame3.Visible = FalseCommand1.Enabled = 真Command2.Enabled = TrueCommand5.Enabled = FalseCommand6.Enabled = FalseCommand3.Enabled = True萬一Text5.Text = Text6.Text = 萬一萬一If Command5.Caption = OK to add Then如果 Trim(

52、Text1.Text) = 那么MsgBox(用戶名不能為空，請輸入您的用戶名！): Text1.SetFocus別的Adodc1.Recordset.Fields(user) = Trim(Text1.Text)Adodc1.Recordset.Fields(qx) = Trim(Combo1.Text)Adodc1.Recordset.Fields(密碼) = Trim(Text3.Text)Adodc1.Recordset.UpdateCommand3.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = 真Command5.Caption = 確認修改Command6.Caption = 取消修改Command5.Enabled = FalseCommand6.Enabled = False萬一萬一結束子私