【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Name Datagrid1 Caption 導(dǎo)游管理表格 Allowaddnew True Allowdelete True Allowupdata True Datasource Adodc1 4．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其 CAPTION 為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對數(shù)據(jù)庫進(jìn)行操作。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。 5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體dyedit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體 dyedit 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 dyedit； 2) 在窗體中放入五個(gè)標(biāo)簽控件，五個(gè)文本框控件，二個(gè)組合框控件，其中text1(1) text1(2)和兩個(gè)組合框是重合的，五個(gè)標(biāo)簽控件是為了說明五個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過程代碼與前一個(gè)旅游線路管理窗體 lyxledit 的過程代碼大致相同。此處不予列出。 創(chuàng)建導(dǎo)游查詢窗體 ，并將該窗體的名稱修改為 dycx。導(dǎo)游查詢窗體的創(chuàng)建，使我們可以更快捷的 根據(jù)復(fù)選框提供的條件對導(dǎo)游數(shù)據(jù)進(jìn)行準(zhǔn)確的查找。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 dycx 的主要屬性 屬性項(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)加載。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，不能對數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Name Datagrid1 Caption 導(dǎo)游管理表格 Allowaddnew False Allowdelete False Allowupdata False Datasource Adodc1 4．在窗體中再放入四個(gè)復(fù)選框控件，分別設(shè)置其 CAPTION 為按姓名、按年齡、按出生年月、按級別；再放入四個(gè)文本框控件用于接收查詢數(shù)據(jù)；再放入三個(gè)按鈕，分別設(shè)置其 Caption 為提交、重置、詳細(xì)信息。其中詳細(xì)信息所調(diào)用的窗體 dyedit 只是通過對變量 FLAG 的判斷將其兩個(gè)組合框設(shè)為隱藏，而用兩個(gè)文本框代替，因?yàn)樵诓樵冃畔r(shí)不提供信息的修改。此窗體各控件的過程代碼與上一窗體 Lyxlcx 大致相同，只是復(fù)選框的應(yīng)用在前面所涉及到的窗體中未出現(xiàn)，現(xiàn)給出它的過程代碼： 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 請輸入導(dǎo)游姓名 !, 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 請?jiān)O(shè)置查詢方式 , vbOKOnly + vbExclamation, 警告 Exit Sub End If sql = select * from 導(dǎo)游數(shù)據(jù)表 where amp。 str = sql End Sub 創(chuàng)建旅游組團(tuán)管理窗體 ，并將該窗體的名稱修改為 lyztgl。該窗全主要實(shí)現(xiàn)的功能是對旅行社進(jìn)行合理的組團(tuán)管理，在該模塊中，用戶可以對組團(tuán)數(shù)據(jù)進(jìn)行創(chuàng)建、更新、刪除、修改等 基本操作。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 lyztgl 的主要屬性 屬性項(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)加載。其代碼與前幾個(gè)窗體的 數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以，這里不予以列出。 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Name Datagrid1 Caption 旅游組團(tuán)管理表格 Allowaddnew True Allowdelete True Allowupdata True Datasource Adodc1 4．在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其 CAPTION 為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對數(shù)據(jù)庫進(jìn)行操作。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。 5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體lyztedit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體 lyzteidt 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 lyztedit； 2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控件，二 個(gè)組合框控件，其中text1(1) text1(4)和兩個(gè)組合框是重合的，八個(gè)標(biāo)簽控件是為了說明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過程代碼與前一個(gè)旅游線路管理窗體 lyxledit 的過程代碼大致相同。此處不予列出。 創(chuàng)建旅游組團(tuán)查詢窗體 ，并將該窗體的名稱修改為 lyztcx。在該窗體中，用戶可以根據(jù)窗體所提供的“按組團(tuán)名稱、按線路名稱、按發(fā)出日期等等”的復(fù)選框進(jìn)行選擇查詢。 設(shè)置該窗體的基本屬性，如下表所示： 窗體 lyztcx 的主要屬性 屬性項(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)加載，其代碼與上幾個(gè)數(shù)據(jù)源加載的代碼大致相同，只是表格選擇不同，此處不予以列出。 3．在窗體中放入一個(gè)表格控件 DataGrid1， 該控件的主要作用是顯示數(shù)據(jù)，不對數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。 表格控件 DATAGIRD1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Name Datagrid1 Caption 旅游組團(tuán)管理表格 Allowaddnew False Allowdelete False Allowupdata False Datasource Adodc1 4．在窗體中放入五個(gè)復(fù)選框提供可選擇條件的查詢，五個(gè)文本框用于接收查詢的信息；三個(gè)按鈕，名稱分別為提交、重置、詳細(xì)信息；其過程代碼（包括對復(fù)選框的 判斷）與上一個(gè)導(dǎo)游查詢窗體中所涉及到的代碼大致相同，只是一些選擇判斷的條件不同，在此處代碼不予以列出。本窗體中的詳細(xì)信息按鈕單擊事件所調(diào)用的窗體 lyztedit2 布局和前一個(gè)管理窗口中詳細(xì)信息按鈕所調(diào)用的窗體 lyztedit 布局大致相同，但是少了二個(gè)組合框，少了一個(gè)確定按鈕，因?yàn)樵诓樵兡K中不提供數(shù)據(jù)的修改。 創(chuàng)建游客管理窗體 ，并將該窗體的名稱修改為 ykgl。在游客管理模塊中，對戶可根據(jù)窗體所提供的數(shù)據(jù)操作功能對旅游者的信息進(jìn)行各式各樣的操作。 設(shè)置該窗體的基本屬性，如下表所 示： 窗體 ykgl 的主要屬性 屬性項(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)加載。其代碼與前幾個(gè)窗體的數(shù)據(jù)源加載代碼大致相同，只是表格選擇的不同而以 ，這里不予以列出。 3．在窗體中放入一個(gè)表格控件 DataGrid1，該控件的主要作用是顯示數(shù)據(jù)，對數(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è)、尾記錄。其作用是為了對數(shù)據(jù)庫進(jìn)行操作。其操作過程代碼與上一個(gè)旅游線路管理窗體的制作大致相同，此處不予以列出。 5．其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開的都是同一個(gè)窗體，只是其變量 FLAG 的值不同，它們的單擊事件是通過判斷 FLAG 的值不同來對窗體ykedit 進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體 ykedit 創(chuàng)建步驟如下： 1) 添加一個(gè)窗體，命名為 ykedit； 2) 在窗體中放入七個(gè)標(biāo)簽控件，七個(gè)文本框控件，二個(gè)組合框控件，其中text1(2) text1(6)和兩個(gè)組合 框是重合的，七個(gè)標(biāo)簽控件是為了說明七個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件