娛樂(lè)休閑型酒店管理信息系統(tǒng)開(kāi)題報(bào)告_畢業(yè)論文

1、娛樂(lè)休閑型酒店管理信息系統(tǒng)開(kāi)題報(bào)告0582/23 周天才指導(dǎo)老師：徐莉一、 綜述計(jì)算機(jī)在旅游餐飲和娛樂(lè)休閑行業(yè)的應(yīng)用現(xiàn)已十分普遍，但相應(yīng)的管理信息軟件卻不象財(cái)會(huì)軟件那樣成熟、穩(wěn)定和規(guī)，為大眾所知曉。在這很大程度上是由于使用主體日新月異的經(jīng)營(yíng)方式和多變的運(yùn)行模式所造成的。無(wú)論是業(yè)人士還是計(jì)算機(jī)系統(tǒng)開(kāi)發(fā)者都難免被這類行業(yè)發(fā)展變化之快所困擾。在計(jì)算機(jī)業(yè)務(wù)管理信息系統(tǒng)的建設(shè)和選擇上目的不太明確，盲目照搬國(guó)外的大型軟件，花錢不少，但效果不好，臨時(shí)拼湊一些軟件模塊勉強(qiáng)使用，不足之處用手工作業(yè)來(lái)禰補(bǔ)?？傊紱](méi)有充分發(fā)揮出高新技術(shù)在降低運(yùn)營(yíng)成本，提高管理水平和綜合經(jīng)濟(jì)效益中的積極作用。實(shí)際上，該行業(yè)面向市場(chǎng)在

2、競(jìng)爭(zhēng)中不斷變化的特點(diǎn)，已經(jīng)決定了其管理信息系統(tǒng)軟件是一個(gè)與管理對(duì)象密切相關(guān)的有機(jī)組成部分，需要經(jīng)過(guò)認(rèn)真的和長(zhǎng)期的調(diào)查分析，并以次為基礎(chǔ)去定制、去磨合，在設(shè)計(jì)和開(kāi)發(fā)的進(jìn)程中尋找規(guī)律，以逐步完善。因此，其系統(tǒng)開(kāi)發(fā)建設(shè)本身所遇到的問(wèn)題和解決問(wèn)題的辦法，也體現(xiàn)了一個(gè)比較復(fù)雜的管理信息系統(tǒng)的開(kāi)發(fā)特點(diǎn)。二、研究方向隨著改革開(kāi)放的步伐，人民生活水平得到了極大的提高，人們對(duì)服務(wù)業(yè)的需求也越來(lái)越高。特別是對(duì)娛樂(lè)休閑型酒店的娛樂(lè)方式要求很高。為此，娛樂(lè)休閑型酒店也采取了很多方式進(jìn)行改革，加快步伐，與西方的娛樂(lè)休閑型酒店接軌。進(jìn)入二十一世紀(jì)，信息管理系統(tǒng)在各行各業(yè)取得了突飛猛進(jìn)的發(fā)展，如銀行車輛運(yùn)輸學(xué)校酒店等等。開(kāi)

3、發(fā)娛樂(lè)休閑型酒店的目的是打破以前的管理方式，實(shí)現(xiàn)全自動(dòng)化辦公管理方式。在系統(tǒng)開(kāi)發(fā)的全過(guò)程始終要采取用戶至上的觀點(diǎn)，一切從用戶利益考慮，在加強(qiáng)調(diào)查研究和系統(tǒng)分析的基礎(chǔ)上，通過(guò)分步驟的不斷反饋的討論式方法確定出新系統(tǒng)的最佳方按。各階段可在局部上使用結(jié)構(gòu)化、模塊化的方法嚴(yán)格按照有效階段進(jìn)行開(kāi)發(fā)，具體手段上盡量采用面向?qū)ο蟮拈_(kāi)發(fā)形式，使形成的應(yīng)用軟件模塊具有很強(qiáng)的獨(dú)立性、適應(yīng)性和擴(kuò)展性。一、 實(shí)現(xiàn)方法與預(yù)期目標(biāo)在針對(duì)實(shí)際系統(tǒng)進(jìn)行關(guān)系定義和邏輯設(shè)計(jì)過(guò)程中，我們發(fā)現(xiàn)采用移植的辦法雖然在模塊設(shè)計(jì)階段進(jìn)展較快，但后來(lái)就會(huì)被兩類不同運(yùn)行模式中的復(fù)雜關(guān)系所糾纏，而影響了開(kāi)發(fā)進(jìn)度，甚至?xí)斐纱竺娣e返工。相反，按照娛

