【正文】 s or holiday travel, a change in environment to mold your own character, enjoyment of travel to bring the fun of their own to expand the field of vision. For the general public this demand, many travel agents on this breeding and health, rich and colorful variety of tourist attractions is required by an appropriate management system to regulate, so travel agents to establish an integrated management system is essential . Travel management system is a typical management information system (MIS), including the development of the main background of the establishment and maintenance of database and application development frontend aspects. For the former requirement to establish data consistency and integrity, and data security of a good library. For applications which require fullfeatured and easy to use and so on. In this paper, the major travel agents on the integrated management system of each module design concepts and key technologies. In this system, when the user enters the login information legally, you can enter the main menu interface, the user interface through the main menu item on the operation carried out in order to achieve management objectives. Key words Database management module standard 第 1 章： 緒 言 旅行社綜合 管理系統(tǒng)是 旅游部門及單位 不可缺少的部分 ,它的內(nèi)容對于 旅行社的 管理者來說至關(guān)重要 ,所以 旅行社綜合 管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。本人在此次課程編制中擔(dān)任所有的系統(tǒng)模塊的編寫以及論文的寫作。 2. 本管理系統(tǒng)的各個(gè)模塊的分布要合理，盡可能多的照顧到方方面面的操作。 5．在具體使用中逐步的發(fā)現(xiàn)問題，解決問題。數(shù)據(jù)表結(jié)構(gòu)就是對一個(gè)數(shù)據(jù)中的字段名稱、類型、大小等的定義，在數(shù)據(jù)表結(jié)構(gòu)創(chuàng)建對話框中，不僅可以定制表的結(jié)構(gòu)，還可以對數(shù)據(jù)表進(jìn)行各種操作，如顯示每一個(gè)字段的結(jié) 構(gòu)、增加或刪除字段、建立索引、對每一字段進(jìn)行有效性輸入規(guī)劃的定制等。用戶可以在系統(tǒng)在使用密碼，也可以在系統(tǒng)中維護(hù)密碼。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。將 ADODC 控件 放置在窗體中 之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。 導(dǎo)游管理功能模塊的作用是對導(dǎo)游數(shù)據(jù)進(jìn)行增加、修改、刪除以及條件查詢等操作； 其中，導(dǎo)游 管理子模塊的作用是對導(dǎo)游信息進(jìn)行編輯，而導(dǎo)游查詢子模塊的作用是對導(dǎo)游具體信息進(jìn)行條件查詢。 系統(tǒng)流程設(shè)計(jì) 創(chuàng)建系統(tǒng)啟動(dòng)封面 系統(tǒng)啟動(dòng)封面是一個(gè)應(yīng)用系統(tǒng)開始的界面，通常是進(jìn)行系統(tǒng)介紹的，人們一看見封面就可以知道這個(gè)系統(tǒng)是干什么的。 2. 選擇 Microsoft OLE DB Provider,單擊下一步按鈕，出現(xiàn)數(shù)據(jù)庫設(shè)置對話框，選擇前面創(chuàng)建的數(shù)據(jù)庫即可，如圖 所示。其模塊設(shè)計(jì)代碼如下： 通用 聲明 Public conn As New Public rs As New Public dataname As String Public connectionstring As String Public glymc As String Public quanxian As String Public flag As Integer 通用 main Sub Main() dataname = amp。 系統(tǒng)啟動(dòng)窗體 first_f 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 BORDER STYLE NONE STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 2MAXIMIZED PICTURE 選定的圖片文件 ，設(shè)其 Caption 屬性為“系統(tǒng)登錄”并為該標(biāo)簽控件賦予一個(gè)過程代碼，當(dāng) 用戶單擊該標(biāo)簽時(shí)即進(jìn)入系統(tǒng)權(quán)限認(rèn)證窗體。 ，設(shè)兩個(gè)標(biāo)簽的 Caption 屬性分別為“用戶名和密碼”。 amp。放棄登錄，返回啟動(dòng)界面 End Sub 創(chuàng)建系統(tǒng)主控界面： 系統(tǒng)主控界面是集中管理系統(tǒng)的界面，它主要通過菜單或命令按鈕對其他窗體進(jìn)行調(diào)用，對報(bào)表進(jìn)行顯示或打印，其制作過程如下： 1. 在工程中增加一個(gè)新的 MDI 窗體 MDIform1，并加入一個(gè)圖片 框 picture1 用于放入在系統(tǒng)啟動(dòng)后加載的圖片。 完成窗體設(shè)置后，保存退出。初始化 Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = Text1(4).Text = Text1(5).Text = Text1(6).Text = Text1(7).Text = = End Sub 增加用戶時(shí)所調(diào)用窗體的過程代碼： Private Sub Command1_Click() If Text1(0).Text = Then MsgBox 請輸入線路名稱！ , vbOKOnly + vbExclamation, 警告！ Text1(0).SetFocus Exit Sub End If If Text1(1).Text = Then MsgBox 請輸入主要景點(diǎn)！ , vbOKOnly + vbExclamation, 警告！ Text1(1).SetFocus Exit Sub End If If Text1(2).Text = Then MsgBox 請輸入行程天數(shù)！ , vbOKOnly + vbExclamation, 警告！ Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 請輸入報(bào)價(jià)！ , vbOKOnly + vbExclamation, 警告！ Text1(3).SetFocus Exit Sub End If If = Then MsgBox 請輸入交通方式！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Text1(5).Text = Then MsgBox 請輸入住宿標(biāo)準(zhǔn)！ , vbOKOnly + vbExclamation, 警告！ Text1(5).SetFocus Exit Sub End If If Text1(6).Text = Then 39。, conn, 1, 3 If Then Exit Sub rs!名稱 = Text1(0).Text rs!主要景點(diǎn) = Text1(1).Text rs!行程天數(shù) = Text1(2).Text rs!報(bào)價(jià) = Text1(3).Text rs!交通 = rs!住宿 = Text1(5).Text rs!行程安排 = Text1(6).Text rs!說明 = Text1(7).Text Set rs = Nothing MsgBox 記錄已經(jīng)成功修改！ , vbOKOnly + vbExclamation, 修改結(jié)果！ = select * from 旅游線路表 Unload Me End If End Sub 退出按鈕過程代碼： Private Sub Command2_Click() Unload Me Exit Sub End Sub 窗體調(diào)用時(shí)加載信息的過程代碼： Private Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i + 1) Next i If Not IsNull((5)) Then = (5) Else = Else For i = 0 To 7 Text1(i) = Next i = End If With Combo1 39。其過程代碼如下： Option Explicit Dim sql As String 提交按鈕過程代碼： Private Sub Command1_Click() Dim str As String str = If Option1(0).Value Then sql = select * from 旅游線路表 = ElseIf Option1(1).Value Then If = Then MsgBox 請輸入線路名稱 !, vbCritical, 警告 Exit Sub End If str = 名稱 =39。 詳細(xì)信息 End Sub 創(chuàng)建導(dǎo)游管理窗體 導(dǎo)游管理是旅行社管理的一個(gè)重要方面，一個(gè)好的導(dǎo)游管理模塊對于導(dǎo)游數(shù)據(jù)的創(chuàng)建、更新、刪除、修改都是十分必要的，創(chuàng)建該管理窗體的基本方法如下： 1．在工程中增加一個(gè)新的窗體，并將該窗體的名稱修改為 dygl。此處不予列出。此窗體各控件的過程代碼與上一窗體 Lyxlcx 大致相同，只是復(fù)選框的應(yīng)用在前面所涉及到的窗體中未出現(xiàn)，現(xiàn)給出它的過程代碼： Private Sub Command1_Click() Dim str As String Dim dd(4) As Boolean str = If Check1(0).Value Then If Text1(0).Text = Then MsgBox 請輸入導(dǎo)游姓名 !, vbCritical, 警告 Exit Sub End If dd(0) = True str = str amp。 Else str = str amp。 39。 Text1(3).Text amp。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。此處 不予列出。在游客管理模塊中，對戶可根據(jù)窗體所提供的數(shù)據(jù)操作功能對旅游者的信息進(jìn)行各式各樣的操作。而窗體 ykedit 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 ykedit； 2) 在窗體中放入七個(gè)標(biāo)簽控件，七個(gè)文本框控件，二個(gè)組合框控件，其中text1(2) text1(6)和兩個(gè)組合框是重合的，七個(gè)標(biāo)簽控件是為了說明七個(gè)文本框控的作用；