課程設(shè)計(jì)信息系統(tǒng)分析與設(shè)計(jì)

1、課程設(shè)計(jì)信息系統(tǒng)解析與設(shè)計(jì)課程設(shè)計(jì)信息系統(tǒng)解析與設(shè)計(jì)27/27課程設(shè)計(jì)信息系統(tǒng)解析與設(shè)計(jì)湖南商學(xué)院課程設(shè)計(jì)目錄序言1.1目本源31.2任目31.3用價(jià)3項(xiàng)目規(guī)劃2.1目源硬件3件境4件工具42.2目程任描述5度安排52.3目可行性估2.3.1技可行性62.3.2劃可行性72.3.3用可行性8系統(tǒng)需求解析3.1需求83.1.2定83.1.3流程93.2功能需求3.2.1功能成93.2.2功能定103.3數(shù)據(jù)需求第1頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)3.3.1數(shù)據(jù)關(guān)系113.3.2靜數(shù)據(jù)定113.4其他需求13系統(tǒng)結(jié)構(gòu)設(shè)計(jì)4.1體框架134.2件構(gòu)4.2.1模定13系統(tǒng)詳細(xì)設(shè)計(jì)5.1功能模次管理模代14

2、票價(jià)管理模代15用管理模代165.2數(shù)據(jù)數(shù)據(jù)境配置17表及其關(guān)系置17數(shù)據(jù)方式205.3界面22總結(jié)22附錄：系統(tǒng)程序源代碼24參照文件第2頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)序言1.1項(xiàng)目本源隨著時(shí)代的進(jìn)步，社會(huì)的發(fā)展，人們的生活形式與習(xí)慣也越來(lái)越多樣化，出行成為了人們生活中的一個(gè)重要組成部分，而汽車(chē)成為好多人出行選擇的交通工具。面對(duì)巨大數(shù)量的乘客的購(gòu)票需要，汽車(chē)站就要選擇使用先進(jìn)的管理方法來(lái)實(shí)現(xiàn)方便、快捷的售票、退票等方面的票務(wù)管理。隨著計(jì)算機(jī)的普及，信息辦理量的逐漸擴(kuò)大，手工辦理方式遠(yuǎn)遠(yuǎn)不能夠滿(mǎn)足人們管理活動(dòng)的需要，各種工作都逐漸由手工轉(zhuǎn)為自動(dòng)化，使好多復(fù)雜、繁瑣、且需要好多人力的工作變得簡(jiǎn)單。

3、汽車(chē)站每天產(chǎn)生售票、退票等行為數(shù)量多，使得汽車(chē)站售票管理的數(shù)據(jù)量大，而且速度要求要快，傳統(tǒng)的人力行為適應(yīng)，計(jì)算機(jī)應(yīng)用軟件的使用則能很好地滿(mǎn)足汽車(chē)站的這一需要，提高售票人員的工作效率，節(jié)約相關(guān)管理成本。1.2任務(wù)目標(biāo)本系統(tǒng)的任務(wù)目標(biāo)是：實(shí)現(xiàn)方便、快速售票；是用戶(hù)正確認(rèn)識(shí)售票情況，供應(yīng)多種盤(pán)問(wèn)和統(tǒng)計(jì)功能；實(shí)現(xiàn)系統(tǒng)的安全性設(shè)置，使系統(tǒng)自己具備必然的保護(hù)功能。1.3應(yīng)用價(jià)值經(jīng)過(guò)本系統(tǒng)的應(yīng)用來(lái)提高售票人員的工作頻率，節(jié)約售票所需時(shí)間。系統(tǒng)可利用數(shù)據(jù)庫(kù)自己的數(shù)據(jù)連接等功能使用戶(hù)能夠?qū)崿F(xiàn)不相同條件的盤(pán)問(wèn)，防備過(guò)多的人力資源的利用而且可靠行高、成本低。項(xiàng)目規(guī)劃2.1項(xiàng)目資源硬件設(shè)備表1系統(tǒng)運(yùn)行的硬件要求硬件配

4、置CPUPentiumIV1.8GHz輸入設(shè)備鍵盤(pán)、鼠標(biāo)硬盤(pán)20G內(nèi)存512M顯卡NVIDIAGeForceFX5200第3頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)顯示器純平彩顯軟件環(huán)境表2系統(tǒng)的開(kāi)發(fā)環(huán)境及工具表開(kāi)發(fā)環(huán)境/工具名稱(chēng)系統(tǒng)開(kāi)發(fā)操作系統(tǒng)Windowsserver2008系統(tǒng)開(kāi)發(fā)數(shù)據(jù)庫(kù)系統(tǒng)Access2003系統(tǒng)編碼設(shè)計(jì)與開(kāi)發(fā)環(huán)境VisualBasic6.0系統(tǒng)相應(yīng)圖表繪制工具Word軟件工具(1)VisualBasic6.0中文版作為前臺(tái)開(kāi)發(fā)軟件VisualBasic6.0中文版功能富強(qiáng)，涉及好多方面。其中數(shù)據(jù)接見(jiàn)是VisualBasic程序涉及中的重要內(nèi)容，在VisualBasic6.0中新增

