【正文】 度非常的緩慢，往往幾天的時間還沒有一點進展。傳統(tǒng)手工的車站售票管理，管理過程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯。第三章：結(jié)論及體會第五章 結(jié)論及體會一個大型的計算機管理系統(tǒng)必須有一個正確的設(shè)計指導(dǎo)思想，通過合理的選擇數(shù)據(jù)結(jié)構(gòu)，操作系統(tǒng)以及開發(fā)環(huán)境，構(gòu)成一個完善的網(wǎng)絡(luò)系統(tǒng)，才能充分發(fā)揮計算機信息管理優(yōu)勢。當(dāng)向?qū)瓿芍谱靼惭b包以后，它會自動生成一個帶有很多重要信息的報告。第三步，如果沒有編譯工程，打包和展開向?qū)缶幾g工程。，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動運行，這是用戶一般所采用的方法。 打包和展開向?qū)В≒ackage and Deployment）252。可以使用兩種工具來打包和發(fā)布應(yīng)用程序。創(chuàng)建Visual Basic應(yīng)用程序后，可以將創(chuàng)建的車站售票管理應(yīng)用程序通過磁盤，關(guān)盤，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來說，發(fā)布應(yīng)用程序必須經(jīng)過下面的兩個步驟：打包（.cab文件是一種壓縮文件），對于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。選擇P代碼格式編譯的應(yīng)用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應(yīng)用程序生成的可執(zhí)行文件要大的多，但是可執(zhí)行文件的運行速度比較快。當(dāng)完成當(dāng)前工程的APP對象的屬性后，就可以編譯代碼了。在設(shè)計中，可以通過這些屬性來告訴用戶一些重要的信息，在應(yīng)用程序運行時用Visual Basic代碼讀出這些屬性值，也可以在Windows資源管理器中觀察應(yīng)用程序?qū)ο蟮陌姹拘畔傩灾?。將?yīng)用程序進行編譯后，Visual 。252。252。編譯應(yīng)用程序的主要目的如下；252。編譯車站售票管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工程文件合并成一個可執(zhí)行文件。password=。initial catalog=master。 \)End Select = + 1If = 6 Then = 1End Ifsuccess = WritePrivateProfileString(BackUp, Time, , amp。 \)Case 4success = WritePrivateProfileString(BackUp, File4, backFile, amp。 \)Case 2success = WritePrivateProfileString(BackUp, File2, backFile, amp。 \)buff = String(255, 0)ret = GetPrivateProfileString(BackUp, Time, 1, buff, 256, amp。 文件： amp。 (sql)MsgBox 數(shù)據(jù)庫備份成功! amp。 backFile amp。 amp。 NowTimesql = BACKUP DATABASE hotel TO disk=39。 \BackUp) = False Then Set fldr = ( amp。 cc = Val() sumEnd SubPrivate Sub Form_Load()While Not Wend = Month(Date) = Day(Date)End Sub “報表”功能界面Private Sub Command1_Click()Dim cc As StringIf Then cc = select 工號,count(工號) as 買票數(shù) from 車票表 group by 工號End IfIf Then cc = select 車次,count( 車次) as 買票數(shù) from 車票表 group by 車次End If = ccEnd Sub進入數(shù)據(jù)庫備份恢復(fù)菜單。 amp。 cccc = 車輛編號=39。 amp。 ccIf = 全 Then = Int(Val() * Val() + )Else = Int(Val() * Val() / 2 + )End IfWhile Not If Year(Text12) = Year(Date) And Month(Text12) = And Day(Text12) = And = And = F Then sum = sum + 1 End If Wend = sum + 1While Not If Year(Text12) = Year(Date) And Month(Text12) = And Day(Text12) = And = And = T Then = flag = T Else End IfWendWhile Not If Year() = Year(Date) And Month() = And Day() = And = Then sum = sum + Val() End If Wendcc = 車次=39。 amp。 cccc = 站名=39。 amp。 Val() = = = = = = End SubPrivate Sub Combo2_LostFocus()If Val() Mod 2 = 0 Then If Val(( 1)) = 31 Then ( 1) End IfElse If Val(( 1)) 31 Then 31 End IfEnd If End SubPrivate Sub DataGrid1_Click()Dim cc As String, sum As Integersum = 0If Month(Date) = And Day(Date) = Then If (Hour() Hour(Now)) * 60 + Minute() Minute(Now) 5 Then MsgBox 已接近開車,停止售票, 64, 錯誤 = False Else = True End IfElse = TrueEnd Ifcc = 車型=39。 Val() amp。order by 發(fā)車時間 asc = zm = End SubPrivate Sub Cmdok_Click()If flag = T Then While Not If Year(Text12) = Year(Date) And Month(Text12) = And Day(Text12) = And = And = Then = F flag = F Else End If WendEnd If = Year(Date) amp。 amp。 username2 If Then MsgBox 用戶名錯誤請重輸, 16, 錯誤 Else If Then MsgBox 密碼錯誤請重輸, 16, 錯誤 = Else End If End If End If End IfEnd IfEnd Sub “售票管理”功能界面Dim flag As StringPrivate Sub Cmdfind_Click()Dim zm As String = = = zm = select ,車型,發(fā)車時間,檢票口, as 班車 from 發(fā)車時刻表,途徑表,車輛 where = and = and =39。 username1 amp。 username2 If Then MsgBox 用戶名錯誤請重輸, 16, 錯誤 Else If Then MsgBox 密碼錯誤請重輸, 16, 錯誤 = Else End If End If End IfElse If Then Set = Adodc2 = 口令 If username1 Then username2 = 工號=39。 username1 amp。首先是進入登陸界面， 登陸界面Private Sub Cmdexit_Click()EndEnd SubPrivate Sub Cmdok_Click()Dim username1 As String, username2 As Stringusername1 = If Then Set = Adodc1 = 口令 If username1 Then username2 = 用戶名=39。ADO支持Connection String屬性的4個參數(shù)，而且這4個參數(shù)將不經(jīng)過ADO的處理直接送到數(shù)據(jù)源。 Connection String屬性：是一個字符串，可以包含進行一個連接所需的所有設(shè)置值，在該字符串中所傳遞的參數(shù)是與驅(qū)動程序相關(guān)的。 ADO數(shù)據(jù)控件的屬性 ADO數(shù)據(jù)控件與Visual Basic的內(nèi)部數(shù)據(jù)控件(Data)和遠程數(shù)據(jù)控件(RDC)很相似，它允許使用ADO快速地創(chuàng)建與數(shù)據(jù)庫的連接。252。252。252。在Visual ，可以使用ADO數(shù)據(jù)控件實現(xiàn)下面一些功能：252。ADO數(shù)據(jù)控件的功能ADO data控件使用ActiveX數(shù)據(jù)對象（ADO）來快速建立數(shù)據(jù)約束控件和數(shù)據(jù)提供者之間的連接，并快速創(chuàng)建記錄集，然后將數(shù)據(jù)通過數(shù)據(jù)約束控件提供給用戶，其中數(shù)據(jù)約束控件可以是任何具有“數(shù)據(jù)源”屬性的控件，而數(shù)據(jù)提供者可以是符合OLE DB規(guī)范的數(shù)據(jù)源。程序開發(fā)人員可以創(chuàng)建這些對象并且使用這些對象訪問數(shù)據(jù)庫。與其他的數(shù)據(jù)訪問對象相比，包含在ADO的對象少得多，也更加容易使用。在Visual ，ADO的數(shù)據(jù)環(huán)境設(shè)計器(Data Environment Designer)取代了Visual Basic (User Connection Designer)。Visual Basic DB數(shù)據(jù)訪問模式。車站售票管理系統(tǒng)通過ADO這個數(shù)據(jù)控件來訪問數(shù)據(jù)庫，首先，安裝ADO 控件要在簡體中文VISUAL 。252。 有一個簡化的對象模型252。系統(tǒng)管理員車次修改運價修改終點站修改發(fā)車修改售票車次表運價表終點站名表發(fā)車時刻表查詢售票員預(yù)訂車票表退票表已售車票表報表打印車票已售車票表 車站售票管理系統(tǒng)數(shù)據(jù)流程圖針對一般車站售票管理信息系統(tǒng)的需求，通過對車站售票管理過程的內(nèi)容和數(shù)據(jù)流程分析，可以設(shè)計出該系統(tǒng)的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：n 經(jīng)過分析可以得到以下數(shù)據(jù)流條目：n 車次表=車輛編號+車型+座位數(shù)n 終點站名表=站名+里程n 運價表=車型+運價n 發(fā)車時刻表=車次+車輛編號+站名+發(fā)車時間+檢票口n 已售車票表=票號+乘車日期+車次+站名+發(fā)車時間+票價+全半價+工號+退票否n 預(yù)訂車票表=預(yù)訂號+乘車日期+車次+站名+發(fā)車時間+車型+票價+客戶名稱+訂票數(shù)量n 退票表=票號+退票時間+票價+應(yīng)退款n 售票員編號=工號+姓名n 車輛編號=6{數(shù)字}6n 車次=4{字符}5n 車型=1{字符}8n 座位數(shù)=2{數(shù)字}2n 檢票口=1{數(shù)字}2n 站名=1{字符}10n 里程=1{數(shù)字}5n 運價=1{數(shù)字}6n 發(fā)車時間={時間}n 乘車日期={日期}n 票號=7{數(shù)字}7n 票價=1{數(shù)字}5n 全半價=2{字符}2n 退票否={T|F}n 預(yù)訂號=4{數(shù)字}4n 客戶名稱=6{字符}20n 訂票數(shù)量=1{數(shù)字}2n 退票時間={日期時間}n 應(yīng)退款=1{數(shù)字}5n 工號=3{字符}3n 姓名=4{字符}8得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的數(shù)據(jù)字典設(shè)計打下基礎(chǔ)。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，可以為后面的具體設(shè)計和開發(fā)打下堅實的基礎(chǔ)。同時，合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實現(xiàn)。 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。窗體是一個窗口，它提供一種很方便的途徑來查看數(shù)據(jù)庫中已有記錄或向數(shù)據(jù)庫中增添新記錄。查詢還可以對一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。根據(jù)設(shè)計方法的不同，查詢能夠在數(shù)據(jù)庫中檢索并組合來自不同表的數(shù)