畢業(yè)論文----基于vb+acc圖書(shū)管理系統(tǒng)_第1頁(yè)
已閱讀1頁(yè),還剩43頁(yè)未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、<p><b>  摘 要</b></p><p>  圖書(shū)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面,一方面要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù);另一方面則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。</p><p>  本文介紹了數(shù)據(jù)庫(kù)管理系統(tǒng)的基本設(shè)計(jì)方法,詳細(xì)闡述了整個(gè)應(yīng)用系統(tǒng)的設(shè)計(jì)

2、思路,并對(duì)各部分設(shè)計(jì)周期進(jìn)行了詳盡的分析,最終達(dá)成了一個(gè)完整的設(shè)計(jì)方案;在文章的最后,還根據(jù)數(shù)據(jù)庫(kù)系統(tǒng)的調(diào)試結(jié)果,提出了可以進(jìn)一步改進(jìn)的部分,以便在投入實(shí)際應(yīng)用后系統(tǒng)可以更加穩(wěn)定可靠的工作。</p><p>  本文的數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)圖書(shū)管理系統(tǒng),面向中小型書(shū)店、個(gè)體書(shū)店進(jìn)行全面的人員、物流管理,旨在實(shí)現(xiàn)書(shū)店管理信息化。本系統(tǒng)采用會(huì)員制管理,將人員分為經(jīng)理、倉(cāng)庫(kù)管理員、售書(shū)員、會(huì)員、游客等,分別擁有不同的權(quán)限,各

3、司其職,以便提高工作效率。系統(tǒng)功能包括:供應(yīng)商管理、進(jìn)書(shū)管理、圖書(shū)資料管理、售書(shū)管理、會(huì)員管理、庫(kù)存統(tǒng)計(jì)、售書(shū)統(tǒng)計(jì)、退貨統(tǒng)計(jì)、基本統(tǒng)計(jì)分析等。 </p><p>  用戶(hù)權(quán)限:一、經(jīng)理權(quán)限:主要包括各種統(tǒng)計(jì)分析、員工管理、制定會(huì)員政策等等。二、倉(cāng)庫(kù)管理員權(quán)限:包含進(jìn)書(shū)管理、供應(yīng)商管理、庫(kù)存管理、退貨管理等。三、售書(shū)員權(quán)限:包含售書(shū)管理、會(huì)員管理等。</p><p>  因此本人結(jié)合設(shè)計(jì)的要

4、求,對(duì)Access數(shù)據(jù)庫(kù)、VB應(yīng)用程序設(shè)計(jì)進(jìn)行了較深入的學(xué)習(xí)和應(yīng)用,主要完成對(duì)圖書(shū)管理系統(tǒng)的需求分析、功能模塊劃分、數(shù)據(jù)庫(kù)模式分析,并由此設(shè)計(jì)了數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用程序。本文所設(shè)計(jì)的圖書(shū)管理系統(tǒng)可以滿(mǎn)足經(jīng)理、倉(cāng)庫(kù)管理員、售書(shū)員、會(huì)員、游客的需要。本文首先分析了圖書(shū)管理信息系統(tǒng)的應(yīng)用需求,按照數(shù)據(jù)庫(kù)設(shè)計(jì)理論一步一步地給出了系統(tǒng)需求說(shuō)明書(shū)、局部ER圖、全局ER圖、系統(tǒng)關(guān)系模式,子模式,建立了數(shù)據(jù)庫(kù).然后進(jìn)行了具體的程序設(shè)計(jì),實(shí)現(xiàn)了數(shù)據(jù)庫(kù)表的瀏覽

5、,記錄的添加、刪除和修改,報(bào)表的生成,實(shí)現(xiàn)了多數(shù)據(jù)庫(kù)表的連接操作,實(shí)現(xiàn)了條件查詢(xún)和模糊查詢(xún),并靈活實(shí)現(xiàn)了對(duì)不可更新查詢(xún)結(jié)果集的更新操作,實(shí)現(xiàn)了主從表操作,實(shí)現(xiàn)了密碼維護(hù)功能,設(shè)計(jì)充分利用Visual Basic的強(qiáng)大力量,提高了編程效率和可靠性。</p><p><b>  目 錄</b></p><p><b>  摘要</b></p&g

6、t;<p>  第一章、數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)</p><p>  1.1數(shù)據(jù)庫(kù)設(shè)計(jì)概述</p><p>  1.2數(shù)據(jù)庫(kù)設(shè)計(jì)周期</p><p>  第二章、圖書(shū)管理系統(tǒng)具體設(shè)計(jì)</p><p>  2.1 圖書(shū)管理系統(tǒng)總體規(guī)劃</p><p><b>  2.2需求分析</b></

7、p><p><b>  2.3概念設(shè)計(jì)</b></p><p><b>  2.4數(shù)據(jù)庫(kù)的實(shí)現(xiàn)</b></p><p>  第三章、圖書(shū)管理系統(tǒng)應(yīng)用程序設(shè)計(jì)(經(jīng)理模塊)</p><p><b>  3.1員工管理</b></p><p><b> 

8、 3.2個(gè)人資料</b></p><p><b>  3.3會(huì)員政策</b></p><p><b>  3.4統(tǒng)計(jì)分析</b></p><p><b>  3.5圖書(shū)檢索</b></p><p><b>  3.6書(shū)店情況</b></p

9、><p><b>  3.7客戶(hù)反饋</b></p><p>  3.8會(huì)員、游客模塊的基本介紹</p><p><b>  第四章、結(jié)束語(yǔ)</b></p><p><b>  附錄</b></p><p><b>  參考文獻(xiàn)</b>

10、</p><p><b>  關(guān)鍵字</b></p><p>  圖書(shū)管理系統(tǒng),Visual Basic,Access數(shù)據(jù)庫(kù) </p><p>  第一章 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)</p><p>  1.1數(shù)據(jù)庫(kù)設(shè)計(jì)概述</p><p>  計(jì)算機(jī)信息系統(tǒng)以數(shù)據(jù)庫(kù)為核心,在數(shù)據(jù)庫(kù)管理系統(tǒng)的支持下,進(jìn)行信息

11、的收集、整理、存儲(chǔ)、檢索、更新、加工、統(tǒng)計(jì)和傳播等操作。</p><p>  對(duì)于數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)人員來(lái)說(shuō),為使現(xiàn)實(shí)世界的信息流計(jì)算機(jī)話(huà),并對(duì)計(jì)算機(jī)話(huà)的信息進(jìn)行各種操作,就是如何利用數(shù)據(jù)庫(kù)管理系統(tǒng)、系統(tǒng)軟件和相關(guān)硬件系統(tǒng),將用戶(hù)的要求轉(zhuǎn)化成有效的數(shù)據(jù)結(jié)構(gòu),并使數(shù)據(jù)庫(kù)結(jié)構(gòu)易于實(shí)現(xiàn)用戶(hù)新的要求的過(guò)程。</p><p>  確切的說(shuō),數(shù)據(jù)庫(kù)設(shè)計(jì)是指對(duì)于一個(gè)給定的應(yīng)用環(huán)境,提供一個(gè)確定最優(yōu)數(shù)據(jù)模型與

