【文章內(nèi)容簡(jiǎn)介】 自動(dòng)調(diào)入數(shù)據(jù)源以及調(diào)入一些公有的變量。其模塊設(shè)計(jì)代碼如下：通用 聲明Public conn As New Public rs As New Public dataname As StringPublic connectionstring As StringPublic glymc As StringPublic quanxian As StringPublic flag As Integer通用 mainSub Main()dataname = amp。 \ 39。兩句為加載數(shù)據(jù)源connectionstring = Provider=。Persist Security Info=False。Data Source= amp。 datanameEnd Sub接下來(lái)，我將創(chuàng)建系統(tǒng)啟動(dòng)封面，在工程管理器中打開(kāi)數(shù)據(jù)工程已經(jīng)創(chuàng)建的第一個(gè)窗體 first_f。保存工程和該窗體到磁盤(pán)路徑之中，接下來(lái)設(shè)計(jì) first_f，該窗體作為系統(tǒng)啟動(dòng)的封面，其布局如圖 所示。據(jù)源之后，在屬性窗其制作過(guò)程如下： first_f 的基本屬性如下表所示。系統(tǒng)啟動(dòng)窗體 first_f 的主要屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Border Style NoneStartUpPosition 2屏幕中心WindowsState 2maximizedPicture 選定的圖片文件，設(shè)其 Caption 屬性為“系統(tǒng)登錄”并為該標(biāo)簽控件賦予一個(gè)過(guò)程代碼，當(dāng)用戶單擊該標(biāo)簽時(shí)即進(jìn)入系統(tǒng)權(quán)限認(rèn)證窗體。其過(guò)程代碼如下：Private Sub Label1_Click() End Sub，設(shè)其 Caption 屬性為“旅行社綜合管理系統(tǒng)”，用于說(shuō)明該系統(tǒng)的名稱。，設(shè)其 Caption 屬性為“退出系統(tǒng)”，用于退出系統(tǒng)，其過(guò)程代碼如下：Private Sub Label2_Click()end 39。用于退出系統(tǒng)End Sub 創(chuàng)建系統(tǒng)登錄界面系統(tǒng)登錄界面是一個(gè)管理系統(tǒng)進(jìn)行權(quán)限認(rèn)證中不可缺少的一環(huán)，它主要用來(lái)驗(yàn)證系統(tǒng)使用的合法身份。保證系統(tǒng)的安全運(yùn)行。其制作過(guò)程如下： Login_f；窗體布局如圖 所示。 Login_f 窗體中放入兩個(gè)文本框控件用來(lái)接收用戶名和密碼信息。在具體制作中將密碼框的 passwordchar 的屬性改為*，作用是為了保證輸入密碼時(shí)不被他人看見(jiàn)。，設(shè)兩個(gè)標(biāo)簽的 Caption 屬性分別為“用戶名和密碼”。用于說(shuō)明兩個(gè)文本框的作用。4．在窗體中放入兩個(gè)按鈕控件，分別設(shè)置其 Caption 屬性為“進(jìn)入”、“退出”。用于系統(tǒng)登錄和退出啟動(dòng)界面之用。登錄按鈕的過(guò)程代碼如下：進(jìn)入按鈕的過(guò)程代碼如下：Private Sub Command1_Click() = Replace(, 39。, ) = Replace(, Chr(34), ) = Replace(, 39。, ) = Replace(, Chr(34), )sql = select * from 密碼表 where 用戶名=39。 amp。 amp。 39。 and 密碼= 39。 amp。 amp。 39。 ‘查詢密碼和用戶是否與表中的相符Set rs = (sql)If Or Then ‘若其中至少有一個(gè)不相符，則不能登錄。MsgBox 帳號(hào)口令錯(cuò)誤,請(qǐng)檢查后重新進(jìn)入 !, vbOKOnly + vbExclamation, 警告Elseglymc = rs(用戶名)quanxian = rs(權(quán)限)Unload MeEnd IfEnd Sub返回按鈕的過(guò)程代碼如下：Private Sub Command2_Click()Unload Me 39。放棄登錄，返回啟動(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)后加載的圖片。保存后創(chuàng)建系統(tǒng)主菜單。2. 右鍵單窗體，出現(xiàn)彈出式菜單，選擇“菜單編輯器”菜單項(xiàng)，進(jìn)入菜單編輯對(duì)話框，菜單編輯器 如圖 所示。3. 在菜單編輯器中添加系統(tǒng)各個(gè)模塊的信息，添加好后的系統(tǒng)界面如圖 所示。4．在系統(tǒng)使用中，若你登錄時(shí)的權(quán)限選擇為 USER，你就不可以使用添加用戶菜單，只有當(dāng)你的選擇權(quán)限為 SYSTEM 時(shí)，你才可使用。其認(rèn)證代碼如下：Private Sub MDIForm_Load() = LoadPicture( amp。 \)If quanxian = system Then 39。當(dāng)權(quán)限為 system 時(shí)，增加用戶可用 = TrueElse = FalseEnd IfEnd Sub其余菜單的過(guò)程代碼基本為打開(kāi)其它窗體，在此不一一列出。完成窗體設(shè)置后，保存退出。 創(chuàng)建旅游線路管理窗體旅游線路管理是旅行社管理的一個(gè)重要的管理方面，該窗體主要用于對(duì)一個(gè)旅行社的旅游線路數(shù)據(jù)進(jìn)行增加、修改、刪除等操作，創(chuàng)建該管理窗體的基本方法如下：，并將該窗體的名稱修改為 lyxlgl。設(shè)置該窗體的基本屬性，如下表所示：窗體 lyxlgl 的主要屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Borderstyle 1fixedStartupposition 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() = = adCmdUnknownsql = select * from 旅游線路表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1End Sub3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。表格控件 DATAGIRD1 的基本屬性屬性項(xiàng)名 屬性設(shè)置內(nèi)容Name Datagrid1Caption 旅游線路管理表格Allowaddnew TrueAllowdelete TrueAllowupdata TrueDatasource Adodc14．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其 CAPTION 為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。其操作過(guò)程代碼如下：詳細(xì)信息按鈕代碼：Private Sub Command1_Click()flag = 3 1End Sub增加按鈕代碼：Private Sub Command2_Click()flag = 1 1End Sub刪除按鈕代碼：Private Sub Command3_Click()If Then MsgBox 不能刪除空記錄!, vbCritical + vbExclamation, 警告ElseDim ok As Integerok = MsgBox(確認(rèn)刪除!, vbOKCancel + vbExclamation, 確認(rèn))If ok = 1 ThenEnd IfEnd IfEnd Sub修改按鈕代碼：Private Sub Command4_Click()flag = 2 1End Sub首記錄按鈕代碼：Private Sub Command5_Click()End Sub前一條按鈕代碼：Private Sub Command6_Click()If = True ThenMsgBox 已到文件首部！ElseEnd IfEnd Sub后一條按鈕代碼：Private Sub Command7_Click()If ThenMsgBox 已經(jīng)在文件尾部！ElseEnd IfEnd Sub尾記錄按鈕代碼：Private Sub Command8_Click()End Sub5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開(kāi)的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過(guò)判斷 FLAG 的值不同來(lái)對(duì)窗體 lyxledit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體 lyxledit 創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為 lyxledit；2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控件，一個(gè)組合框控件，其中text(4)和組合框是重合的，八個(gè)標(biāo)簽控件是為了說(shuō)明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過(guò)程代碼如下：Option ExplicitDim i As IntegerDim sql As String系統(tǒng)初始化過(guò)程代碼：Private Sub init() 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。以上均為在輸入為空的警告 MsgBox 請(qǐng)輸入行程安排！, vbOKOnly + vbExclamation, 警告！ Text1(6).SetFocus Exit Sub End If If flag = 1 Then 39。添加操作 sql = select * from 旅游線路表 where 名稱=39。 + Text1(0).Text + 39。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 39。判斷是否已經(jīng)存在記錄 MsgBox 已經(jīng)存在這個(gè)旅游線路的記錄！ , vbOKOnly + vbExclamation, 警告！ Text1(0).SetFocus Else rs!名稱 = Text1(0).Text rs!主要景點(diǎn) = Text1(1).Text rs!行程天數(shù) = Text1(2).Text rs!報(bào)價(jià) = Text1(3).Text