5、了好多功能。VisualBasic6.0包括JET數(shù)據(jù)庫(kù)引擎的最新版本（VisualBasic與MicrosoftAccess2003均有這種數(shù)據(jù)庫(kù)引擎）。2）Access2003中文版作為后臺(tái)數(shù)據(jù)庫(kù)Access2003供應(yīng)真切的關(guān)系數(shù)據(jù)庫(kù)管理。Access擁有主要點(diǎn)字和外面要點(diǎn)字定義，而且在數(shù)據(jù)庫(kù)的引擎級(jí)供應(yīng)了完滿(mǎn)的引用完滿(mǎn)性，能夠防備不合理的更新與刪除。VisualBasic6.0與兩者結(jié)合VisualBasic使用ADO數(shù)據(jù)接見(jiàn)技術(shù)存取Access數(shù)據(jù)庫(kù)第4頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)數(shù)據(jù)中間層客戶(hù)端ActiveX.Exe窗體.DLL遠(yuǎn)端數(shù)DHTML據(jù)MicrosoftTransacti

6、onDCOM,遠(yuǎn)端ADO編碼Server數(shù)據(jù)集，遠(yuǎn)端UDTs可視數(shù)據(jù)接見(jiàn)化數(shù)數(shù)據(jù)綁定ADO，RDO，DAO據(jù)類(lèi)模塊ADORecordset工對(duì)象，ADOData控件具圖1VisualBasic使用的數(shù)據(jù)庫(kù)接見(jiàn)技術(shù)表示圖2.2項(xiàng)目進(jìn)度任務(wù)描述策劃階段：采集參照資料，整體進(jìn)度安排，選定編程語(yǔ)言與數(shù)據(jù)庫(kù)設(shè)計(jì)工具。設(shè)計(jì)階段：軟件模塊設(shè)計(jì)，數(shù)據(jù)庫(kù)定義與設(shè)計(jì)，代碼編寫(xiě)。測(cè)試階段：系統(tǒng)整體調(diào)試、解析，相應(yīng)代碼更正。進(jìn)度安排表3進(jìn)度安排表進(jìn)度完成任務(wù)所需時(shí)間系統(tǒng)設(shè)計(jì)整體策劃2008年1月系統(tǒng)資料采集和整理2008年1月2008年2月上旬軟件模塊、數(shù)據(jù)庫(kù)定義2008年2月中旬?dāng)?shù)據(jù)庫(kù)設(shè)計(jì)2008年下旬軟件代碼設(shè)計(jì)

7、2008年3月上旬2008年中旬軟件代碼測(cè)試2008年3月中旬2008年3月下旬第5頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)系統(tǒng)確認(rèn)及查收2008年4月上旬2.3項(xiàng)目可行性評(píng)估技術(shù)可行性（1）VisualBasic編程語(yǔ)言特點(diǎn)面向?qū)ο蟮目梢暬幊淘赩isualBasic中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（OOP）,把程序和數(shù)據(jù)“封裝”起來(lái)成為一個(gè)對(duì)象，每個(gè)對(duì)象都是可視的。開(kāi)發(fā)人員只要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)供應(yīng)的工具，直接在屏幕上“畫(huà)”出窗口、命令按鈕、文本框等不相同種類(lèi)的對(duì)象，并為每個(gè)對(duì)象賜予應(yīng)有的屬性，即可設(shè)計(jì)圖形用戶(hù)界面。時(shí)間驅(qū)動(dòng)的編程體系VisualBasic經(jīng)過(guò)事件來(lái)執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能

8、會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都能夠經(jīng)過(guò)一段程序（稱(chēng)為“事件過(guò)程”）來(lái)響應(yīng)。結(jié)構(gòu)化的設(shè)計(jì)語(yǔ)言VisualBasic是在結(jié)構(gòu)化的BASIC語(yǔ)言基礎(chǔ)上發(fā)展起來(lái)的，加上面向?qū)ο蟮脑O(shè)計(jì)方法，因此是更優(yōu)異的結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言。友好的VB集成開(kāi)發(fā)環(huán)境VisualBasic供應(yīng)了易學(xué)易用的應(yīng)用程序集成開(kāi)發(fā)環(huán)境。在該集成開(kāi)發(fā)環(huán)境中，用戶(hù)能夠設(shè)計(jì)界面、編寫(xiě)代碼和調(diào)試程序。VisualBasic6.0為數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)供應(yīng)了豐富的數(shù)據(jù)庫(kù)開(kāi)發(fā)組件，使數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)功能更富強(qiáng)，控制更靈便，編譯后的程序運(yùn)行速度更快。（2）Access數(shù)據(jù)庫(kù)技術(shù)Access是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，其主要特點(diǎn)以下：儲(chǔ)藏對(duì)象單一Access管理

