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

1、題目：教材管理系統(tǒng)2第一章 系統(tǒng)開發(fā)概述31.1 建立系統(tǒng)的必要性31.2 可行性研究3第二章 系統(tǒng)分析42.1 業(yè)務(wù)流程分析4圖2.1.1 業(yè)務(wù)流程圖62.2 數(shù)據(jù)流程分析72.3數(shù)據(jù)字典7第三章 系統(tǒng)設(shè)計(jì)133.1 系統(tǒng)功能設(shè)計(jì)13圖3.1.1教材管理系統(tǒng)功能模塊設(shè)計(jì)圖143.2 數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設(shè)計(jì)143.3 代碼設(shè)計(jì)173.4界面設(shè)計(jì)18第四章 系統(tǒng)實(shí)施354.1登錄界面的測試364.2 系統(tǒng)維護(hù)36第五章 結(jié)束語36參考文獻(xiàn)36題目：教材管理系統(tǒng) 本系統(tǒng)主要實(shí)現(xiàn)對教材信息的管理，主要功能為基本信息的維護(hù)功能，教材需求管理功能，采購/入庫管理功能以及其他操作功能等。分為管理員登陸和教師

2、登陸兩大模塊，管理員操作部分主要是教材管理，用戶管理，訂單管理；教師登陸后的主要操作是教材的查詢模塊。第一章 系統(tǒng)開發(fā)概述1.1 建立系統(tǒng)的必要性教材管理對各個(gè)學(xué)校而言,都是一項(xiàng)復(fù)雜、煩瑣的工作, 是高校教務(wù)管理中的一個(gè)重要環(huán)節(jié), 由于大學(xué)中專業(yè)設(shè)置門類多，各專業(yè)每期開設(shè)課程種類多，其業(yè)務(wù)不僅涉及出版部門，而且要面對全校各系、部的授課教師，各班級的學(xué)生，教材科涉及管理的入出庫教材種類非常多，涉及人員廣，工作量大，再者是近年來，我國高等教育規(guī)模的不斷擴(kuò)大，學(xué)校學(xué)生人數(shù)迅速增加，使教材管理工作更加繁重不堪。因此,需要一個(gè)自動(dòng)化的工具進(jìn)行統(tǒng)籌管理，才能及時(shí)，準(zhǔn)確的反應(yīng)教材征訂狀態(tài)。1.2 可行性研究

3、 1.2.1技術(shù)上可行性分析visual basic 6.0是一種可視化的、面對對象和事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(shè)計(jì)，可用于開發(fā)windows環(huán)境下的應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與windows的專業(yè)開發(fā)工具sdk相媲美。在visual basic 6.0環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用windows內(nèi)部的應(yīng)用程序接口(api)函數(shù)，以及動(dòng)態(tài)鏈接庫(dll)、動(dòng)態(tài)數(shù)據(jù)交換(dde)、對象的鏈接與嵌入(ole)、開放式數(shù)據(jù)訪問(odbc)等技術(shù)，可以高效、快速地開發(fā)出windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 access數(shù)據(jù)庫是

4、個(gè)人、部門及企業(yè)管理數(shù)據(jù)的最易操作的新一代數(shù)據(jù)庫。它兼容傳統(tǒng)的數(shù)據(jù)庫，同時(shí)進(jìn)一步增強(qiáng)了web支持，具有web特性的信息共享特性?？梢苑浅７奖愕乜缙脚_作業(yè)和共享數(shù)據(jù)。它不僅有一個(gè)數(shù)據(jù)庫管理系統(tǒng)所應(yīng)具有的功能而且還是一個(gè)面向?qū)ο蟮牟捎脮r(shí)間驅(qū)動(dòng)機(jī)制的新型關(guān)系數(shù)據(jù)庫管理系統(tǒng)。它有豐富的信息管理分析工具，可以通過odbc與其他數(shù)據(jù)庫相連, 實(shí)現(xiàn)數(shù)據(jù)交換與共享數(shù)據(jù)庫是進(jìn)行信息管理的基礎(chǔ)。access有兩種使用方式：作為創(chuàng)建個(gè)人或部門數(shù)據(jù)庫的獨(dú)立應(yīng)用程序，或作為更強(qiáng)健、更具擴(kuò)展性的后端數(shù)據(jù)庫的接口客戶端。不論選用了何種后端數(shù)據(jù)源，最終用戶都將得到使用流行的桌面數(shù)據(jù)庫客戶端時(shí)易于使用的好處。1.2.2經(jīng)濟(jì)上的