12、處理模式的邏輯設(shè)計(jì),以及一個(gè)確定數(shù)據(jù)庫(kù)存儲(chǔ)結(jié)構(gòu)與存取方法的物理設(shè)計(jì),建立起既能反映現(xiàn)實(shí)世界信息和信息聯(lián)系,滿(mǎn)足用戶(hù)數(shù)據(jù)要求和加工要求,有能被某個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng)所接受,同時(shí)能實(shí)現(xiàn)系統(tǒng)目標(biāo),并有效存取數(shù)據(jù)的數(shù)據(jù)庫(kù)。</p><p>  1.2數(shù)據(jù)庫(kù)設(shè)計(jì)周期</p><p>  根據(jù)軟件工程的思想,數(shù)據(jù)庫(kù)設(shè)計(jì)的周期可以劃分為六個(gè)階段:</p><p>  (1)規(guī)劃階段:

13、確定開(kāi)發(fā)的總目標(biāo),給出計(jì)劃開(kāi)發(fā)的軟件系統(tǒng)的功能、性能、可靠性以及接等方面的設(shè)想。 </p><p> ?。?)需求分析階段:認(rèn)真細(xì)致地了解用戶(hù)對(duì)數(shù)據(jù)的加工要求,確定系統(tǒng)的功能與邊界。本階段的最終結(jié)果,提供一個(gè)可作為設(shè)計(jì)基礎(chǔ)的系統(tǒng)說(shuō)明書(shū),包括對(duì)軟硬件環(huán)境的要求和一整套完善的數(shù)據(jù)流程圖。</p><p> ?。?)設(shè)計(jì)階段:把需求分析階段所確定的功能細(xì)化,主要工作是概念設(shè)計(jì)階段、邏輯設(shè)計(jì)階段、

14、物理設(shè)計(jì)階段,然后,對(duì)每個(gè)階段內(nèi)部設(shè)計(jì)詳細(xì)的流程。 </p><p> ?。?)程序編制階段:以一種或幾種特定的程序設(shè)計(jì)語(yǔ)言表達(dá)上一階段確定的各模塊控制流程。程序編制時(shí)應(yīng)遵循結(jié)構(gòu)化程序設(shè)計(jì)方法。</p><p> ?。?)調(diào)試階段:對(duì)已編好的程序進(jìn)行單元調(diào)試(分調(diào)),整體調(diào)試(聯(lián)調(diào))和系統(tǒng)測(cè)試(驗(yàn)收)。</p><p> ?。?)運(yùn)行和維護(hù)階段:這是整個(gè)設(shè)計(jì)周期最長(zhǎng)

15、的階段,其工作重點(diǎn)是收集和記錄系統(tǒng)實(shí)際運(yùn)行的數(shù)據(jù)。在運(yùn)行中,必須保持?jǐn)?shù)據(jù)庫(kù)的完整性,必須有效的處理數(shù)據(jù)故障和進(jìn)行數(shù)據(jù)庫(kù)恢復(fù)。同時(shí)解決開(kāi)發(fā)過(guò)程的遺留問(wèn)題,改正錯(cuò)誤進(jìn)行功能完善。</p><p>  第二章 圖書(shū)管理系統(tǒng)具體設(shè)計(jì)</p><p>  2.1圖書(shū)管理系統(tǒng)總體規(guī)劃</p><p>  對(duì)于數(shù)據(jù)庫(kù)系統(tǒng),規(guī)劃工作是十分必要的。規(guī)劃的好壞將直接影響到整個(gè)圖書(shū)管理

16、系統(tǒng)的成功與否,數(shù)據(jù)庫(kù)設(shè)計(jì)中的規(guī)劃階段的主要任務(wù)是建立數(shù)據(jù)庫(kù)的必要性及可行性分析,確定數(shù)據(jù)庫(kù)系統(tǒng)在整個(gè)圖書(shū)管理系統(tǒng)的地位。</p><p>  根據(jù)圖書(shū)管理數(shù)據(jù)庫(kù)對(duì)技術(shù)人員和管理人員的水平、數(shù)據(jù)采集和管理活動(dòng)以及計(jì)算機(jī)素質(zhì)的要求;數(shù)據(jù)庫(kù)技術(shù)對(duì)計(jì)算機(jī)系統(tǒng)的軟硬件的要求。決定把數(shù)據(jù)庫(kù)管理系統(tǒng)設(shè)計(jì)成為一個(gè)綜合的數(shù)據(jù)庫(kù)。此數(shù)據(jù)庫(kù)包括所有操作人員的所有活動(dòng)功能。所以,用一個(gè)綜合的數(shù)據(jù)庫(kù)就能滿(mǎn)足圖書(shū)管理要求,而且實(shí)現(xiàn)容易。&

17、lt;/p><p>  本圖書(shū)管理系統(tǒng)采用會(huì)員制管理,將人員分為經(jīng)理、倉(cāng)庫(kù)管理員、售書(shū)員、會(huì)員、游客等,分別擁有不同的權(quán)限,各司其職,以便提高工作效率。系統(tǒng)功能包括:供應(yīng)商管理、進(jìn)書(shū)管理、圖書(shū)資料管理、售書(shū)管理、會(huì)員管理、庫(kù)存統(tǒng)計(jì)、售書(shū)統(tǒng)計(jì)、退貨統(tǒng)計(jì)、基本統(tǒng)計(jì)分析等。通過(guò)這個(gè)系統(tǒng)經(jīng)理可以對(duì)書(shū)店進(jìn)行各種統(tǒng)計(jì)分析、員工管理、制定會(huì)員政策等等;倉(cāng)庫(kù)管理員可以進(jìn)行進(jìn)書(shū)管理、供應(yīng)商管理、庫(kù)存管理、退貨管理等;售書(shū)員可以進(jìn)行售書(shū)

18、管理、會(huì)員管理等。而會(huì)員和普通消費(fèi)者可以進(jìn)行圖書(shū)的瀏覽、注冊(cè)會(huì)員、會(huì)員資料的修改等。</p><p><b>  2.2 需求分析</b></p><p>  設(shè)計(jì)一個(gè)性能良好的數(shù)據(jù)庫(kù)系統(tǒng),明確應(yīng)用環(huán)境對(duì)系統(tǒng)的要求是首要的和最基本的。特別是數(shù)據(jù)應(yīng)用非常廣泛,非常復(fù)雜,要是事先沒(méi)有對(duì)信息進(jìn)行充分和細(xì)致的分析,這種設(shè)計(jì)就很難取得成功。</p><p&g

19、t;  通過(guò)需求分析階段對(duì)圖書(shū)管理系統(tǒng)的整個(gè)應(yīng)用情況作全面的、詳細(xì)的調(diào)查,確定圖書(shū)管理的目標(biāo),收集支持系統(tǒng)總的設(shè)計(jì)目標(biāo)的基礎(chǔ)數(shù)據(jù)和對(duì)這些數(shù)據(jù)的要求,確定用戶(hù)的需求,并把這些寫(xiě)成用戶(hù)和數(shù)據(jù)庫(kù)設(shè)計(jì)者都能夠接受的文檔。</p><p>  事實(shí)上,需求分析是數(shù)據(jù)庫(kù)開(kāi)發(fā)中最難的任務(wù)之一。因?yàn)?,第一,系統(tǒng)本身是可變的,用戶(hù)的需求必須不斷調(diào)整,使之與這種變化相適應(yīng)。第二,用戶(hù)很難說(shuō)清某部分工作的功能處理過(guò)程。所以,設(shè)計(jì)人員必