9、的對(duì)象有表、盤(pán)問(wèn)、窗體、報(bào)表、頁(yè)、宏和模塊，以上對(duì)象都存放在后綴為（.mdb）的數(shù)據(jù)庫(kù)文件里，便于用戶(hù)的操作和管理。面向?qū)ο驛ccess是一個(gè)面向?qū)ο蟮拈_(kāi)發(fā)工具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫(kù)系統(tǒng)中的各種功能對(duì)象化，將數(shù)據(jù)庫(kù)管理的各種功能封裝在各種對(duì)象中。它將一個(gè)應(yīng)用系統(tǒng)看作是一系第6頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)列對(duì)象組成的，極大地簡(jiǎn)化了用戶(hù)的開(kāi)發(fā)工作。同時(shí)，這種基于面對(duì)對(duì)象的開(kāi)發(fā)方式，使得開(kāi)發(fā)應(yīng)用程序更加簡(jiǎn)略。界面友好、易操作Access是一個(gè)可視化工具，風(fēng)格與Windows完滿(mǎn)相同，用戶(hù)想要生成對(duì)象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，特別直觀方便。系統(tǒng)還供應(yīng)了表生成器、盤(pán)問(wèn)生成器、報(bào)表設(shè)計(jì)器以及

10、數(shù)據(jù)庫(kù)導(dǎo)游、窗體導(dǎo)游、報(bào)表導(dǎo)游等工具，使得操作簡(jiǎn)略、簡(jiǎn)單使用和掌握。集成環(huán)境、辦理多種數(shù)據(jù)信息Access基于Windows操作系統(tǒng)下的集成開(kāi)發(fā)環(huán)境，該環(huán)境集成了各種導(dǎo)游和生成器工具，極大地提高了開(kāi)發(fā)人員的工作效率，使得建立數(shù)據(jù)庫(kù)、創(chuàng)辦表、設(shè)計(jì)用戶(hù)界面、設(shè)計(jì)數(shù)據(jù)盤(pán)問(wèn)、報(bào)表打印等能夠方便有序地進(jìn)行。Access支持ODBC利用Access富強(qiáng)的DDE（動(dòng)向數(shù)據(jù)交換）和OLE（對(duì)象的聯(lián)接和嵌入）特點(diǎn)，能夠在一個(gè)數(shù)據(jù)表中嵌入位圖、Word文檔，還可以夠建立動(dòng)向的數(shù)據(jù)庫(kù)報(bào)表和窗體等。2.3.2計(jì)劃可行性誠(chéng)然整個(gè)系統(tǒng)設(shè)計(jì)的時(shí)間有三個(gè)多月，但是整個(gè)系統(tǒng)設(shè)計(jì)涉及到的方面好多，包括后臺(tái)數(shù)據(jù)庫(kù)的設(shè)計(jì)與前臺(tái)界面的

11、設(shè)計(jì)與代碼設(shè)計(jì)編寫(xiě)。此次選擇的VisualBasic語(yǔ)言編程在以前并沒(méi)有學(xué)習(xí)或接觸過(guò)，因此對(duì)于整個(gè)計(jì)劃的安排感覺(jué)時(shí)間不是很足夠。2.3.3應(yīng)用可行性整個(gè)系統(tǒng)是使用Access2003與VisualBasic6.0設(shè)計(jì)完成的，但是汽車(chē)站售票管理系統(tǒng)要實(shí)現(xiàn)的是動(dòng)向數(shù)據(jù)的管理。在選擇的VisualBasic6.0中無(wú)法實(shí)現(xiàn)該功能，也許說(shuō)在我掌握的可是范圍內(nèi)無(wú)法實(shí)現(xiàn)。還有Access對(duì)于汽車(chē)站售票系統(tǒng)的大量數(shù)據(jù)辦理實(shí)現(xiàn)收效不理想，因此該系統(tǒng)的應(yīng)用性不適合真切地被使用。系統(tǒng)需求解析3.1業(yè)務(wù)需求業(yè)務(wù)組織使用該系統(tǒng)的主假如汽車(chē)站售票人員、汽車(chē)站售票工作的管理人員與系統(tǒng)管理員。該系統(tǒng)分為普用戶(hù)和系統(tǒng)管理員兩

