旅行社綜合管理系統—免費計算機(編輯修改稿)

　

【文章內容簡介】 通常是進行系統介紹的，人們一看見封面就可以知道這個系統是干什么的。創建系統啟動封面也就意味著創建系統的開始，此處，我采用創建ＶＢ數據工程的方法創建本系統，創建系統啟動界面的過程如下： 1. 啟動 Visual Basic 應用程序，進入開發平臺主界面。 2. 在開發平臺中，創建一個新的工程，此處我選擇創建數據工程。 3. 在工程類型選擇面板中選擇“數據工程”。 4. 單 擊“打開”按鈕，出現一個數據工程，其中包括一個數據工程窗體，一個數據源環境和數據報表的設計器。 數據工程的關鍵在于使用數據源，為數據工程創建數據源的方法如下： 1. 在工程窗口中單擊設計器 /數據環境條目，出現一個數據環境中的連接界面， 如圖 。 右擊連接條目 Connection1,出現一個彈出式菜單，在彈出式菜單中單擊“屬性”菜單項，即出現數據源驅動程序類型，也即數據源提供者類型選擇對話框。如圖 所示。 2. 選擇 Microsoft OLE DB Provider,單擊下一步按鈕，出現數據庫設置對話框，選擇前面創建的數據庫即可，如圖 所示。該數據庫即作為整個數據工程的數據源的數據庫。數據源是否連接成功，可以通過測試連接按鈕進行檢驗。 3. 單擊“確定”按鈕之后即成功引入數據源。可以發現成功連接數口的連接字符屬性中，出現它的字符串 Provider=。Persist Security Info=False。Data Source= 這樣整個數據工程將使用該數據連接和數據庫。 4. 我還添加了一個 模塊，其目的是為了在系統調用的時候自動調入數據源以及調入一些公有的變量。其模塊設計代碼如下： 通用 聲明 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。兩句為加載數據源 connectionstring = Provider=。Persist Security Info=False。Data Source= amp。 dataname End Sub 接下來，我將創建系統啟動封面，在工程管理器中打開數據工程已經創建的第一個窗體 first_f。 保存工程和該窗體到磁盤路徑之中，接 下來設計 first_f，該窗體作為系統啟動的封面，其布局如圖 所示。據源之后，在屬性窗 其制作過程如下： first_f 的基本屬性如下表所示。 系統啟動窗體 first_f 的主要屬性 屬性項名 屬性設置內容 BORDER STYLE NONE STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 2MAXIMIZED PICTURE 選定的圖片文件 ，設其 Caption 屬性為“系統登錄”并為該標簽控件賦予一個過程代碼，當 用戶單擊該標簽時即進入系統權限認證窗體。其過程代碼如下： Private Sub Label1_Click() End Sub ，設其 Caption 屬性為“旅行社綜合管理系統”，用于說明該系統的名稱。 ，設其 Caption 屬性為“退出系統 ” ，用于退出系統，其過程代碼如下： Private Sub Label2_Click() end 39。用于退出系統 End Sub 創建系統登錄界面 系統登錄界面是一個管理系統進行 權限認證中不可缺少的一環，它主要用來驗證系統使用的合法身份。保證系統的安全運行。其制作過程如下： Login_f；窗體布局如圖 所示。 Login_f 窗體中放入兩個文本框控件用來接收用戶名和密碼信息。在具體制作中將密碼框的 passwordchar 的屬性改為 *，作用是為了保證輸入密碼時不被他人看見。 ，設兩個標簽的 Caption 屬性分別為“用戶名和密碼”。用于說明兩個文本框的作用。 4．在窗體中放入兩個按鈕控件，分別設置 其 Caption 屬性為“進入”、“退出”。用于系統登錄和退出啟動界面之用。登錄按鈕的過程代碼如下： 進入按鈕的過程代碼如下： 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 ‘若其中至少有一個不相符，則不能登錄。 MsgBox 帳號口令錯誤 ,請檢查后重新進入 !, vbOKOnly + vbExclamation, 警告 Else glymc = rs(用戶名 ) quanxian = rs(權限 ) Unload Me End If End Sub 返回按鈕的過程代碼如下： Private Sub Command2_Click() Unload Me 39。放棄登錄，返回啟動界面 End Sub 創建系統主控界面： 系統主控界面是集中管理系統的界面，它主要通過菜單或命令按鈕對其他窗體進行調用，對報表進行顯示或打印，其制作過程如下： 1. 在工程中增加一個新的 MDI窗體 MDIform1，并加入一個圖片 框 picture1 用于放入在系統啟動后加載的圖片。保存后創建系統主菜單。 2. 右鍵單窗體，出現彈出式菜單，選擇“菜單編輯器”菜單項，進入菜單編輯對話框，菜單編輯器 如圖 所示。 3. 在菜單編輯器中添加系統各個模塊的信息，添加好后的系統界面如圖 所示。 4．在系統使用中，若你登錄時的權限選擇為 USER，你就不可以使用添加用戶菜單，只有當你的選擇權限為 SYSTEM 時，你才可使用。其認證代碼如下： Private Sub MDIForm_Load() = LoadPicture( amp。 \) If quanxian = system Then 39。當權限為 system 時，增加用戶可用 = True Else = False End If End Sub 其余菜單的過程代碼基本為打開其它窗體，在此不一一列出。 完成窗體設置后，保存退出。 創建旅游線路管理窗體 旅游線路管理是旅行社管理的一個重要的管 理方面，該窗體主要用于對一個旅行社的旅游線路數據進行增加、修改、刪除等操作，創建該管理窗體的基本方法如下： ，并將該窗體的名稱修改為 lyxlgl。 設置該窗體的基本屬性，如下表所示： 窗體 lyxlgl 的主要屬性 屬性項名 屬性設置內容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數據源，注意該工程完全可以直接引入由數據環境引入的數據源， 但使用數據環境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數據源的方法 ,在窗體調用時，數據源就已經加載，其代碼如下： Private Sub Form_Load() = = adCmdUnknown sql = select * from 旅游線路表 = sql = False = False = False If = False Then End If Set = Adodc1 End Sub 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數據，對數據進行編輯，其表格控件 的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項名 屬性設置內容 NAME DATAGRID1 CAPTION 旅游線路管理表格 ALLOWADDNEW TRUE ALLOWDELETE TRUE ALLOWUPDATA TRUE DATASOURCE ADODC1 4．在窗體中再放入八個按鈕控件，分別設置其 CAPTION 為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其作用是為了對數據庫進行操作。其操作過程代碼如下： 詳細信息按鈕代碼： 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(確認刪除 !, vbOKCancel + vbExclamation, 確認 ) 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 已經在文件尾部！ Else End If End Sub 尾記錄按鈕代碼： Private Sub Command8_Click() End Sub 5．其中，詳細信息按鈕、數據的增加和修改按鈕所打開的都是同一個窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體lyxledit 進行查看詳細、修改記錄、增加記錄。而窗體 lyxledit 創建步驟如下： 1) 添加一個窗體，命名為 lyxledit； 2) 在窗體中放入八個標簽控件，八個文本框控 件，一個組合框控件，其中text(4)和組合框是重合的，八個標簽控件是為了說明八個文本框控的作用；此外，再放入二個按鈕控件。其過程代碼如下： Option Explicit Dim i As Integer Dim sql As String 系統初始化過程代碼： 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 增加用戶時所調用窗體的過程代碼： 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 請輸入主要景點！ , vbOKOnly + vbExclamation, 警告！ Text1(1).SetFocus Exit Sub End If If Text1(2).Text = Then MsgBox 請輸入行程天數！ , vbOKOnly + vbExclamation, 警告！ Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 請輸入報價！ , vbOKOnly + vbExclamation, 警告！ Text1(3).Se