旅游資源及線路管理系統設計與實現畢業論文-資料下載頁

　　

【正文】 飛機編號16. Users類Users類用來管理表Users的數據庫操作。 Users類的成員函數 函數名 具體說明Init初始化成員變量Delete刪除指定的用戶記錄。參數TmpUser表示要刪除的用戶名GetInfo刪除指定的所有的用戶記錄。參數TmpUser表示要刪除的用戶In_DB判斷指定的用戶名是否已經在數據庫中。參數TmpUers表示用戶名Insert插入新的用戶記錄Update修改指定的用戶記錄。參數TmpUers 表示要修改的用戶名 系統主界面設計 設計主界面 。 主窗體的屬性 窗體屬性 設置值 具體說明名稱FrmMain設置窗體名稱BorderStyle1Fixed Single設置窗體的邊框的屬性Caption旅游資源及線路管理系統窗體的標題條文本MaxButtonFalse取消最大化按鈕MinButtonTrue激活最小化按鈕PictureImg\設置窗體背景StartUpPositon2屏幕中心設置窗體彈出時，位置在屏幕中心。 主界面包含的按鈕及其屬性 對象名 屬性 屬性值Image1PictureImg\Image2PictureImg\Image3PictureImg\Image4PictureImg\Image5PictureImg\Image6PictureImg\Image7PictureImg\Image8PictureImg\Image9PictureImg\Image10CaptionImg\IblareaCaption地域資源管理IblplaceCaption景點資源管理IblhotelCaption賓館資源管理IblresCaption餐廳資源管理IblamuseCaption娛樂資源管理IbltrainCaption火車資源管理IbiPlaneCaption飛機資源管理IbLineCaption旅游線路管理IbUsersCaption系統用戶管理IblexitCaption退出管理。它包括9個資源管理窗體，它包括地域資源管理、景點資源管理、賓館資源管理、餐廳資源管理、娛樂資源管理、火車資源管理、飛機資源管理、旅游線路管理（它也是本系統中最為重要的一個）、系統資源管理，你可以在打開任意一個窗體添加你想要輸入的相關的信息。本系統的背景圖案采用的是黃山風景的圖案，給人一種身臨其境的觸動感。 旅游資源及線路管理系統的主界面 在主界面中添加代碼因為系統的其他功能還沒有實現，所以只能添加退出系統的代碼。其他的代碼將在相應的功能實現后再添加到窗體中。先單擊IblExit按鈕時，將執行IblExit_Click（）過程，退出系統，代碼如下： Private Sub lblexit_Click() DBapi_Disconnect EndEnd Sub 登陸模塊設計設計登陸窗體創建一個新窗體，設置窗體名為FrmLogin。用戶可以通過這個窗體進入該系統。其中用戶包括Admin這個管理用戶和在管理用戶下生成的一般用戶。密碼不能低于6個字符，如果你輸入的密碼或者用戶失敗3次以上，那么你將自動退出登陸窗體。 登陸窗體的布局 旅游地域資源管理模塊設計地域模塊可以實現以下功能：● 添加地域信息● 修改地域信息● 刪除地域信息● 查看地域信息 設計旅游地域資源編輯窗體編輯地域信息的窗體可以用來添加和修改地域信息。窗體名稱設置為FrmAreaEdit。在此模塊中輸入的是旅游地域的名稱。 地域資源編輯窗體窗體FrmAreaEdit中部分過程的代碼。全局變量Modify39。判斷地域名稱是否存在 If Modify = False Or OriAreaName Trim(txtAreaName) Then If .In_DB(MakeStr(txtAreaName)) = True Then MsgBox 地域名稱已經存在，請重新輸入 = 0 = Len(txtAreaName) Exit Sub End If End If 39。根據變量Modify的值，決定是插入新數據，還是修改已有的數據 If Modify = False Then .Insert Else .Update (OriId) End If End With 39。關閉窗體 Unload MeEnd Sub小結：變量Modify用來標識當前的數據庫訪問狀態。當Modify=Ture時，表示修改已有的數據，當Modify=False時，表示插入新的數據；變量OriId表示當前編輯地域數據的地域編號；變量OriAreaName表示當前編輯地域數據的原有地域名稱；變量OriType表示當前編輯地域數據的原有地域類別。 設計旅游地域資源管理窗體窗體名稱設置為FrmAreaMan。在此窗體中將地域類型分為三類：本市、外埠、國外。可以對他們進行刪除、修改、刪除。 地域資源管理窗體 景點資源管理模塊設計景點模塊可以實現以下功能：● 添加景點信息● 修改景點信息● 刪除景點信息● 查看景點信息 設計景點資源編輯窗體創建一個新窗體，名稱設置為FrmPlaceEdit。此窗體將景點的報價分為了成人和學生兩種類型，并且注明了聯系人、聯系電話、以及一些聯系方式。 設計景點資源管理窗體創建一個新窗體，名稱設置為FrmPlaceMan。 景點資源管理窗體 FrmPlaceMan的控件及其屬性 對象名 屬性 屬性值Adodc1 ConnectionStringDSN=TravelPasswordSaUserNameSaRecordSourceSELECT*FROM PlaceVisibleFalseDataGird1DataSourceAdodc1Cmd_AddCaption添加Cmd_ModiCaption修改Cmd_DelCaption刪除Cmd_CloseCaption關閉小結：使用DataGrid控件是一種常用的方法。它的特點是簡單直觀，一目了然。DataGrid控件只能用來顯示數據，數據源用ADO Data控件提供。 賓館資源管理模塊設計管理模塊功能以及窗體布局與上面FrmPlaceEdit以及FrmPlaceMan很相近，只要在添加選項中添加信息即可。唯一不同的是在此資源管理模塊中在賓館標準里將賓館分為了幾個不同的星級水準。并且還將賓館的房間各種不同類型的房間。具體的圖如下： 賓館資源管理窗口 餐廳資源管理設計模塊設計管理模塊功能以及窗體布局與上面FrmPlaceEdit以及FrmPlaceMan很相近，和上面的賓館模塊一樣，餐廳模塊在餐廳標準中也同樣把餐廳分為了幾個不同的星級水準。并且賦予早餐和正餐的報價。 餐廳資源管理窗口 娛樂資源管理模塊設計娛樂模塊可以實現以下功能：● 添加娛樂信息● 修改娛樂信息● 刪除娛樂信息● 查看娛樂信息 設計娛樂資源編輯窗體布局和各個過程的代碼與上面FrmPlaceEdit很相近，它是用來添加娛樂廳的一些信息的包括娛樂廳的名字以及一些聯系方式。 設計娛樂項目管理窗體 與景點、賓館、餐廳等旅游資源不同，娛樂資源包含很多的娛樂項目，如保齡、臺球、游泳等等，所以需要一個娛樂項目管理窗體。創建一個新窗體，名字設置為FrmAitemMan。 窗體FrmAitemMan的布局下面分析窗體FrmAitemMan中主要的過程代碼。公共變量 在窗體FrmAitemMan中有一個公共變量OriAid，表示當前所編輯的娛樂項目所屬的娛樂廳編號。此變量在啟動窗體FrmAitemMan之前設置。 火車資源管理模塊設計管理模塊功能以及窗體布局與上面FrmPlaceEdit以及FrmPlaceMan很相近，故不多說。在次模塊中，將火車分為了4個級別，包括軟座、硬座、軟臥、硬臥。 飛機資源管理模塊設計飛機模塊可以實現以下功能：● 添加飛機信息● 修改飛機信息● 刪除飛機信息● 查看飛機信息設計飛機資源編輯窗體 創建一個窗體，名稱設置為FrmPlaneEdit。 窗體FrmPlaneEdit的布局窗體FrmPlaneEdit中增加了“航班周期”的處理，下面介紹一下窗體FrmPlaneEdit的主要代碼。Cmd_OK_Click過程 對應的部分代碼如下： 39。TmpCycle用來保存飛機的航班周期字符串TmpCycle = If = 1 Then TmpCycle = TmpCycle + 1 End If If = 1 Then TmpCycle = TmpCycle + 2 End If If = 1 Then TmpCycle = TmpCycle + 3 End If If = 1 Then TmpCycle = TmpCycle + 4 End If If = 1 Then TmpCycle = TmpCycle + 5 End If If = 1 Then TmpCycle = TmpCycle + 6 End If If = 1 Then TmpCycle = TmpCycle + 7 End If小結：程序中使用航班字符來描述航班周期的信息。規定航班周期字符串由一組數字組成，如果星期一有航班，則航班周期字符串中包含字符“1”； 如果星期二有航班，則航班周期字符串中包含字符“2”；以次類推，星期六對應的字符“6”，星期日對應的字符“7”。 旅游線路管理設計旅游線路模塊可以實現以下功能：● 添加旅游線路信息● 修改旅游線路信息● 刪除旅游線路信息● 查看旅游線路信息 設計旅游線路管理窗體創建一個新窗體，名稱設置為FrmLineMan。 窗體FrmLineMan的布局下面分析窗體的FrmLineMan中主要過程的代碼。X1_refresh 過程X1_refresh（）的作用是根據用戶選擇的地域，把所在地域的所有旅游線路都讀取到全局數組ArrLind（），然后再依次添加到List1列表里，對應的代碼如下：Private Sub Xl_refresh() Dim i As Integer Dim TmpId As Long 39。根據用戶的選擇，讀取地域編號 TmpId = () 39。根據地域編號TmpId，讀取指定地域的所有線路 (TmpId) i = 0 39。把讀取的所有線路添加到列表中 Do While ArrLine(i) ArrLine(i) i = i + 1 LoopEnd Sub 旅游線路線路編輯窗體創建一個新窗體，名字設置為FrmLineEdit。此窗體是本系統中一個比較重要的窗體，功能也是最為強大的，故我會在下面的內容中重點詮釋此窗體的實現過程和里面的一些代碼。其中的一些信息添加都是前面的7個窗體中輸入的信息，當你把前面的信息輸入到一個線路中并且保存后，你將不能在前面的7個窗體中刪除包括在此路線的任何信息。在此窗體中你能很詳細的了解到一些你旅游出行的一些最基本信息，包括你將要去的地方的景點、賓館、用餐、娛樂、交通等各種情況。并且可以很直觀的了解到你此次出行將要花費的大概費用情況。 窗體FrmLineEdit的布局下面分析窗體FrmLineEdit中幾個過程的代碼。 過程 SetAmt（）過程的功能是根據用戶錄入的線路數據計算并顯示線路的成本、線路報價和利潤率。對應的代碼如下：Public Sub SetAmt() 39。成本＝景點費用共計＋賓館費用共計＋娛樂費用共計＋用餐費用共計＋交通費用共計＋其他費用＋導游費 lblCostAmt = Val(lblPlaceAmt) + Val(lblHotelAmt) + Val(lblamuseAmt) _ + Val(lblResAmt) + Val(lblTrafAmt) + Val(txtOthers) _ + Val(txtTour) 39。線路報價＝成本＋利潤 lblPrice = Val(lblCostAmt) + Val(txtBenefit) 39。計算利潤率 If Val(lblPrice) = 0 Then lblBrate = 0 Else lb