12、種權(quán)限登陸。汽車(chē)站的一般售票人員（一般用戶(hù)）只第7頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)能使用該系統(tǒng)的盤(pán)問(wèn)、售票管理等基本功能，汽車(chē)站售票人員、汽車(chē)站售票工作的管理人員能夠更正自己的用戶(hù)名和密碼，系統(tǒng)管理員則能實(shí)現(xiàn)系統(tǒng)用戶(hù)與一般用戶(hù)的增加，更正一般用戶(hù)與系統(tǒng)管理員的密碼，以此保證該系統(tǒng)能夠安全操作，防備不用要的損失。業(yè)務(wù)定義用戶(hù)經(jīng)過(guò)輸入不相同用戶(hù)名和密碼進(jìn)行身份考據(jù)，系統(tǒng)經(jīng)過(guò)用戶(hù)名和密碼判斷不相同用戶(hù)的權(quán)限，從而確定該用戶(hù)能夠執(zhí)行的操作。頂層數(shù)據(jù)流程圖以下業(yè)務(wù)流程所謂業(yè)務(wù)流程就是用戶(hù)在使用系統(tǒng)時(shí)的工作過(guò)程。對(duì)于多種類(lèi)用戶(hù)的系統(tǒng)來(lái)說(shuō)，每一類(lèi)用戶(hù)的工作流程都是不相同的。多用戶(hù)系統(tǒng)的工作流程都是從用戶(hù)登陸模塊

13、開(kāi)始，對(duì)用戶(hù)的身份進(jìn)行認(rèn)證。身份認(rèn)證能夠分為以下兩個(gè)過(guò)程：1）確認(rèn)用戶(hù)是否是有效的系統(tǒng)用戶(hù)。2）確定用戶(hù)的種類(lèi)。第一個(gè)過(guò)程決定用戶(hù)可否進(jìn)入系統(tǒng)。第二個(gè)過(guò)程依照用戶(hù)的種類(lèi)決定用戶(hù)的操作權(quán)限，從而決定用戶(hù)的工作界面。本系統(tǒng)的流程解析如圖3。圖1系統(tǒng)流程圖第8頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)3.2功能需求功能組成在這個(gè)汽車(chē)站售票管理系統(tǒng)下設(shè)有五個(gè)不相同模塊的功能：分別是車(chē)次管理、票價(jià)管理、票務(wù)管理、用戶(hù)管理和盤(pán)問(wèn)管理。車(chē)次管理中實(shí)現(xiàn)車(chē)次信息的編寫(xiě)。票價(jià)管理部分實(shí)現(xiàn)票價(jià)信息的錄入、更正與刪除以及票價(jià)折扣信息的錄入、更正與刪除。票務(wù)管理部分實(shí)現(xiàn)前臺(tái)售票、前臺(tái)退票功能。用戶(hù)管理部分實(shí)現(xiàn)用戶(hù)增加，用戶(hù)信息更正與

14、用戶(hù)的刪除。詳細(xì)聯(lián)系以下列圖汽車(chē)站售票管理系統(tǒng)車(chē)票票用查次價(jià)務(wù)戶(hù)詢(xún)管管管管管理理理理理車(chē)票票票用票票車(chē)票次價(jià)價(jià)價(jià)前前戶(hù)價(jià)價(jià)次價(jià)信信信信臺(tái)臺(tái)信信信信信息息息息售退息息息息息編錄修刪票票添修刪查查輯入改除加改除詢(xún)?cè)儓D2功能組成結(jié)構(gòu)圖3.2.2功能定義（1）車(chē)次管理：車(chē)次詳細(xì)信息的編寫(xiě)。車(chē)次管理中的數(shù)據(jù)源為Access數(shù)據(jù)庫(kù)中Car表，在此管理部分中，能夠使用界面操作實(shí)現(xiàn)車(chē)次信息的編寫(xiě)，并將數(shù)據(jù)庫(kù)中的數(shù)據(jù)按照編寫(xiě)的要求來(lái)及時(shí)更新數(shù)據(jù)表中的相關(guān)數(shù)據(jù)。（2）票價(jià)管理：票價(jià)詳細(xì)信息的錄入、更正、刪除，它的數(shù)據(jù)源為Access數(shù)據(jù)庫(kù)的Price表。在此管理部分中，經(jīng)過(guò)票價(jià)管理（FrmPriceManage）

