旅行社綜合管理系統—免費計算機-資料下載頁

【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 主要作用是顯示數據，對數據進行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項名 屬性設置內容 NAME DATAGRID1 CAPTION 導游管理表格 ALLOWADDNEW TRUE ALLOWDELETE TRUE ALLOWUPDATA TRUE DATASOURCE ADODC1 4．在窗體中再放入八個按鈕控件，分別設置其 CAPTION 為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其作用是為了對數據庫進行操作。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。 5．其中，詳細信息按鈕、數據的增加和修改按鈕所打開的都是同一個窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體dyedit 進行查看詳細、修改記錄、增加記錄。而窗體 dyedit 創建步驟如下： 1) 添加一個窗體，命名為 dyedit； 2) 在窗體中放入五個標簽控件，五個文本框控件，二個組合框控件，其中text1(1) text1(2)和兩個組合框是重合的，五個標簽控件是為了說明五個文本框控的作用；此外，再放入二個按鈕控件。其過程代碼與前一個旅游線路管理窗體 lyxledit 的過程代碼大致相同。此處不予列出。 創建導游查詢窗體 ，并將該窗體的名稱修改為 dycx。導游查詢窗體的創建，使我們可以更快捷的 根據復選框提供的條件對導游數據進行準確的查找。 設置該窗體的基本屬性，如下表所示： 窗體 dycx 的主要屬性 屬性項名 屬性設置內容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數據源，注意該工程完全可以直接引入由數據環境引入的數據源，但使用數據環境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數據源的方法 ,在窗體調用時，數據 源就已經加載。其代碼與前幾個窗體的數據源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數據，不能對數據進行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項名 屬性設置內容 NAME DATAGRID1 CAPTION 導游管理表格 ALLOWADDNEW FALSE ALLOWDELETE FALSE ALLOWUPDATA FALSE DATASOURCE ADODC1 4．在窗體中再放入四個復選框控件，分別設置其 CAPTION 為按姓名、按年齡、按出生年月、按級別；再放入四個文本框控件用于接收查詢數據；再放入三個按鈕，分別設置其 Caption 為提交、重置、詳細信息。其中詳細信息所調用的窗體 dyedit 只是通過對變量 FLAG 的判斷將其兩個組合框設為隱藏，而用兩個文本框代替，因為在查詢信息時不提供信息的修改。此窗體各控件的過程代碼與上一窗體 Lyxlcx 大致相同，只是復選框的應用在前面所涉及到的窗體中未出現，現給出它的過程代碼： Private Sub Command1_Click() Dim str As String Dim dd(4) As Boolean str = If Check1(0).Value Then If Text1(0).Text = Then MsgBox 請輸入導游姓名 !, vbCritical, 警告 Exit Sub End If dd(0) = True str = str amp。 姓名 =39。 amp。 Trim(Text1(0).Text) + 39。 End If If Check1(1).Value Then If Text1(1).Text = Then MsgBox 請輸入性別 !, vbCritical, 警告 Exit Sub End If dd(1) = True If dd(0) Then str = str amp。 and 別性 =39。 amp。 Trim(Text1(1).Text) + 39。 Else str = str amp。 性別 =39。 amp。 Trim(Text1(1).Text) + 39。 End If End If If Check1(2).Value Then If Text1(2).Text = Then MsgBox 請輸入級別 !, vbCritical, 警告 Exit Sub End If dd(2) = True If dd(0) Or dd(1) Then str = str amp。 and 級別 =39。 amp。 Text1(2).Text amp。 39。 Else str = str amp。 級別 =39。 amp。 Text1(2).Text amp。 39。 End If End If If Check1(3).Value Then If Text1(3).Text = Then MsgBox 請輸入出生年月 !, vbCritical, 警告 Exit Sub End If dd(3) = True If dd(0) Or dd(1) Or dd(2) Then str = str amp。 and 出生年月 = amp。 Text1(3).Text amp。 Else str = str amp。 出生年月 = amp。 Text1(3).Text amp。 End If End If If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then MsgBox 請設置查詢方式 , vbOKOnly + vbExclamation, 警告 Exit Sub End If sql = select * from 導游數據表 where amp。 str = sql End Sub 創建旅游組團管理窗體 ，并將該窗體的名稱修改為 lyztgl。該窗全主要實現的功能是對旅行社進行合理的組團管理，在該模塊中， 用戶可以對組團數據進行創建、更新、刪除、修改等基本操作。 設置該窗體的基本屬性，如下表所示： 窗體 lyztgl 的主要屬性 屬性項名 屬性設置內容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數據源，注意該工程完全可以直接引入由數據環境引入的數據源，但使用數據環境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數據源的方法 ,在窗體 調用時，數據源就已經加載。其代碼與前幾個窗體的數據源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數據，對數據進行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項名 屬性設置內容 NAME DATAGRID1 CAPTION 旅游組團管理表格 ALLOWADDNEW TRUE ALLOWDELETE TRUE ALLOWUPDATA TRUE DATASOURCE ADODC1 4．在窗體中再放入八個按鈕控件，分別設置其 CAPTION 為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其作用是為了對數據庫進行操作。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。 5．其中，詳細信息按鈕、數據的增加和修改按鈕所打開的都是同一個窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體lyztedit 進行查看詳細、修改記錄、增加記錄。而窗體 lyzteidt 創建步驟如下： 1) 添加一個窗體，命名為 lyztedit； 2) 在窗體中放入八個標簽控件，八個文本框控件，二個組合框控件，其中text1(1) text1(4)和兩個組合框是重合的，八個標簽控件是為了說明八個文本框控的作用；此外，再放入二個按鈕控件。其過程代碼與前一個旅游線路管理窗體 lyxledit 的過程代碼大致相同。此處不予列出。 創建旅游組團查詢窗體 ，并將該窗體的名稱修改為 lyztcx。在該窗體中，用戶可以根據窗體所提供的“按組團名稱、按線路名稱、按發出日期等等”的復選框進行選擇查詢。 設置該窗體的基本屬性，如下表所示： 窗體 lyztcx 的主要屬性 屬性項名 屬性設置內容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數據源，注意該工程完全可以直接引入由數據環境引入的數據源，但使用數據環境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數據源的方法 ,在窗體調用時，數據源就已經加載，其代碼與上幾個數據源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數據，不對數據進行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項名 屬性設置內容 NAME DATAGRID1 CAPTION 旅游組團管理表格 ALLOWADDNEW FALSE ALLOWDELETE FALSE ALLOWUPDATA FALSE DATASOURCE ADODC1 4．在窗體中放入五個復選框提供可選擇條件的查詢，五個文本框用于接收查詢的信息；三個按鈕，名稱分別為提 交、重置、詳細信息；其過程代碼（包括對復選框的判斷）與上一個導游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。本窗體中的詳細信息按鈕單擊事件所調用的窗體 lyztedit2 布局和前一個管理窗口中詳細信息按鈕所調用的窗體 lyztedit 布局大致相同，但是少了二個組合框，少了一個確定按鈕，因為在查詢模塊中不提供數據的修改。 創建游客管理窗體 ，并將該窗體的名稱修改為 ykgl。在游客管理模塊中，對戶可根據窗體所提供的數據操作功能對旅游者的信息進行各 式各樣的操作。 設置該窗體的基本屬性，如下表所示： 窗體 ykgl 的主要屬性 屬性項名 屬性設置內容 BORDERSTYLE 1FIXED STARTUPPOSITION 2屏幕中心 WINDOWSSTATE 0NORMAL ADODC1 控件，作為該窗體的數據源，注意該工程完全可以直接引入由數據環境引入的數據源，但使用數據環境往往需要通過編制命令后再進行各種使用，比較麻煩，因此我們仍采用使用 adodc1 控件引入數據源的方法 ,在窗體調用時，數據源就已經加載。其代碼與前幾個窗體的 數據源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。 3．在窗體中放入一個表格控件 DataGrid1，該控件的主要作用是顯示數據，對數據進行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項名 屬性設置內容 NAME DATAGRID1 CAPTION 游客管理表格 ALLOWADDNEW TRUE ALLOWDELETE TRUE ALLOWUPDATA TRUE DATASOURCE ADODC1 4．在窗體中再放入八個按鈕控件，分別設置其 CAPTION 為，詳細信息、增加、刪除、修改、首記錄、前一個、下一個、尾記錄。其作用是為了對數據庫進行操作。其操作過程代碼與上一個旅游線路管理窗體的制作大致相同，此處不予以列出。 5．其中，詳細信息按鈕、數據的增加和修改按鈕所打開的都是同一個窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體ykedit 進行查看詳細、修改記錄、增加記錄。而窗體 ykedit 創建步驟如下： 1) 添加一個窗體，命名為 ykedit； 2) 在窗體中放入七個標簽控件，七個文本框控件，二個組合框控件，其 中text1(2) text1(6)和兩個組合框是重合的，七個標簽控件是為了說明七個文本框控的作用；此外，再放入二個按鈕控件。其過程