【正文】 ngle, Y As Single)moveit = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)Unload MeEnd SubPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)39。調(diào)用函數(shù)獲得鼠標(biāo)位置，未知信息存放在變量 zb 中 GetCursorPos zb * 15 cx 65, * 15 cy 350 End IfEnd SubPrivate Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)39。查找數(shù)據(jù)庫中是否有相同名稱的用戶txtsql = select username from 用戶權(quán)限表 where username=39。 Trim() amp。 = adCmdText = txtsqlIf = True Then 39。查找數(shù)據(jù)庫中是否有相同密碼的用戶 txtsql = select username from 用戶權(quán)限表 where password=39。 Trim() amp。 = adCmdText = txtsql 39。如果當(dāng)前記錄位置位于 Recordset 對(duì)象的最后一個(gè)記錄之后 MsgBox 密碼錯(cuò)誤！, vbExclamation + vbOKOnly, 警告 = Else 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì)34 Unload Me End If End IfEnd SubPrivate Sub Label5_Click() = = End SubPrivate Sub Label6_Click()EndEnd Sub：Private Sub Form_Load() = 8910 = 11100 = 2115 = 1380End SubPrivate Sub Image10_Click()End SubPrivate Sub Image11_Click()End SubPrivate Sub Image12_Click()End SubPrivate Sub Image13_Click(): End SubPrivate Sub Image2_Click()End SubPrivate Sub Image3_Click()End SubPrivate Sub Image4_Click()End SubPrivate Sub Image5_Click()計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì)35End SubPrivate Sub Image6_Click()End SubPrivate Sub Image7_Click()End SubPrivate Sub Image8_Click()End SubPrivate Sub Image9_Click()End SubPrivate Sub Label1_Click()End SubPrivate Sub Label10_Click()End SubPrivate Sub Label11_Click()End SubPrivate Sub Label12_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 SubPrivate Sub Label7_Click()計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì)36End SubPrivate Sub Label8_Click()End SubPrivate Sub Label9_Click()End Sub：Private Sub Form_Load() = 8910 = 11100 = 2115 = 1380End SubPrivate Sub Image1_Click()End SubPrivate Sub Image10_Click(): End SubPrivate Sub Image4_Click()End SubPrivate Sub Image5_Click()End SubPrivate Sub Image6_Click()End SubPrivate Sub Image7_Click()End SubPrivate Sub Image8_Click()End SubPrivate Sub Label1_Click()End SubPrivate Sub Label2_Click()End Sub計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì)37Private Sub Label3_Click()End SubPrivate Sub Label4_Click()End SubPrivate Sub Label5_Click()End SubPrivate Sub Label6_Click()End SubPrivate Sub Label7_Click(): End SubPrivate 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(): 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì)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。根據(jù)個(gè)人費(fèi)用查詢相關(guān)記錄If = 2022 元以下 Then strsql = select * from 報(bào)價(jià)表 where 人均費(fèi)用 2022 = adCmdText 39。更新記錄源 = strsql End IfIf = 3000 元—3999 元 Then strsql = select * from 報(bào)價(jià)表 where 人均費(fèi)用 between 3000 and 3999 = adCmdText 39。更新記錄源 = strsql End IfIf = 5000 元以上 Then strsql = select * from 報(bào)價(jià)表 where 人均費(fèi)用 = 5000 = adCmdText 39。根據(jù)所得利潤查詢相關(guān)記錄If = 5000 元以下 Then strsql = select * from 財(cái)務(wù)表 where 利潤 5000 = adCmdText 39。更新記錄源 = strsql End IfIf = 10000 元—14999 元 Then strsql = select * from 財(cái)務(wù)表 where 利潤 between 10000 and 14999 = adCmdText 39。更新記錄源 = strsql End IfIf = 20220 元—24999 元 Then strsql = select * from 財(cái)務(wù)表 where 利潤 between 20220 and 24999 = 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。窗體加載時(shí)的位置 = 8910 = 11100 = 2115 = 1380End SubPrivate Sub Image11_Click()39。根據(jù)景點(diǎn)編號(hào)查詢相關(guān)記錄If Thenstrsql = select * from 報(bào)價(jià)表 where 景點(diǎn)編號(hào)=39。 Trim() amp。 = adCmdText 39。根據(jù)導(dǎo)游編號(hào)查詢相關(guān)記錄If Thenstrsql = select * from 財(cái)務(wù)表 where 導(dǎo)游編號(hào)=39。 Trim() amp。 = adCmdText 39。添加記錄 = True 39。允許添加End SubPrivate Sub Label3_Click()39。允許更新 39。修改記錄 = True 39。確定后不允許更新記錄 39。不允許改變 datagridEnd SubPrivate Sub Label6_Click()39。指定 datagrid 顯示的內(nèi)容strsql = select * from 報(bào)價(jià)表 = adCmdText 39。指定 datagrid 顯示的內(nèi)容strsql = select * from 財(cái)務(wù)表 = adCmdText 39。指定 datagrid 顯示的內(nèi)容strsql = select * from 報(bào)價(jià)表 = adCmdText 39。指定 datagrid 顯示的內(nèi)容strsql = select * from 報(bào)價(jià)表 = adCmdText 39。窗體加載時(shí)的位置 = 8910 = 11100 = 2115 = 1380End Sub計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì)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