【正文】 te Sub Label8_Click()End Sub：Private Sub Form_Load() = 8910 = 11100 = 2115 = 1380End SubPrivate Sub Image2_Click()End SubPrivate Sub Image3_Click()End SubPrivate Sub Image4_Click()End SubPrivate Sub Image5_Click()End SubPrivate Sub Image6_Click()End SubPrivate Sub Image9_Click(): 計算機學院軟件工程課程設計38End SubPrivate Sub Label1_Click()End SubPrivate Sub Label2_Click()End SubPrivate Sub Label3_Click()End SubPrivate Sub Label4_Click()End SubPrivate Sub Label5_Click()End SubPrivate Sub Label6_Click(): End Sub：Option Explicit 39。強制定義變量Dim strsql As StringPrivate Sub Combo1_Click()39。根據(jù)個人費用查詢相關(guān)記錄If = 2022 元以下 Then strsql = select * from 報價表 where 人均費用 2022 = adCmdText 39。更新記錄源 = strsql End IfIf = 2022 元—2999 元 Then strsql = select * from 報價表 where 人均費用 between 2022 and 2999 = adCmdText 39。更新記錄源 = strsql End IfIf = 3000 元—3999 元 Then strsql = select * from 報價表 where 人均費用 between 3000 and 3999 = adCmdText 39。更新記錄源 = strsql End If計算機學院軟件工程課程設計39If = 4000 元—4999 元 Then strsql = select * from 報價表 where 人均費用 between 4000 and 4999 = adCmdText 39。更新記錄源 = strsql End IfIf = 5000 元以上 Then strsql = select * from 報價表 where 人均費用 = 5000 = adCmdText 39。更新記錄源 = strsql End IfEnd SubPrivate Sub Combo2_Click()39。根據(jù)所得利潤查詢相關(guān)記錄If = 5000 元以下 Then strsql = select * from 財務表 where 利潤 5000 = adCmdText 39。更新記錄源 = strsql End IfIf = 5000 元—9999 元 Then strsql = select * from 財務表 where 利潤 between 5000 and 9999 = adCmdText 39。更新記錄源 = strsql End IfIf = 10000 元—14999 元 Then strsql = select * from 財務表 where 利潤 between 10000 and 14999 = adCmdText 39。更新記錄源 = strsql End IfIf = 15000 元—19999 元 Then strsql = select * from 財務表 where 利潤 between 15000 and 19999 = adCmdText 39。更新記錄源 = strsql End IfIf = 20220 元—24999 元 Then strsql = select * from 財務表 where 利潤 between 20220 and 24999 = adCmdText 39。更新記錄源 = strsql計算機學院軟件工程課程設計40 End IfIf = 25000 元以上 Then strsql = select * from 財務表 where 利潤 = 25000 = adCmdText 39。更新記錄源 = strsql End IfEnd SubPrivate Sub Form_Load() 2022 元以下, 0 2022 元—2999 元, 1 3000 元—3999 元, 2 4000 元—4999 元, 3 5000 元以上, 4 5000 元以下, 0 5000 元—9999 元, 1 10000 元—14999 元, 2 15000 元—19999 元, 3 20220 元—24999 元, 4 25000 元以上, 539。窗體加載時 datagrid 的屬性 = False = False = False39。窗體加載時的位置 = 8910 = 11100 = 2115 = 1380End SubPrivate Sub Image11_Click()39。關(guān)閉當前窗體，顯示新窗體: 管理員總控 .ShowEnd SubPrivate Sub Image2_Click()39。根據(jù)景點編號查詢相關(guān)記錄If Thenstrsql = select * from 報價表 where 景點編號=39。 amp。 Trim() amp。 39。 = adCmdText 39。更新記錄源 = strsql 計算機學院軟件工程課程設計41 = Else MsgBox 請輸入景點編號！, vbExclamation + vbOKOnly, 警告 = End IfEnd SubPrivate Sub Image3_Click()39。根據(jù)導游編號查詢相關(guān)記錄If Thenstrsql = select * from 財務表 where 導游編號=39。 amp。 Trim() amp。 39。 = adCmdText 39。更新記錄源 = strsql = Else MsgBox 請輸入景點編號！, vbExclamation + vbOKOnly, 警告 = End IfEnd SubPrivate Sub Label2_Click()39。添加記錄 = True 39。允許更新 39。允許添加End SubPrivate Sub Label3_Click()39。刪除記錄 = True 39。允許更新 39。允許刪除End SubPrivate Sub Label4_Click()39。修改記錄 = True 39。允許更新End SubPrivate Sub Label5_Click()39。確定后不允許更新記錄 39。更新數(shù)據(jù)庫 = False 39。不允許改變 datagridEnd SubPrivate Sub Label6_Click()39。關(guān)閉當前窗體，顯示新窗體: 管理員總控 .Show計算機學院軟件工程課程設計42End SubPrivate Sub opt1_Click()If = True Then = True = False = True = True = False = FalseEnd If 39。指定 datagrid 顯示的內(nèi)容strsql = select * from 報價表 = adCmdText 39。更新記錄源 = strsql End SubPrivate Sub opt2_Click()If = True Then = False = True = True = True = False = FalseEnd If 39。指定 datagrid 顯示的內(nèi)容strsql = select * from 財務表 = adCmdText 39。更新記錄源 = strsql End SubPrivate Sub opt3_Click()39。指定 datagrid 顯示的內(nèi)容strsql = select * from 報價表 = adCmdText 39。更新記錄源 = strsql If = True Then = True = False = True = False = True計算機學院軟件工程課程設計43End IfEnd SubPrivate Sub opt4_Click()39。指定 datagrid 顯示的內(nèi)容strsql = select * from 報價表 = adCmdText 39。更新記錄源 = strsql If = True Then = True = False = False = True = FalseEnd IfEnd SubPrivate Sub opt5_Click()If = True Then = True = False = True = False = TrueEnd IfEnd SubPrivate Sub opt6_Click()If = True Then = True = False = False = True = FalseEnd IfEnd Sub：Private Sub Form_Load()39。窗體加載時的位置 = 8910 = 11100 = 2115 = 1380End Sub計算機學院軟件工程課程設計44Private Sub Image2_Click()End SubPrivate Sub Image3_Click()End SubPrivate Sub Image4_Click()End SubPrivate Sub Image5_Click()End SubPrivate Sub Image6_Click()Unload MeEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Label2_Click()End SubPrivate Sub Label3_Click()End SubPrivate Sub Label4_Click()End Su