15、界面來(lái)選擇記錄并決定執(zhí)行何種操作，是更正、增加或刪除。當(dāng)命令為更正也許增加時(shí)則自動(dòng)跳轉(zhuǎn)到票價(jià)編輯窗體（FrmPriceEdit）實(shí)現(xiàn)票價(jià)信息的編寫(xiě)并更新數(shù)據(jù)庫(kù)中相應(yīng)數(shù)據(jù)記錄。第9頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)（3）折扣管理：針對(duì)不相同車(chē)次的不相同車(chē)票種類(lèi)進(jìn)行信息的錄入、更正與刪除，數(shù)據(jù)源為Access數(shù)據(jù)庫(kù)的PriceDiscount表。此管理部分第一顯示的為票價(jià)折扣信息管理窗體（FrmDiscount），經(jīng)過(guò)選擇不相同的命令按鈕來(lái)執(zhí)行相應(yīng)的更正、增加或刪除操作中一個(gè)，選擇增加或更正則轉(zhuǎn)至折扣信息編寫(xiě)窗體（FrmDiscountEdit）執(zhí)行命令并更新相應(yīng)的數(shù)據(jù)記錄。4）用戶(hù)管理：所有系統(tǒng)用戶(hù)的

16、管理，包括系一致般用戶(hù)與系統(tǒng)管理員。此管理模塊數(shù)據(jù)源為Access數(shù)據(jù)庫(kù)的Users表。在系統(tǒng)主界面中第一進(jìn)入的是名稱(chēng)為FrmUserMan的用戶(hù)管理主窗體，選擇增加或刪除用戶(hù)進(jìn)入名為FrmUserEdit的用戶(hù)編寫(xiě)界面進(jìn)行操作，操作完成便更新數(shù)據(jù)庫(kù)數(shù)據(jù)。（5）盤(pán)問(wèn)管理：經(jīng)過(guò)盤(pán)問(wèn)界面能夠依照條件進(jìn)行車(chē)次時(shí)辰、車(chē)次票價(jià)盤(pán)問(wèn)。3.3數(shù)據(jù)需求數(shù)據(jù)關(guān)系11TerminalIDCarIDCarTypeOutStationPlateNumberTerminalNameCarHolderTNPYCodeRunningWay1CarIDSeatLimitTicketPriceOutSetTimeNRecord

17、NumberCarIDTicketTypeIDDateDiscount11TicketTypeIDTerminalCarIDRecordIDSellTicketTypePrice11sno圖3實(shí)體關(guān)系圖靜態(tài)數(shù)據(jù)定義表1Car表詳細(xì)設(shè)計(jì)字段名數(shù)據(jù)種類(lèi)可否主鍵可否必填字段說(shuō)明第10頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)CarID文本是是車(chē)次編號(hào)CarType數(shù)字否否客車(chē)型號(hào)PlateNumber文本否是車(chē)牌號(hào)CarHolder文本否否責(zé)任人RunningWay文本否否經(jīng)營(yíng)路線(xiàn)SeatLimit數(shù)字否是座位限額OutSetTime日期/時(shí)間否是發(fā)車(chē)時(shí)間表2Seat表詳細(xì)設(shè)計(jì)表6PriceDiscount表詳細(xì)

18、設(shè)計(jì)字段名數(shù)據(jù)種類(lèi)可否主鍵可否必填字段說(shuō)明RecordNumber自動(dòng)編號(hào)是是記錄號(hào)TicketTypeID數(shù)字否是車(chē)票種類(lèi)Discount數(shù)字否是折扣CarID文本否是車(chē)次表3Price表詳細(xì)設(shè)計(jì)表4Type表詳細(xì)設(shè)計(jì)字段名數(shù)據(jù)種類(lèi)可否主鍵可否必填字段說(shuō)明RecordID自動(dòng)編號(hào)是是記錄號(hào)TicketTypeID數(shù)字否是車(chē)票種類(lèi)編號(hào)TicketType文本否是車(chē)票種類(lèi)3.4其他需求汽車(chē)站售票系統(tǒng)數(shù)據(jù)庫(kù)中的數(shù)據(jù)量十分弘大，而且更新速度十分快。在數(shù)據(jù)大小方面要求數(shù)據(jù)的屬性要設(shè)置合理，假如是數(shù)據(jù)的屬性值越大，則數(shù)據(jù)自己所占用的容量也就十分的弘大，有可能削弱系統(tǒng)運(yùn)行速度，使得系統(tǒng)無(wú)法達(dá)到預(yù)期的目的。

19、別的，在整個(gè)系統(tǒng)中間要保證數(shù)據(jù)在保存與傳達(dá)過(guò)程中的安全，省得發(fā)生嚴(yán)重的錯(cuò)誤，造成巨大的損失。系統(tǒng)結(jié)構(gòu)設(shè)計(jì)第11頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)4.1整體框架系統(tǒng)工作模式為后臺(tái)數(shù)據(jù)庫(kù)前臺(tái)操作界面系統(tǒng)用戶(hù)的工作模式。系統(tǒng)用戶(hù)經(jīng)過(guò)前臺(tái)操作界面從后臺(tái)數(shù)據(jù)庫(kù)中提取數(shù)據(jù)并進(jìn)行相關(guān)數(shù)據(jù)的操作。圖4系統(tǒng)工作模式表示圖系后統(tǒng)臺(tái)用數(shù)據(jù)前臺(tái)操作界面戶(hù)庫(kù)4.2軟件結(jié)構(gòu)模塊定義1）車(chē)次管理模塊編寫(xiě)車(chē)次信息查察車(chē)次信息（2）票價(jià)管理模塊增加票價(jià)信息更正票價(jià)信息查察票價(jià)信息3）折扣信息管理增加折扣信息刪除折扣信息查察折扣信息4）用戶(hù)信息管理增加用戶(hù)信息更正用戶(hù)密碼第12頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)刪除用戶(hù)信息查察用戶(hù)信息（5）