5、可行性在教材管理系統(tǒng)中，實(shí)現(xiàn)對教材的信息的管理，提高工作效率、減少人為差錯(cuò)提供良好的管理平臺。 極低成本的數(shù)據(jù)處理、信息查詢、信息錄入等，可實(shí)現(xiàn)教材需求信息、訂單管理、教材出入庫管理、庫存管理等功能。從目前校園網(wǎng)和教材管理系統(tǒng)的推廣和運(yùn)行情況來看，本系統(tǒng)不需增加過多的硬件投入和應(yīng)用方面的培訓(xùn)，因此，其經(jīng)濟(jì)成本是很低的。1.2.3管理上可行性分析 經(jīng)過領(lǐng)導(dǎo)同意可以進(jìn)行開發(fā)實(shí)施。第二章 系統(tǒng)分析2.1 業(yè)務(wù)流程分析 通過業(yè)務(wù)流程分析對對教材管理系統(tǒng)作進(jìn)一步的分析，教研室教師書面提出需要使用的教材名，上交后由系領(lǐng)導(dǎo)審核，審核通過后，由教學(xué)秘書統(tǒng)計(jì)需要數(shù)量，然后提交給教材科。教材科將教材訂單進(jìn)行處理，

6、以確定本學(xué)期的教材數(shù)量（除庫存外的訂單），同時(shí)對教材的基本信息進(jìn)行完善處理，以保證教研室提出新的教材需求在教材基本信息中存在。教材科根據(jù)庫存的情況發(fā)放教材，若庫存有貨，教材管理員打印領(lǐng)取教材通知單給教研室，通知領(lǐng)取教材。若庫存無貨，打印訂書單交給采購員，采購員根據(jù)訂貨單制定補(bǔ)貨單并將其交給相應(yīng)的供應(yīng)商。供應(yīng)商將提貨通知單發(fā)給采購員。采購員進(jìn)行采購并將教材入庫并打印入庫單，交給教材科（見圖2.1.1） 教研室領(lǐng)教材通知單教材需求單學(xué)生領(lǐng)導(dǎo)領(lǐng)教材通知單批準(zhǔn)教材需求單領(lǐng)書通知單教學(xué)秘書教材需求單教材科入庫單訂書單采購員提貨通知單補(bǔ)貨單供書商圖2.1.1 業(yè)務(wù)流程圖p1教材科2.2 數(shù)據(jù)流程分析 出庫

7、單教材出入庫管理 入庫單圖2.2.1教材管理子系統(tǒng)的頂層流程圖入庫單教材需求單3教材需求單2已批準(zhǔn)教材需求單出庫單入庫單訂書單教材需求單1p1.4教材出庫處理庫存臺帳f1p1.2判定教材處理方式教材科教研室 庫存臺賬f1教材采購處理p1.3制定學(xué)生教材使用計(jì)劃p1.1圖2.2.2教材管理子系統(tǒng)的第二層數(shù)據(jù)流程圖2.3數(shù)據(jù)字典數(shù)據(jù)項(xiàng)描述數(shù)據(jù)項(xiàng)編號: i-book1數(shù)據(jù)項(xiàng)名：教材編號簡述：存儲每本教材的信息簡要說明：學(xué)校教材編碼類型及長度：數(shù)字型，4位取值范圍：00019999 數(shù)據(jù)項(xiàng)編號:i-book2數(shù)據(jù)項(xiàng)名：教材名簡述：存儲每本教材名稱的信息簡要說明：學(xué)校教材名稱類型及長度：字符型，320位

8、取值范圍： 表2.3.1表2.3.2數(shù)據(jù)項(xiàng)編號:i-tc1數(shù)據(jù)項(xiàng)名：教師編號簡述：存儲教師的信息簡要說明：學(xué)校教師的編號類型及長度：字符型，3位取值范圍：001999表2.3.3數(shù)據(jù)項(xiàng)編號: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)名：入庫單簡述： 存儲教材入庫的表單數(shù)據(jù)結(jié)構(gòu)組成：教材編號+教材名+數(shù)量+入庫時(shí)間+入庫來源+備注 表2.3.5數(shù)據(jù)結(jié)構(gòu)編號：ds002數(shù)據(jù)結(jié)構(gòu)名：出庫單簡述： 存儲教材出庫信息的表單數(shù)據(jù)結(jié)構(gòu)組成：教材編號+教材名+數(shù)量+出庫時(shí)間+出庫去向+備注

