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

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

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

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

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

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

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

7、并簽字）領(lǐng)導(dǎo)小組審查意見： 審查人簽字： 年 月 日程序設(shè)計打開VB程序，出現(xiàn)VB主界面，單擊窗體下的frmlogin控件，單擊運行，出現(xiàn)一個登錄界面，請輸入用戶名稱和用戶密碼，雙擊確定按鈕，代碼如下：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 用戶不存在，請重新輸入用戶ID, vbOKOnly frmLogin.txtUersName.Text = frmLogin.txtUersName.SetFocus Else If RTrim(LTrim(DbTempSet.Fields(1).Value) txtPassword.Text Th

9、en MsgBox 輸入的該用戶的密碼錯誤，請重新輸入！, 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)按回車鍵的時候光標(biāo)自動跳入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)按回車鍵的時候光標(biāo)自動跳入到確定按扭上準(zhǔ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 = 歡迎您使用娛樂休閑型酒店管理信息系統(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)管理的“密碼管理”目的是對您的密碼進(jìn)行保護(hù)，移防您的原始密碼被別人知道后，可以更改，重新用一個新的密碼來加以保護(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 你兩次輸入的新密碼不一樣，請重新輸入, vbOKOnly, 系統(tǒng)提示 Text2.SetFocus Text2.Text = Text3.Text = End If Else MsgBox 你輸入的原始密碼與該用戶的登錄密碼不符，請重新輸入, 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ù)據(jù)可能丟失，但是您不要擔(dān)心，您已經(jīng)備份了數(shù)據(jù)，可以使原來的數(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打開主界面的“接待管理”，選擇“接待登記入住”目的是對帳單、主客、證件類型、主客性別、證件、出生年月、聯(lián)系、職業(yè)、地址、主客手牌號、賓客類型、男賓數(shù)量、女賓數(shù)量、可打幾折、房間總數(shù)、鞋牌、入店時間、押金、批準(zhǔn)人、預(yù)計離開時間、已經(jīng)付款、代人付款、磁卡卡號、是否做到點提示、操作員代碼、帶水付款、特別說明進(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 = 你的帳單大于六位了，請重新輸入 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 團體

42、Comleixing.AddItem 個人 Comsex.AddItem 男 Comsex.AddItem 女 Compoint.AddItem 是 Compoint.AddItem 否Errp: MsgBox Err.Description, vbOKOnly, App.TitleEnd Sub打開主界面的“客房管理”，選擇“客房信息查詢”目的就是對房間的編號、房間的類型、樓層、預(yù)定情況就行查詢。選中房間編號，單擊查詢界面會出現(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