20、盤(pán)問(wèn)管理票價(jià)盤(pán)問(wèn)車(chē)次盤(pán)問(wèn)系統(tǒng)詳細(xì)設(shè)計(jì)5.1功能模塊詳細(xì)設(shè)計(jì)車(chē)次管理模塊代碼實(shí)現(xiàn)PrivateSubCmd_OK_Click()檢查用戶(hù)錄入數(shù)據(jù)的有效性txtCarID.SetFocusExitSubEndIfIfLen(Trim(txtOutTime)=0ThenMsgBox請(qǐng)輸入發(fā)車(chē)時(shí)間txtOutTime.SetFocusExitSubEndIf把用戶(hù)錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫(kù)對(duì)象變量中WithMyType.CarID=MakeStr(txtCarID)車(chē)次編號(hào).OutSetTime=MakeStr(TimeEdit)發(fā)車(chē)時(shí)間.RunninWay=MakeStr(WayEdit)經(jīng)營(yíng)路線(xiàn).Ca

21、rType=MakeStr(TypeEdit)車(chē)輛種類(lèi).PlateNumber=MakeStr(CNnEdit)車(chē)牌號(hào).CarHolder=MakeStr(HolderEdit)責(zé)任人.SeatLimit=MakeStr(LSeatEdit)額定座位第13頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)EndIfEndWithUnloadMe關(guān)閉窗口票價(jià)管理模塊代碼實(shí)現(xiàn)票價(jià)管理部分代碼以下（信息增加過(guò)程）：PrivateSubCmd_Add_Click()初始化FrmDiscountEdit信息FrmPriceEdit.txtTerminalName=FrmPriceEdit.txtTNPYCode=FrmPri

22、ceEdit.txtCarID=FrmPriceEdit.txtTicketPrice=FrmPriceEdit.ShowRefreshDataEndSub用戶(hù)管路模塊代碼實(shí)現(xiàn)（編寫(xiě)窗體代碼）：PrivateSubCmd_OK_Click()IfTrim(txtUserName)=ThenMsgBox請(qǐng)輸入用戶(hù)名txtUserName.SetFocusExitSubEndIfEndIfIftxtPasstxtPass2ThenMsgBox密碼和確認(rèn)密碼不相同，請(qǐng)重新確認(rèn)txtPass2.SelLength=Len(txtPass2)ExitSubEndIf第14頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)判斷

23、可否存在同名用戶(hù)WithMyUserIfModify=FalseOrOriUserTrim(txtUserName)ThenIf.In_DB(Trim(txtUserName)=TrueThentxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIf5.2數(shù)據(jù)庫(kù)詳細(xì)設(shè)計(jì)數(shù)據(jù)庫(kù)環(huán)境配置此系統(tǒng)使用Access2003中文版作為后臺(tái)數(shù)據(jù)庫(kù)，它對(duì)環(huán)境的要求其實(shí)不大。用戶(hù)可以在將其與其他一些Microsoft套裝來(lái)一起進(jìn)行安裝，也能夠?qū)ccess2003中文版作為一個(gè)但單獨(dú)的數(shù)據(jù)庫(kù)軟件類(lèi)安裝。表設(shè)計(jì)及其關(guān)系設(shè)置圖5

24、表Car結(jié)構(gòu)圖6表Price結(jié)構(gòu)圖7表PriceDiscount結(jié)構(gòu)第15頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)圖8表Type結(jié)構(gòu)圖9表SelledTicket表結(jié)構(gòu)圖10表BackTicket表結(jié)構(gòu)圖11表Users結(jié)構(gòu)第16頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)圖13表間結(jié)構(gòu)表示圖數(shù)據(jù)接見(jiàn)方式及其代碼解析與說(shuō)明在本系統(tǒng)中VisualBasic使用ADO數(shù)據(jù)接見(jiàn)技術(shù)存取Access數(shù)據(jù)庫(kù)。數(shù)據(jù)供應(yīng)程序和使用者之間的橋梁就是數(shù)據(jù)源，數(shù)據(jù)源是使用MicrosoftActiveXData第17頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)Objects(ADO)創(chuàng)辦的，而MicrosoftActiveXDataObjects是Visu

