【文章內(nèi)容簡(jiǎn)介】 系統(tǒng)啟動(dòng)封面是一個(gè)應(yīng)用系統(tǒng)開始的界面，通常是進(jìn)行系統(tǒng)介紹的，人們一看見封面就可以知道這個(gè)系統(tǒng)是干什么的。創(chuàng)建系統(tǒng)啟動(dòng)封面也就意味著創(chuàng)建系統(tǒng)的開始，此處，我采用創(chuàng)建ＶＢ數(shù)據(jù)工程的方法創(chuàng)建本系統(tǒng)，創(chuàng)建系統(tǒng)啟動(dòng)界面的過程如下： 1. 啟動(dòng) Visual Basic 應(yīng)用程序，進(jìn)入開發(fā)平臺(tái)主界面。 2. 在開發(fā)平臺(tái)中，創(chuàng)建一個(gè)新的工程，此處我選擇創(chuàng)建數(shù)據(jù)工程。 3. 在工程類型選擇面板中選擇“數(shù)據(jù)工程”。 4. 單 擊“打開”按鈕，出現(xiàn)一個(gè)數(shù)據(jù)工程，其中包括一個(gè)數(shù)據(jù)工程窗體，一個(gè)數(shù)據(jù)源環(huán)境和數(shù)據(jù)報(bào)表的設(shè)計(jì)器。 數(shù)據(jù)工程的關(guān)鍵在于使用數(shù)據(jù)源，為數(shù)據(jù)工程創(chuàng)建數(shù)據(jù)源的方法如下： 1. 在工程窗口中單擊設(shè)計(jì)器 /數(shù)據(jù)環(huán)境條目，出現(xiàn)一個(gè)數(shù)據(jù)環(huán)境中的連接界面， 如圖 。 右擊連接條目 Connection1,出現(xiàn)一個(gè)彈出式菜單，在彈出式菜單中單擊“屬性”菜單項(xiàng)，即出現(xiàn)數(shù)據(jù)源驅(qū)動(dòng)程序類型，也即數(shù)據(jù)源提供者類型選擇對(duì)話框。如圖 所示。 2. 選擇 Microsoft OLE DB Provider,單擊下一步按鈕，出現(xiàn)數(shù)據(jù)庫設(shè)置對(duì)話框，選擇前面創(chuàng)建的數(shù)據(jù)庫即可，如圖 所示。該數(shù)據(jù)庫即作為整個(gè)數(shù)據(jù)工程的數(shù)據(jù)源的數(shù)據(jù)庫。數(shù)據(jù)源是否連接成功，可以通過測(cè)試連接按鈕進(jìn)行檢驗(yàn)。 3. 單擊“確定”按鈕之后即成功引入數(shù)據(jù)源。可以發(fā)現(xiàn)成功連接數(shù)口的連接字符屬性中，出現(xiàn)它的字符串 Provider=。Persist Security Info=False。Data Source= 這樣整個(gè)數(shù)據(jù)工程將使用該數(shù)據(jù)連接和數(shù)據(jù)庫。 4. 我還添加了一個(gè) 模塊，其目的是為了在系統(tǒng)調(diào)用的時(shí)候自動(dòng)調(diào)入數(shù)據(jù)源以及調(diào)入一些公有的變量。其模塊設(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。 \ 39。兩句為加載數(shù)據(jù)源 connectionstring = Provider=。Persist Security Info=False。Data Source= amp。 dataname End Sub 接下來，我將創(chuàng)建系統(tǒng)啟動(dòng)封面，在工程管理器中打開數(shù)據(jù)工程已經(jīng)創(chuàng)建的第一個(gè)窗體 first_f。 保存工程和該窗體到磁盤路徑之中，接 下來設(shè)計(jì) first_f，該窗體作為系統(tǒng)啟動(dòng)的封面，其布局如圖 所示。據(jù)源之后，在屬性窗 其制作過程如下： first_f 的基本屬性如下表所示。 系統(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)證窗體。其過程代碼如下： Private Sub Label1_Click() End Sub ，設(shè)其 Caption 屬性為“旅行社綜合管理系統(tǒng)”，用于說明該系統(tǒng)的名稱。 ，設(shè)其 Caption 屬性為“退出系統(tǒng) ” ，用于退出系統(tǒng)，其過程代碼如下： 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)，它主要用來驗(yàn)證系統(tǒng)使用的合法身份。保證系統(tǒng)的安全運(yùn)行。其制作過程如下： Login_f；窗體布局如圖 所示。 Login_f 窗體中放入兩個(gè)文本框控件用來接收用戶名和密碼信息。在具體制作中將密碼框的 passwordchar 的屬性改為 *，作用是為了保證輸入密碼時(shí)不被他人看見。 ，設(shè)兩個(gè)標(biāo)簽的 Caption 屬性分別為“用戶名和密碼”。用于說明兩個(gè)文本框的作用。 4．在窗體中放入兩個(gè)按鈕控件，分別設(shè)置 其 Caption 屬性為“進(jìn)入”、“退出”。用于系統(tǒng)登錄和退出啟動(dòng)界面之用。登錄按鈕的過程代碼如下： 進(jìn)入按鈕的過程代碼如下： 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, 警告 Else glymc = rs(用戶名 ) quanxian = rs(權(quán)限 ) Unload Me End If End Sub 返回按鈕的過程代碼如下： Private Sub Command2_Click() Unload Me 39。放棄登錄，返回啟動(dòng)界面 End Sub 創(chuàng)建系統(tǒng)主控界面： 系統(tǒng)主控界面是集中管理系統(tǒng)的界面，它主要通過菜單或命令按鈕對(duì)其他窗體進(jìn)行調(diào)用，對(duì)報(bào)表進(jìn)行顯示或打印，其制作過程如下： 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í)，增加用戶可用 = True Else = False End If End Sub 其余菜單的過程代碼基本為打開其它窗體，在此不一一列出。 完成窗體設(shè)置后，保存退出。 創(chuàng)建旅游線路管理窗體 旅游線路管理是旅行社管理的一個(gè)重要的管 理方面，該窗體主要用于對(duì)一個(gè)旅行社的旅游線路數(shù)據(jù)進(jìn)行增加、修改、刪除等操作，創(chuàng)建該管理窗體的基本方法如下： ，并將該窗體的名稱修改為 lyxlgl。 設(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)境往往需要通過編制命令后再進(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)行編輯，其表格控件 的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 NAME DATAGRID1 CAPTION 旅游線路管理表格 ALLOWADDNEW TRUE ALLOWDELETE TRUE ALLOWUPDATA TRUE DATASOURCE ADODC1 4．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其 CAPTION 為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對(duì)數(shù)據(jù)庫進(jìn)行操作。其操作過程代碼如下： 詳細(xì)信息按鈕代碼： Private Sub Command1_Click() flag = 3 1 End Sub 增加按鈕代碼： Private Sub Command2_Click() flag = 1 1 End Sub 刪除按鈕代碼： Private Sub Command3_Click() If Then MsgBox 不能刪除空記錄 !, vbCritical + vbExclamation, 警告 Else Dim ok As Integer ok = MsgBox(確認(rèn)刪除 !, vbOKCancel + vbExclamation, 確認(rèn) ) If ok = 1 Then End If End If End Sub 修改按鈕代碼： Private Sub Command4_Click() flag = 2 1 End Sub 首記錄按鈕代碼： Private Sub Command5_Click() End Sub 前一條按鈕代碼： Private Sub Command6_Click() If = True Then MsgBox 已到文件首部！ Else End If End Sub 后一條按鈕代碼： Private Sub Command7_Click() If Then MsgBox 已經(jīng)在文件尾部！ Else End If End Sub 尾記錄按鈕代碼： Private Sub Command8_Click() End Sub 5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對(duì)窗體lyxledit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體 lyxledit 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 lyxledit； 2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控 件，一個(gè)組合框控件，其中text(4)和組合框是重合的，八個(gè)標(biāo)簽控件是為了說明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過程代碼如下： Option Explicit Dim i As Integer Dim sql As String 系統(tǒng)初始化過程代碼： 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)用窗體的過程代碼： 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, 警告！