【導讀】樣的決策，最終都是為了這個的目。每個領域都有自身生存法則，但無論這個法則如何。變化，為客戶服務的宗旨是不會變的。作為企業(yè)，我們只有不斷地挖掘新客戶，維護好。和老客戶的關(guān)系，占領市場客戶群體的絕大多數(shù)份額，才能在整個領域取得一席之地。的時代，而現(xiàn)在，信息時代是客戶短缺的時代。企業(yè)發(fā)展所需的各種資源（包括人力、客戶之間的關(guān)系、了解客戶的需求動向，成為企業(yè)生存發(fā)展面臨的重大問題。通過調(diào)查研究，要求系統(tǒng)滿足有以下功能；由于操作人員的計算機知識普遍較差，要求有良好的人機界面。記錄產(chǎn)品出庫、入庫的詳細信息。提供信息數(shù)據(jù)導出Excel報表的功能，提供報表的打印功能。對用戶信息進行管理，并為用戶設置管理權(quán)限。數(shù)據(jù)計算自動完成，盡量減少人工干預。組織的主要信息需求，形成MIS的總體結(jié)構(gòu)方案；安排項目開發(fā)計劃。就會對旅行社的經(jīng)營造成負面影響。求，真正為旅行社的管理及決策提供強有力的支持。

　　

【正文】 mpId As Long 39。根據(jù)用戶的選擇，讀取地域編號 TmpId = () 39。根據(jù)地域編號 TmpId，讀取指定地域的所有線路 (TmpId) i = 0 39。把讀取的所有線路添加到列表中 Do While ArrLine(i) ArrLine(i) i = i + 1 Loop End Sub Private Sub ComboType_Click() Call Loadarea( + 1, ComboName) If 0 Then = 0 End If Xl_refresh End Sub Private Sub ComboName_Click() Xl_refresh End Sub Private Sub Cmd_Add_Click() = () = = False = 0 1 Xl_refresh End Sub Private Sub Cmd_Modi_Click() If 0 Then MsgBox 請選擇線路 Exit Sub End If 附錄 44 (Curlid) = True = = 1 = = = = = = 1 Xl_refresh End Sub Private Sub Cmd_Del_Click() If 0 Then MsgBox 請選擇線路 Exit Sub End If If MsgBox(請確認是否刪除 , vbYesNo, 請確認 ) = vbNo Then Exit Sub End If p = (Curlid) Xl_refresh End Sub Private Sub Cmd_Close_Click() Unload Me End Sub Private Sub Form_Load() 39。設置地域類型 = 0 39。根據(jù)指定的地域類型，讀取地域名稱 Call Loadarea(1, ComboName) If 0 Then = 0 End If 附錄 45 39。把所在地域的旅游線路裝入列表中 Xl_refresh End Sub Private Sub List1_click() Curlid = () End Sub Public Modify As Boolean Public Function Check() As Boolean With MyLine 39。檢查線路名稱 If Len(Trim(txtName)) = 0 Then MsgBox 請輸入線路名稱 Check = False Exit Function End If 39。檢查行程天數(shù) If Val(txtDays) = 0 Then MsgBox 請輸入行程天數(shù) = 0 = Len(Trim(txtDays)) Check = False Exit Function End If 39。檢查團隊類別 If 0 Then MsgBox 請設置團隊類別 Check = False Exit Function End If 39。檢查保險 If Val(txtInsFee) 0 Then MsgBox 保險費應大于 0 = 0 = Len(Trim(txtInsFee)) Check = False 附錄 46 Exit Function End If End With Check = True End Function Private Sub Refresh_lplace() If = 0 Then 39。學生線路 = SELECT As 所在地域 , As 景點名稱 , _ + As 票價 FROM Place p, lplace l, Area a WHERE = _ + Trim() + And = And = Else 39。成人線路 = SELECT As 所在地域 , As 景點名稱 , _ + As 票價 FROM Place p, lplace l, Area a WHERE = _ + Trim() + And = And = End If SetPlaceAmt End Sub Private Sub Refresh_lhotel() = SELECT As 所在地域 , As 賓館名稱 , _ + 39。經(jīng)濟間 39。 As 房間類型 , As 住宿天數(shù) , * As 價格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =1 UNION _ + SELECT As 所在地域 , As 賓館名稱 , 39。雙人間 39。 As 房間類型 , _ + As 住宿天數(shù) , * As 價格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =2 UNION _ + SELECT As 所在地域 , As 賓館名稱 , 39。三人間 39。 As 房間類型 , _ + As 住宿天數(shù) , * As 價格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =3 UNION _ + SELECT As 所在地域 , As 賓館名稱 , 39。四人間 39。 As 房間類型 , _ + As 住宿天數(shù) , * As 價格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =4 附錄 47 SetHotelAmt End Sub Private Sub Refresh_lres() = SELECT As 所在地域 , As 餐廳名稱 , _ + 39。早餐 39。 As 用餐類型 , As 用餐次數(shù) , * As 價格 _ + FROM Restaurant r, lres l, Area a WHERE = + Trim() _ + And = And = And =1 UNION _ + SELECT As 所在地域 , As 餐廳名稱 , 39。正餐 39。 As 用餐類型 , _ + As 用餐次數(shù) , * As 價格 _ + FROM Restaurant r, lres l, Area a WHERE = + Trim() _ + And = And = And =2 SetresAmt End Sub Private Sub Refresh_lamuse() = SELECT As 所在地域 , As 娛樂廳名稱 , _ + As 娛樂項目 , As 娛樂次數(shù) , * As 價格 _ + FROM Amusement a, AmuseItem i, lamuse l, Area a1 WHERE = _ + Trim() + And = And = And = SetAmuseAmt End Sub Private Sub Load_traffic(ByVal TmpFlag As Integer) If TmpFlag = 1 Then 39。往程交通信息 39。讀取線路火車信息 Call (, 1) 39。如果 0，則存在表示往程火車信息 If 0 Then = 0 39。讀取火車信息 () 39。顯示起止車站 lblstation1 = + + 39。顯示車票類型和票價 Select Case Case 1 lbltype1 = 硬座 lblprice1 = Case 2 附錄 48 lbltype1 = 軟座 lblprice1 = Case 3 lbltype1 = 硬臥 lblprice1 = Case 4 lbltype1 = 軟臥 lblprice1 = End Select Else 39。讀取線路飛機信息 Call (, 1) If 0 Then = 1 39。讀取飛機信息 () 39。顯示起止機場 lblstation1 = + + lbltype1 = 39。顯示機票價格 lblprice1 = Else 39。如果即沒有線路火車信息，也沒有線路飛機信息，則表示沒有線路交通信息 = 1 lblstation1 = lbltype1 = lblprice1 = End If End If Else 39。處理返程線路交通信息，情況與回程相似 Call (, 2) If 0 Then = 0 39。讀取火車票價 () lblstation2 = + + Select Case Case 1 lbltype2 = 硬座 lblprice2 = Case 2 lbltype2 = 軟座 lblprice2 = 附錄 49 Case 3 lbltype2 = 硬臥 lblprice2 = Case 4 lbltype2 = 軟臥 lblprice2 = End Select Else 39。飛機 Call (, 2) If 0 Then = 1 () 39。讀取飛機票價 lblstation2 = + + lbltype2 = lblprice2 = Else = 1 lblstation2 =