淺談客房管理系統(tǒng)-在線瀏覽
2025-06-03 13:53本頁面
【正文】 在VB集成開發(fā)環(huán)境中,制作一個菜單是比較簡單的,其操作過程如下:1. 右擊主窗體form2,出現(xiàn)一個彈出式菜單2. 在彈出式菜單中單擊”菜單編輯器”菜單項,.l 登記住房: 用于調(diào)用客戶住宿信息處理的信息窗體.l 退房間: 用于調(diào)用客戶情況窗體,如刪除客戶標記,編輯客戶情況的記錄等.l 客戶查詢: 用于調(diào)用一個客戶查詢窗體,綜合查詢客戶信息l 權(quán)限設(shè)置: 用于用戶修改設(shè)置l 退出系統(tǒng): 用于執(zhí)行退出系統(tǒng)的功能.3. 在窗體中放置一個statursbar用來顯示系統(tǒng)的某些信息，本系統(tǒng)為日期和時間，可以提醒用戶當天日期和時間，同時也可以為界面增色，其中statursbar的第一欄中顯示日期，第二欄中顯示時間． ,只需要在創(chuàng)建菜單之后,單擊菜單條目,即出現(xiàn)他們的過程代碼編輯器窗口,選擇適當?shù)倪^程類型,:程序代碼:Option ExplicitPrivate Declare Function PlaySound Lib Alias PlaySoundA (ByVal lpszname As String, ByVal hmodule As Long, ByVal dwflags As Long) As LongPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load() Call PlaySound( + \, 0amp。H1) (1).Text = 今天的日期是: amp。 Format(Time, h:mm:ss am/pm)End Subl “登記住房”菜單的過程代碼private sub 登記住房click()end subl “退房間”菜單的過程代碼private sub退房間click()end subl “客戶查詢”菜單的過程代碼private sub客戶查詢click()end sub l “權(quán)限設(shè)置”菜單的過程代碼 Private Sub 權(quán)限設(shè)置_Click()End Subl “退出系統(tǒng)”菜單的過程代碼private sub退出系統(tǒng)click()unload meend sub制作客戶信息登記窗體 該功能實現(xiàn)了對客戶信息的管理?？蛻粜畔▽π趴蛻暨M行登記，登記內(nèi)容包括房號、姓名、性別、年齡、國籍、客房級別、住房天數(shù)、住店日期、離店日期等。h00008080amp。這就是放置錯誤處理代碼的地方39。如果想捕捉錯誤,在這里添加錯誤代碼MsgBox 數(shù)據(jù)錯誤事件命中錯誤: amp。忽略錯誤End SubPrivate Sub Command5_Click()Dim mWith m = .Bookmark.MoveLast(1).Text = 記錄總數(shù) : + CStr(.RecordCount).Bookmark = m(2).Text = 當前記錄號 : + CStr(.AbsolutePosition + 1)End WithEnd SubPrivate Sub Form_Load() = False = amp。 \ = False = False = FalseEnd SubPrivate Sub Form_Activate() End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub bo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then = TrueEnd IfEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub Command1_Click() = select * from kl where 操作員=39。 amp。 If And And = (密碼) Then If num 2 Then MsgBox 你無權(quán)修改密碼!!! End Else = True If Then (操作員) = (密碼) = n = MsgBox(密碼修改成功,退出操作員密碼修改!, vbOKCancel + vbQuestion, ) If n = 1 Then On Error Resume Next Unload Me Else Unload Me End If Else MsgBox (請輸入新用戶名和密碼!!) Exit Sub End If End If Else If = Then MsgBox (請輸入操作員!) Exit Sub Else If (操作員) Then = MsgBox (無此操作員,請重新輸入!) Exit Sub End If End If If = Then MsgBox (請輸入操作員原密碼!) Exit Sub Else If (密碼) Then MsgBox (原密碼錯誤,請重新輸入原密碼!) num = num + 1 = Exit Sub End If End If End IfEnd SubPrivate Sub mand2_Click() = True Unload MeEnd Sub制作退房信息處理窗體 退房信息處理窗體的主要功能有兩個,一個是設(shè)置全部房間的信息,并在記錄客戶信息時給出相關(guān)的房間做占用標記:第二是: 當客戶退房時,給退還的房間刪除占用標記.窗體的制作過程如下:1. 再工程中增加一個新的窗體form7,其屬性與結(jié)構(gòu)設(shè)置和前面類似,省略2. 在該窗體中
公司管理相關(guān)推薦
鄂ICP備17016276號-1