【導(dǎo)讀】合理的選擇數(shù)據(jù)結(jié)構(gòu)，操作系統(tǒng)以及開(kāi)發(fā)環(huán)境，構(gòu)成一個(gè)完善的網(wǎng)絡(luò)系統(tǒng)，現(xiàn)代化的車(chē)站售票是集預(yù)定車(chē)票、售。水平，進(jìn)而促進(jìn)經(jīng)濟(jì)效益，必須借助計(jì)算機(jī)來(lái)進(jìn)行現(xiàn)代化的信息管理。第一章簡(jiǎn)要介紹了本系統(tǒng)的設(shè)計(jì)總體線(xiàn)路。第二章概述了管理信息系。述、數(shù)據(jù)庫(kù)設(shè)計(jì)等內(nèi)容。第四章介紹了本系統(tǒng)的具體實(shí)現(xiàn)。系統(tǒng)開(kāi)發(fā)過(guò)程中結(jié)論及使用過(guò)程中的體會(huì)進(jìn)行了總結(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 已接近開(kāi)車(chē) ,停止售票 , 64, 錯(cuò)誤 = False 25 Else = True End If Else = True End If cc = 車(chē)型 =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 = 車(chē)次 =39。 amp。 amp。 39。 cc cc = 車(chē)輛編號(hào) =39。 amp。 amp。 39。 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 買(mǎi)票數(shù) from 車(chē)票表 group by 工號(hào) End If If Then cc = select 車(chē)次 ,count( 車(chē)次 ) as 買(mǎi)票數(shù) from 車(chē)票表 group by 車(chē)次 End If = cc End Sub 數(shù)據(jù)庫(kù)備份管理界面編碼設(shè)計(jì) 進(jìn)入數(shù)據(jù)庫(kù)備份恢復(fù)菜單，出現(xiàn)如圖 所示界面。 28 圖 “數(shù)據(jù)庫(kù)備份 ”功能界面 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ù)庫(kù)備份成功 ! amp。 vbCrLf amp。 文件： amp。 backFile, vbOKOnly + vbInformation, 備份數(shù)據(jù)庫(kù) 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 的集成開(kāi)發(fā)環(huán)境中創(chuàng)建好車(chē)站售票管理系統(tǒng)后，并無(wú)意味著全部工作已完成，此時(shí)生成的應(yīng)用程序只能在 Visual Basic 的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離 Visual Basic 的集成開(kāi)發(fā)環(huán)境，首先要對(duì)車(chē)站售票管理程序進(jìn)行編譯并且生成 .exe 或其他類(lèi)型的文件，然后調(diào)用打包和展開(kāi)向?qū)?chuàng)建安裝程序。 編譯應(yīng)用程序 編譯車(chē)站售票管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工 程文件合并成一個(gè)可執(zhí)行文件。在發(fā)布車(chē)站售票管理應(yīng)用程序之前，首先應(yīng)該使用測(cè)試和調(diào)試工具對(duì)改應(yīng)用程序進(jìn)行前面測(cè)試，在排除了所有可能的錯(cuò)誤后，才可以開(kāi)始對(duì)應(yīng)用程序進(jìn)行編譯。 編譯應(yīng)用程序的主要目的如下； ? 使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快。 ? 給發(fā)布應(yīng)用程序作準(zhǔn)備。 ? 使用應(yīng)用程序更安全。 將應(yīng)用程序進(jìn)行編譯后， Visual Basic 將工程中的所有文件進(jìn)行組織并將這些工程文件轉(zhuǎn)化成一個(gè)可執(zhí)行的文件 .exe。 Visual Basic 提供 APP 對(duì)象來(lái)存儲(chǔ)應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。在設(shè) 計(jì)中，可以通過(guò)這些屬性 31 來(lái)告訴用戶(hù)一些重要的信息，在應(yīng)用程序運(yùn)行時(shí)用 Visual Basic 代碼讀出這些屬性值，也可以在 Windows 資源管理器中觀察應(yīng)用程序?qū)ο蟮陌姹拘畔傩灾怠Ｓ覔艟幾g過(guò)的 .exe 文件，然后從快捷菜單中選擇“屬性”命令打開(kāi)“屬性”對(duì)話(huà)框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。 當(dāng)完成當(dāng)前工程的 APP 對(duì)象的屬性后，就可以編譯代碼了。 Visual 支持兩種編譯格式： P 代碼和本地代碼。選擇 P 代碼格式編譯的應(yīng)用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應(yīng)用程序生成的可執(zhí)行文件要 大的多，但是可執(zhí)行文件的運(yùn)行速度比較快。 因此，車(chē)站售票管理系統(tǒng)采用的視本地代碼的編譯格式。 打包應(yīng)用程序 創(chuàng)建 Visual Basic 應(yīng)用程序后，可以將創(chuàng)建的車(chē)站售票管理應(yīng)用程序通過(guò)磁盤(pán)，關(guān)盤(pán)，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來(lái)說(shuō)，發(fā)布應(yīng)用程序必須經(jīng)過(guò)下面的兩個(gè)步驟： 打包 必須將應(yīng)用程序文件打包為一個(gè)或多個(gè)可以部署到選定位置的 .cab 文件（ .cab 文件是一種壓縮文件），對(duì)于某些類(lèi)型的軟件包，還必須為其創(chuàng)建安裝程序。 部署 必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢茫员阌脩?hù)來(lái)安裝應(yīng)用程序。 可以使用 兩種工具來(lái)打包和發(fā)布應(yīng)用程序。 ? 打包和展開(kāi)向?qū)В?Package and Deployment） ? Visual Basic 安裝軟件提供的安裝工具包。 打包和展開(kāi)向?qū)ㄟ^(guò)提供有關(guān)如何配置 .cab 文件的選項(xiàng)，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動(dòng)運(yùn)行，這是用戶(hù)一般所采用的方法。 使用打包和展開(kāi)向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開(kāi)始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。第三步，如果沒(méi)有編譯工程，打包和展開(kāi)向?qū)?huì)要求編譯工程。工程編譯完成后，向?qū)г?xún)問(wèn)想制作什么類(lèi)型的包，我們這里使用向?qū)е谱靼惭b程序。當(dāng) 向?qū)瓿芍谱靼惭b包以后，它會(huì)自動(dòng)生成一個(gè)帶有很多重要信息的報(bào)告。 32 發(fā)布應(yīng)用程序的步驟 將車(chē)站售票管理系統(tǒng)打包后，制作安裝程序的過(guò)程并沒(méi)有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤(pán)，光盤(pán)等，發(fā)布車(chē)站售票管理系統(tǒng)的主要步驟如下：選擇“車(chē)站售票管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“車(chē)站售票管理系統(tǒng)”的發(fā)布工作了。 “ IT開(kāi)拓者 3網(wǎng)絡(luò)工作室”成立于 2021 年，是一個(gè)專(zhuān)業(yè)的計(jì)算機(jī)軟件開(kāi)發(fā)團(tuán)隊(duì)。 “資源共享，信息互通” 需要更多相關(guān)設(shè)計(jì)資料和源代碼加 :493703123