[工學(xué)]vb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告-資料下載頁
2025-04-14 04:02本頁面
【正文】 tBookNoCaption登記號(hào)Text1(名稱)TxtValue 程序代碼如Option ExplicitPrivate Sub dtgqueryrefresh()With dtgquery Set .DataSource = .AllowRowSizing = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow.AllowAddNew = False .AllowDelete = False.AllowUpdate = False.Columns(0).Caption = 登記號(hào).Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客人姓名 .Columns(1).Width = 60037.Columns(1).AllowSizing = False .Columns(2).Caption = 身份證號(hào)碼 .Columns(2).Width = 1500 .Columns(2).AllowSizing = False .Columns(3).Caption = 房間號(hào).Columns(3).Width = 600 .Columns(3).AllowSizing = False.Columns(4).Caption = 登記日期 .Columns(4).Width = 1000 .Columns(4).AllowSizing = False .Columns(5).Caption = 性別 .Columns(5).Width = 500 .Columns(5).AllowSizing = False .Columns(6).Caption = 籍貫.Columns(6).Width = 2000 .Columns(6).AllowSizing = False End With End SubPrivate Sub Command1_Click()If optroomno Then opentable , select * from guest where ((() like 39。 amp。 Trim() amp。 % 39。)) ElseIf optname Then opentable , select * from guest where ((() like 39。 amp。 Trim() amp。 % 39。)) 39。 ElseIf optbookno Then opentable , select * from guest where ((() like 39。 amp。 Trim() amp。 %39。)) 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。 = True = True = 按登記號(hào)查詢 = TrueSendKeys {TAB}End Sub第六章 查詢客房信息窗體（閆浩永）客房查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以按房間號(hào)，客房等級(jí)，客房類型查詢，工作界面如圖： 程序代碼如下：Private Sub dtgroomqueryinforefresh()With dtgroomqueryinfo Set .DataSource = .AllowRowSizing = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow .AllowAddNew = False .AllowDelete = False .AllowUpdate = False .Columns(0).Caption = 房間號(hào) .Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客房等級(jí) .Columns(1).Width = 800 .Columns(1).AllowSizing = False .Columns(2).Caption = 客房類型 .Columns(2).Width = 800 .Columns(2).AllowSizing = False .Columns(3).Caption = 客房?jī)r(jià)格 .Columns(3).Width = 800 .Columns(3).AllowSizing = False .Columns(4).Caption = 客房狀態(tài) .Columns(4).Width = 800 .Columns(4).AllowSizing = False .Columns(5).Caption = 客房備注信息 .Columns(5).Width = 1200 .Columns(5).AllowSizing = False End With End SubPrivate Sub Command1_Click()If optroom Then opentable , select * from room where ((() like 39。 amp。 Trim() amp。 % 39。)) ElseIf optgrade Then opentable , select * from room where ((() like 39。 amp。 Trim() amp。 39。)) 39。 ElseIf opttype Then opentable , select * from room where ((() like 39。 amp。Trim() amp。 39。)) 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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1