9、 表2.3.6數(shù)據(jù)結(jié)構(gòu)編號：ds003數(shù)據(jù)結(jié)構(gòu)名：教材需求單1簡述： 學(xué)生上課需要的教材種類數(shù)據(jù)結(jié)構(gòu)組成：教材編號+教材名+時(shí)間+教師姓名+備注 表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)組成：教材編號+教材名+時(shí)間+教師姓名+備注 表2.3.8數(shù)據(jù)結(jié)構(gòu)編號：ds005數(shù)據(jù)結(jié)構(gòu)名：訂書單簡述：教材科制定的教材采購表單數(shù)據(jù)結(jié)構(gòu)組成：教材編號+教材名+時(shí)間 +備注 表2.3.9數(shù)據(jù)流描述數(shù)據(jù)流編號：d01數(shù)據(jù)流名稱： 教材需求單1簡述： 學(xué)生上課需要的教材種類數(shù)據(jù)流來源：教研室數(shù)據(jù)流去向：制定教材使用的計(jì)劃數(shù)據(jù)流組成：教材編號+教材名+作者

10、+出版社+時(shí)間數(shù)據(jù)流量：16份/年表2.3.10數(shù)據(jù)流編號：d02數(shù)據(jù)流名稱： 已批準(zhǔn)教材需求單簡述： 領(lǐng)導(dǎo)批準(zhǔn)的教材需求表單數(shù)據(jù)流來源：制定教材使用的計(jì)劃數(shù)據(jù)流去向：教材科 數(shù)據(jù)流組成：教材編號+教材名+作者+出版社+時(shí)間+教師名稱數(shù)據(jù)流量：16份/年表2.3.11數(shù)據(jù)流編號：d03數(shù)據(jù)流名稱：教材需求單2簡述： 教材科確定的教材需求數(shù)量數(shù)據(jù)流來源：教材科數(shù)據(jù)流去向：判定教材處理的方式數(shù)據(jù)流組成：教材編號+數(shù)量+教材名+作者+出版社+時(shí)間+教師名稱數(shù)據(jù)流量：16份/年表2.3.12數(shù)據(jù)流編號：d04數(shù)據(jù)流名稱： 訂書單簡述： 教材科制定的教材采購表單數(shù)據(jù)流來源：判定教材處理的方式數(shù)據(jù)流去向：

11、教材采購處理數(shù)據(jù)流組成：教材編號+教材名+作者+出版社+時(shí)間+數(shù)量數(shù)據(jù)流量：16份/年數(shù)據(jù)流編號：d05數(shù)據(jù)流名稱： 教材需求單3簡述： 教材科確定的發(fā)放教材的數(shù)量數(shù)據(jù)流來源：判定教材處理的方式數(shù)據(jù)流去向：教材出庫處理數(shù)據(jù)流組成：教材編號+教材名+作者+出版社+時(shí)間+數(shù)量+教師姓名數(shù)據(jù)流量：16份/年表2.3.13數(shù)據(jù)流編號：d06數(shù)據(jù)流名稱：出庫單簡述： 存儲教材出庫信息的表單數(shù)據(jù)流來源：教材出庫處理數(shù)據(jù)流去向：庫存臺帳數(shù)據(jù)流組成：教材編號+教材名+作者+出版社+時(shí)間+數(shù)量+教師姓名數(shù)據(jù)流量：16份/年表2.3.14數(shù)據(jù)流編號：d07數(shù)據(jù)流名稱： 入庫單簡述：教材入庫信息的表單數(shù)據(jù)流來源：教

