酒店管理系統(tǒng)課程設(shè)計(編輯修改稿)
2025-05-06 08:14 本頁面
【文章內(nèi)容簡介】 模塊的功能是檢查管理員是否有進(jìn)入系統(tǒng)的權(quán)限。用到的主要控件為二個text、兩個label和兩個Button按鈕。窗體界面如圖42所示。圖42 登錄窗體的界面在此模塊中管理員可以選擇相應(yīng)的管理員帳號進(jìn)行登錄，減去了忘記帳號或帳號名輸入不方便的煩惱。(2)主頁面模塊的設(shè)計：此模塊是系統(tǒng)服務(wù)器端的主要控制界面，通過菜單的選擇，可以控制系統(tǒng)的所有功能,窗體界面如圖43,44所示。主界面的設(shè)計步驟：1)設(shè)計主界面控件布局：在主界面的布局中使用了工具欄（ToolBar）、時鐘控件（timer）和圖象列表（ImageList）等非Vb標(biāo)準(zhǔn)控件。2）工具欄的設(shè)置： 給工具欄添加按鈕3）添加菜單：菜單的使用是為了更好的給用戶提供功能指引。 工具欄列表系統(tǒng)通過Timer控件在狀態(tài)欄中顯示系統(tǒng)的當(dāng)前時間，Timer控件的時間間隔是1000，也就是1秒鐘，這樣狀態(tài)欄中的時間每秒鐘都會變化，達(dá)到顯示系統(tǒng)時鐘的目的，具體實(shí)現(xiàn)代碼為：Private Sub Timer1_Timer() (2).Text = Date amp。 amp。 TimeEnd Sub（4）創(chuàng)建系統(tǒng)主界面當(dāng)系統(tǒng)運(yùn)行時，首先進(jìn)入登錄界面，當(dāng)輸入帳號，密碼合法時，則啟動系統(tǒng)主界面。圖44 系統(tǒng)主窗體的界面5)用戶進(jìn)入客房需要必要的登記來完成如圖：圖45用戶登記界面圖46已經(jīng)登記的用戶（6）退房信息：當(dāng)旅客離開賓館時，需要為其辦理退房手續(xù)，在這過程中需要在旅客退房信息表中添加記錄信息，以及修改客房信息表，改變客房狀態(tài)。旅客退房信息窗體，工作界面設(shè)計情況如圖：圖47退房登記表（7）查詢住戶信息：此界面用于查詢房間狀態(tài)如是否有所需的類型或是否為空房或滿房，可以全部瀏覽，也可以按照查詢條件來查找，如圖：圖48 客房狀態(tài)界面(8)查詢客房：客查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以是按旅客姓名，登記號也可以按房間號查詢。工作界面如圖： 圖49查詢住戶登記表(9)客房情況打印表:圖410客房情況打印表 代碼設(shè)計一、酒店管理信息系統(tǒng)程序代碼:Private Sub CmdOK_Click() Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As Stringj = Len()s1 = Dim c As Integerc = 1For i = 1 To ja(i) = Mid(s1, i, 1) 39。逐一判斷字符的合格化If a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = ~ ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = , ThenMsgBox Error, vbOKOnly, ErrorExit SubElseIf a(i) = 39。 ThenMsgBox Error, vbOKOnly, ErrorExit SubEnd Ifc = c + 1 Next iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim() = ThenMsgBox 用戶名不能為空！, vbOKOnly + vbCritical, 錯誤Exit SubEnd Ifopentable adousers, usersinfo 姓名= amp。 39。 amp。 amp。 39。, , adSearchForward, 1If Not Thenstrusername = !姓名strpassword = !密碼Elsestrusername = strpassword = End IfIf strusername = And strpassword = ThenUnload Me ElseMsgBox 用戶名或密碼不對！, vbOKOnly + vbInformation, 提示intlogintimes = intlogintimes + 1If intlogintimes = 3 ThenEndEnd IfSendKeys {HOME}+{END}End IfEnd SubPrivate Sub cmdcancel_click()Unload MeEnd SubOption ExplicitPrivate Sub Command1_Click()With If Not ThenIf Trim() = ThenMsgBox 房間號不能為空！, vbOKOnly + vbInformation, 提示
公司管理相關(guān)推薦
鄂ICP備17016276號-1