25、alBasic在任何數(shù)據(jù)源中接見(jiàn)數(shù)據(jù)的主要方法。為了向后兼容和方便工程保護(hù)，它依舊支持遠(yuǎn)程數(shù)據(jù)對(duì)象（RemoteDataObject,RDO）和數(shù)據(jù)接見(jiàn)對(duì)象（DataAccessObjects,DAO）。在VisualB，數(shù)據(jù)接見(jiàn)對(duì)象（DAO）、ODBC直接連接到數(shù)據(jù)庫(kù)。其中ADO是最新的數(shù)據(jù)庫(kù)接見(jiàn)技術(shù)。它是使用更加簡(jiǎn)單，而又更加靈便的對(duì)象模型。對(duì)于新工程，應(yīng)該使用ADO作為數(shù)據(jù)訪問(wèn)接口。為了節(jié)約系統(tǒng)資源，在系統(tǒng)中新建一個(gè)模塊，該模塊用于連接各個(gè)模塊中的數(shù)據(jù)表，從而防備在程序中大量運(yùn)用ADO控件，給開(kāi)發(fā)應(yīng)用程序帶來(lái)諸多不便。模塊中的程序代碼以下：PublicadoConAsNewADODB.C

26、onncetionPublicadorsAsNewADODB.Recordset連接數(shù)據(jù)庫(kù)PublicSubmain()SetadoCon=NewADODB.ConnectionadoCon.Open=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&汽車(chē)站售票管理系統(tǒng).mdb&;PersistSecurityInfo=FalseFrmLogin.ShowEndSub5.3界面設(shè)計(jì)系統(tǒng)主界面設(shè)計(jì)以下，主界面頂端顯示不相同管理模塊，點(diǎn)擊則進(jìn)入相應(yīng)界面。下端顯示系統(tǒng)當(dāng)前所處日期和時(shí)間。第18頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)圖14系統(tǒng)主界面設(shè)計(jì)總

27、結(jié)此次的課程設(shè)計(jì)對(duì)于我來(lái)說(shuō)是一項(xiàng)很重要的任務(wù)，也是一次很大的挑戰(zhàn)。第一，我選擇的是做系統(tǒng)，要做好一個(gè)系統(tǒng)就必定要有前臺(tái)和后臺(tái)的不相同差異。前臺(tái)的界面我選擇的是VisualBasic6.0。這是我以前向來(lái)沒(méi)有接觸過(guò)的語(yǔ)言，要做系統(tǒng)就要學(xué)習(xí)這一門(mén)語(yǔ)言。其次，做一個(gè)系統(tǒng)的整體設(shè)計(jì)以前向來(lái)沒(méi)有過(guò)，這是第一次的試一試。經(jīng)過(guò)這一段的時(shí)間，我還是大概出了一個(gè)系統(tǒng)做，可是系統(tǒng)最后并沒(méi)有編譯成功，因此根本不能夠運(yùn)行，這就說(shuō)明我的系統(tǒng)設(shè)計(jì)是不行功的。雖然沒(méi)有獲取比較好的結(jié)果，但是我最少知道了系統(tǒng)設(shè)計(jì)的一些步驟與流程，也對(duì)VisualBasic語(yǔ)言有了必然的認(rèn)識(shí)，這是我有收獲的方面?；仡^仔細(xì)解析自己制作開(kāi)發(fā)的系統(tǒng)很

28、不完滿(mǎn),要實(shí)現(xiàn)汽車(chē)站的快速、方便的票務(wù)管理，用Access作為后臺(tái)數(shù)據(jù)庫(kù)是行不通的，本系統(tǒng)實(shí)現(xiàn)的功能也不夠完滿(mǎn)。而且，單獨(dú)采納VisualBasic來(lái)設(shè)計(jì)前臺(tái)的操作界面也不是一個(gè)理想的選擇。使用VisualBasic設(shè)計(jì)的界面功能不夠富強(qiáng)，操作不是很方便，無(wú)法實(shí)現(xiàn)現(xiàn)實(shí)中的應(yīng)用。第19頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)附錄：系統(tǒng)程序源代碼登陸窗體（FrmLogin）代碼PublicPasswordKeyAsStringPublicNameKeyAsStringPublicTry_timesAsInteger取消鍵退出登陸界面PrivateSubCmd_Cancel_Click()UnloadMeEnd

29、SubPrivateSubCmd_OK_Click()數(shù)據(jù)庫(kù)有效性檢查IfTrim(txtUser)=ThenEndIfIfTrim(txtPwd)=ThenMsgBox請(qǐng)輸入密碼txtPwd.SetFocusExitSubEndIfPasswordKey=Str(txtPwd)判斷用戶(hù)可否存在IfMyUser.In_DB(NameKey)=FlaseThenMsgBox用戶(hù)名不存在判斷密碼可否正確MyUser.GetINfo(NameKey)IfMyUser.PwdPasswordKeyThenMsgBox密碼錯(cuò)誤Try_times=Try_times+1IfTry_times=3Then第