20、須認(rèn)識(shí)到:在整個(gè)需求分析以及系統(tǒng)設(shè)計(jì)過(guò)程中,用戶(hù)參與的重要性,通過(guò)各種方法展開(kāi)調(diào)查分析。</p><p>  本圖書(shū)管理系統(tǒng)滿(mǎn)足五方面的需求,分別是經(jīng)理管理、倉(cāng)庫(kù)管理員管理、售書(shū)員管理、會(huì)員查詢(xún)、游客注冊(cè)查詢(xún)。經(jīng)理管理對(duì)書(shū)店進(jìn)行各種統(tǒng)計(jì)分析、員工管理、制定會(huì)員政策等等;倉(cāng)庫(kù)管理員管理進(jìn)行進(jìn)書(shū)管理、供應(yīng)商管理、庫(kù)存管理、退貨管理等;售書(shū)員管理進(jìn)行售書(shū)管理、會(huì)員管理等;會(huì)員管理進(jìn)行圖書(shū)的瀏覽、資料修改等;游客進(jìn)行圖書(shū)

21、的瀏覽、注冊(cè)會(huì)員等。</p><p><b>  2.3 概念設(shè)計(jì)</b></p><p>  在概念設(shè)計(jì)階段中,設(shè)計(jì)人員從用戶(hù)的角度看待數(shù)據(jù)及處理要求和約束,產(chǎn)生一個(gè)反映用戶(hù)觀點(diǎn)的概念模式。然后再把概念模式轉(zhuǎn)換成邏輯模 式。將概念設(shè)計(jì)從設(shè)計(jì)過(guò)程中獨(dú)立開(kāi)來(lái),使各階段的任務(wù)相對(duì)單一化,設(shè)計(jì)復(fù)雜程度大大降低,不受特定DBMS的限制。</p><p&g

22、t;  利用ER方法進(jìn)行數(shù)據(jù)庫(kù)的概念設(shè)計(jì),可分成三步進(jìn)行:首先設(shè)計(jì)局部ER模式,然后把各局部ER模式綜合成一個(gè)全局模式,最后對(duì)全局ER模式進(jìn) 行優(yōu)化,得到最終的模式,即概念模式。</p><p> ?。?)設(shè)計(jì)局部ER模式</p><p><b>  實(shí)體和屬性的定義:</b></p><p>  圖書(shū)(圖書(shū)編號(hào),圖書(shū)分類(lèi)號(hào),圖書(shū)名稱(chēng),叢書(shū),作

23、者,出版社,版次,ISBN,定價(jià),庫(kù)存量,內(nèi)容介紹,關(guān)鍵詞,出版日期,入庫(kù)日期)</p><p>  圖書(shū)分類(lèi)(圖書(shū)分類(lèi)號(hào),圖書(shū)分類(lèi),所屬父類(lèi)編號(hào))</p><p>  供應(yīng)商(供應(yīng)商編號(hào),供應(yīng)商,地址,網(wǎng)址,聯(lián)系人,電話(huà),傳真,電子郵件)</p><p>  會(huì)員(會(huì)員卡號(hào),會(huì)員等級(jí),姓名,性別,地址,單位,電話(huà),電子郵件,人生格言,注冊(cè)日期)</p>

24、<p>  會(huì)員政策(會(huì)員級(jí)別,會(huì)員標(biāo)準(zhǔn),打折,贈(zèng)送禮品,備注)</p><p>  員工(員工帳號(hào),姓名,性別,地址,電話(huà),手機(jī),電子郵件,人生格言,創(chuàng)建日期)</p><p>  身份(用戶(hù)ID,用戶(hù)密碼,用戶(hù)身份)</p><p>  ER模型的“聯(lián)系”用于刻畫(huà)實(shí)體之間的關(guān)聯(lián)。一種完整的方式是對(duì)局部結(jié)構(gòu)中任意兩個(gè)實(shí)體類(lèi)型,依據(jù)需求分析的結(jié)果,考察

25、局部結(jié)構(gòu)中任意 兩個(gè)實(shí)體類(lèi)型之間是否存在聯(lián)系。若有聯(lián)系,進(jìn)一步確定是1:N,M:N,還是1:1等。還要考察一個(gè)實(shí)體類(lèi)型內(nèi)部是否存在聯(lián)系,兩個(gè)實(shí)體類(lèi)型之 間是否存在聯(lián)系,多個(gè)實(shí)體類(lèi)型之間是否存在聯(lián)系,等等。解釋如下:</p><p>  u 一個(gè)用戶(hù)只能具有一種身份,而一種身份可被多個(gè)借閱者所具有;</p><p>  u 一本圖書(shū)只能屬于一種圖書(shū)類(lèi)別(類(lèi)別),而一種圖書(shū)類(lèi)別可以包含多本圖書(shū)

26、。</p><p>  (2)設(shè)計(jì)全局ER模式</p><p>  所有局部ER模式都設(shè)計(jì)好了后,接下來(lái)就是把它們綜合成單一的全局概念結(jié)構(gòu)。全局概念結(jié)構(gòu)不僅要支持所有局部ER模式,而且必須合理地表示一個(gè)完整、一致的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)。</p><p>  1)確定公共實(shí)體類(lèi)型:為了給多個(gè)局部ER模式的合并提供開(kāi)始合并的基礎(chǔ),首先要確定各局部結(jié)構(gòu)中的公共實(shí)體類(lèi)型。在這一步

27、中我們僅根據(jù)實(shí)體類(lèi)型名和鍵來(lái)認(rèn)定公共實(shí)體類(lèi)型。一般把同名實(shí)體類(lèi)型作為公共實(shí)體類(lèi)型的一類(lèi)候選,把具有相同鍵的實(shí)體類(lèi)型作為公共實(shí)體類(lèi)型的另一類(lèi)候選。</p><p>  2)局部ER模式的合并:合并的原則是:首先進(jìn)行兩兩合并;先和合并那些現(xiàn)實(shí)世界中有聯(lián)系的局部結(jié)構(gòu);合并從公共實(shí)體類(lèi)型開(kāi)始,最后再加入獨(dú)立的局部結(jié)構(gòu)。</p><p>  3)消除沖突:沖突分為三類(lèi):屬性沖突、結(jié)構(gòu)沖突、命名沖突。

28、</p><p>  設(shè)計(jì)全局ER模式的目的不在于把若干局部ER模式形式上合并為一個(gè)ER模式,而在于消除沖突,使之成為能夠被所有用戶(hù)共同理解和接受的同一的概念模型。</p><p>  (3)全局ER模式的優(yōu)化:在得到全局ER模式后,為了提高數(shù)據(jù)庫(kù)系統(tǒng)的效率,還應(yīng)進(jìn)一步依據(jù)處理需求對(duì)ER模式進(jìn)行優(yōu)化。一個(gè)好的全局ER模式,除能準(zhǔn)確、全面地反映用戶(hù)功能需求外,還應(yīng)滿(mǎn)足下列條件:實(shí)體類(lèi)型的個(gè)數(shù)

