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