4、樂(lè)休閑型酒店的實(shí)際業(yè)務(wù)流程重新進(jìn)行系統(tǒng)設(shè)計(jì)，到開(kāi)發(fā)后期，就會(huì)發(fā)現(xiàn)這種淡化了住宿功能，而以洗浴服務(wù)為主線的接待和消費(fèi)方式還有一些規(guī)律性。系統(tǒng)的設(shè)計(jì)開(kāi)發(fā)過(guò)程采用了快速原形法，結(jié)構(gòu)化方法和討論法相結(jié)合的混合方式，鑒于這類新酒店的應(yīng)用需不規(guī)的和分批提出的，系統(tǒng)分析的深度和廣度只能在開(kāi)發(fā)過(guò)程中逐步增加和完善，所以在開(kāi)發(fā)初期一般無(wú)法完整的確定其總體設(shè)計(jì)方按。為此，我們從用戶對(duì)應(yīng)用系統(tǒng)的粗略描述開(kāi)始，現(xiàn)在計(jì)算機(jī)上搭建起一個(gè)簡(jiǎn)單的應(yīng)用模型，并以次模型為基準(zhǔn)，根據(jù)用戶的意見(jiàn)和要求對(duì)系統(tǒng)進(jìn)一步細(xì)化，通過(guò)不斷的建模，演示，交流和討論，使系統(tǒng)一步步地接近實(shí)際。在開(kāi)發(fā)后期，開(kāi)發(fā)人員同用戶已經(jīng)有了充分的溝通，因此在一些后

5、臺(tái)模塊的開(kāi)發(fā)上也遵循了結(jié)構(gòu)化的生命周期法。在程序設(shè)計(jì)方式上主要是利用了一些高效率的面向?qū)ο蟮拈_(kāi)發(fā)工具，通過(guò)這些工具對(duì)快速原形法和討論法實(shí)施有效的支撐，進(jìn)一步提高了系統(tǒng)的易擴(kuò)展性和靈活性。本系統(tǒng)采用網(wǎng)絡(luò)數(shù)據(jù)庫(kù)程序的開(kāi)發(fā)方法。前端開(kāi)發(fā)工具采用Microsoft公司的專用數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)工具（VISIUAL BASIC 6.0）版本。后端的數(shù)據(jù)庫(kù)采用微軟公司的SQL Server2000版本。本系統(tǒng)開(kāi)發(fā)的重點(diǎn)有：1.數(shù)據(jù)庫(kù)的開(kāi)發(fā)2.程序的開(kāi)發(fā).其中程序的開(kāi)發(fā)是本系統(tǒng)開(kāi)發(fā)的難點(diǎn)，弄清管理信息系統(tǒng)的功能模塊，了解功能模塊之間的關(guān)聯(lián)和次序是關(guān)鍵。3.通過(guò)各程序的模塊直接控制數(shù)據(jù)庫(kù)的信息，最終實(shí)現(xiàn)娛樂(lè)休閑