29、要盡可能的少;實(shí)體類(lèi)型所含屬性個(gè)數(shù)盡可能少;實(shí)體類(lèi)型間聯(lián)系無(wú)冗余。</p><p>  2.4 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)</p><p>  我選用Microsoft Office Access 2003來(lái)進(jìn)行數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)。首先創(chuàng)建十三個(gè)基本數(shù)據(jù)庫(kù)表如表2-1-2-13所示,然后根據(jù)全局ER 圖,建立各個(gè)表之間的聯(lián)系,如表2-14所示。</p><p>  表2-1 用戶(hù)

30、身份表的結(jié)構(gòu)(Admin)</p><p>  表2-2 圖書(shū)信息表的結(jié)構(gòu)(Book)</p><p>  表2-3 供應(yīng)商信息表的結(jié)構(gòu)(供應(yīng)商)</p><p>  表2-4 會(huì)員信息表的結(jié)構(gòu)(會(huì)員表)</p><p>  表2-5 會(huì)員政策信息表的結(jié)構(gòu)(會(huì)員政策)</p><p>  表2-6 進(jìn)書(shū)記錄信息表的結(jié)構(gòu)

31、(進(jìn)書(shū)記錄)</p><p>  表2-7 客戶(hù)反饋信息表的結(jié)構(gòu)(客戶(hù)反饋)</p><p>  表2-8 售書(shū)記錄信息表的結(jié)構(gòu)(售書(shū)記錄)</p><p>  表2-9 書(shū)店介紹信息表的結(jié)構(gòu)(書(shū)店介紹)</p><p>  表2-10 圖書(shū)分類(lèi)信息表的結(jié)構(gòu)(圖書(shū)分類(lèi))</p><p>  表2-11 圖書(shū)進(jìn)價(jià)信息表的

32、結(jié)構(gòu)(圖書(shū)進(jìn)價(jià)表)</p><p>  表2-12 退貨記錄信息表的結(jié)構(gòu)(退貨記錄)</p><p>  表2-13 員工信息表的結(jié)構(gòu)(員工表)</p><p>  表2-14 數(shù)據(jù)庫(kù)表間的聯(lián)系表</p><p>  第三章、圖書(shū)管理系統(tǒng)應(yīng)用程序設(shè)計(jì)(經(jīng)理模塊)</p><p>  本圖書(shū)管理系統(tǒng)根據(jù)用戶(hù)權(quán)限將人員大

33、體分為五種,分別是經(jīng)理、倉(cāng)庫(kù)管理員、售書(shū)員、會(huì)員、游客。其中經(jīng)理、倉(cāng)庫(kù)管理員、售書(shū)員模塊是圖書(shū)管理系統(tǒng)的后臺(tái)操作模塊。作為整個(gè)系統(tǒng)的設(shè)計(jì)者來(lái)說(shuō),首先面對(duì)的客戶(hù)就是書(shū)店的管理者,購(gòu)書(shū)者的需求實(shí)際上只是書(shū)店的一部分,但是先決的需求是管理者對(duì)圖書(shū)管理系統(tǒng)管理的需求。所以只有在做好后臺(tái)管理系統(tǒng)后,才可以在這個(gè)基礎(chǔ)上來(lái)做前臺(tái)系統(tǒng)。我們作為管理員來(lái)對(duì)整個(gè)圖書(shū)管理系統(tǒng)進(jìn)行后臺(tái)管理,即要對(duì)系統(tǒng)的數(shù)據(jù)庫(kù)進(jìn)行操作如:供應(yīng)商管理、進(jìn)書(shū)管理、圖書(shū)資料管理、售書(shū)

34、管理、會(huì)員管理、庫(kù)存統(tǒng)計(jì)、售書(shū)統(tǒng)計(jì)、退貨統(tǒng)計(jì)、基本統(tǒng)計(jì)分析等。會(huì)員、游客模塊是圖書(shū)管理系統(tǒng)的前臺(tái)操作模塊。所進(jìn)行的操作如:圖書(shū)的瀏覽、資料修改、注冊(cè)會(huì)員等。</p><p>  根據(jù)用戶(hù)的權(quán)限又將其細(xì)化,如:經(jīng)理的權(quán)限:主要包括各種統(tǒng)計(jì)分析、員工管理、制定會(huì)員政策等;倉(cāng)庫(kù)管理員的權(quán)限:主要包括進(jìn)書(shū)管理、供應(yīng)商管理、庫(kù)存管理、退貨管理等;售書(shū)員的權(quán)限:主要包括售書(shū)管理、會(huì)員管理等;會(huì)員管理進(jìn)行圖書(shū)的瀏覽、資料修改等

35、;游客進(jìn)行圖書(shū)的瀏覽、注冊(cè)會(huì)員等。</p><p>  本人是負(fù)責(zé)整個(gè)系統(tǒng)的分析與設(shè)計(jì)以及經(jīng)理模塊的編寫(xiě),所以接下來(lái)我將對(duì)經(jīng)理模塊做詳細(xì)的介紹。</p><p><b>  3.1員工管理</b></p><p>  模塊功能:這個(gè)模塊主要實(shí)現(xiàn)的有五個(gè)功能:創(chuàng)建員工帳號(hào)、修改員工資料、修改員工密碼、查看員工資料及維護(hù)。</p>&

36、lt;p>  模塊運(yùn)行過(guò)程:點(diǎn)擊“員工管理”菜單,顯示出六個(gè)子功能項(xiàng):創(chuàng)建員工帳號(hào)、修改員工資料、修改員工密碼、員工信息、員工帳號(hào)管理。</p><p>  進(jìn)入“創(chuàng)建員工帳號(hào)”,輸入要添加的資料,點(diǎn)擊“確定”后,計(jì)算機(jī)將輸入的信息寫(xiě)入數(shù)據(jù)庫(kù)Admin和會(huì)員信息表中。進(jìn)入“修改員工資料”,輸入要修改的員工帳號(hào),按Tab鍵,如果員工帳號(hào)存在,則顯示其員工信息,點(diǎn)擊“修改”后,計(jì)算機(jī)將輸入的信息寫(xiě)入數(shù)據(jù)庫(kù)會(huì)員信

37、息表中。如不存在,則會(huì)提示“該員工帳號(hào)不存在!”。進(jìn)入“修改員工密碼”,輸入要修改的員工帳號(hào),按Tab鍵,如果員工帳號(hào)存在,則顯示其員工的舊密碼信息,輸入新的密碼后,點(diǎn)擊“修改”后,計(jì)算機(jī)將輸入的信息寫(xiě)入數(shù)據(jù)庫(kù)Admin表中。如不存在,則會(huì)提示“該員工帳號(hào)不存在!”。進(jìn)入“員工信息”,可以查看所有員工的資料。進(jìn)入“員工帳號(hào)管理”,可逐條顯示員工信息,并且可以實(shí)現(xiàn)上述創(chuàng)建員工帳號(hào)、修改員工資料的功能,以及刪除員工資料的功能。</p&

38、gt;<p><b>  3.2個(gè)人資料</b></p><p>  模塊功能:這個(gè)模塊主要實(shí)現(xiàn)的有二個(gè)功能:顯示和修改當(dāng)前用戶(hù)資料、修改當(dāng)前用戶(hù)密碼。</p><p>  模塊運(yùn)行過(guò)程:點(diǎn)擊“個(gè)人資料”菜單,顯示出二個(gè)子功能項(xiàng):基本資料、修改密碼。</p><p>  進(jìn)入“基本資料”,輸入要修改的資料信息,點(diǎn)擊“修改”后,計(jì)算

