教材管理系統(tǒng)設(shè)計說明書

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 構(gòu)建系統(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、務(wù)流程分析 PAGEREF _Toc9126 4 HYPERLINK l _Toc28334 圖 2.1.1 業(yè)務(wù)流程圖 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)設(shè)計 PAGEREF _Toc16217 13 HYPERLINK l _Toc27967 3.1 系統(tǒng)功能設(shè)計 PAGEREF _Toc27967 13 HYPERLIN

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

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

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

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

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

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

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

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

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

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

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

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

15、材存儲信息的形式數(shù)據(jù)流來源：教材采購處理數(shù)據(jù)流向：存貨賬本數(shù)據(jù)流構(gòu)成：課本號+課本名+作者+時間+數(shù)量數(shù)據(jù)流量：16份/年表 2.3.15表 2.3.16處理邏輯說明處理邏輯名稱：制定學(xué)生教科書計劃處理數(shù)： P 1.1簡要說明：根據(jù)老師的課堂內(nèi)容，確定學(xué)生需要使用的教材類型輸入數(shù)據(jù)流：教研室制定的教學(xué)計劃輸出數(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ù)存儲構(gòu)成：課本編號+課本名稱+數(shù)量+作者+。關(guān)鍵詞：課本號相關(guān)處理：P1.3、P1.4、表 2.3.21外部實(shí)體描述外部實(shí)體編號：W1外部實(shí)體名稱：教科書科簡要說明：管理學(xué)校教科書的訂購和分發(fā)輸入數(shù)據(jù)流：批準(zhǔn)的教材申請表輸出數(shù)據(jù)流：教科書要求表 2表 2.3.22外部實(shí)體編號：W2對外單位名稱：教研室描述：確定

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

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

19、班級編號班級名稱圖3.2.3 類實(shí)體ER圖供應(yīng)商代號供應(yīng)商代號供應(yīng)商 名稱 地址 圖 3.2.4 供應(yīng)商實(shí)體 ER 圖教材教材倉庫供應(yīng)商班級入庫1NNMNM出庫訂貨出庫訂貨圖 3.2.4 整體 ER 圖2 數(shù)據(jù)庫設(shè)計在系統(tǒng)數(shù)據(jù)庫中，有用戶管理表、教科書交付表、教科書存儲表、教科書訂閱表和教科書庫存表。3.2.1。用戶管理表：字段名稱數(shù)據(jù)類型文本密碼文本內(nèi)容文本3.2.2.教材交付表：字段名稱數(shù)據(jù)類型課本名稱文本部門文本班級文本單價數(shù)字?jǐn)?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 代碼設(shè)計設(shè)計問題是一個科學(xué)管理問題。設(shè)計好的代碼方案對系統(tǒng)的開發(fā)極為有利。它可以讓很多機(jī)器處理（比如一些統(tǒng)計、校對查詢等）變得非常方便，也可以讓一些現(xiàn)階段計算機(jī)難以處理的任務(wù)變得非常簡單。代碼就是用數(shù)字或字符來表示各種客觀實(shí)體?，F(xiàn)實(shí)世界中有很多東西如果我們不給它們貼上標(biāo)簽是無法區(qū)分的，機(jī)器很難處理它們。因此，是否唯一標(biāo)識以前無法確定的事物是編譯代碼的首要任務(wù)。以課本編號為例。

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

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

23、c1.Refresh點(diǎn)$如果 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 權(quán)限錯誤, , 錯誤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) + 自動關(guān)閉系統(tǒng), , 學(xué)生教材管理軟件卸載我別的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結(jié)束于萬一萬一萬一萬一結(jié)束子私有子 Command2_Click()卸載我結(jié)束子私有子 Form_Activate()米 = 0結(jié)束子私人子Form_Load()mi = 0結(jié)束子私有子 Form_Load

26、()結(jié)束子主界面在登錄界面輸入正確的權(quán)限和密碼后，進(jìn)入主界面，包括系統(tǒng)管理和教材管理兩個模塊。系統(tǒng)管理包括用戶管理和退出；教科書管理包括教科書訂閱、教科書存儲、教科書交付和教科書庫存。查詢。圖 3.2圖 3.2教師界面A 教科書訂閱：選擇主界面教科書訂閱，進(jìn)入教科書訂閱界面。訂閱時輸入教科書名稱、作者、出版時間、訂閱時間、訂閱人及數(shù)量。圖 3.3圖 3.3代碼設(shè)計：私有子 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 = 萬一萬一結(jié)束選擇結(jié)束子私有子 Command2_Click()zd = 1教科書訂閱查詢。顯示結(jié)束子私有子 Command3_Click()卸載我結(jié)束子私有子 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萬一結(jié)束子私有子 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結(jié)束子私有子 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)結(jié)束子私有子 DataGrid1_Click()Command1.Caption = 繼續(xù)Command5.Enabled = 真Command6.Enabled = 真Command7.Enabled = 真Command2.Enabled = 假結(jié)束子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)萬一結(jié)束子私有子 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 = 日期結(jié)束子按條件查詢：訂閱后，可選擇按條件查詢已訂閱的圖書，可查詢圖書、作者、出版時間、訂閱人。圖 3.4圖 3.4B訂閱查詢：選擇主界面訂閱查詢，進(jìn)入訂閱查詢界面。圖 3.5圖 3.5B 教科書存量查詢：選擇主界面教科書存量查詢，進(jìn)入該界面，顯示存量圖書。圖 3.6圖 3.6按條件查詢：單擊“查詢”，可以按條件查詢庫存賬簿。圖 3.7圖 3.7管理界面如果是管理員，除了普通用戶外，還有獨(dú)特的功能A 用戶管理：可以修改、添加和刪除用戶。圖 3.8圖 3.8代碼設(shè)計：選項(xiàng)顯式私有子 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結(jié)束子私有子 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)萬一結(jié)束子私有子 Command3_Click()Text1.SetFocusFrame3.Visible = TrueCommand5.Enabled = 真Command6.Enabled = 真Command1.Enabled = 假Command2.Enabled = 假Command3.Enabled = FalseText3.Text =

50、結(jié)束子私有子 Command4_Click()卸載我結(jié)束子私有子 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 = 確認(rèn)修改Command6.Caption = 取消修改Command5.Enabled = FalseCommand6.Enabled = False萬一萬一結(jié)束子私