【正文】 ，就可以完成“車站售票管理系統(tǒng)”的發(fā)布工作了。 部署 必須將打包的應(yīng)用程序放置到適當(dāng) 的位置，以便用戶來(lái)安裝應(yīng)用程序。 Visual Basic 提供 APP 對(duì)象來(lái)存儲(chǔ)應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。password=。 \) Case 2 success = WritePrivateProfileString(BackUp, File2, backFile, amp。 backFile amp。 cc = Val() sum End Sub Private Sub Form_Load() While Not Wend = Month(Date) = Day(Date) End Sub 報(bào)表管理界面編碼設(shè)計(jì) 27 圖 “報(bào)表 ”功能界面 Private Sub Command1_Click() Dim cc As String If Then cc = select 工號(hào) ,count(工號(hào) ) as 買票數(shù) from 車票表 group by 工號(hào) End If If Then cc = select 車次 ,count( 車次 ) as 買票數(shù) from 車票表 group by 車次 End If = cc End Sub 數(shù)據(jù)庫(kù)備份管理界面 編碼設(shè)計(jì) 進(jìn)入數(shù)據(jù)庫(kù)備份恢復(fù)菜單，出現(xiàn)如圖 所示界面。 cc If = 全 Then = Int(Val() * Val() + ) Else = Int(Val() * Val() / 2 + ) End If While Not If Year(Text12) = Year(Date) And Month(Text12) = And Day(Text12) = And = And = F Then sum = sum + 1 End If Wend = sum + 1 While Not If Year(Text12) = Year(Date) And Month(Text12) = And Day(Text12) = And = And = T Then = flag = T Else 26 End If Wend While Not If Year() = Year(Date) And Month() = And Day() = And = Then sum = sum + Val() End If Wend cc = 車次 =39。 Val() = = 24 = = = = End Sub Private Sub Combo2_LostFocus() If Val() Mod 2 = 0 Then If Val(( 1)) = 31 Then ( 1) End If Else If Val(( 1)) 31 Then 31 End If End If End Sub Private Sub DataGrid1_Click() Dim cc As String, sum As Integer sum = 0 If Month(Date) = And Day(Date) = Then If (Hour() Hour(Now)) * 60 + Minute() Minute(Now) 5 Then MsgBox 已接近開車 ,停止售票 , 64, 錯(cuò)誤 = False 25 Else = True End If Else = True End If cc = 車型 =39。 username2 If Then MsgBox 用戶名錯(cuò)誤請(qǐng)重輸 , 16, 錯(cuò)誤 Else If Then MsgBox 密碼錯(cuò)誤請(qǐng)重輸 , 16, 錯(cuò)誤 = Else 22 End If End If End If End If End If End Sub 售票管理界面編碼設(shè)計(jì) 圖 “售票管理”功能界面 Dim flag As String Private Sub Cmdfind_Click() 23 Dim zm As String = = = zm = select 發(fā)車時(shí)刻表 .車次 ,途徑表 .站名 ,車型 ,發(fā)車時(shí)間 ,檢票口 ,發(fā)車時(shí)刻表 .站名 as 班車 from 發(fā)車時(shí)刻表 ,途徑表 ,車輛 w here 發(fā)車時(shí)刻表 .車次 =途徑表 .車次 and 發(fā)車時(shí)刻表 .車輛編號(hào) =車輛 .車輛編號(hào) and 途徑表 .站名 =39。 登陸界面編碼設(shè)計(jì) 首先是進(jìn)入登陸界面，如圖 所示 圖 登陸界面 Private Sub Cmdexit_Click() End End Sub Private Sub Cmdok_Click() Dim username1 As String, username2 As String username1 = 21 If Then Set = Adodc1 = 口令 If username1 Then username2 = 用戶名 =39。 19 ? 將數(shù)據(jù) 字段的數(shù)值傳遞給數(shù)據(jù)綁定的控件，可以在這些控件中顯示或更改這些數(shù)值。與其他的數(shù)據(jù)訪問對(duì)象相比，包含在ADO 的對(duì)象少得多，也更加容易使用。 ER 圖 關(guān)系模式 車輛（ 車輛編號(hào) ， 車型 ，座位數(shù)） 車輛 目標(biāo)站名 開往 車輛編號(hào) 車型 座位數(shù) 車次 發(fā)車時(shí)間 檢票口 站名 里程 n m 姓名 車票 售票員 售票 票號(hào) 預(yù)訂 顧客 車次 站名 票價(jià) 座位號(hào) 全半價(jià) 乘車日 期 工號(hào) 站名 車次 預(yù)訂號(hào) 顧客名稱 退票 退票時(shí)間 計(jì)費(fèi) 運(yùn)價(jià) 車型 價(jià)格 n n n n 1 1 1 1 票價(jià) 應(yīng)退款 退票否 乘車日期 主鍵 ： 外鍵 ：： 16 目標(biāo)站名（ 站名 ，里程） 發(fā)車時(shí)刻表（ 車次 ， 站名 ， 車輛編號(hào) ，發(fā)車時(shí)間，檢票口）途徑（ 車次 ，站名） 車票（ 票號(hào) ，乘車日期， 車次 ， 站名 ，票價(jià)，全半價(jià)，座位號(hào)， 工號(hào)，退票否） 預(yù)訂（ 預(yù)訂號(hào) ， 車次 ， 站名 ，乘車日期，顧客名稱，票數(shù)） 退票（ 票號(hào) ，退票時(shí)間，票價(jià)，應(yīng)退款） 售票員（ 工號(hào) ，姓名） 運(yùn)價(jià)（ 車型 ，價(jià)格） 數(shù)據(jù)詞典設(shè)計(jì) 該軟件的數(shù)據(jù)庫(kù)名稱為“車站售票管理系統(tǒng)” . 車輛表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 車輛編號(hào) Int 4 主 車型 Varchar 8 座位數(shù) smallInt 2 目標(biāo)站名： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 站名 Varchar 10 主 里程 Int 4 發(fā)車時(shí)刻表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 車次 Va rchar 5 主 站名 Varchar 10 外 車輛編號(hào) Int 4 外 發(fā)車時(shí)間 Datetime 8 檢票口 smallInt 2 途徑表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 車次 Varchar 5 主 站名 Varchar 10 外 17 車票表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 票號(hào) Int 4 主 乘車日期 Datetime 8 車次 Varchar 5 外 站名 Varchar 10 外 票價(jià) Float 8 全半價(jià) Char 2 座位號(hào) smallInt 2 工號(hào) Char 3 退票否 Char 1 預(yù)訂表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 預(yù)訂號(hào) Int 4 主 車次 Varchar 5 外 站名 Varchar 10 外 乘車日期 Datetime 8 顧客名稱 Varchar 20 票數(shù) smallInt 2 退票表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 票號(hào) Int 4 主 退票時(shí)間 Datetime 8 票價(jià) Float 8 應(yīng)退款 Float 8 售票員表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 工號(hào) Char 3 主 姓名 Char 8 運(yùn)價(jià)表： 字段名 類型 長(zhǎng)度 小數(shù)點(diǎn) 允許空 主 /外鍵 車型 Varchar 8 主 價(jià)格 Float 8 18 使用 ADO 數(shù)據(jù)控件訪問數(shù)據(jù)庫(kù) ADO(Active Data Objects)是一種新的數(shù)據(jù)訪問方式，具有以下特征： ? 有一個(gè)簡(jiǎn)化的對(duì)象模型 ? 與其他 Microsoft 和非 Microsoft 技術(shù)更加緊密的集成。 13 數(shù)據(jù)庫(kù)需求分析 數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng) 的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。查詢還可以對(duì)一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。表是存放數(shù)據(jù)的容器，被設(shè)計(jì)成行和列的格式，就像電子表中的那樣。也是初學(xué)者常用的數(shù)據(jù)庫(kù)類型。 安全保密性。 可靠性。設(shè)計(jì)從始至終貫穿著這樣的原則： 1． 以用戶需求為目標(biāo)，以方便用戶為原則，系統(tǒng)將在統(tǒng)一的 WINDOWS 操作系統(tǒng)圖形界面下提供各種實(shí)用功能，盡可能降低使用前的學(xué)習(xí)、實(shí)施和使用中的維護(hù)時(shí)間。數(shù)據(jù)準(zhǔn)備與錄入工作要注意數(shù)據(jù)的準(zhǔn)確性，在整理、錄入、校驗(yàn)等各個(gè)環(huán)節(jié)把好關(guān)，為系統(tǒng)的順利轉(zhuǎn)換打好基礎(chǔ)。 結(jié)構(gòu)化系統(tǒng)設(shè)計(jì)是指利用一組標(biāo)準(zhǔn)的圖表工具和準(zhǔn)則，確定系統(tǒng)有哪些模塊，用什么方法連接，如何構(gòu)成良好的系統(tǒng)結(jié)構(gòu)，并進(jìn)行系統(tǒng)輸入、輸出、數(shù)據(jù)處理、數(shù)據(jù)存儲(chǔ)等環(huán)節(jié)的詳細(xì)設(shè)計(jì)。 新系統(tǒng)的邏輯模型由系統(tǒng)數(shù)據(jù)流程圖、概況表、數(shù)據(jù)字典、物理邏輯表達(dá)式及有關(guān)說(shuō)明組成。調(diào)查該項(xiàng)內(nèi)容的目的主要是為了劃分系統(tǒng)界限、系統(tǒng)與外界的輸入輸出接口等。優(yōu)點(diǎn)是相對(duì)于委托開發(fā)方式而言節(jié)約了資金，并可以培養(yǎng)、增強(qiáng)使用單位的技術(shù)力量，便于系統(tǒng)維護(hù)工作，系統(tǒng)技術(shù)水平較高。因此，一方面需要大力加強(qiáng)領(lǐng)導(dǎo)，實(shí)行“一把手”原則， 另一方面可向?qū)I(yè)開發(fā)人士或公司進(jìn)行咨詢，或聘請(qǐng)他們作為開發(fā)顧問。 總之，所開發(fā)的 MIS 在使用過程中，應(yīng)使用戶的數(shù)據(jù)輸入 量降至最低限度減少用戶的干預(yù)量。特別是在需要較長(zhǎng)時(shí)間的等待時(shí)，必須讓用戶了解工作進(jìn)展情況，如可以設(shè)計(jì)已經(jīng)完成了百分之幾的任務(wù)進(jìn)度條等。 設(shè)計(jì) MIS 時(shí)，針對(duì)每一個(gè)功能，都要按照模塊化思想，使輸入、處理與輸出“涇渭分明”，充分體現(xiàn)人機(jī)界面的通信功能。 第三個(gè)因素也不能 忽視。世界發(fā)達(dá)國(guó)家已建立起了完善的先進(jìn)的管理信息系統(tǒng)體系，在其社會(huì)經(jīng)濟(jì)發(fā)展領(lǐng)域中發(fā)揮著巨大的作用。 關(guān)鍵詞： 車站售票 管理；設(shè)計(jì)；開發(fā) II 目 錄 摘 要 ..........................................................................................................