【正文】 “資源共享，信息互通” 需要更多相關(guān)設(shè)計資料和源代碼加 :493703123 。 32 發(fā)布應(yīng)用程序的步驟 將車站售票管理系統(tǒng)打包后，制作安裝程序的過程并沒有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個媒體上，比如軟盤，光盤等，發(fā)布車站售票管理系統(tǒng)的主要步驟如下：選擇“車站售票管理系統(tǒng)”這個包，然后指定把這個包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“車站售票管理系統(tǒng)”的發(fā)布工作了。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌?，我們這里使用向?qū)е谱靼惭b程序。 使用打包和展開向?qū)нM行打包的第一個步驟就是選擇一個工程，然后單擊打包按鈕，開始創(chuàng)建一個可以發(fā)布的應(yīng)用程序。 ? 打包和展開向?qū)В?Package and Deployment） ? Visual Basic 安裝軟件提供的安裝工具包。 部署 必須將打包的應(yīng)用程序放置到適當?shù)奈恢?，以便用戶來安裝應(yīng)用程序。 因此，車站售票管理系統(tǒng)采用的視本地代碼的編譯格式。 Visual 支持兩種編譯格式： P 代碼和本地代碼。右擊編譯過的 .exe 文件，然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標簽，就可以看到應(yīng)用程序的版本信息。 Visual Basic 提供 APP 對象來存儲應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。 ? 使用應(yīng)用程序更安全。 編譯應(yīng)用程序的主要目的如下； ? 使應(yīng)用程序轉(zhuǎn)入和運行更快。 編譯應(yīng)用程序 編譯車站售票管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工 程文件合并成一個可執(zhí)行文件。password=。initial catalog=master。 \) End Select = + 1 If = 6 Then = 1 End If success = WritePrivateProfileString(BackUp, Time, , amp。 \) Case 4 success = WritePrivateProfileString(BackUp, File4, backFile, amp。 \) Case 2 success = WritePrivateProfileString(BackUp, File2, backFile, amp。 \) buff = String(255, 0) 29 ret = GetPrivateProfileString(BackUp, Time, 1, buff, 256, amp。 文件： amp。 (sql) MsgBox 數(shù)據(jù)庫備份成功 ! amp。 backFile amp。 amp。 NowTime sql = BACKUP DATABASE hotel TO disk=39。 \BackUp) = False Then Set fldr = ( amp。 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ù)庫備份恢復(fù)菜單，出現(xiàn)如圖 所示界面。 amp。 cc cc = 車輛編號 =39。 amp。 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。 cc cc = 站名 =39。 amp。 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, 錯誤 = False 25 Else = True End If Else = True End If cc = 車型 =39。 Val() amp。order by 發(fā)車時間 asc = zm = End Sub Private Sub Cmdok_Click() If flag = T Then While Not If Year(Text12) = Year(Date) And Month(Text12) = And Day(Text12) = And = And Text3. Text = Then = F flag = F Else End If Wend End If = Year(Date) amp。 amp。 username2 If Then MsgBox 用戶名錯誤請重輸 , 16, 錯誤 Else If Then MsgBox 密碼錯誤請重輸 , 16, 錯誤 = Else 22 End If End If End If End If End If End Sub 售票管理界面編碼設(shè)計 圖 “售票管理”功能界面 Dim flag As String Private Sub Cmdfind_Click() 23 Dim zm As String = = = zm = select 發(fā)車時刻表 .車次 ,途徑表 .站名 ,車型 ,發(fā)車時間 ,檢票口 ,發(fā)車時刻表 .站名 as 班車 from 發(fā)車時刻表 ,途徑表 ,車輛 w here 發(fā)車時刻表 .車次 =途徑表 .車次 and 發(fā)車時刻表 .車輛編號 =車輛 .車輛編號 and 途徑表 .站名 =39。 username1 amp。 username2 If Then MsgBox 用戶名錯誤請重輸 , 16, 錯誤 Else If Then MsgBox 密碼錯誤請重輸 , 16, 錯誤 = Else End If End If End If Else If Then Set = Adodc2 = 口令 If username1 Then username2 = 工號 =39。 username1 amp。 登陸界面編碼設(shè)計 首先是進入登陸界面，如圖 所示 圖 登陸界面 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。 ADO 支持 Connection String 屬性的 4 個參數(shù)，而且這 4 個參數(shù)將不經(jīng)過 ADO 的處理直接送到數(shù)據(jù)源。 Connection String 屬性： 是一個字符串，可以包含進行一個連接所需的所有設(shè)置值，在該字符串中所傳遞的參數(shù)是與驅(qū)動程序相關(guān)的