【導讀】合理的選擇數(shù)據(jù)結(jié)構(gòu)，操作系統(tǒng)以及開發(fā)環(huán)境，構(gòu)成一個完善的網(wǎng)絡(luò)系統(tǒng)，現(xiàn)代化的車站售票是集預定車票、售。水平，進而促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。第一章簡要介紹了本系統(tǒng)的設(shè)計總體線路。第二章概述了管理信息系。述、數(shù)據(jù)庫設(shè)計等內(nèi)容。第四章介紹了本系統(tǒng)的具體實現(xiàn)。系統(tǒng)開發(fā)過程中結(jié)論及使用過程中的體會進行了總結(jié)。

　　

【正文】 lse 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, 錯誤 = False 25 Else = True End If Else = True End If cc = 車型 =39。 amp。 amp。 39。 cc cc = 站名 =39。 amp。 amp。 39。 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 Text2 = 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。 amp。 amp。 39。 cc cc = 車輛編號 =39。 amp。 amp。 39。 cc = Val() sum End Sub Private Sub Form_Load() While Not Wend = Month(Date) = Day(Date) End Sub 報表管理界面編碼設(shè)計 27 圖 “報表 ”功能界面 Private Sub Command1_Click() Dim cc As String If Then cc = select 工號 ,count(工號 ) as 買票數(shù) from 車票表 group by 工號 End If If Then cc = select 車次 ,count( 車次 ) as 買票數(shù) from 車票表 group by 車次 End If = cc End Sub 數(shù)據(jù)庫備份管理界面編碼設(shè)計 進入數(shù)據(jù)庫備份恢復菜單，出現(xiàn)如圖 所示界面。 28 圖 “數(shù)據(jù)庫備份 ”功能界面 Dim fso As New FileSystemObject, fldr As Folder Dim As Dim success As Long Private Sub cmdBackUp_Click() Dim backFile As String Dim NowTime As String Dim sql As String Dim buff As String If ( amp。 \BackUp) = False Then Set fldr = ( amp。 \BackUp) End If NowTime = Format(Now, yyyymmdd_hhmmss) backFile = hotel amp。 NowTime sql = BACKUP DATABASE hotel TO disk=39。 amp。 amp。 \BackUP\ amp。 backFile amp。 39。 (sql) MsgBox 數(shù)據(jù)庫備份成功 ! amp。 vbCrLf amp。 文件： amp。 backFile, vbOKOnly + vbInformation, 備份數(shù)據(jù)庫 success = WritePrivateProfileString(BackUp, NewFile, backFile, amp。 \) buff = String(255, 0) 29 ret = GetPrivateProfileString(BackUp, Time, 1, buff, 256, amp。 \) = buff Select Case Case 1 success = WritePrivateProfileString(BackUp, File1, backFile, amp。 \) Case 2 success = WritePrivateProfileString(BackUp, File2, backFile, amp。 \) Case 3 success = WritePrivateProfileString(BackUp, File3, backFile, amp。 \) Case 4 success = WritePrivateProfileString(BackUp, File4, backFile, amp。 \) Case 5 success = WritePrivateProfileString(BackUp, File5, backFile, amp。 \) End Select = + 1 If = 6 Then = 1 End If success = WritePrivateProfileString(BackUp, Time, , amp。 \) End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub Form_Load() Set = New If = adStateOpen Then 30 With .ConnectionTimeout = 10 .Provider = sqloledb .ConnectionString = data source=.。initial catalog=master。user id=sa。password=。 .Open End With End Sub 在 Visual Basic 的集成開發(fā)環(huán)境中創(chuàng)建好車站售票管理系統(tǒng)后，并無意味著全部工作已完成，此時生成的應用程序只能在 Visual Basic 的集成環(huán)境中運行，要想使應用程序能夠脫離 Visual Basic 的集成開發(fā)環(huán)境，首先要對車站售票管理程序進行編譯并且生成 .exe 或其他類型的文件，然后調(diào)用打包和展開向?qū)?chuàng)建安裝程序。 編譯應用程序 編譯車站售票管理程序就是將創(chuàng)建的應用程序以及它的工 程文件合并成一個可執(zhí)行文件。在發(fā)布車站售票管理應用程序之前，首先應該使用測試和調(diào)試工具對改應用程序進行前面測試，在排除了所有可能的錯誤后，才可以開始對應用程序進行編譯。 編譯應用程序的主要目的如下； ? 使應用程序轉(zhuǎn)入和運行更快。 ? 給發(fā)布應用程序作準備。 ? 使用應用程序更安全。 將應用程序進行編譯后， Visual Basic 將工程中的所有文件進行組織并將這些工程文件轉(zhuǎn)化成一個可執(zhí)行的文件 .exe。 Visual Basic 提供 APP 對象來存儲應用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。在設(shè) 計中，可以通過這些屬性 31 來告訴用戶一些重要的信息，在應用程序運行時用 Visual Basic 代碼讀出這些屬性值，也可以在 Windows 資源管理器中觀察應用程序?qū)ο蟮陌姹拘畔傩灾?。右擊編譯過的 .exe 文件，然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標簽，就可以看到應用程序的版本信息。 當完成當前工程的 APP 對象的屬性后，就可以編譯代碼了。 Visual 支持兩種編譯格式： P 代碼和本地代碼。選擇 P 代碼格式編譯的應用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應用程序生成的可執(zhí)行文件要 大的多，但是可執(zhí)行文件的運行速度比較快。 因此，車站售票管理系統(tǒng)采用的視本地代碼的編譯格式。 打包應用程序 創(chuàng)建 Visual Basic 應用程序后，可以將創(chuàng)建的車站售票管理應用程序通過磁盤，關(guān)盤，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來說，發(fā)布應用程序必須經(jīng)過下面的兩個步驟： 打包 必須將應用程序文件打包為一個或多個可以部署到選定位置的 .cab 文件（ .cab 文件是一種壓縮文件），對于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。 部署 必須將打包的應用程序放置到適當?shù)奈恢?，以便用戶來安裝應用程序。 可以使用 兩種工具來打包和發(fā)布應用程序。 ? 打包和展開向?qū)В?Package and Deployment） ? Visual Basic 安裝軟件提供的安裝工具包。 打包和展開向?qū)ㄟ^提供有關(guān)如何配置 .cab 文件的選項，使發(fā)布應用程序所包含的許多步驟得以自動運行，這是用戶一般所采用的方法。 使用打包和展開向?qū)нM行打包的第一個步驟就是選擇一個工程，然后單擊打包按鈕，開始創(chuàng)建一個可以發(fā)布的應用程序。第三步，如果沒有編譯工程，打包和展開向?qū)缶幾g工程。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌?，我們這里使用向?qū)е谱靼惭b程序。當 向?qū)瓿芍谱靼惭b包以后，它會自動生成一個帶有很多重要信息的報告。 32 發(fā)布應用程序的步驟 將車站售票管理系統(tǒng)打包后，制作安裝程序的過程并沒有結(jié)束，必須將打包后的應用程序發(fā)布到一個媒體上，比如軟盤，光盤等，發(fā)布車站售票管理系統(tǒng)的主要步驟如下：選擇“車站售票管理系統(tǒng)”這個包，然后指定把這個包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“車站售票管理系統(tǒng)”的發(fā)布工作了。 “ IT開拓者 3網(wǎng)絡(luò)工作室”成立于 2021 年，是一個專業(yè)的計算機軟件開發(fā)團隊。 “資源共享，信息互通” 需要更多相關(guān)設(shè)計資料和源代碼加 :493703123