6、型酒店管理系統(tǒng)的應(yīng)用目標(biāo)四、系統(tǒng)的開(kāi)發(fā)進(jìn)度具體安排由于時(shí)間有限，具體工作安排如下： 第13周完成課題調(diào)研、開(kāi)題報(bào)告與系統(tǒng)開(kāi)發(fā)；第14周完成總體方案設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)；第15周完成模塊設(shè)計(jì)、輸入輸出設(shè)計(jì)；第16周完成具體實(shí)現(xiàn)：1.數(shù)據(jù)庫(kù)開(kāi)發(fā)2.在sqlserver中創(chuàng)建數(shù)據(jù)庫(kù)的連接3.程序的開(kāi)發(fā)第17周完成系統(tǒng)各模塊的測(cè)試、修改與驗(yàn)收系統(tǒng)，同時(shí)上交畢業(yè)論文。五、參考文獻(xiàn)信息系統(tǒng)開(kāi)發(fā)教程 第三輯 ：清華大學(xué) 基溫 信息系統(tǒng)開(kāi)發(fā)教程 第四輯 ：清華大學(xué) 基溫 SQL Server7.0設(shè)計(jì)實(shí)務(wù) ：人民郵電 施威銘VB程序設(shè)計(jì)教程 第二版 ：電子工業(yè) 瑞新指導(dǎo)老師 監(jiān)督老師(簽署意見(jiàn)并簽字） （簽署意見(jiàn)

7、并簽字）領(lǐng)導(dǎo)小組審查意見(jiàn)： 審查人簽字： 年 月 日程序設(shè)計(jì)打開(kāi)VB程序，出現(xiàn)VB主界面，單擊窗體下的frmlogin控件，單擊運(yùn)行，出現(xiàn)一個(gè)登錄界面，請(qǐng)輸入用戶名稱和用戶密碼，雙擊確定按鈕，代碼如下：Option ExplicitPublic LoginCount As Integer 定義此變量的目的是為了判斷登錄的次數(shù)Private Sub CmdOk_Click()If LoginCount 3 Then With DbCommand Set .ActiveConnection = DbConn mandType = adCmdText mandText = Select userna

8、me,userpassword from hotellogin where username= + txtUersName.Text + Set DbTempSet = .Execute End With If DbTempSet.EOF And DbTempSet.BOF Then MsgBox 用戶不存在，請(qǐng)重新輸入用戶ID, vbOKOnly frmLogin.txtUersName.Text = frmLogin.txtUersName.SetFocus Else If RTrim(LTrim(DbTempSet.Fields(1).Value) txtPassword.Text Th

9、en MsgBox 輸入的該用戶的密碼錯(cuò)誤，請(qǐng)重新輸入！, vbOKOnly frmLogin.txtPassword.Text = frmLogin.txtPassword.SetFocus LoginCount = LoginCount + 1 Else UserId = txtUersName.Text LoginSucceeded = True Unload Me End If End If Else If Not AppRun Then LoginSucceeded = False Unload Me Else Unload frmMain Unload Me End If End

10、IfEnd SubPrivate Sub cmdPasswork_Click() If Not AppRun Then LoginSucceeded = False Unload Me Else Unload frmMain Unload Me End End IfEnd SubPrivate Sub Form_Activate() frmLogin.txtUersName.SetFocus frmLogin.txtUersName.Text = frmLogin.txtPassword.Text = End SubPrivate Sub Form_Load() On Error GoTo P

11、roErr: frmLogin.Left = 3900 調(diào)整窗體的位置（靠左面的距離） frmLogin.Top = 3200 調(diào)整窗體的位置(靠頂部的距離) Call get_text With DbConn If .State adStateClosed Then .Close End If End With If DbConn Is Nothing Then End If DbConn.Open Exit SubProErr: MsgBox Err.Description, vbOKOnly, App.TitleEnd Sub*此段程序的目的是當(dāng)按回車鍵的時(shí)候光標(biāo)自動(dòng)跳入txtpassw

12、ord.text中 *Private Sub txtUersName_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then frmLogin.txtPassword.SetFocus End IfEnd Sub*此段程序目的是當(dāng)按回車鍵的時(shí)候光標(biāo)自動(dòng)跳入到確定按扭上準(zhǔn)備開(kāi)始驗(yàn)證輸入的用戶名稱和用戶密碼*private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cmdOK.SetFocus En

13、d IfEnd Sub進(jìn)入主界面，主界面代碼如下：Private Sub AboutSystem_Click() FrmAboutSys.Show vbModalEnd Sub Private Sub AboutSystem_Click() FrmAboutSys.Show vbModalEnd SubPrivate Sub backrestore_Click() FrmBakRes.Show vbModalEnd SubPrivate Sub clearbkg_Click() Set CTRLMachineLV.Picture = NothingEnd SubPrivate Sub Exit

14、System_Click() FrmExitSys.Show vbModal Exit SubEnd SubPrivate Sub Form_Load() frmMain.Top = 0 frmMain.Left = 0End SubPrivate Sub roomcondition_Click() FrmDayFlux.Show vbModalEnd SubPrivate Sub roomdengjiruzhu_Click() frmdengji.Show vbModalEnd SubPrivate Sub roomtypeprice_Click() frmroomprice.Show vb

15、ModalEnd SubPrivate Sub setbkg_Click() On Error GoTo ErrHandler With BmpOpenDlg .CancelError = True .Flags = cdlOFNHideReadOnly .Filter = 所有圖片 .FilterIndex = 0 End With BmpOpenDlg.ShowOpen CTRLMachineLV.Picture = LoadPicture(BmpOpenDlg.FileName) Exit SubErrHandler: If Err.Number 32755 Then MsgBox Er

16、r.Description, vbOKOnly, App.Title End IfEnd SubPrivate Sub setpassword_Click() frmChangepass.Show vbModalEnd SubPrivate Sub syslogin_Click() frmLogin.Show vbModalEnd SubPrivate Sub Timer1_Timer()Dim StrWeekDay As StringOn Error GoTo Errp: Select Case Weekday(Now() Case 1 StrWeekDay = 星期日 Case 2 Str

17、WeekDay = 星期一 Case 3 StrWeekDay = 星期二 Case 4 StrWeekDay = 星期三 Case 5 StrWeekDay = 星期四 Case 6 StrWeekDay = 星期五 Case 7 StrWeekDay = 星期六 End Select StBar.Panels.Item(1).Text = 當(dāng)前用戶： & CStr(UserId) StBar.Panels.Item(2).Text = 歡迎您使用娛樂(lè)休閑型酒店管理信息系統(tǒng) StBar.Panels.Item(3).Text = CStr(Year(Now() & 年 & CStr(Mont

18、h(Now() & 月 & CStr(Day(Now() & 日 & ( & StrWeekDay & ) & & TimeExit SubErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 處理ToolBar功能On Error GoTo Errp Select Case Button.Key Case Is = yhdl frmLogin.Show vbModal Case Is = yhgl

19、frmUserMan.Show vbModal Case Is = yhmm frmChangepass.Show vbModal Case Is = shezhiback Call setbkg_Click Case Is = morenback Call clearbkg_Click Case Is = backuprestor FrmBakRes.Show vbModal Case Is = kefangdj frmdengji.Show vbModal Case Is = kefangchaxun FrmDayFlux.Show vbModal Case Is = fangtypech

20、axun frmroomprice.Show vbModal Case Is = xiaofeimingxi frmcostitem.Show vbModal Case Is = aboutsystem FrmAboutSys.Show vbModal Case Is = quitsystem FrmExitSys.Show vbModal End Select Exit SubErrp: MsgBox Err.Description, vbOKOnly, 系統(tǒng)提示End SubPrivate Sub usermanage_Click() frmUserMan.Show vbModalEnd

21、SubPrivate Sub xiaofeiquery_Click() frmcostitem.Show vbModalEnd Sub單擊系統(tǒng)管理的“密碼管理”目的是對(duì)您的密碼進(jìn)行保護(hù)，移防您的原始密碼被別人知道后，可以更改，重新用一個(gè)新的密碼來(lái)加以保護(hù)。代碼如下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub CmdOk_Click()On Error GoTo Errp: With DbCommand mandType = adCmdText mandText = Select userPassword from hotel

22、login where username= + UserId + Set DbTempSet = .Execute End With If Text1.Text = LTrim(RTrim(DbTempSet.Fields(0).Value) Then If Text2.Text = Text3.Text Then With DbCommand mandText = Update hotellogin set userpassword= + Text2.Text + where username= + UserId + .Execute End With Unload Me Else MsgB

23、ox 你兩次輸入的新密碼不一樣，請(qǐng)重新輸入, vbOKOnly, 系統(tǒng)提示 Text2.SetFocus Text2.Text = Text3.Text = End If Else MsgBox 你輸入的原始密碼與該用戶的登錄密碼不符，請(qǐng)重新輸入, vbOKOnly, 系統(tǒng)提示 Text1.Text = Text1.SetFocus End If MsgBox (密碼修改成功) Exit SubErrp:MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Form_Activate()On Error GoTo Errp:

24、 Text1.SetFocusExit SubErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)On Error GoTo Errp: If KeyCode = 13 Then Text2.SetFocus End If Exit SubErrp:End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) On Error Go

25、To Errp: If KeyCode = 13 Then Text3.SetFocus End IfErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo Errp: If KeyCode = 13 Then cmdOK.SetFocus End IfErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd Sub備份數(shù)據(jù)是相當(dāng)重要的，

26、在電腦發(fā)生故障時(shí)，原來(lái)的數(shù)據(jù)可能丟失，但是您不要擔(dān)心，您已經(jīng)備份了數(shù)據(jù)，可以使原來(lái)的數(shù)據(jù)恢復(fù)。數(shù)據(jù)備份恢復(fù)代碼如下：Dim MdbComm As New ADODB mandDim MdbSet As New ADODB.RecordsetDim MdbPara As New ADODB.ParameterDim StrUserId As StringDim StrDate As StringDim FileName As StringDim RetValPrivate Sub Command1_Click()Dim RetVal As StringOn Error GoTo Errop: R

27、etVal = MsgBox(您確定要進(jìn)行數(shù)據(jù)備份嗎？, vbYesNo, App.Title) If RetVal = vbYes Then FileName = hotelDB.bak With DbCommand mandText = Backup DataBase hotelDB to disk =d: & FileName & .Execute End With MsgBox 備份數(shù)據(jù)成功!, vbOKOnly, App.Title End If Exit SubErrop: If Err.Number 32755 Then MsgBox Err.Description, vbOKO

28、nly, App.Title End IfEnd SubPrivate Sub Command2_Click()On Error GoTo Errop: FileName = hotelDB.bak With DbCommand mandText = restore DataBase hotelDB from disk =app.path + & FileName & .Execute End With MsgBox 恢復(fù)數(shù)據(jù)成功!, vbOKOnly, App.Title Exit SubErrop: MsgBox Err.Description, vbOKOnly, App.TitleEn

29、d SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo Errp: StrDate = CStr(Year(Now() If Month(Now() 10 Then StrDate = StrDate & 0 & CStr(Month(Now() Else StrDate = StrDate & CStr(Month(Now() End If If Day(Now) 10 Then StrDate = StrDate & 0 & CStr(Day(Now() Else StrD

30、ate = StrDate & CStr(Day(Now() End If Exit SubErrp:MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Function CheckTableExist(TblName As String) As Boolean MdbComm.Parameters(0).Value = TblName MdbComm.Parameters(1).Value = -1 Set MdbSet = MdbComm.Execute If MdbSet!retu = 1 Then CheckTableEx

31、ist = True Else CheckTableExist = False End IfEnd Function打開(kāi)主界面的“接待管理”，選擇“接待登記入住”目的是對(duì)帳單、主客、證件類型、主客性別、證件、出生年月、聯(lián)系、職業(yè)、地址、主客手牌號(hào)、賓客類型、男賓數(shù)量、女賓數(shù)量、可打幾折、房間總數(shù)、鞋牌、入店時(shí)間、押金、批準(zhǔn)人、預(yù)計(jì)離開(kāi)時(shí)間、已經(jīng)付款、代人付款、磁卡卡號(hào)、是否做到點(diǎn)提示、操作員代碼、帶水付款、特別說(shuō)明進(jìn)行查詢。查詢完畢后，單擊返回按鈕，回到主菜單。代碼如下：Private Sub cmmdexit_Click() Unload MeEnd SubPrivate Sub Comms

32、ave_Click() Dim StrSql As String Dim StrCon As String Dim sMeg As String Dim yhbill As String Dim yhmaster As String Dim yhsex As String Dim yhcertificate As String Dim yhcertify_code As String Dim yhbirthday As String Dim yhphone As String Dim yhaddress As String Dim yhunit As String Dim yhmasterco

33、de As String Dim yhguesttype As String Dim yhrebate As String Dim yhguestsum As String Dim yhmale As String Dim yhfemale As String Dim yhshoes As String Dim yhstart As String Dim yhwillleave As String Dim yhhousesum As String Dim yhdeposit As String Dim yhconfirmpeople As String Dim yhalreadypaid As

34、 String Dim yhremark As String Dim yhinputer As String Dim yhwarning As String Dim yhcardid As String Dim yhforother As String Dim yhforwhose As String On Error GoTo Errp: yhbill = Trim(txtbill.Text) yhmaster = Trim(txtname.Text) yhsex = Trim(Comsex.Text) yhcertificate = Trim(Comzhenjian.Text) yhcer

35、tify_code = Trim(txtzhenjiancode.Text) yhbirthday = Trim(Txtbirthday.Text) yhphone = Trim(txtphone.Text) yhaddress = Trim(txtaddress.Text) yhunit = Trim(Comzhiye.Text) yhmastercode = Trim(txthandscode.Text) yhguesttype = Trim(Comleixing.Text) yhrebate = Trim(txtzhekou.Text) yhguestsum = Trim(txtsumc

36、ount.Text) yhmale = Trim(txtmanshuliang.Text) yhfemale = Trim(txtwomenshuliang.Text) yhshoes = Trim(txtshoecode.Text) yhstart = Trim(txtruzhutime.Text) yhwillleave = Trim(txtleavetime.Text) yhhousesum = Trim(txtroomcount.Text) yhdeposit = Trim(txtyajin.Text) yhconfirmpeople = Trim(txtpizhunren.Text)

37、 yhalreadypaid = Trim(txtyijingkuan.Text) yhremark = Trim(txtspecial.Text) yhinputer = Trim(txtcaozuoyuan.Text) yhwarning = Trim(Compoint.Text) yhcardid = Trim(txtcikacode.Text) yhforother = Trim(txtdairenfu.Text) yhforwhose = Trim(txtdaiwhofu.Text) If Trim(txtbill.Text) = Then sMeg = 帳單 sMeg = sMeg

38、 & 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtbill.SetFocus Exit Sub End If If Len(txtbill.Text) 6 Then sMeg = 你的帳單大于六位了，請(qǐng)重新輸入 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtbill.SetFocus txtbill.Text = Exit Sub End If If Trim(txtname.Text) = Then sMeg = 主客 sMeg = sMeg & 不能為空！ MsgBox sMeg, vbO

39、KOnly + vbExclamation, 警告 txtname.SetFocus Exit Sub End If With DbCommand mandType = adCmdText mandText=insert intobill (bill,master,sex,certificate,certify_code,birthday,phone,address,unit,mastercode,guesttype,rebate,guestsum,male,female,shoes,start,willleave,housesum,deposit,confirmpeople,alreadyp

40、aid,remark,inputer,warning,cardid,forother,forwhose) Set DbTempSet = .Execute sMeg = 你的輸入信息已經(jīng)保存成功 MsgBox sMeg, vbOKOnly + vbExclamation, 提示 End WithErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Form_Load() On Error GoTo Errp: frmdengji.Top = 1400 frmdengji.Left = 2000 Comzhenji

41、an.AddItem Comzhenjian.AddItem 工作證 Comzhenjian.AddItem 學(xué)生證 Comzhenjian.AddItem 警官證 Comzhenjian.AddItem 駕駛證 Comzhenjian.AddItem 居住證 Comzhiye.AddItem 公務(wù)員 Comzhiye.AddItem 學(xué) 生 Comzhiye.AddItem 工 人 Comzhiye.AddItem 教 師 Comzhiye.AddItem 農(nóng) 民 Comzhiye.AddItem 軍 人 Comzhiye.AddItem 警 察 Comleixing.AddItem 團(tuán)體

42、Comleixing.AddItem 個(gè)人 Comsex.AddItem 男 Comsex.AddItem 女 Compoint.AddItem 是 Compoint.AddItem 否Errp: MsgBox Err.Description, vbOKOnly, App.TitleEnd Sub打開(kāi)主界面的“客房管理”，選擇“客房信息查詢”目的就是對(duì)房間的編號(hào)、房間的類型、樓層、預(yù)定情況就行查詢。選中房間編號(hào)，單擊查詢界面會(huì)出現(xiàn)相關(guān)的數(shù)據(jù)，依次類推。最后單擊退出按鈕回到主界面?？头啃畔⒉樵兇a如下：Private Sub Commandfresh_Click() Call Commandqu

43、ery_ClickEnd SubPrivate Sub Commandquery_Click()Dim StrSql As StringDim StrCon As StringDim i As IntegerDim bianhao As StringDim loucheng As StringDim roomleixing As StringDim ordercondition As StringOn Error GoTo Errp: Xsheet.Clear Xsheet.Refresh Call BuildTitle If roombianhao.Value = True Then bia

44、nhao = Trim(PosCbo.Text) StrSql = select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleaned FROM roomstate where roomcode = + bianhao + End If If Checkfloor.Value = True Then loucheng = Mid(Trim(Combofloor.Text), 1, 1) StrSql = select roomcode,roomtype,flo

45、or,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleane FROM roomstate where floor = + loucheng + End If If checkroomstatus.Value = True Then roomleixing = Trim(PrintCbo.Text) StrSql=select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleane

46、 FROM roomstate where roomtype = + roomleixing + End If If checkorder.Value = True Then ordercondition = Trim(Comboorder.Text) StrSql = select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleane FROM roomstate where reserved = + ordercondition + End If With

47、DbCommand mandText = StrSql Set DbTempSet = .Execute End With With Xsheet .Rows = 1 Do While Not DbTempSet.EOF .Rows = .Rows + 1 For i = 1 To DbTempSet.Fields.Count .TextMatrix(.Rows - 1, i - 1) = DbTempSet.Fields(i - 1) Next i DbTempSet.MoveNext Loop End With Exit SubErrp:MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Commandexit_Click() Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo Errp: Call BuildTitle 建立表頭 With DbCommand mandType = adCmdText mandText = Select roomcode from roomstate Set DbTempSet = .Execute End With I