12、材采購處理數(shù)據(jù)流去向：庫存臺帳數(shù)據(jù)流組成：教材編號+教材名+作者+出版社+時(shí)間+數(shù)量數(shù)據(jù)流量：16份/年表2.3.15表2.3.16處理邏輯描述處理邏輯名：制定學(xué)生教材計(jì)劃加工編號：p1.1簡要描述：根據(jù)教師上課內(nèi)容，確定學(xué)生需要使用的教材種類輸入數(shù)據(jù)流: 教研室制定的的教學(xué)計(jì)劃輸出數(shù)據(jù)流: 教材需求單表2.3.17處理邏輯名：判定教材處理方式加工編號：p1.2簡要描述：教材科統(tǒng)計(jì)各種教材使用數(shù)量，確定需要購買的教材數(shù)量 輸入數(shù)據(jù)流:教材需求單輸出數(shù)據(jù)流: 訂書單+教材需求單 表2.3.18加工名：教材采購處理加工編號：p1.3簡要描述：根據(jù)訂書單，采購員進(jìn)行教材采購 輸入數(shù)據(jù)流：訂書單輸出數(shù)

13、據(jù)流: 訂書單加工名： 教材出庫處理加工編號：p1.4簡要描述：根據(jù)教材需求單進(jìn)行教材發(fā)放處理 輸入數(shù)據(jù)流: 教材需求單輸出數(shù)據(jù)流: 出庫單表2.3.19表2.3.20 數(shù)據(jù)存儲描述數(shù)據(jù)存儲編號：f1數(shù)據(jù)存儲名：庫存臺帳 簡述：記錄教材種類，數(shù)量，單價(jià)信息數(shù)據(jù)存儲組成：教材編號+教材名+數(shù)量+作者+出版社。關(guān)鍵字：教材編號相關(guān)聯(lián)的處理：p1.3 ，p1.4, 表2.3.21外部實(shí)體描述外部實(shí)體編號：w1外部實(shí)體名：教材科簡述： 對于學(xué)校的教材訂購發(fā)放進(jìn)行管理輸入數(shù)據(jù)流:已批準(zhǔn)教材需求單輸出數(shù)據(jù)流：教材需求單2表2.3.22外部實(shí)體編號：w2外部實(shí)體名：教研室簡述： 確定教材需求種類的部門輸入數(shù)

14、據(jù)流: 領(lǐng)教材通知單輸出數(shù)據(jù)流：教材需求單表2.3.23第三章 系統(tǒng)設(shè)計(jì)3.1 系統(tǒng)功能設(shè)計(jì) 本系統(tǒng)是以教材管理業(yè)務(wù)為原型設(shè)計(jì)開發(fā)的，教材科的日常業(yè)務(wù)大體上有如下幾項(xiàng)： 1 .教材預(yù)訂。教材種類的預(yù)訂工作基本上是由老師或者管理員完成。教材科將教材征訂通知下發(fā)到各系（輪流傳閱），各系從中選訂所開課程的教材，填寫預(yù)訂單，經(jīng)系、部匯總報(bào)教材科。教材科編制填寫正式訂單寄發(fā)到各出版社。2 . 教材發(fā)放。按預(yù)訂數(shù)量發(fā)放專業(yè)和年級用書。通常是以班級為單位領(lǐng)進(jìn)行領(lǐng)書。3 . 查詢。這項(xiàng)工作包括四項(xiàng)內(nèi)容，其一是預(yù)訂查詢及時(shí)了解各系教材的訂購情況；再就是入庫查詢及時(shí)掌握入庫情況；第三是庫存查詢情況：打印與報(bào)表，主

15、要用于訂書、購書的打印。4 .系統(tǒng)管理主要包括用戶、密碼的更改和用戶的添加。教材管理系統(tǒng)管理員管理教師管理教材庫存查詢教材征訂用戶管理教材管理修改用戶信息添加用戶訂單管理庫存信息管理入庫管理出庫管理圖3.1.1教材管理系統(tǒng)功能模塊設(shè)計(jì)圖3.2 數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設(shè)計(jì)1.e-r模型設(shè)計(jì)教材編號 教材教材名稱教材出版社教材作者 圖3.2.1 教材實(shí)體e-r圖教材編號倉庫教材入庫數(shù)量入庫時(shí)間入庫單價(jià)圖3.2.2倉庫實(shí)體e-r圖班級班級編號班級名稱圖3.2.3班級實(shí)體e-r圖供應(yīng)商代號供應(yīng)商 名稱 地址 電話圖3.2.4供應(yīng)商實(shí)體e-r圖教材倉庫供應(yīng)商班級入庫1nnmnm出庫訂貨圖3.2.4整體e-r圖