39、機(jī)將輸入的信息寫(xiě)入數(shù)據(jù)庫(kù)會(huì)員信息表中。進(jìn)入“修改密碼”,輸入當(dāng)前用戶(hù)的舊密碼以及要修改的新密碼,點(diǎn)擊“修改”后,如果員工舊密碼正確,計(jì)算機(jī)將輸入的新密碼信息寫(xiě)入數(shù)據(jù)庫(kù)Admin中。如舊密碼不正確,則會(huì)提示“用戶(hù)密碼驗(yàn)證錯(cuò)誤!你無(wú)權(quán)修改密碼!”。</p><p><b>  3.3會(huì)員政策</b></p><p>  模塊功能:這個(gè)模塊主要實(shí)現(xiàn)的有二個(gè)功能:制定會(huì)員優(yōu)惠

40、政策和等級(jí)標(biāo)準(zhǔn),查看會(huì)員資料及維護(hù)。</p><p>  模塊運(yùn)行過(guò)程:點(diǎn)擊“會(huì)員政策”菜單,顯示出四個(gè)子功能項(xiàng):制定會(huì)員優(yōu)惠政策、制定會(huì)員等級(jí)標(biāo)準(zhǔn)、會(huì)員信息、會(huì)員管理。</p><p>  進(jìn)入“制定會(huì)員優(yōu)惠政策”,可以對(duì)會(huì)員等級(jí)制定優(yōu)惠政策,如“折扣”、“贈(zèng)送禮品”等,并可修改會(huì)員等級(jí)標(biāo)準(zhǔn),計(jì)算機(jī)將輸入的信息寫(xiě)入數(shù)據(jù)庫(kù)會(huì)員政策表中。進(jìn)入“制定會(huì)員等級(jí)標(biāo)準(zhǔn)”,同“制定會(huì)員優(yōu)惠政策”相同。

41、進(jìn)入“會(huì)員信息”,可以查看所有會(huì)員及游客的資料。進(jìn)入“會(huì)員管理”,可逐條顯示會(huì)員及游客的信息,并且可以進(jìn)行創(chuàng)建新會(huì)員、修改會(huì)員及游客資料,以及刪除會(huì)員及游客資料的功能。</p><p><b>  3.4統(tǒng)計(jì)分析</b></p><p>  模塊功能:這個(gè)模塊主要實(shí)現(xiàn)的有五個(gè)功能:基本統(tǒng)計(jì)分析、詳細(xì)統(tǒng)計(jì)分析、庫(kù)存統(tǒng)計(jì)、售書(shū)統(tǒng)計(jì)、退貨統(tǒng)計(jì)。</p><

42、;p>  模塊運(yùn)行過(guò)程:點(diǎn)擊“統(tǒng)計(jì)分析”菜單,顯示出五個(gè)子功能項(xiàng):基本統(tǒng)計(jì)分析、詳細(xì)統(tǒng)計(jì)分析、庫(kù)存統(tǒng)計(jì)、售書(shū)統(tǒng)計(jì)、退貨統(tǒng)計(jì)。</p><p>  進(jìn)入“基本統(tǒng)計(jì)分析”,可以查看所有的售書(shū)記錄。進(jìn)入“詳細(xì)統(tǒng)計(jì)分析”,輸入要查詢(xún)的具體日期,點(diǎn)擊“統(tǒng)計(jì)”后,計(jì)算機(jī)將顯示該日售書(shū)的售書(shū)記錄,并顯示該日的交易總數(shù)量、銷(xiāo)售總金額以及盈利總額。如查詢(xún)的日期沒(méi)有售書(shū)記錄或日期輸入有誤,則會(huì)提示“該時(shí)段沒(méi)有銷(xiāo)售記錄,或日期填

43、寫(xiě)錯(cuò)誤!”。進(jìn)入“庫(kù)存統(tǒng)計(jì)”,可以查看現(xiàn)在的庫(kù)存圖書(shū)的信息資料。進(jìn)入“售書(shū)統(tǒng)計(jì)”,可以查看所有所售圖書(shū)的總數(shù)量和總實(shí)收金額的信息資料。進(jìn)入“基本統(tǒng)計(jì)”,可以查看所有所退圖書(shū)的總數(shù)量和總退貨金額的信息資料。</p><p><b>  3.5圖書(shū)檢索</b></p><p>  模塊功能:這個(gè)模塊主要實(shí)現(xiàn)的有二個(gè)功能:按具體內(nèi)容檢索圖書(shū)、瀏覽全部圖書(shū)。</p>

44、;<p>  模塊運(yùn)行過(guò)程:點(diǎn)擊“圖書(shū)檢索”菜單,顯示出六個(gè)子功能項(xiàng):按圖書(shū)編號(hào)檢索、按書(shū)名檢索、按分類(lèi)檢索、按作者檢索、按關(guān)鍵詞檢索、瀏覽全部。</p><p>  進(jìn)入“按圖書(shū)編號(hào)檢索”,輸入要查詢(xún)的圖書(shū)編號(hào),點(diǎn)擊“確定”后,計(jì)算機(jī)將顯示該圖書(shū)的信息資料。如輸入的圖書(shū)編號(hào)不存在,則會(huì)提示“沒(méi)有找到你要的相關(guān)記錄!”。進(jìn)入“按書(shū)名檢索”,功能同上。進(jìn)入“按分類(lèi)檢索”,功能同上。進(jìn)入“按作者檢索”,

45、功能同上。進(jìn)入“按關(guān)鍵詞檢索”,功能同上。進(jìn)入“瀏覽全部”,可以查看到所有圖書(shū)的信息資料。</p><p><b>  3.6書(shū)店情況</b></p><p>  模塊功能:這個(gè)模塊主要實(shí)現(xiàn)的有三個(gè)功能:制定書(shū)店的基本情況、查看進(jìn)書(shū)記錄、查看售書(shū)記錄。</p><p>  模塊運(yùn)行過(guò)程:點(diǎn)擊“書(shū)店情況”菜單,顯示出四個(gè)子功能項(xiàng):制定書(shū)店的簡(jiǎn)介、

46、制定書(shū)店的聯(lián)系方式、進(jìn)書(shū)記錄、售書(shū)記錄。</p><p>  進(jìn)入“制定書(shū)店的簡(jiǎn)介”,可以對(duì)書(shū)店的簡(jiǎn)介,以及書(shū)店的聯(lián)系方式等書(shū)店基本情況進(jìn)行修改,計(jì)算機(jī)將修改后的信息寫(xiě)入數(shù)據(jù)庫(kù)書(shū)店介紹表中。進(jìn)入“制定書(shū)店的聯(lián)系方式”,功能同上。進(jìn)入“進(jìn)書(shū)記錄”,顯示書(shū)店所有的進(jìn)書(shū)記錄。進(jìn)入“售書(shū)記錄”,顯示書(shū)店所有的售書(shū)記錄。</p><p><b>  3.7客戶(hù)反饋</b><

