【正文】 = (5) Else = Else For i = 0 To 7 Text1(i) = Next i = End If With Combo1 39。修改操作 select * from 旅 游 線 路 表 where 名稱 =39。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 39。添加操作 sql = select * from 旅游線路表 where 名稱 =39。初始化 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)用窗體的過(guò)程代碼： Private Sub Command1_Click() If Text1(0).Text = Then MsgBox 請(qǐng)輸入線路名稱！ , vbOKOnly + vbExclamation, 警告！ Text1(0).SetFocus Exit Sub End If If Text1(1).Text = Then MsgBox 請(qǐng)輸入主要景點(diǎn)！ , vbOKOnly + vbExclamation, 警告！ Text1(1).SetFocus Exit Sub End If If Text1(2).Text = Then MsgBox 請(qǐng)輸入行程天數(shù)！ , vbOKOnly + vbExclamation, 警告！ Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 請(qǐng)輸入報(bào)價(jià)！ , vbOKOnly + vbExclamation, 警告！ Text1(3).SetFocus Exit Sub End If If = Then MsgBox 請(qǐng)輸入交通方式！ , vbOKOnly + vbExclamation, 警告！ Exit Sub End If If Text1(5).Text = Then MsgBox 請(qǐng)輸入住宿標(biāo)準(zhǔn)！ , vbOKOnly + vbExclamation, 警告！ Text1(5).SetFocus Exit Sub End If If Text1(6).Text = Then 39。而窗體 lyxledit 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 lyxledit； 2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控 件，一個(gè)組合框控件，其中text(4)和組合框是重合的，八個(gè)標(biāo)簽控件是為了說(shuō)明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 lyxlgl 的主要屬性 屬性項(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)加載，其代碼如下： Private Sub Form_Load() = = adCmdUnknown sql = select * from 旅游線路表 = sql = False = False = False If = False Then End If Set = Adodc1 End Sub 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件 的基本屬性如下表所示。 完成窗體設(shè)置后，保存退出。 \) If quanxian = system Then 39。 4．在系統(tǒng)使用中，若你登錄時(shí)的權(quán)限選擇為 USER，你就不可以使用添加用戶菜單，只有當(dāng)你的選擇權(quán)限為 SYSTEM 時(shí)，你才可使用。 2. 右鍵單窗體，出現(xiàn)彈出式菜單，選擇“菜單編輯器”菜單項(xiàng)，進(jìn)入菜單編輯對(duì)話框，菜單編輯器 如圖 所示。放棄登錄，返回啟動(dòng)界面 End Sub 創(chuàng)建系統(tǒng)主控界面： 系統(tǒng)主控界面是集中管理系統(tǒng)的界面，它主要通過(guò)菜單或命令按鈕對(duì)其他窗體進(jìn)行調(diào)用，對(duì)報(bào)表進(jìn)行顯示或打印，其制作過(guò)程如下： 1. 在工程中增加一個(gè)新的 MDI窗體 MDIform1，并加入一個(gè)圖片 框 picture1 用于放入在系統(tǒng)啟動(dòng)后加載的圖片。 ‘查詢密碼和用戶是否與表中的相符 Set rs = (sql) If Or Then ‘若其中至少有一個(gè)不相符，則不能登錄。 amp。 and 密碼 = 39。 amp。, ) = Replace(, Chr(34), ) sql = select * from 密碼表 where 用戶名 =39。登錄按鈕的過(guò)程代碼如下： 進(jìn)入按鈕的過(guò)程代碼如下： Private Sub Command1_Click() = Replace(, 39。 4．在窗體中放入兩個(gè)按鈕控件，分別設(shè)置 其 Caption 屬性為“進(jìn)入”、“退出”。 ，設(shè)兩個(gè)標(biāo)簽的 Caption 屬性分別為“用戶名和密碼”。 Login_f 窗體中放入兩個(gè)文本框控件用來(lái)接收用戶名和密碼信息。保證系統(tǒng)的安全運(yùn)行。 ，設(shè)其 Caption 屬性為“退出系統(tǒng) ” ，用于退出系統(tǒng)，其過(guò)程代碼如下： Private Sub Label2_Click() end 39。 系統(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è)過(guò)程代碼，當(dāng) 用戶單擊該標(biāo)簽時(shí)即進(jìn)入系統(tǒng)權(quán)限認(rèn)證窗體。 保存工程和該窗體到磁盤路徑之中，接 下來(lái)設(shè)計(jì) first_f，該窗體作為系統(tǒng)啟動(dòng)的封面，其布局如圖 所示。Data Source= amp。兩句為加載數(shù)據(jù)源 connectionstring = Provider=。其模塊設(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。Data Source= 這樣整個(gè)數(shù)據(jù)工程將使用該數(shù)據(jù)連接和數(shù)據(jù)庫(kù)?？梢园l(fā)現(xiàn)成功連接數(shù)口的連接字符屬性中，出現(xiàn)它的字符串 Provider=。數(shù)據(jù)源是否連接成功，可以通過(guò)測(cè)試連接按鈕進(jìn)行檢驗(yàn)。 2. 選擇 Microsoft OLE DB Provider,單擊下一步按鈕，出現(xiàn)數(shù)據(jù)庫(kù)設(shè)置對(duì)話框，選擇前面創(chuàng)建的數(shù)據(jù)庫(kù)即可，如圖 所示。 右擊連接條目 Connection1,出現(xiàn)一個(gè)彈出式菜單，在彈出式菜單中單擊“屬性”菜單項(xiàng)，即出現(xiàn)數(shù)據(jù)源驅(qū)動(dòng)程序類型，也即數(shù)據(jù)源提供者類型選擇對(duì)話框。 4. 單 擊“打開(kāi)”按鈕，出現(xiàn)一個(gè)數(shù)據(jù)工程，其中包括一個(gè)數(shù)據(jù)工程窗體，一個(gè)數(shù)據(jù)源環(huán)境和數(shù)據(jù)報(bào)表的設(shè)計(jì)器。 2. 在開(kāi)發(fā)平臺(tái)中，創(chuàng)建一個(gè)新的工程，此處我選擇創(chuàng)建數(shù)據(jù)工程。 系統(tǒng)流程設(shè)計(jì) 創(chuàng)建系統(tǒng)啟動(dòng)封面 系統(tǒng)啟動(dòng)封面是一個(gè)應(yīng)用系統(tǒng)開(kāi)始的界面，通常是進(jìn)行系統(tǒng)介紹的，人們一看見(jiàn)封面就可以知道這個(gè)系統(tǒng)是干什么的。 密碼更改模塊是對(duì)本系統(tǒng)的用戶操作密碼進(jìn)行修改，不斷的修改密碼對(duì)于系統(tǒng)的保密工作是十分有成效的。 系統(tǒng)權(quán)限維護(hù)功能模塊是一個(gè)完整的管理系統(tǒng)中不可少的一部分，它起到了維護(hù)系統(tǒng)的安全性、保密性以及規(guī)范化等作用。 游客管理功能模塊的作用是對(duì)游客信息進(jìn)行增加、修改、刪除以及條件查詢等操作； 其中，游客管理子模塊的作用是對(duì)游客信息進(jìn)行編輯，而游客查詢子模塊的作用是對(duì)游客信息進(jìn)行條件查詢。 導(dǎo)游管理功能模塊的作用是對(duì)導(dǎo)游數(shù)據(jù)進(jìn)行增加、修改、刪除以及條件查詢等操作； 其中，導(dǎo)游 管理子模塊的作用是對(duì)導(dǎo)游信息進(jìn)行編輯，而導(dǎo)游查詢子模塊的作用是對(duì)導(dǎo)游具體信息進(jìn)行條件查詢。 在本系統(tǒng)中，我將采用 visual basic 中的外部數(shù)據(jù)連接使之和 access2021 中所創(chuàng)建好的數(shù)據(jù)源連接，以達(dá)到操作數(shù)據(jù)的目的 。 Visual Basic 提供了大量的控件，這些控件 可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。 開(kāi)發(fā)所需的軟件環(huán)境： windows98中文版或更高， visual basic 中文企業(yè)版， microsoft access 2021。將 ADODC 控件 放置在窗體中 之后，我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來(lái)的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。我們可以設(shè)置 ADODC 控件 的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。 Visual Basic、 Access 以及其他微軟的軟件產(chǎn)品都是通過(guò)共用 JET 數(shù)據(jù)庫(kù) 引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。如上所述， Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn) Access2021 就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。用戶可以在系統(tǒng)在使用密碼，也可以在系統(tǒng)中維護(hù)密碼。在本課程中， 我創(chuàng)建了一個(gè)游客管理數(shù)據(jù)表，其數(shù)據(jù)庫(kù)結(jié)構(gòu)如下表所示。 創(chuàng)建組團(tuán)管理數(shù)據(jù)表 組團(tuán)管理同樣是旅行社的一個(gè)重要管理內(nèi)容，在系統(tǒng)設(shè)計(jì)中，我們創(chuàng)建了一個(gè)組團(tuán)管理數(shù)據(jù)表，其數(shù)據(jù)結(jié)構(gòu)如下表所示： 表 組團(tuán)管理數(shù)據(jù)表結(jié)構(gòu) 字段名稱 字段類型 字段大小 索引 旅游團(tuán)號(hào) 自動(dòng)編號(hào) 默認(rèn) 有（無(wú)重復(fù)） 旅游團(tuán)名 文本 50 無(wú) 線路名稱 文本 50 無(wú) 發(fā)出日期 日期 /時(shí)間 默認(rèn) 無(wú) 結(jié)束日期 日期 /時(shí)間 默認(rèn) 無(wú) 負(fù)責(zé)導(dǎo)游 文本 20 有（有重復(fù)） 人數(shù) 數(shù)字 10 無(wú) 單價(jià) 貸幣 默認(rèn) 無(wú) 備注 備注 默認(rèn) 無(wú) 在該數(shù)據(jù)表結(jié)構(gòu)中，我 為負(fù)責(zé)導(dǎo)游創(chuàng)建了一個(gè)有（有重復(fù)）的索引，因?yàn)樵谝粋€(gè)組團(tuán)管理數(shù)據(jù)庫(kù)中，有可能在時(shí)間不沖突的情況下，一個(gè)導(dǎo)游在帶完一個(gè)團(tuán)隊(duì)后仍將帶領(lǐng)下一個(gè)團(tuán)隊(duì)；而旅游團(tuán)號(hào)則不可以重復(fù)，所以我給旅游團(tuán)號(hào)加了一個(gè)有（無(wú)重復(fù)）的索引。 導(dǎo)游數(shù)據(jù)表的創(chuàng)建 在旅行社中，導(dǎo)游往往是不可缺少的，導(dǎo)游的管理是旅行社管理的一個(gè)重要方面，因此需要?jiǎng)?chuàng)建一個(gè)導(dǎo)游數(shù)據(jù)表，而且可以在系統(tǒng)中制作導(dǎo)游管理窗體，對(duì)導(dǎo)游進(jìn)行各種管理。數(shù)據(jù)表結(jié)構(gòu)就是對(duì)一個(gè)數(shù)據(jù)中的字段名稱、類型、大小等的定義，在數(shù)據(jù)表結(jié)構(gòu)創(chuàng)建對(duì)話框中，不僅可以定制表的結(jié)構(gòu)，還可以對(duì)數(shù)據(jù)表進(jìn)行各種操作，如顯示每一個(gè)字段的結(jié) 構(gòu)、增加或刪除字段、建立索引、對(duì)每一字段進(jìn)行有效性輸入規(guī)劃的定制等。 數(shù)據(jù)庫(kù)只是一個(gè)容器，它是數(shù)據(jù)表的集合。在該 數(shù)據(jù)庫(kù)中，創(chuàng)建 五張 數(shù)據(jù)表，即旅游 線路 數(shù)據(jù)表、 導(dǎo)游管理數(shù)據(jù)表 、游客 管理數(shù)據(jù)表、密碼表 以及組團(tuán)管理數(shù)據(jù)表 。（具體見(jiàn)圖４．１）其中，在幾個(gè)查詢模塊中，我要使用到 SQL 查詢語(yǔ)言對(duì)表格進(jìn)行條件