[工學(xué)]vb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告(參考版)
2025-04-17 04:02本頁(yè)面
【正文】 )) End If dtgroomqueryinforefreshEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 2opentable , select * from room order by 房間號(hào)dtgroomqueryinforefreshEnd SubPrivate Sub optroom_Click() = = True = 按房間號(hào)查詢 = TrueSendKeys {TAB}End SubPrivate Sub optgrade_click() = = True = 按客房等級(jí)查詢 = TrueSendKeys {TAB}End SubPrivate Sub opttype_click() = = True = 按客房類型查詢 = TrueSendKeys {TAB}End Sub。Trim() amp。 ElseIf opttype Then opentable , select * from room where ((() like 39。 39。 amp。 % 39。 amp。)) End If dtgqueryrefreshEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 2opentable , select * from guest order by 登記號(hào)dtgqueryrefreshEnd SubPrivate Sub optname_Click() = = True = 按姓名查詢 = TrueSendKeys {TAB}End SubPrivate Sub optroomno_click() = = True = 按房間號(hào)查詢 = TrueSendKeys {TAB}End SubPrivate Sub optbookno_click() = 39。 Trim() amp。 ElseIf optbookno Then opentable , select * from guest where ((() like 39。 % 39。 amp。 % 39。 amp。退出窗體 Unload MeEnd SubPrivate Sub Form_Load() = 3405 = 7440End Sub第五章制作旅客查詢窗體（馬民杰）旅客查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以是按旅客姓名，登記號(hào)也可以按房間號(hào)查詢。給字段賦值 !付款金額 = Val(Trim()) !退房時(shí)間 = If = Then MsgBox 備注不能為空!, vbOKOnly + vbInformation, 提示 !退房備注信息 = End If .Update 39。有就提示,然后退出 MsgBox 已經(jīng)有相同登記號(hào)!, vbOKOnly + vbInformation, 提示 SendKeys {HOME}+{END} = Exit Sub End If 39。 39。 amp。, ,adSearchForward, 1 If Then 39。 Trim() amp。可修改狀態(tài)表示是添加記錄 If Trim() = Then MsgBox 登記號(hào)不能為空!, vbOKOnly + vbInformation, 提示 Exit Sub End If 登記號(hào)=39。窗體標(biāo)題 .Caption = 修改退房信息 . = !登記號(hào) . = True . = !付款金額 39。, , adSearchForward, 1 If Not .EOF Then 39。 !登記號(hào) amp。顯示為模式窗體 .Show End WithEnd SubPrivate Sub cmddelete_Click()If True And True Then With If MsgBox(確認(rèn)要?jiǎng)h除當(dāng)前記錄嗎?, vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)框) = vbYes Then Find 登記號(hào)=39。第四列標(biāo)題和寬度 .Columns(3).Caption = 付費(fèi)金額 .Columns(3).Width = 1200 .Columns(3).AllowSizing = False .Columns(4).Caption = 備注 .Columns(4).Width = 4000Columns(4).AllowSizing = False End WithEnd SubPrivate Sub cmdaddnew_Click() With frmquitinfoedit 39。第二列標(biāo)題和寬度 .Columns(1).Caption = 登記日期 .Columns(1).Width = 1200 .Columns(1).AllowSizing = False 39。不允許修改(設(shè)為只讀) .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。表頭寬度設(shè)為兩行 .HeadLines = 2 39。旅客退房信息窗體，工作界面設(shè)計(jì)情況如圖： 程序代碼如下：Private Sub dtgQuitRefresh() With dtgQuitInfo 39。 39。 amp。, , adSearchForward, 1 !客房狀態(tài) = 有人 .Find 房間號(hào)= amp。 Trim() amp。 39。 39。 amp。, , adSearchForward, 1 If Not Then If !客房狀態(tài) 空 Then MsgBox 已有客人居?。? vbOKOnly + vbInformation, 提示 Exit Sub End If Else MsgBox 沒有此客房編號(hào),請(qǐng)重新輸入！, vbOKOnly + vbInformation, 提示 Exit Sub End If If Trim() = Then MsgBox 客人姓名不能為空！, vbOKOnly + vbInformation, 提示 Exit Sub End If .AddNew !登記號(hào) = Trim() 房間號(hào)= amp。 Trim() amp。 39。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1