16、2數(shù)據(jù)庫設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫中有用戶管理表，教材出庫表，教材入庫表，教材征訂表，教材庫存表3.2.1.用戶管理表：字段名稱數(shù)據(jù)類型姓名文本密碼文本權(quán)限文本3.2.2.教材出庫表：字段名稱數(shù)據(jù)類型教材名稱文本系別文本班級文本單價(jià)數(shù)字?jǐn)?shù)量數(shù)字總金額數(shù)字出庫時(shí)間日期 3.2.3.教材征訂表：字段名稱數(shù)據(jù)類型教材名文本作者文本出版社文本出版日期日期數(shù)量數(shù)字征訂時(shí)間日期征訂人文本3.2.4.教材入庫表字段名稱數(shù)據(jù)類型教材名文本作者文本出版社文本出版日期日期書類別文本單價(jià)數(shù)量數(shù)量數(shù)量總金額數(shù)量經(jīng)手人文本入庫日期日期3.2.5.教材庫存表字段名稱數(shù)據(jù)類型教材名文本作者文本出版社文本出版日期日期單價(jià)日期書類別文本庫

17、存數(shù)量數(shù)量3.3 代碼設(shè)計(jì)設(shè)計(jì)問題是一個(gè)科學(xué)管理的問題。設(shè)計(jì)出一個(gè)好的代碼方案對于系統(tǒng)的開發(fā)工作是一件極為有利的事情。它可以使很多機(jī)器處理(如某些統(tǒng)計(jì)、校對查詢等)變得十分方便,另外還把一些現(xiàn)階段計(jì)算機(jī)很難處理的工作變成很簡單的處理。 代碼就是以數(shù)或字符來代表各種客觀實(shí)體。在現(xiàn)實(shí)世界中有很多東西如果我們不加標(biāo)識是無法區(qū)分的,這時(shí)機(jī)器處理就十分困難。所以能否將原來不能確定的東西,唯一地加以標(biāo)識是編制代碼的首要任務(wù)。以教材編號為例。在教材管理中不難發(fā)現(xiàn),有的書籍雖然名字一樣，但是出版日期，著作人不一樣,為了能夠區(qū)分開這樣的書籍而編制教材編碼（教材號：001001 001002 001003 001

18、004 001005）。唯一化雖是代碼設(shè)計(jì)的首要任務(wù)。但如果我們僅僅為了唯一化來編制代碼,那么代碼編出來后可能是雜亂無章的,使人無法辨認(rèn),而且使用起來也不方便。例如,在管理系統(tǒng)中關(guān)于計(jì)算機(jī)類的書籍以“01”打頭，其中“01001”表示計(jì)算機(jī)硬件書籍，01002表示計(jì)算機(jī)軟件書籍，01003”表示計(jì)算機(jī)信息管理書籍等。這樣在查找或統(tǒng)計(jì)某一類專業(yè)書籍時(shí)就十分方便了。（專業(yè)代碼：01001 01002 01003 02002 03003 04004）為了保持系統(tǒng)的合理性，在代碼設(shè)置時(shí)也要注意系統(tǒng)化規(guī)范。例如，001表示書記所在的地區(qū)里面擁有的書籍編號從001001到001070當(dāng)有新書加入時(shí)則會自動(dòng)

19、生成書號001071。（區(qū)號：001 002 003 004 ） 如教材代碼設(shè)計(jì)=教材編號+教材類別+出版社+任課教師 =0001（數(shù)理統(tǒng)計(jì)）001（數(shù)學(xué)類） 001（機(jī)械工業(yè)出版社） 001（胡雷） 3.4界面設(shè)計(jì) 登陸界面包括姓名，權(quán)限和密碼，與數(shù)據(jù)庫用戶管理表相連 如圖3.1 圖 3.1 代碼設(shè)計(jì); private sub command1_click() adodc1.recordsource = select * from 用戶管理 where user= & trim(datacombo1.text) & adodc1.refresh dim cn$ if trim(datacom

20、bo1.text) = then msgbox 用戶名不能為空!, , 錯(cuò)誤 datacombo1.setfocus exit sub end ifif adodc1.recordset.eof then msgbox 用戶不存在!, , 錯(cuò)誤 datacombo1.text = text3.text = adodc1.recordsource = select * from 用戶管理 adodc1.refresh datacombo1.refresh datacombo1.setfocus else cn = trim(datacombo1.text) if adodc1.recordset

