[工學(xué)]vb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告-免費(fèi)閱讀
【正文】 amp。 Trim() amp。)) 39。工作界面如圖：控件名稱屬性設(shè)置值DataGrid1(名稱)dtgQueryOption1(名稱)OptRoomNoCaption房間號(hào)Option2(名稱)OptionNameCaption旅客姓名Option3(名稱)optBookNoCaption登記號(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。 Trim() amp。 . = !QuitInfo . = !退房時(shí)間 .ShowEnd With End IfEnd SubPrivate Sub cmdexit_Click() Unload MeEnd SubPrivate Sub Form_Load() = 4155 = 7920 = ( ) / 2 = ( ) / 4 dtgQuitRefreshEnd Sub3．7 添加退房信息窗體本窗體用于當(dāng)旅客離開(kāi)時(shí)，登記旅客退房信息，以及計(jì)算并記錄付額, ： 程序代碼如下：Private Sub CmdOK_Click()With If Not Then 39。窗體標(biāo)題 .Caption = 添加退房信息 . = False . = . = . = . = Date 39。綁定 Set .DataSource = .AllowRowSizing = False 39。 39。 39。 txtbookno amp。 39。C索引mnuIndexamp。R收費(fèi)情況表mnuReportMoneyamp。U退出系統(tǒng)mnuExitamp。 amp。逐一判斷字符的合格化 If a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = ~ Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = 39。 amp。 / .CommandType = adCmdUnknown .RecordSource = precordsource .Refresh End WithEnd Sub 戶登錄界面設(shè)計(jì)用戶登錄的作用是判斷使用本程序的用戶是否是合法用戶。 Then MsgBox Error, vbOKOnly, Error Exit Sub End If c = c + 1 Next iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim() = ThenMsgBox 用戶名不能為空！, vbOKOnly + vbCritical, 錯(cuò)誤Exit SubEnd Ifopentable adousers, usersinfo 姓名= amp。 Text1(0).Text amp。X主菜單基本信息管理mnuInfoamp。M主菜單窗口布局mnuWindowamp。I設(shè)計(jì)主界面Option ExplicitPrivate Sub MDIForm_Load() = 賓館客房管理系統(tǒng)opentable adoroom, roomopentable adoguest, guestopentable adoquit, quitEnd SubPrivate Sub mnuCascade_Click() vbCascadeEnd SubPrivate Sub mnudenglu_Click()End SubPrivate Sub mnuExit_Click()Unload MeEnd SubPrivate Sub mnuGuest_Click()End SubPrivate Sub mnuHor_Click() vbTileHorizontalEnd Sub
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1