【正文】 設(shè)置該窗體的基本屬性，如下表所 示： 窗體 ykgl 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載。 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 Else str = str amp。 姓名 =39。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 dygl 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal 2．在窗體中放入一個(gè) ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法，在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼如下： Private Sub Form_Load() = = adCmdUnknown sql = select * from 導(dǎo)游數(shù)據(jù)表 = sql = False = False = False If = False Then End If Set = Adodc1 End Sub 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。添加交通方式選項(xiàng) .AddItem 雙飛 .AddItem 單飛 .AddItem 雙臥 .AddItem 旅行大巴 End With If flag = 1 Then 39。 創(chuàng)建旅游線路管理窗體 旅游線路管理是旅行社管理的一個(gè)重要的管 理方面，該窗體主要用于對(duì)一個(gè)旅行社的旅游線路數(shù)據(jù)進(jìn)行增加、修改、刪除等操作，創(chuàng)建該管理窗體的基本方法如下： ，并將該窗體的名稱修改為 lyxlgl。 39。其過(guò)程代碼如下： Private Sub Label1_Click() End Sub ，設(shè)其 Caption 屬性為“旅行社綜合管理系統(tǒng)”，用于說(shuō)明該系統(tǒng)的名稱。該數(shù)據(jù)庫(kù)即作為整個(gè)數(shù)據(jù)工程的數(shù)據(jù)源的數(shù)據(jù)庫(kù)。 組團(tuán)管理功能模塊的作用是對(duì)組團(tuán)信息進(jìn)行增加、修改、刪除以及條件查詢等操作； 其中，組團(tuán)管理子模塊的作用是對(duì)組團(tuán)信息進(jìn)行編輯，而組團(tuán)查詢子模塊的作用是對(duì)組團(tuán)信息進(jìn)行條件查詢，此操作適用于游客選擇旅游線路。 微軟的 JET 數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道的途徑，我們是通過(guò)它以及Visual Basic 來(lái)訪問(wèn)數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。 在旅行社管理數(shù)據(jù)庫(kù)中我們將創(chuàng)建“旅游線路數(shù)據(jù)表”，其結(jié)構(gòu)如下： 表 旅游線路數(shù)據(jù)表結(jié)構(gòu) 字段名稱 字段類型 字段大小 索引 編號(hào) 自動(dòng)編號(hào) 默認(rèn) 無(wú) 名稱 文本 20 有（無(wú)重復(fù)） 主要景點(diǎn) 文本 100 無(wú) 行程天數(shù) 數(shù)字 整型 無(wú) 報(bào)價(jià) 貸幣 默認(rèn) 無(wú) 交通 文本 50 無(wú) 住宿 文本 50 無(wú) 行程安排 備注 默認(rèn) 無(wú) 說(shuō)明 備注 默認(rèn) 無(wú) 在旅游線路表中，主要景點(diǎn)是對(duì)景名中幾個(gè)重要分景點(diǎn)的說(shuō)明；而交通 則是說(shuō)明了交通方式的選擇；住宿同樣是說(shuō)明住宿的檔次；而行程安排則說(shuō)明了在旅游中每一天的日程安排，以方便旅客們知道在每一天將做些什么。 3. 本管理系統(tǒng)的數(shù)據(jù)安全性要得到加強(qiáng)，盡可能避免外來(lái)因素對(duì)數(shù)據(jù)的破壞。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間一長(zhǎng) ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。人們不僅要在物質(zhì)方面得到提高，而且在精神方面也追求有一個(gè)質(zhì)的突變。 本論文的編寫主要為了使大家了解旅行社管理系統(tǒng)中各項(xiàng)管理的具體操作、各功能模塊 的詳細(xì)介紹、數(shù)據(jù)獲取的方式、如何進(jìn)行數(shù)據(jù)的維護(hù)等等。 3．采用 Visual Basic 中的報(bào)表編輯器來(lái)完成報(bào)表的制作。在本課程中， 我創(chuàng)建了一個(gè)游客管理數(shù)據(jù)表，其數(shù)據(jù)庫(kù)結(jié)構(gòu)如下表所示。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來(lái)的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。 密碼更改模塊是對(duì)本系統(tǒng)的用戶操作密碼進(jìn)行修改，不斷的修改密碼對(duì)于系統(tǒng)的保密工作是十分有成效的。Data Source= 這樣整個(gè)數(shù)據(jù)工程將使用該數(shù)據(jù)連接和數(shù)據(jù)庫(kù)。 Login_f 窗體中放入兩個(gè)文本框控件用來(lái)接收用戶名和密碼信息。 ‘查詢密碼和用戶是否與表中的相符 Set rs = (sql) If Or Then ‘若其中至少有一個(gè)不相符，則不能登錄。而窗體 lyxledit 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 lyxledit； 2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控 件，一個(gè)組合框控件，其中text(4)和組合框是重合的，八個(gè)標(biāo)簽控件是為了說(shuō)明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。該窗體的主要目的是用于對(duì)旅游線路進(jìn)行條件查詢，設(shè)置該窗體的基本屬性，如下表所示： 窗體 lyxlcx 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal 入一個(gè) ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼如下： Private Sub Form_Load() = = adCmdUnknown sql = select * from 旅游 線路表 = sql = False = False = False If = False Then End If Set = Adodc1 Option1(0).Value = True = End Sub 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。而窗體 dyedit 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 dyedit； 2) 在窗體中放入五個(gè)標(biāo)簽控件，五個(gè)文本框控件，二個(gè)組合框控件，其中text1(1) text1(2)和兩個(gè)組合框是重合的，五個(gè)標(biāo)簽控件是為了說(shuō)明五個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。 amp。 End If End If If Check1(3).Value Then If Text1(3).Text = Then MsgBox 請(qǐng)輸入出生年月 !, vbCritical, 警告 Exit Sub End If dd(3) = True If dd(0) Or dd(1) Or dd(2) Then str = str amp。而窗體 lyzteidt 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 lyztedit； 2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控件，二 個(gè)組合框控件，其中text1(1) text1(4)和兩個(gè)組合框是重合的，八個(gè)標(biāo)簽控件是為了說(shuō)明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其操作過(guò)程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。 3．在窗體中放入一個(gè)表格控件 DataGrid1， 該控件的主要作用是顯示數(shù)據(jù)，不對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 End If End If If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then MsgBox 請(qǐng)?jiān)O(shè)置查詢方式 , vbOKOnly + vbExclamation, 警告 Exit Sub End If sql = select * from 導(dǎo)游數(shù)據(jù)表 where amp。 End If End If If Check1(2).Value Then If Text1(2).Text = Then MsgBox 請(qǐng)輸入級(jí)別 !, vbCritical, 警告 Exit Sub End If dd(2) = True If dd(0) Or dd(1) Then str = str amp。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。 str ElseIf Option1(2).Value Then If = Then MsgBox 請(qǐng)輸入行程天數(shù) !, vbCritical, 警告 Exit Sub End If str = 行程天數(shù) = amp。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 39。 4．在系統(tǒng)使用中，若你登錄時(shí)的權(quán)限選擇為 USER，你就不可以使用添加用戶菜單，只有當(dāng)你的選擇權(quán)限為 SYSTEM 時(shí)，你才可使用。登錄按鈕的過(guò)程代碼如下： 進(jìn)入按鈕的過(guò)程代碼如下： Private Sub Command1_Click() = Replace(, 39。Data Source= amp。 4. 單 擊“打開”按鈕，出現(xiàn)一個(gè)數(shù)據(jù)工程，其中包括一個(gè)數(shù)據(jù)工程窗體，一個(gè)數(shù)據(jù)源環(huán)境和數(shù)據(jù)報(bào)表的設(shè)計(jì)器。 Visual Basic 提供了大量的控件，這些控件 可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。在該 數(shù)據(jù)庫(kù)中，創(chuàng)建 五張 數(shù)據(jù)表，即旅游 線路 數(shù)據(jù)表、 導(dǎo)游管理數(shù)據(jù)表 、游客 管理數(shù)據(jù)表、密碼表 以及組團(tuán)管理數(shù)據(jù)表 。 在旅行社中使 用計(jì)算機(jī)管理 旅行社各種數(shù)據(jù) 的 實(shí)際 意義 ： 在目前國(guó)內(nèi)的旅游市場(chǎng)中，大部分的旅行社都借助于計(jì)算機(jī)來(lái)進(jìn)行管理，但管理軟件的版本較為陳舊且達(dá)不到圖文并茂，大部分的管理軟件都編寫于基于ＤＯＳ系統(tǒng)下的 foxbase 及 foxpro 所開發(fā)的，不太符合當(dāng)今旅游市場(chǎng)的需求。 本論文主要闡述旅行社綜合管理系統(tǒng)各個(gè)模塊的設(shè)計(jì)思想和實(shí)現(xiàn)的關(guān)鍵技術(shù)。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面： ； ； 率； ，等等 ； 。 數(shù)據(jù)庫(kù)結(jié)構(gòu)的創(chuàng)建 旅行社管理數(shù)據(jù)庫(kù)與數(shù)據(jù)表的創(chuàng)建 在創(chuàng)建該系統(tǒng)之前，我首先創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)（數(shù)據(jù)庫(kù)名是 ）。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 開發(fā)所使用的工具： 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。 3. 在工程類型選擇面板中選擇“數(shù)據(jù)工程”。Persist Security Info=False。用于系統(tǒng)登錄和退出啟動(dòng)界面之用。 3. 在菜單編輯器中添加系統(tǒng)各個(gè)模塊的信息，添加好后的系統(tǒng)界面如圖 所示。 + Text1(0).Text + 39。 sql = select * from 旅游線路表 where amp。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 dycx 的主要屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Borderstyle 1fixed Startupposition 2屏幕中心 Windowsstate 0normal ADODC1 控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂?adodc1 控件引入數(shù)據(jù)源的方法 ,在窗體調(diào)用時(shí)，數(shù)據(jù) 源就已經(jīng)加載。 Trim(Text1(1).Text) + 39。 Text1(3).Text amp