21、.fields(qx) rtrim(combo1.text) then msgbox 權(quán)限錯(cuò)誤, , 錯(cuò)誤 combo1.setfocus adodc1.recordsource = select * from 用戶管理 adodc1.refresh datacombo1.refresh datacombo1.text = cn else if trim(text3.text) trim(adodc1.recordset.fields(password) then if mi = 2 then msgbox 密碼輸入錯(cuò)誤三次 + chr(13) + chr(10) + 自動(dòng)關(guān)閉本系統(tǒng), , 學(xué)

22、生教材管理軟件 unload me else msgbox 密碼錯(cuò)誤!, , 錯(cuò)誤 mi = mi + 1 adodc1.recordsource = select * from 用戶管理 adodc1.refresh datacombo1.text = cn text3.text = text3.setfocus end if else if trim(combo1.text) = 管理員 then unload me 主窗體.show else unload me 主窗體.show with 主窗體 .mnuyhgl.enabled = false .mnujcrk.enabled = f

23、alse .mnujcchk.enabled = false end with end if end if end if end ifend subprivate sub command2_click()unload meend subprivate sub form_activate()mi = 0end subprivate sub form_load()mi = 0end subprivate sub form_load()end sub 主界面在登陸界面輸入姓名，權(quán)限和密碼正確后，進(jìn)入主界面 ，包括系統(tǒng)管理和教材管理兩大模塊，其中系統(tǒng)管理有用戶管理和退出；教材管理有教材征訂，教材入庫，

24、教材出庫和教材庫存查詢。 如 圖3.2 圖3.2教師界面a 教材征訂 ：選擇主界面教材征訂進(jìn)入教材征訂界面， 征訂時(shí)輸入教材名，作者，出版社，出版時(shí)間，征訂時(shí)間，征訂人還有數(shù)量。如圖3.3 圖3.3代碼設(shè)計(jì)： private sub command1_click() dim i%, j%, m% select case command1.caption case 繼續(xù) command1.caption = 征訂 command5.enabled = false command6.enabled = false command7.enabled = false command2.enabled

25、= true combo1.setfocus case 征訂 i = len(trim(text1.text) if combo1.text = or combo4.text = or trim(text1.text) = then msgbox 信息不完整！, vbokonly + vbinformation: combo1.setfocus elseif trim(text1.text) then m = 1 for j = 1 to i if asc(mid$(trim(text1.text), j, 1) 57 then msgbox 請正確輸入數(shù)據(jù)！, vbokonly + vbin

26、formation text1.text = text1.setfocus m = 0 exit for end if next j if m then adodc1.recordsource = select * from 教材征訂表 where 教材名= & trim(combo1.text) & and 作者= & trim(combo2.text) & and 出版社= & trim(combo3.text) & and 出版日期 =# & trim(str$(dtpicker2.value) & # adodc1.refresh if adodc1.recordset.recordc

27、ount = 0 then adodc1.recordsource = select * from 教材征訂表 adodc1.refresh adodc1.recordset.addnew adodc1.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.value adodc1.recordset.fi

28、elds(4) = trim(text1.text) adodc1.recordset.fields(5) = dtpicker1.value adodc1.recordset.fields(6) = trim(combo4.text) adodc1.recordset.update adodc1.refresh else adodc1.recordset.fields(4) = adodc1.recordset.fields(4) + val(text1.text) adodc1.recordset.update adodc1.refresh end if adodc1.recordsour

29、ce = select * from 教材征訂表 adodc1.refresh text1.text = combo1 = combo2 = combo3 = end if end if end selectend subprivate sub command2_click() zd = 1 教材征訂查詢.showend subprivate sub command3_click() unload meend subprivate sub command5_click() dim i%, j%, m% i = len(trim(text1.text) if combo1.text = or c

30、ombo4.text = or trim(text1.text) = then msgbox 信息不完整,請重新輸入！, vbokonly + vbinformation: combo1.setfocus else m = 1 for j = 1 to i if asc(mid$(trim(text1.text), j, 1) 57 then msgbox 請正確輸入數(shù)據(jù)！, vbokonly + vbinformation text1.text = text1.setfocus m = 0 exit for end if next j if m then adodc1.recordset.f

31、ields(0) = trim(combo1.text) adodc1.recordset.fields(1) = trim(combo2.text) adodc1.recordset.fields(2) = trim(combo3.text) adodc1.recordset.fields(3) = dtpicker2.value adodc1.recordset.fields(4) = trim(text1.text) adodc1.recordset.fields(5) = dtpicker1.value adodc1.recordset.fields(6) = trim(combo4.

32、text) end if command1.caption = 征訂 command5.enabled = false command6.enabled = false command7.enabled = false command2.enabled = true combo1.setfocus end ifend subprivate sub command6_click() on error resume next command1.caption = 繼續(xù) command5.enabled = true command6.enabled = true command7.enabled

33、= true command2.enabled = false 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 = adodc1.recordset.fields(4) dtpicker1.value = adodc1.recordset.fields(5) combo4.text = a

34、dodc1.recordset.fields(6) command1.caption = 征訂 command5.enabled = false command6.enabled = false command7.enabled = false command2.enabled = true combo1.setfocus end subprivate sub command7_click() on error resume next adodc1.recordset.delete adodc1.refresh adodc1.recordsource = select * from 教材征訂表

35、 adodc1.refresh command1.caption = 繼續(xù) command5.enabled = true command6.enabled = true command7.enabled = true command2.enabled = false combo1.text = adodc1.recordset.fields(0) combo3.text = adodc1.recordset.fields(1) combo2.text = adodc1.recordset.fields(2) dtpicker2.value = adodc1.recordset.fields(

36、3) text1.text = adodc1.recordset.fields(4) dtpicker1.value = adodc1.recordset.fields(5) combo4.text = adodc1.recordset.fields(6)end subprivate sub datagrid1_click() command1.caption = 繼續(xù) command5.enabled = true command6.enabled = true command7.enabled = true command2.enabled = falseend subprivate su

37、b datagrid1_rowcolchange(lastrow as variant, byval lastcol as integer) on error resume next if me.cmdadd.enabled = true then 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.records

38、et.fields(3) text1.text = trim(adodc1.recordset.fields(4) dtpicker1.value = trim(adodc1.recordset.fields(5) combo4.text = adodc1.recordset.fields(6) txtydjl.text = trim(adodc1.recordset.fields(7) end ifend subprivate sub form_load() on error resume next dim i as integer, bz as integer, cn as integer

39、 dim i1 as integer, bz1 as integer, cn1 as integer dim i2 as integer, bz2 as integer, cn2 as integer dim i3 as integer, bz3 as integer, cn3 as integer combo1.clear combo2.clear combo3.clear do while not adodc2.recordset.eof bz = 0 for i = 0 to combo1.listcount if adodc2.recordset.fields(教材名) = combo

40、1.list(i) then bz = 1 next if bz = 0 then combo1.additem trim(adodc2.recordset.fields(教材名) bz = 0 for i = 0 to combo1.listcount if adodc2.recordset.fields(作者) = combo2.list(i) then bz = 1 next if bz = 0 then combo2.additem adodc2.recordset.fields(作者) bz = 0 for i = 0 to combo1.listcount if adodc2.re

41、cordset.fields(出版社) = combo3.list(i) then bz = 1 next if bz = 0 then combo3.additem adodc2.recordset.fields(出版社) adodc2.recordset.movenext loop do while not adodc1.recordset.eof adodc2.recordset.movefirst cn = adodc2.recordset.recordcount bz = 0 for i = 1 to cn if trim(adodc1.recordset.fields(教材名) =

42、 trim(adodc2.recordset.fields(教材名) then bz = 1 adodc2.recordset.movenext next i if bz = 0 then bz = 0 for i = 0 to combo1.listcount if adodc1.recordset.fields(教材名) = combo1.list(i) then bz = 1 next if bz = 0 then combo1.additem trim(adodc1.recordset.fields(教材名) end if adodc2.recordset.movefirst cn1 = adodc2.recordset.recordcount bz1 = 0 for i1 = 1 to cn1 if trim(adodc1.recordset.fields(作者) = trim(adodc2.recordset.fields(作者) then bz1 = 1 adodc2.recordset.movenext next i1 if bz = 0 then bz = 0 for i = 0 t