【正文】 不同的模塊共享邏輯組件；因此，內(nèi)部的和外部的用戶(hù)都可以訪(fǎng)問(wèn)新的和現(xiàn)有的應(yīng)用系統(tǒng)，通過(guò)現(xiàn)有應(yīng)用系統(tǒng)中的邏輯可以擴(kuò)展出新的應(yīng)用系統(tǒng)。這也就是目前應(yīng)用系統(tǒng)的發(fā)展方向。 優(yōu)勢(shì)和劣勢(shì)： （ 1） 應(yīng)用服務(wù)器運(yùn)行數(shù)據(jù)負(fù)荷較輕。 （ 2） 數(shù)據(jù)的儲(chǔ)存管理功能較為透明。 （ 3） C/S 架構(gòu)的劣勢(shì)是高昂的維護(hù)成本且投資大。 系統(tǒng)開(kāi)發(fā)環(huán)境 ： CPU: AMD 內(nèi)存： 512MB 硬盤(pán)： 80GB 顯卡： NAIDIA FX 5200 ： 操作系統(tǒng)： Windows XP 開(kāi)發(fā)工具： Microsoft VB 開(kāi)發(fā)語(yǔ)言： VB 2 系統(tǒng)需求分析和數(shù)據(jù)庫(kù)的設(shè)計(jì) 系統(tǒng)功能需求 在交通運(yùn)輸系統(tǒng)高度發(fā)達(dá)繁忙的今天，人們?cè)诟鞯夭煌鞘兄g的往返更加頻繁，極大的增加了旅客對(duì)交通行業(yè)的需求。人們可以選擇空中客車(chē)，也可以選擇火車(chē)，但是這兩種交通工具在某方面存在著 問(wèn)題。航空運(yùn)輸普遍費(fèi)用太高，火車(chē)運(yùn)輸又太過(guò)于煩悶，而且這兩種方式都只適合于遠(yuǎn)距離的交通運(yùn)輸。于是，為了讓旅客能方便快捷舒適的在兩個(gè)城市間穿梭，人們就更傾向于長(zhǎng)途汽車(chē)這樣一種交通運(yùn)輸方式。因此，長(zhǎng)途汽車(chē)站為了滿(mǎn)足大量旅客的需求，很有必要建立一套現(xiàn)代化的長(zhǎng)途汽車(chē)站管理體系和管理流程。長(zhǎng)途汽車(chē)信息管理系統(tǒng)就是針對(duì)長(zhǎng)途汽車(chē)站 使用 計(jì)算機(jī)對(duì)長(zhǎng)途汽車(chē)的各種信息進(jìn)行匯總和管理的一種現(xiàn)代化管理軟件，為長(zhǎng)途汽車(chē)站提供準(zhǔn)確，快捷，科學(xué)的信息化管理方式，大大提高車(chē)站運(yùn) 第 3 頁(yè) 共 22 頁(yè) 營(yíng)效率。 通過(guò)對(duì)用戶(hù)需求的分析 ,本系統(tǒng)具有以下特點(diǎn)： (1)由于 一項(xiàng)新的軟件在被使用之前 ,對(duì)于使用者來(lái)說(shuō)是陌生和嶄新的 ,所以要求系統(tǒng)為用戶(hù)提供簡(jiǎn)單，友好，易于操作的界面。 (2)修改，查詢(xún)，刪除數(shù)據(jù)方便 ,數(shù)據(jù)的穩(wěn)定性和可靠性好。 (3)數(shù)據(jù)計(jì)算自動(dòng)完成 ,盡量減少人工干預(yù)。 本系 統(tǒng)具有以下四個(gè)功能模塊 :系統(tǒng)管理模塊 ,汽車(chē)信息管理模塊 ,線(xiàn)路信息管理模塊 ,車(chē)票信息管理模塊。系統(tǒng)整體的簡(jiǎn)單模塊圖如圖 1 所示，以下將對(duì)具體功能需求進(jìn)行描述。 圖 1系統(tǒng)模塊 圖 系統(tǒng)用戶(hù)管理 用戶(hù)以合法身份登入系統(tǒng)后 ,管理員可以進(jìn)行系統(tǒng)用戶(hù)的添加 ,密碼的修改操作。 汽車(chē)信息 管理 管理員可以在汽車(chē)信息管理模塊實(shí)現(xiàn)對(duì)汽車(chē)信息的管理。管理員首先應(yīng)該建立汽車(chē)信息數(shù)據(jù)庫(kù)，輸入原始的數(shù)據(jù)信息，當(dāng)有新的汽車(chē)信息的時(shí)候或者管理員需要修改某個(gè)汽車(chē)的相關(guān)信息以及想要?jiǎng)h除某個(gè)汽車(chē)信息的時(shí)候，就可以完成相應(yīng)的操作。管理員也可以在整個(gè)數(shù)據(jù)庫(kù)中查尋相關(guān)汽車(chē)信息。 線(xiàn)路信息管理 車(chē)站管理員可以在線(xiàn)路信息管理模塊對(duì)車(chē)站線(xiàn)路信息進(jìn)行管理。管理員首先建立汽車(chē)線(xiàn)路信息數(shù)據(jù)庫(kù)，輸入原始的線(xiàn)路信息，當(dāng)有新的線(xiàn)路需要添加或者需汽車(chē)信息 管理 線(xiàn)路 信息管理 車(chē)票 信息管理 系統(tǒng)用戶(hù)管理 長(zhǎng)途汽車(chē) 信 息 管 理 系 統(tǒng) 第 4 頁(yè) 共 22 頁(yè) 要對(duì)已有的線(xiàn)路信息進(jìn)行修改，刪除的時(shí)候，管理員就可以進(jìn)行相應(yīng)的操作。管理員也可以 通過(guò)本模塊查詢(xún)到所有需要查詢(xún)的線(xiàn)路的詳細(xì)信息。 車(chē)票信息管理 管理員可以在車(chē)票管理模塊實(shí)現(xiàn)對(duì)線(xiàn)路車(chē)票信息的管理。管理員根據(jù)相應(yīng)的汽車(chē)線(xiàn)路信息來(lái)設(shè)置相應(yīng)的車(chē)票詳細(xì)信息。當(dāng)有新的線(xiàn)路添加的時(shí)候，要把相應(yīng)的車(chē)票信息添加到數(shù)據(jù)庫(kù)中，管理員還可以對(duì)某條線(xiàn)路的車(chē)票信息進(jìn)行修改，刪除和查詢(xún)操作。 數(shù)據(jù)庫(kù)的設(shè)計(jì) 本系統(tǒng)是一個(gè)關(guān)于 長(zhǎng)途汽車(chē)站相關(guān) 信息的管理系統(tǒng) ，主要包括用戶(hù)、汽車(chē)信息、汽車(chē)線(xiàn)路信息、車(chē)票信息的管理。因此，在設(shè)計(jì)數(shù)據(jù)庫(kù)表的時(shí)候設(shè)計(jì)了系統(tǒng)用戶(hù)表、汽車(chē)線(xiàn)路信息表、汽車(chē)信息表和車(chē)票信息表用來(lái)存儲(chǔ)對(duì)應(yīng)的信息 。由于本系統(tǒng)的管理員需要對(duì)車(chē)站的信息進(jìn)行管理，這些信息對(duì)于車(chē)站來(lái)說(shuō)是十分重要的，這就決定了本系統(tǒng)的用戶(hù)都是必須是擁有最高權(quán)限的系統(tǒng)管理員。 系統(tǒng)用戶(hù)表設(shè)計(jì) 該表是存儲(chǔ)管理員用戶(hù)名和密碼的信息表，以供登錄時(shí)候用戶(hù)名和密碼的驗(yàn)證。 表 1系統(tǒng)用戶(hù)表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 必填字段 描述 字段說(shuō)明 UserName nvarchar 10 是 用戶(hù)名 主鍵 Password nvarchar 20 是 密碼 無(wú) 汽車(chē)線(xiàn)路信息表設(shè)計(jì) 該表是存儲(chǔ)汽車(chē)線(xiàn)路信息的表，主要用來(lái)存儲(chǔ)線(xiàn)路的 編號(hào)，起始城市，到達(dá)城市，起始日期，到達(dá)時(shí)間，汽車(chē)編號(hào)，車(chē)票價(jià)格和備注信息。 表 2汽車(chē)線(xiàn)路 信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 必填字段 描述 字段說(shuō)明 buslineNO nvarchar 10 是 線(xiàn)路 編號(hào) 主鍵 departCity nvarchar 20 是 起始城市 無(wú) arricalCity nvarchar 20 是 到達(dá)城市 無(wú) departdate nvarchar 20 是 起始日期 無(wú) arrivaltime nvarchar 20 是 到達(dá)時(shí)間 無(wú) busNO nvarchar 10 是 汽車(chē)編號(hào) 無(wú) 第 5 頁(yè) 共 22 頁(yè) Price float 8 否 車(chē)票價(jià)格 無(wú) memo nvarchar 50 否 備注 無(wú) 汽車(chē)信息表設(shè)計(jì) 該表存放了汽車(chē)的基本信息，包括汽車(chē)的編號(hào)，車(chē)型，購(gòu)買(mǎi)時(shí)間，使用時(shí)間，座位數(shù)，有無(wú)空調(diào)，電視和備注信息。 表 3汽車(chē) 信息 表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 必填字段 描述 索引 busNO nvarchar 10 是 長(zhǎng)途汽車(chē) 編號(hào) 主鍵 bustype nvarchar 20 是 長(zhǎng)途汽車(chē)車(chē)型 無(wú) buydate datatime 8 否 購(gòu)買(mǎi)時(shí)間 無(wú) usedate nvarchar 20 否 使用時(shí)間 無(wú) seatNO nvarchar 10 否 汽車(chē)座位數(shù)量 無(wú) TV nvarchar 2 否 有無(wú)電視 無(wú) aircondition nvarchar 2 否 有無(wú)空調(diào) 無(wú) memo nvarchar 50 否 備注 無(wú) 車(chē)票信息表設(shè)計(jì) 該表主要存儲(chǔ)了車(chē)票的信息，包括車(chē)票編號(hào)，汽車(chē)編號(hào)，起始城市，到達(dá)城市，購(gòu)票日期，購(gòu)票時(shí)間，車(chē)票價(jià)格和備注信息。 表 4車(chē)票 信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 必填字段 描述 索引 ticketNO nvarchar 10 是 車(chē)票 編號(hào) 主鍵 busNO nvarchar 10 是 汽車(chē)編號(hào) 無(wú) departCity nvarchar 20 是 起始城市 無(wú) arrivalcity nvarchar 20 是 到達(dá)城市 無(wú) ticketdate nvarchar 20 是 購(gòu)票日期 無(wú) tickettime nvarchar 20 是 購(gòu)票時(shí)間 無(wú) ticketprice float 8 是 車(chē)票價(jià)格 無(wú) ticketMemo nvarchar 50 否 備注 無(wú) 3 系統(tǒng)功能 模塊的設(shè)計(jì)與實(shí)現(xiàn) 系統(tǒng)登錄的實(shí)現(xiàn) 系統(tǒng)登錄界面也是本長(zhǎng)途汽車(chē)信息管理系統(tǒng)的第一個(gè)界面，其界面如圖 2： 第 6 頁(yè) 共 22 頁(yè) 圖 2系統(tǒng) 登錄 界面 管理員可以通過(guò)這個(gè)界面進(jìn)入主頁(yè)面 對(duì) 其他模塊進(jìn)行 管理 ， 如 對(duì) 長(zhǎng)途汽車(chē)站相關(guān) 信息進(jìn)行修改，添加， 查詢(xún)，刪除 。同樣，在主頁(yè)面中，管理員可以修改自己密碼， 或者 添加新的管理員用戶(hù)。 管理員要登錄本系統(tǒng)，首先需要輸入用戶(hù)名和密碼，在登錄過(guò)程中驗(yàn)證用戶(hù)名和密碼是否正確，是否為空，如果不正確或者為空，就會(huì)彈出相應(yīng)的對(duì)話(huà)框，提示用戶(hù)輸入錯(cuò)誤，不能進(jìn)入該系統(tǒng)。當(dāng)用戶(hù)名和密碼都輸入正確，打開(kāi)數(shù)據(jù)庫(kù)，進(jìn)入系統(tǒng)管理 界面。 系統(tǒng)主界面的設(shè)計(jì) 系統(tǒng)主界面，也就是程序主窗體 frm_main,它是整個(gè)系統(tǒng)的主要操作界面，也是在登錄之后出現(xiàn)的系統(tǒng)操作界面，采用菜單結(jié)構(gòu)，簡(jiǎn)單明了，主要包括系統(tǒng)用戶(hù)，線(xiàn)路信息，汽車(chē)信息，車(chē)票信息 4個(gè)模塊，管理員可以通過(guò)這個(gè)界面進(jìn)入到相應(yīng)的模塊里面，完成對(duì)系統(tǒng)用戶(hù)，線(xiàn)路信息，汽車(chē)信息和車(chē)票信息的管理工作。主界面所擁有的功能是通過(guò)整個(gè)系統(tǒng)子程序的調(diào)用 ,提供工具菜單中的操作方式，方便管理員用戶(hù)根據(jù)需要選擇進(jìn)入不同的模塊，如圖 3： 第 7 頁(yè) 共 22 頁(yè) 圖 3系統(tǒng)操作 界面 系統(tǒng)用戶(hù)管理模塊設(shè)計(jì) 系統(tǒng)用戶(hù)管理模塊主要包括用戶(hù)的 添加和密碼修改兩個(gè)子模塊。主要實(shí)現(xiàn)管理員對(duì)用戶(hù)的管理。 當(dāng)需要添加新的管理員的時(shí)候，管理員可以進(jìn)入添加新的管理員用戶(hù)界面，輸入需要添加的用戶(hù)的用戶(hù)名和密碼，用戶(hù)名不能和數(shù)據(jù)庫(kù)中已有的用戶(hù)名相同，兩次輸入的密碼必須一致，然后點(diǎn)擊添加按鈕，即可完成對(duì)管理員用戶(hù)的添加，添加用戶(hù)設(shè)計(jì)界面如圖 4： 圖 4系統(tǒng)用戶(hù)添加 界面 實(shí)現(xiàn)功能部分關(guān)鍵代碼如下： If = Then ‘判斷用戶(hù)名是否為空 MsgBox 用戶(hù)名不能為空！ , vbOKOnly Exit Sub End If 第 8 頁(yè) 共 22 頁(yè) ‘判斷用戶(hù)兩次輸入的密碼是否相同 If Then MsgBox 兩次輸入密碼不同！ , vbOKOnly End If 系統(tǒng)用戶(hù)管理模塊為管理員用戶(hù)提供了修改密碼的功能，用戶(hù)必須輸入正確的舊密碼和兩次輸入的新密碼相同才能完成對(duì)現(xiàn)有用戶(hù)密碼的修改，其設(shè)計(jì) 界面如圖 5所示： 圖 5系統(tǒng)用戶(hù)密碼修改 界面 實(shí)現(xiàn)功能關(guān)鍵代碼如下： ‘判斷兩次輸入的密碼是否相同 If Then MsgBox 兩次輸入密碼不同 , vbOKOnly Else ‘判斷用戶(hù)舊密碼是否輸入正確 If (1).Value Then MsgBox 原密碼不對(duì) , vbOKOnly CloseDB ‘如果用戶(hù)輸入正確的舊密碼和新密碼，提示用戶(hù)密碼修改成功 (1).Value = Trim() ‘更新數(shù)據(jù)庫(kù) CloseDB 第 9 頁(yè) 共 22 頁(yè) MsgBox 用戶(hù)密碼已修改 , vbOKOnly ‘提示用戶(hù)密碼修改成功提示框 Unload Me End If 汽車(chē)信息管理模塊設(shè)計(jì) 汽車(chē)信息管理模塊主要實(shí)現(xiàn)管理員對(duì)汽車(chē)信息的管理工作， 提供方便快捷的操作。蓋模塊主要包括四個(gè)子模塊 ,其主要功能是對(duì)車(chē)站的汽車(chē)信息進(jìn)行添加 ,修改 ,刪除操作。四個(gè)子模塊之間的層次關(guān)系如圖 6： 圖 6汽車(chē) 信息管理模塊關(guān)系圖 在此模塊的設(shè)計(jì)過(guò)程中 ,使用了 MSFlexGrid 控件來(lái)顯示汽車(chē)信息 ,使用ShowTitle 和 loadData 兩個(gè)函數(shù)來(lái)初始化 MSFlexGrid 控件，加載后就在窗口顯示出長(zhǎng)途汽車(chē)站所有汽車(chē)的相關(guān)信息。主要包括汽車(chē)的編號(hào)，汽車(chē)的型號(hào)，購(gòu)買(mǎi)時(shí)間，使用時(shí)間，座位數(shù)量，有無(wú)電視，有無(wú)空調(diào)和備注 信息。管理員可以通過(guò)該窗口了解到所有汽車(chē)的信息。以下將具體介紹各個(gè)功能的實(shí)現(xiàn)。 添加汽車(chē)信息子模塊 在長(zhǎng)途汽車(chē)站的運(yùn)營(yíng)過(guò)程中，添加新的汽車(chē)信息是一件很平常的事情。在添加汽車(chē)信息子模塊的設(shè)計(jì)時(shí)候 ,使用 text 文本框添加汽車(chē)信息 ,包括添加汽車(chē)編號(hào) ,汽車(chē)類(lèi)型 ,購(gòu)買(mǎi)日期，使用時(shí)間，座位個(gè)數(shù)，有無(wú)電視，有無(wú)空調(diào)和備注信息，當(dāng)用戶(hù)按要求填寫(xiě)了相應(yīng)的文本框之后點(diǎn)擊添加按鈕 ,將啟動(dòng) cmd_OK_Click 事件，將添加的汽車(chē)信息放入數(shù)據(jù)庫(kù)表中。設(shè)計(jì)界面如圖 7： 汽車(chē)編號(hào) 備注信息 汽車(chē)型號(hào) 購(gòu)買(mǎi)時(shí)間 使用時(shí)間 座位數(shù)量 有無(wú)電視 有無(wú)空調(diào) 汽車(chē)信息管理 添加信息 修改信息 刪除信息 查詢(xún)信息 第 10 頁(yè) 共 22 頁(yè) 圖 7添加 汽車(chē) 信息 界面 修改汽車(chē)信息子模塊 修改汽車(chē)信息時(shí)，當(dāng)用戶(hù)選定 MSFlexGrid 控件中的一組記錄時(shí)，其相應(yīng)的信息就會(huì)顯示在修改欄中，將指定記錄附給修改欄中各個(gè)文本框使得用戶(hù)可以對(duì)汽車(chē)的所有信息進(jìn)行修改。對(duì)指定記錄進(jìn)行修改的代碼片段如下： Private Sub cmd_edit_Click() ‘修改信息按鈕 Dim SelectedRowIndex As Integer SelectedRowIndex = ‘選中需要修改的那一行 CurrentBus = (SelectedRowIndex, 1) 1 End Sub 刪除 汽車(chē)信息子模塊 當(dāng)需要?jiǎng)h除某條汽車(chē)信息的時(shí)候，選中需要?jiǎng)h除的信息，點(diǎn)擊刪除按鈕，完成對(duì)該條信息的刪除操作。實(shí)現(xiàn)功能核心代碼如下： SelectedRowIndex = ‘選中需要?jiǎng)h除的那條汽車(chē)信息 CurrentBus = (SelectedRowIndex, 1) If MsgBox(真的要?jiǎng)h除此條記錄嗎？ , vbOKCancel + vbExclamati