47、;/p><p>  模塊功能:這個(gè)模塊主要實(shí)現(xiàn)的有三個(gè)功能:讀者意見(jiàn)或建議、讀者投訴、反饋信息的管理。</p><p>  模塊運(yùn)行過(guò)程:點(diǎn)擊“客戶(hù)反饋”菜單,顯示出三個(gè)子功能項(xiàng):讀者意見(jiàn)或建議、讀者投訴、反饋信息的管理。</p><p>  進(jìn)入“讀者意見(jiàn)或建議”,輸入讀者的基本信息和反饋的意見(jiàn)或建議,點(diǎn)擊“確定”后,計(jì)算機(jī)將輸入的信息寫(xiě)入數(shù)據(jù)庫(kù)客戶(hù)反饋表中。進(jìn)入“讀

48、者投訴”,輸入讀者的基本信息和投訴意見(jiàn),點(diǎn)擊“確定”后,計(jì)算機(jī)將輸入的信息寫(xiě)入數(shù)據(jù)庫(kù)客戶(hù)反饋表中。進(jìn)入“反饋信息的管理”,可逐條顯示客戶(hù)的反饋信息,并且可以進(jìn)行添加、修改以及刪除反饋資料的功能。</p><p>  3.8會(huì)員、游客模塊的基本介紹</p><p>  會(huì)員及游客模塊大體相同,實(shí)現(xiàn)的功能有圖書(shū)檢索、客戶(hù)反饋、查看書(shū)店介紹、查看會(huì)員政策,兩者唯一的區(qū)別在于會(huì)員有修改會(huì)員資料及密

49、碼的功能;而游客有會(huì)員注冊(cè)的功能。其實(shí)現(xiàn)過(guò)程與經(jīng)理模塊中相應(yīng)的功能相同,這里就不在一一介紹。</p><p><b>  第四章、結(jié)束語(yǔ)</b></p><p>  通過(guò)熾天使圖書(shū)管理系統(tǒng)的開(kāi)發(fā),我對(duì)軟件開(kāi)發(fā)過(guò)程有了更清晰的了解,首先是問(wèn)題定義、需求分析,然后是功能設(shè)計(jì)、詳細(xì)設(shè)計(jì)等,并對(duì)軟件測(cè)試的方法、手段有了較深的理解,同時(shí)對(duì)書(shū)店的流程有了一個(gè)系統(tǒng)的認(rèn)識(shí)。在開(kāi)發(fā)過(guò)程

50、還認(rèn)真學(xué)習(xí)了與系統(tǒng)相關(guān)的知識(shí),極大地拓寬了我的知識(shí)面,我感到收獲不小。</p><p>  在系統(tǒng)的開(kāi)發(fā)初期,必須要熟悉企業(yè)的管理流程,初步了解ERP的相關(guān)知識(shí),這樣才能進(jìn)入到設(shè)計(jì)的過(guò)程中去。從開(kāi)始熟悉這些知識(shí)到對(duì)整體設(shè)計(jì)有了解,再?gòu)母乓O(shè)計(jì)、詳細(xì)設(shè)計(jì)到開(kāi)始編碼,以及最后的測(cè)試,整個(gè)過(guò)程感覺(jué)很充實(shí),雖然遇到了不少困難,但每當(dāng)通過(guò)自己查資料、或是向指導(dǎo)老師請(qǐng)教以及和同學(xué)請(qǐng)教,而設(shè)計(jì)出解決方案并成功實(shí)現(xiàn)時(shí),那種成就感

51、和滿(mǎn)足感足以鼓勵(lì)自己加班加點(diǎn)的辛苦。</p><p>  在編制過(guò)程中,我首先考慮到了界面的友好性,并在界面設(shè)計(jì)時(shí)不采用煩瑣的細(xì)節(jié),使界面簡(jiǎn)單、清晰,便于操作。盡管在設(shè)計(jì)的過(guò)程中,我們時(shí)刻考慮到了操作界面的友好性,但實(shí)際情況是遠(yuǎn)遠(yuǎn)不能滿(mǎn)足客戶(hù)的要求,考慮到軟件使用群體將是一群幾乎沒(méi)有任何電腦操作經(jīng)驗(yàn)的人,我們還在考慮著怎樣可以進(jìn)一步的完善和改進(jìn)。本次編制中的不足之處是因?yàn)槭鞘状螄L試使用Visual Basic編制

52、可應(yīng)用的數(shù)據(jù)管理系統(tǒng),在實(shí)際應(yīng)用中有些功能還不是很到位。我將不斷提高自己,爭(zhēng)取今后在編制程序時(shí),能編寫(xiě)出有個(gè)性且應(yīng)用性較強(qiáng)的數(shù)據(jù)庫(kù)管理系統(tǒng)。</p><p>  經(jīng)過(guò)這段時(shí)間的設(shè)計(jì)實(shí)習(xí),確實(shí)學(xué)到了不少的東西,同時(shí)也深感自己知識(shí)的欠缺。在以后的學(xué)習(xí)工作中,我一定要繼續(xù)堅(jiān)持不懈地學(xué)習(xí)新興的專(zhuān)業(yè)知識(shí)及相關(guān)的非專(zhuān)業(yè)知識(shí),只有這樣才能緊跟時(shí)代的潮流。</p><p><b>  附錄<

53、;/b></p><p><b>  圖1 系統(tǒng)流程圖</b></p><p>  用戶(hù)登錄界面圖和窗體源代碼(FrmLogoIn.frm):</p><p>  Private Sub CmdCancel_Click()</p><p><b>  Unload Me</b></p&

54、gt;<p><b>  End</b></p><p><b>  End Sub</b></p><p>  Private Sub CmdHelp_Click()</p><p>  Load FrmHelp</p><p>  FrmHelp.Show vbModal</

55、p><p><b>  End Sub</b></p><p>  Private Sub CmdLogoIn_Click()</p><p>  Dim userName As String</p><p>  Dim passwd As String</p><p>  userName = Tx

56、tUserName.Text</p><p>  passwd = TxtPasswd.Text</p><p>  TxtUserName.Enabled = False</p><p>  TxtPasswd.Enabled = False</p><p>  CmdLogoIn.Enabled = False</p>&l

57、t;p>  CmdCancel.Enabled = False</p><p>  If userName = "" Then</p><p>  MsgBox "請(qǐng)輸入你的帳號(hào)!", vbOKOnly + vbExclamation, "系統(tǒng)登陸"</p><p>  TxtUserName.Ena

58、bled = True</p><p>  TxtPasswd.Enabled = True</p><p>  CmdLogoIn.Enabled = True</p><p>  CmdCancel.Enabled = True</p><p>  TxtUserName.SetFocus</p><p><

59、b>  Exit Sub</b></p><p>  ElseIf passwd = "" Then</p><p>  MsgBox "請(qǐng)輸入你的密碼!", vbOKOnly + vbExclamation, "系統(tǒng)登陸"</p><p>  TxtUserName.Enabled =

60、True</p><p>  TxtPasswd.Enabled = True</p><p>  CmdLogoIn.Enabled = True</p><p>  CmdCancel.Enabled = True</p><p>  TxtPasswd.SetFocus</p><p><b>  Ex

61、it Sub</b></p><p><b>  Else</b></p><p>  Call CheckUser(userName, passwd)</p><p><b>  End If</b></p><p>  If Not logOK Then</p><

