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

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è)計(jì) PAGEREF _Toc16217 13 HYPERLINK l _Toc27967 3.1 系統(tǒng)功能設(shè)計(jì) PAGEREF _Toc27967 13 HYPERLIN

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

4、登錄界面的測(cè)試 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)教材信息的管理。分為管理員登錄和教師登錄兩個(gè)模塊。管理員操作部分主要是教材管理、用戶管理、訂單管理；教師登錄后的主要操作是教材查詢模塊。.第一章系統(tǒng)開發(fā)概述1.1 建立制度的必要性教材管理是每所學(xué)校的一項(xiàng)復(fù)

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

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

7、機(jī)制的新型關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)。它有豐富的信息管理和分析工具，可以通過ODBC連接到其他數(shù)據(jù)庫(kù)。數(shù)據(jù)交換和共享數(shù)據(jù)庫(kù)的實(shí)現(xiàn)是信息管理的基礎(chǔ)。ACCESS 可以以兩種方式使用：作為獨(dú)立應(yīng)用程序來創(chuàng)建個(gè)人或部門數(shù)據(jù)庫(kù)，或者作為接口客戶端連接到更強(qiáng)大和可擴(kuò)展的后端數(shù)據(jù)庫(kù)。無論選擇何種后端數(shù)據(jù)源，最終用戶都將受益于流行的桌面數(shù)據(jù)庫(kù)客戶端的易用性。1.2.2 經(jīng)濟(jì)可行性在教材管理系統(tǒng)中，可以實(shí)現(xiàn)教材信息的管理，提高工作效率，減少人為錯(cuò)誤，提供良好的管理平臺(tái)。極低成本的數(shù)據(jù)處理、信息查詢、信息錄入等，可實(shí)現(xiàn)教材需求信息、訂單管理、教材進(jìn)出管理、庫(kù)存管理等功能。從目前校園網(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ù)量并提交給教材部。教科書科會(huì)處理教科書訂單，確定本學(xué)期教科書的數(shù)量（庫(kù)存訂單除外），同時(shí)完善教科書的基本信息，以保證新課本的要求。教研室存在基本教科書信息。教材科將根據(jù)庫(kù)存情況發(fā)放教材。如有庫(kù)存，教材管理員將打印出教材領(lǐng)取通知書到教研室，通知教材領(lǐng)取。如果庫(kù)存缺貨，打印下單給買家，買家根據(jù)下單制定補(bǔ)貨清單發(fā)給相應(yīng)的供應(yīng)

9、商。供應(yīng)商將交貨通知致給買方。購(gòu)買者購(gòu)買并存放課本，打印收據(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é)秘書教材需求單教材需求單教材科教材科入庫(kù)單入庫(kù)單訂書單訂書單采購(gòu)員采購(gòu)員提貨通知單補(bǔ)貨單提貨通知單補(bǔ)貨單供書商供書商圖 2.1.1 業(yè)務(wù)流程圖P1教材科2.2 數(shù)據(jù)流分析P1教材科出庫(kù)訂單教材出入庫(kù)管理入站訂單教材出入庫(kù)管理圖2.2.1 教材管理子系統(tǒng)頂層流程圖入庫(kù)單教材需求單3教材需求單2已批準(zhǔn)教材需求單出庫(kù)單入庫(kù)單訂書單教材需求單1P1.4教材出庫(kù)

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

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

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

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

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

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

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

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

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

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

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

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

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

23、c1.Refresh點(diǎn)$如果 Trim(DataCombo1.Text) = 那么MsgBox 用戶名不能為空！, , 錯(cuò)誤DataCombo1.SetFocus退出子萬一如果 Adodc1.Recordset.EOF 那么MsgBox 用戶不存在！, , 錯(cuò)誤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)限錯(cuò)誤, , 錯(cuò)誤Combo1.SetFocusAdodc1.RecordSource = 從用戶管理中選擇 *Adodc1.Refresh數(shù)據(jù)組合1.刷新DataCombo1.Text =別的如果 Trim(Text3.Text) Trim(Adodc1.Recordset.Fields(password) 那么如果 mi = 2 那么MsgBox 密碼輸入三遍錯(cuò)誤 + Chr(13) + Chr(10) + 自動(dòng)關(guān)閉系統(tǒng), , 學(xué)生教材管理軟件卸載我別的MsgBox 密碼錯(cuò)誤！, , 錯(cuò)誤米 = 米 + 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)管理和教材管理兩個(gè)模塊。系統(tǒng)管理包括用戶管理和退出；教科書管理包括教科書訂閱、教科書存儲(chǔ)、教科書交付和教科書庫(kù)存。查詢。圖 3.2圖 3.2教師界面A 教科書訂閱：選擇主界面教科書訂閱，進(jìn)入教科書訂閱界面。訂閱時(shí)輸入教科書名稱、作者、出版時(shí)間、訂閱時(shí)間、訂閱人及數(shù)量。圖 3.3圖 3.3代碼設(shè)計(jì)：私有子 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對(duì)于 j = 1 到 i如果 Asc(Mid$(Trim(Text1.Text), j, 1) 57 那么Msg

28、Box 請(qǐng)正確輸入數(shù)據(jù)！, vbOKOnly + vbInformationText1.Text = Text1.SetFocus米 = 0退出萬一下一個(gè) 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 信息不完整，請(qǐng)重新輸入！, vbOKOnly + vbInformation: Combo1.SetFocus別的米 = 1對(duì)

32、于 j = 1 到 i如果 Asc(Mid$(Trim(Text1.Text), j, 1) 57 那么MsgBox 請(qǐng)正確輸入數(shù)據(jù)！, vbOKOnly + vbInformationText1.Text = Text1.SetFocus米 = 0退出萬一下一個(gè) 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()出錯(cuò)時(shí)繼續(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()出錯(cuò)時(shí)繼續(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ù)）出錯(cuò)時(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()出錯(cuò)時(shí)繼續(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對(duì)于 i = 0 到 Combo1.ListCountIf Adodc2.Recordset.Fields(Textbook Name) = Combo1.List(i) 那么 bz = 1下一個(gè)If bz = 0 Then Combo1.AddItem Trim(Adodc2.Recordset.Fields(textbook name)bz = 0對(duì)于 i = 0 到 Combo1.ListC

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

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

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

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

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

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

47、t環(huán)形DTPicker1 = 日期結(jié)束子按條件查詢：訂閱后，可選擇按條件查詢已訂閱的圖書，可查詢圖書、作者、出版時(shí)間、訂閱人。圖 3.4圖 3.4B訂閱查詢：選擇主界面訂閱查詢，進(jìn)入訂閱查詢界面。圖 3.5圖 3.5B 教科書存量查詢：選擇主界面教科書存量查詢，進(jìn)入該界面，顯示存量圖書。圖 3.6圖 3.6按條件查詢：?jiǎn)螕簟安樵儭?，可以按條件查詢庫(kù)存賬簿。圖 3.7圖 3.7管理界面如果是管理員，除了普通用戶外，還有獨(dú)特的功能A 用戶管理：可以修改、添加和刪除用戶。圖 3.8圖 3.8代碼設(shè)計(jì)：選項(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(您確定要?jiǎng)h除嗎？, 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 舊密碼錯(cuò)誤，請(qǐng)重新輸入！, vbOKOnly + vbInformation: Text3.Text = : Text3.SetFocus別的如果 Text5.Text Text6.Text 那么MsgBox 兩次輸入的密碼不一致，請(qǐng)重新輸入！, 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(用戶名不能為空，請(qǐng)輸入您的用戶名！): 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é)束子私