畢業設計-vb60車站售票管理系統設計與實現-資料下載頁

【導讀】合理的選擇數據結構，操作系統以及開發環境，構成一個完善的網絡系統，現代化的車站售票是集預定車票、售。水平，進而促進經濟效益，必須借助計算機來進行現代化的信息管理。第一章簡要介紹了本系統的設計總體線路。第二章概述了管理信息系。述、數據庫設計等內容。第四章介紹了本系統的具體實現。系統開發過程中結論及使用過程中的體會進行了總結。

　　

【正文】 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 報表管理界面編碼設計 27 圖 “報表 ”功能界面 Private Sub Command1_Click() Dim cc As String If Then cc = select 工號 ,count(工號 ) as 買票數 from 車票表 group by 工號 End If If Then cc = select 車次 ,count( 車次 ) as 買票數 from 車票表 group by 車次 End If = cc End Sub 數據庫備份管理界面編碼設計 進入數據庫備份恢復菜單，出現如圖 所示界面。 28 圖 “數據庫備份 ”功能界面 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 數據庫備份成功 ! amp。 vbCrLf amp。 文件： amp。 backFile, vbOKOnly + vbInformation, 備份數據庫 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 的集成開發環境中創建好車站售票管理系統后，并無意味著全部工作已完成，此時生成的應用程序只能在 Visual Basic 的集成環境中運行，要想使應用程序能夠脫離 Visual Basic 的集成開發環境，首先要對車站售票管理程序進行編譯并且生成 .exe 或其他類型的文件，然后調用打包和展開向導創建安裝程序。 編譯應用程序 編譯車站售票管理程序就是將創建的應用程序以及它的工 程文件合并成一個可執行文件。在發布車站售票管理應用程序之前，首先應該使用測試和調試工具對改應用程序進行前面測試，在排除了所有可能的錯誤后，才可以開始對應用程序進行編譯。 編譯應用程序的主要目的如下； ? 使應用程序轉入和運行更快。 ? 給發布應用程序作準備。 ? 使用應用程序更安全。 將應用程序進行編譯后， Visual Basic 將工程中的所有文件進行組織并將這些工程文件轉化成一個可執行的文件 .exe。 Visual Basic 提供 APP 對象來存儲應用程序的有關信息屬性，例如，公司名，產品名，版本以及其他相關信息。在設 計中，可以通過這些屬性 31 來告訴用戶一些重要的信息，在應用程序運行時用 Visual Basic 代碼讀出這些屬性值，也可以在 Windows 資源管理器中觀察應用程序對象的版本信息屬性值。右擊編譯過的 .exe 文件，然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標簽，就可以看到應用程序的版本信息。 當完成當前工程的 APP 對象的屬性后，就可以編譯代碼了。 Visual 支持兩種編譯格式： P 代碼和本地代碼。選擇 P 代碼格式編譯的應用程序生成的可執行文件較小，選擇本地代碼編譯的應用程序生成的可執行文件要 大的多，但是可執行文件的運行速度比較快。 因此，車站售票管理系統采用的視本地代碼的編譯格式。 打包應用程序 創建 Visual Basic 應用程序后，可以將創建的車站售票管理應用程序通過磁盤，關盤，網絡等途徑自由發布，一般來說，發布應用程序必須經過下面的兩個步驟： 打包 必須將應用程序文件打包為一個或多個可以部署到選定位置的 .cab 文件（ .cab 文件是一種壓縮文件），對于某些類型的軟件包，還必須為其創建安裝程序。 部署 必須將打包的應用程序放置到適當的位置，以便用戶來安裝應用程序。 可以使用 兩種工具來打包和發布應用程序。 ? 打包和展開向導（ Package and Deployment） ? Visual Basic 安裝軟件提供的安裝工具包。 打包和展開向導通過提供有關如何配置 .cab 文件的選項，使發布應用程序所包含的許多步驟得以自動運行，這是用戶一般所采用的方法。 使用打包和展開向導進行打包的第一個步驟就是選擇一個工程，然后單擊打包按鈕，開始創建一個可以發布的應用程序。第三步，如果沒有編譯工程，打包和展開向導會要求編譯工程。工程編譯完成后，向導詢問想制作什么類型的包，我們這里使用向導制作安裝程序。當 向導完成制作安裝包以后，它會自動生成一個帶有很多重要信息的報告。 32 發布應用程序的步驟 將車站售票管理系統打包后，制作安裝程序的過程并沒有結束，必須將打包后的應用程序發布到一個媒體上，比如軟盤，光盤等，發布車站售票管理系統的主要步驟如下：選擇“車站售票管理系統”這個包，然后指定把這個包發布到指定文件夾中，選擇發布的媒體，就可以完成“車站售票管理系統”的發布工作了。 “ IT開拓者 3網絡工作室”成立于 2021 年，是一個專業的計算機軟件開發團隊。 “資源共享，信息互通” 需要更多相關設計資料和源代碼加 :493703123