62、;p>  TxtUserName.Enabled = True</p><p>  TxtPasswd.Enabled = True</p><p>  CmdLogoIn.Enabled = True</p><p>  CmdCancel.Enabled = True</p><p>  TxtPasswd.SetFocus<

63、/p><p>  TxtPasswd.SelStart = 0</p><p>  TxtPasswd.SelLength = Len(TxtPasswd.Text)</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p&

64、gt;  Private Sub TxtPasswd_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>  If KeyCode = 13 Then</p><p>  CmdLogoIn.SetFocus</p><p><b>  End If</b></p><

65、p><b>  End Sub</b></p><p>  Private Sub TxtUserName_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>  If KeyCode = 13 Then</p><p>  TxtPasswd.SetFocus</p>

66、<p><b>  End If</b></p><p><b>  End Sub</b></p><p>  系統(tǒng)登錄菜單窗體源代碼(FrmMain.frm):</p><p>  Private Sub FMH_webHlp_Click()</p><p>  Dim pid As

67、 Long</p><p>  pid = Shell("Explorer.exe http://hmj.student.hvttc.edu.cn", vbNormalFocus)</p><p>  If pid = 0 Then</p><p>  MsgBox "無(wú)法打開(kāi)瀏覽器!", vbOKOnly + vbExcla

68、mation, "打開(kāi)程序出錯(cuò)"</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub frmMainH_about_Click()</p><p>  Load frmAbout<

69、/p><p>  frmAbout.Show vbModal</p><p><b>  End Sub</b></p><p>  Private Sub FrmMainH_hlp_Click()</p><p>  Load FrmHelp</p><p>  FrmHelp.Show vbMod

70、al</p><p><b>  End Sub</b></p><p>  Private Sub FrmMainS_exit_Click()</p><p>  Call Sys_exit</p><p><b>  End Sub</b></p><p>  Priva

71、te Sub frmMainS_logOff_Click()</p><p>  Call LogOff</p><p><b>  End Sub</b></p><p>  Private Sub FrmMainS_return_Click()</p><p>  If UserShenFen = "經(jīng)理&

72、quot; Then</p><p>  Load FrmAdminMain</p><p>  FrmAdminMain.Show</p><p>  ElseIf UserShenFen = "倉(cāng)庫(kù)管理員" Then</p><p>  Load FrmCangGuanMain</p><p>

73、  FrmCangGuanMain.Show</p><p>  ElseIf UserShenFen = "售書(shū)員" Then</p><p>  Load FrmBookSellerMain</p><p>  FrmBookSellerMain.Show</p><p>  ElseIf UserShenFen =

74、"會(huì)員" Then</p><p>  Load FrmMemberMain</p><p>  FrmMemberMain.Show</p><p><b>  Else</b></p><p>  Load FrmGuestMain</p><p>  FrmGuestMa

75、in.Show</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub FrmMnuS_jsq_Click()</p><p>  Dim pid As Long</p><p>  p

76、id = Shell("Calc.exe", vbNormalFocus)</p><p>  If pid = 0 Then</p><p>  MsgBox "無(wú)法打開(kāi)計(jì)算器!", vbOKOnly + vbExclamation, "打開(kāi)程序出錯(cuò)"</p><p><b>  End If&

77、lt;/b></p><p><b>  End Sub</b></p><p>  Private Sub MDIForm_Load()</p><p><b>  '設(shè)置用戶(hù)環(huán)境</b></p><p>  If UserShenFen = "經(jīng)理" Then&

78、lt;/p><p>  Load FrmAdminMain</p><p>  FrmAdminMain.Show</p><p>  ElseIf UserShenFen = "倉(cāng)庫(kù)管理員" Then</p><p>  Load FrmCangGuanMain</p><p>  FrmCangGu

79、anMain.Show</p><p>  ElseIf UserShenFen = "售書(shū)員" Then</p><p>  Load FrmBookSellerMain</p><p>  FrmBookSellerMain.Show</p><p>  ElseIf UserShenFen = "會(huì)員&qu

80、ot; Then</p><p>  Load FrmMemberMain</p><p>  FrmMemberMain.Show</p><p><b>  Else</b></p><p>  Load FrmGuestMain</p><p>  FrmGuestMain.Show<

81、/p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)</p>&l

82、t;p>  If Button = vbRightButton Then</p><p>  PopupMenu popMnu</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub MDIForm_Qu

83、eryUnload(Cancel As Integer, UnloadMode As Integer)</p><p>  Load FrmLogIn</p><p>  FrmLogIn.Show</p><p>  If UserShenFen = "經(jīng)理" Then</p><p>  Unload FrmAdmin

84、Main</p><p>  ElseIf UserShenFen = "倉(cāng)庫(kù)管理員" Then</p><p>  Unload FrmCangGuanMain</p><p>  ElseIf UserShenFen = "售書(shū)員" Then</p><p>  Unload FrmBookSell

85、erMain</p><p>  ElseIf UserShenFen = "會(huì)員" Then</p><p>  Unload FrmMemberMain</p><p><b>  Else</b></p><p>  Unload FrmGuestMain</p><p>

86、;<b>  End If</b></p><p>  Unload FrmMain</p><p>  UserShenFen = ""</p><p>  logOK = False</p><p><b>  End Sub</b></p><p>

87、  Private Sub MfrmMainS_notepad_Click()</p><p>  Dim pid As Long</p><p>  pid = Shell("Notepad.exe", vbNormalFocus)</p><p>  If pid = 0 Then</p><p>  MsgBox &

88、quot;無(wú)法打開(kāi)記事本!", vbOKOnly + vbExclamation, "打開(kāi)程序出錯(cuò)"</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub pop_about_Click()</p

89、><p>  Load frmAbout</p><p>  frmAbout.Show vbModal</p><p><b>  End Sub</b></p><p>  Private Sub pop_hlp_Click()</p><p>  Load FrmHelp</p>

90、<p>  FrmHelp.Show vbModal</p><p><b>  End Sub</b></p><p>  Private Sub POP_jsb_Click()</p><p>  Call MfrmMainS_notepad_Click</p><p><b>  End Sub

91、</b></p><p>  Private Sub POP_jsq_Click()</p><p>  Call FrmMnuS_jsq_Click</p><p><b>  End Sub</b></p><p>  Private Sub pop_retuHome_Click()</p>

92、<p>  Call FrmMainS_return_Click</p><p><b>  End Sub</b></p><p>  Private Sub pop_webHlp_Click()</p><p>  Call FMH_webHlp_Click</p><p><b>  End

93、Sub</b></p><p>  Private Sub pop_zhuXiao_Click()</p><p>  Call LogOff</p><p><b>  End Sub</b></p><p>  書(shū)店經(jīng)理工作環(huán)境界面圖和窗體源代碼(FrmAdminMain.frm):</p>

94、<p>  Public Sub searchBook(keyWords As String, fenLei As String)</p><p>  Dim strSQL As String</p><p>  SSTabGuest.Tab = 1</p><p>  If keyWords = "" Then</p>

95、<p>  MsgBox "請(qǐng)輸入檢索的關(guān)鍵詞!", vbOKOnly + vbExclamation, "圖書(shū)檢索"</p><p>  TxtKeyWords_Click</p><p><b>  Exit Sub</b></p><p><b>  End If</b&

