【正文】 and he answered curse w ith snarl and kept out of their reach. He did not try to run away, 。 nor did he attempt to charge in when Solle ks was once more brought forward. But he circled just beyond the range of the club, snarling with bitterness and rage。 but Francois, not noticing him, brought Solleks to the coveted position. In his judgment, Solleks was the best leaddog left. Buck sprang upon Solleks in a fury, driving him back and standing in his place. Eh? Eh? Francois cried, slapping his thighs gleefully. Look at dat Buck. Him kill dat Spitz, him think to take de job. Go 39。 dat Buck fight like two hells, was Francois39。謝爾 上?？茖W技術文獻出版社 2021年 第三章：結論及體會 36 h? What I say? I speak true when I say dat Buck two devils. This was Francois39。 在本系統(tǒng)的設計過程和論文編寫過程中，很多老師、同事和朋友都給與了我許多無私的幫助，尤其是我的導師給我的論文提出了很多寶貴的修改意見，在這里，我向這些無私幫助我的人表示衷心的感謝。但是，它畢竟代表了我二個月辛勤的結晶。 在開始編寫程序的時候，我看到別人的軟件功能非常的詳細，而且界面非常的漂亮，總希望自己的軟件也非常的完善，但是，經(jīng)過二個月的學習，發(fā)現(xiàn)編一個優(yōu)秀 的軟件決不是一蹴而就的事情，需要長時間的積累和經(jīng)驗，而這個方面又是我的弱項，因此，在朋友的幫助下，我終于認清自己的不足及劣勢，不要貪圖大而全，只要盡我所能，編制一個實用簡單的軟件也是件很不容易的事情。通過這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實現(xiàn)了車站售票管理的系統(tǒng)化、規(guī)范化和自動化，這樣不僅減少了管理工作量，還提 高了管理效率，降低了管理成本。 現(xiàn)代化的車站售票是集 預定車票 、 售票 、 退票 、 車次查詢 、 報表 及其他各種服務，車站售票組織龐大，服務項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務質量和管理水平，進而促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理 。 32 發(fā)布應用程序的步驟 將車站售票管理系統(tǒng)打包后，制作安裝程序的過程并沒有結束，必須將打包后的應用程序發(fā)布到一個媒體上，比如軟盤，光盤等，發(fā)布車站售票管理系統(tǒng)的主要步驟如下：選擇“車站售票管理系統(tǒng)”這個包，然后指定把這個包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“車站售票管理系統(tǒng)”的發(fā)布工作了。工程編譯完成后，向導詢問想制作什么 類型的包，我們這里使用向導制作安裝程序。 使用打包和展開向導進行打包的第一個步驟就是選擇一個工程，然后單擊打包按鈕，開始創(chuàng)建一個可以發(fā)布的應用程序。 ? 打包和展開向導（ Package and Deployment） ? Visual Basic 安裝軟件提供的安裝工具包。 部署 必須將打包的應用程序放置到適當 的位置，以便用戶來安裝應用程序。 因此，車站售票管理系統(tǒng)采用的視本地代碼的編譯格式。 Visual 支持兩種編譯格式： P 代碼和本地代碼。右擊編譯過的 .exe 文件，然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標簽，就可以看到應用程序的版本信息。 Visual Basic 提供 APP 對象來存儲應用程序的有關信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關信息。 ? 使用應用程序更安全。 編譯應用程序的主要目的如下； ? 使應用程序轉入和運行更快。 編譯應用程序 編譯車站 售票管理程序就是將創(chuà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, 25 6, 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 報表管理界面編碼設計 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ù)據(jù)庫備份恢復菜單，出現(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 = 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 售票管理界面編碼設計 圖 “售票管理”功能界面 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。 登陸界面編碼設計 首先是進入登陸界面，如圖 所示 圖 登陸界面 Private Sub Cmdexit_Click() End End Sub Private Sub Cmdok_Click() Dim username1 As String, username2 As String u