30、20頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)MsgBox您已經(jīng)三次試一試進(jìn)入本系統(tǒng)，均不行功，系統(tǒng)將關(guān)閉DBapi_DisconnectEndIf登陸成功，將當(dāng)前用戶(hù)的信息保存在CurUser中關(guān)閉自己并顯示主窗體UnloadMeFrmMain.ShowEndFunction2）主窗體(FrmMain)代碼設(shè)置數(shù)據(jù)庫(kù)連接字符串汽車(chē)站售票管理系統(tǒng).mdb&;PresistSecurityInfo=FalseEndSubPrivateSubTPGL_Click()FrmBack.ShowEndSubPrivateSubXGMM_Click()IfCurUser.User_type=1ThenFrmUserMa

31、n.ShowElseMsgBox沒(méi)有權(quán)限EndIfEndSubPrivateSubZKGL_Click()FrmDiscount.ShowEndSub第21頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)3）售票窗體（FrmTicketSell）代碼PrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_Search_Click()GridRsfresh依照條件盤(pán)問(wèn)所有信息EndSubPrivateSubCmd_Sell_Click()DimComboDateAsString,TNPYCodeAsString,CarIDAsStringDimleftAsIn

32、tegerTNPY=Trim(txtTNPYCode)Trim(ComboDate)&andPrice.TNPYCode=&Trim(txtTNPYCode)&依照輸入的信息，從表里得出盤(pán)問(wèn)結(jié)果rsdata.OpenstrQuery,cnnrsdata,adCmdTextIfrsdata.EOFThenMsgBox車(chē)次或拼音碼輸入有誤，請(qǐng)重新輸入！,Error!ComboDate.Text=TNPYCode=txtCarID=txtCarID.SetFocusElseIfIsNumeric(Number)=FalseThenMsgBox車(chē)次編號(hào)應(yīng)為數(shù)字！txtCarID.Text=txtCar

33、ID.SetFocus第22頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)Elsersdata.Closersdata.ClosestrQuery=selectcount(*)astotalfromSeatwhereSeat.sell=falseandSeat.date=&_Trim(ComboDate)&andSeat.CarID=&Trim(txtCarID)&rsdata.OpenstrQuery,cnnrsdata,adCmdText統(tǒng)計(jì)本車(chē)次的節(jié)余的座位數(shù)rsdata.MoveFirstrsdata.AddNewrsdata!Date=comdatersdata!Seat=comSNnorsdata!

34、CarID=CarIDrsdata!TNPYCode=TNPYCodersdata!sno=Trim(seatnumber)rsdata.Update增加新記錄更新Seat表，將剛賣(mài)出的座位號(hào)設(shè)為falsestrQuery=select*fromSeatwhereSeat.sno=&Trim(seatnumber)&_andSeat.date=&Trim(ComboDate)&_andSeatCarID=&Trim(txtCarID)&rsdata.OpenstrQuery,cnnrsdata,adCmdTextIfrsdata!sell=FalseThenrsdata!sell=Truers

35、data.UpdateEndIf第23頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)（4）退票窗體（FrmBack）代碼PrivateSubCmdback_Click()DimstrdateAsStringstrTnl=Trim(ComboTerminal.Text)Dimstrcnninit_adostrQuery=Select*FromSellTicketWhereSellTicket.date=&_Trim(Combodate.Text)&andSellTicket.Sno=&Trim(ComboSNno.Text)&_andSellTicket.carID=&Trim(ComboCarID.Text)&

36、檢查車(chē)票日期、車(chē)次和座位可否有效rsdata.OpenstrQuery,cnnrsdata,adCmdTextIfrsdata.EOFThenMsgBox你所要退的票為無(wú)效票或是你的輸入有問(wèn)題！Combodate.Text=rsdata!DateComboSNSno.Text=rsdata!snoComboCarID.Text=rsdata!CarID車(chē)票有效，確認(rèn)日期、車(chē)次和座位號(hào)，確認(rèn)可否退票ticketinformation=日期:&strdate&車(chē)次:&strCarID&座位號(hào):&strsno&response=MsgBox(ticketinformation,vbOKCancel+vbInformation,可否真要退票?)Ifresponse=1Then更正SellTicket表rsdata.ClosestrQuery=select*fromSellTicketrsdata.OpenstrQuery,cnnrsdata,adCmdTextrsdata.MoveFirst第24頁(yè)共27頁(yè)湖南商學(xué)院課程設(shè)計(jì)DimiAsIntegerFori=1Torsdata.RecordCountIfrsdata!Date=strdateAndrsdata!sno=strsnoAndrsdata!sno=strs