96、gt;</p><p>  If fenLei = "" Or fenLei = "選擇分類(lèi)" Then</p><p>  MsgBox "請(qǐng)輸入檢索的依據(jù)!", vbOKOnly + vbExclamation, "圖書(shū)檢索"</p><p>  ComboLeiBie.SetFoc

97、us</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  On Error GoTo errEnd</p><p>  strSQL = "select * from [讀者查詢(xún)] where [" &

98、; fenLei & "] like '%" & keyWords & "%'"</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSource = strSQL</p><p>  Adodc1.Refres

99、h</p><p>  Set DataGrid2.DataSource = Adodc1</p><p>  DataGrid2.Refresh</p><p>  If Adodc1.Recordset.RecordCount = 0 Then</p><p>  MsgBox "沒(méi)有找到你要的相關(guān)記錄!", vbOK

100、Only + vbInformation, "圖書(shū)檢索"</p><p><b>  End If</b></p><p>  LabResult.Caption = "共找到 " & Adodc1.Recordset.RecordCount & " 條相關(guān)記錄"</p><

101、;p><b>  Exit Sub</b></p><p><b>  errEnd:</b></p><p>  MsgBox Err.Description, vbOKOnly + vbExclamation, "檢索錯(cuò)誤"</p><p><b>  End Sub</b&g

102、t;</p><p>  Private Sub CmdOK_Click()</p><p>  On Error GoTo errEnd</p><p>  If ComboDengJi.Text = "" Or ComboDengJi.Text = "請(qǐng)選擇會(huì)員級(jí)別" Then</p><p>  

103、MsgBox "請(qǐng)選擇會(huì)員級(jí)別!", vbOKOnly + vbExclamation, "會(huì)員標(biāo)準(zhǔn)"</p><p>  ComboDengJi.SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p&g

104、t;<p>  If ComboJinE.Text = "" Or ComboJinE.Text = "金額" Then</p><p>  MsgBox "請(qǐng)選擇該等級(jí)金額標(biāo)準(zhǔn)!", vbOKOnly + vbExclamation, "會(huì)員標(biāo)準(zhǔn)"</p><p>  ComboJinE.Set

105、Focus</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If ComboDaZhe.Text = "" Or ComboDaZhe.Text = "請(qǐng)選擇打折比率" Then</p><

106、;p>  MsgBox "請(qǐng)選擇該等級(jí)打折比率!", vbOKOnly + vbExclamation, "會(huì)員標(biāo)準(zhǔn)"</p><p>  ComboDaZhe.SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b&g

107、t;</p><p>  If CInt(ComboDaZhe.Text) <= 0 Or CInt(ComboDaZhe.Text) > 1 Then</p><p>  MsgBox "該等級(jí)打折比率制定有誤!", vbOKOnly + vbExclamation, "會(huì)員標(biāo)準(zhǔn)"</p><p>  Combo

108、DaZhe.SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If TxtLiPin.Text = "" Then TxtLiPin.Text = "無(wú)"</p><p&g

109、t;  If TxtQT.Text = "" Then TxtQT.Text = "無(wú)"</p><p>  Adodc2.Recordset!會(huì)員標(biāo)準(zhǔn) = ComboJinE.Text</p><p>  Adodc2.Recordset!打折 = ComboDaZhe.Text</p><p>  Adodc2.Recor

110、dset!贈(zèng)送禮品 = TxtLiPin.Text</p><p>  Adodc2.Recordset!備注 = TxtQT.Text</p><p>  Adodc2.Recordset.Update</p><p>  MsgBox "當(dāng)前等級(jí)標(biāo)準(zhǔn)更新成功!", vbOKOnly + vbInformation, "會(huì)員政策&qu

111、ot;</p><p><b>  Exit Sub</b></p><p><b>  errEnd:</b></p><p>  MsgBox Err.Description, vbOKOnly + vbExclamation, "更新錯(cuò)誤"</p><p><b>

112、;  End Sub</b></p><p>  Private Sub CmdReset_Click()</p><p>  TxtName.Text = ""</p><p>  TxtDanWei.Text = ""</p><p>  TxtDiZhi.Text = "&q

113、uot;</p><p>  TxtEmail.Text = ""</p><p>  TxtInfo.Text = ""</p><p><b>  End Sub</b></p><p>  Private Sub CmdSearch_Click()</p>&l

114、t;p>  Dim strSQL As String</p><p>  If TxtKeyWords.Text = "" Or TxtKeyWords.Text = "關(guān)鍵詞" Then</p><p>  MsgBox "請(qǐng)輸入檢索的關(guān)鍵詞!", vbOKOnly + vbExclamation, "圖書(shū)檢索&

115、quot;</p><p>  TxtKeyWords_Click</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If ComboLeiBie.Text = "" Or ComboLeiBie.Text

116、 = "選擇分類(lèi)" Then</p><p>  MsgBox "請(qǐng)輸入檢索的依據(jù)!", vbOKOnly + vbExclamation, "圖書(shū)檢索"</p><p>  ComboLeiBie.SetFocus</p><p><b>  Exit Sub</b></p&g

117、t;<p><b>  End If</b></p><p>  On Error GoTo errEnd</p><p>  strSQL = "select * from [讀者查詢(xún)] where [" & ComboLeiBie.Text & "] like '%" & Txt

118、KeyWords.Text & "%'"</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSource = strSQL</p><p>  Adodc1.Refresh</p><p>  Set DataGrid2.Data

119、Source = Adodc1</p><p>  DataGrid2.Refresh</p><p>  If Adodc1.Recordset.RecordCount = 0 Then</p><p>  MsgBox "沒(méi)有找到你要的相關(guān)記錄", vbOKOnly + vbInformation, "圖書(shū)檢索"</

120、p><p><b>  End If</b></p><p>  LabResult.Caption = "共找到 " & Adodc1.Recordset.RecordCount & " 條記錄"</p><p><b>  Exit Sub</b></p>

121、<p><b>  errEnd:</b></p><p>  MsgBox Err.Description, vbOKOnly + vbExclamation, "檢索錯(cuò)誤"</p><p><b>  End Sub</b></p><p>  Private Sub CmdSet_C

122、lick()</p><p>  On Error GoTo errEnd</p><p>  If TxtShopName.Text = "" Then</p><p>  MsgBox "請(qǐng)輸入您的書(shū)店名稱(chēng)!", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"</p>&

123、lt;p>  TxtShopName.SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If TxtShopJianJie.Text = "" Then</p><p>  MsgB

124、ox "請(qǐng)輸入您的書(shū)店簡(jiǎn)介!", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"</p><p>  TxtShopJianJie.SetFocus</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p&

125、gt;<p>  If TxtDianHua.Text = "" Then</p><p>  MsgBox "請(qǐng)輸入您的電話(huà)!", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"</p><p>  TxtDianHua.SetFocus</p><p><b>

126、  Exit Sub</b></p><p><b>  End If</b></p><p>  If TxtShouJi.Text = "" Then</p><p>  TxtShouJi.Text = "無(wú)"</p><p><b>  End If&

127、lt;/b></p><p>  If TxtMail.Text = "" Then</p><p>  TxtMail.Text = "無(wú)"</p><p><b>  End If</b></p><p>  If TxtLianXiRen.Text = "&q

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論