酒店管理系統(tǒng)課程設(shè)計(jì)報(bào)告-精品

1、?數(shù)據(jù)庫(kù)原理與應(yīng)用? 課程設(shè)計(jì)題 目 酒店管理系統(tǒng) 院 系 信息工程學(xué)院 專 業(yè) 班 級(jí) 2021級(jí)計(jì)科本2班 學(xué) 生 姓 名 黃加月 徐海生 張寶 汪裕康 董國(guó)龍 學(xué) 號(hào) 11421512、28、31、22、04 設(shè) 計(jì) 地 點(diǎn) 教學(xué)13#602 指 導(dǎo) 教 師 胡賢德 起止時(shí)間：2013年12月25日至2014年1月4日?數(shù)據(jù)庫(kù)原理與應(yīng)用?課程設(shè)計(jì)任務(wù)分配院系：信息工程學(xué)院 教研室：軟件教研室課程設(shè)計(jì)題目學(xué)生信息管理系統(tǒng)課 程 設(shè) 計(jì)目的?數(shù)據(jù)庫(kù)原理與應(yīng)用?課程設(shè)計(jì)是計(jì)算機(jī)類專業(yè)的集中實(shí)踐性環(huán)節(jié)之一，是課程教學(xué)中的一項(xiàng)重要內(nèi)容，是完成教學(xué)方案到達(dá)教學(xué)目標(biāo)的重要環(huán)節(jié)，是幫助學(xué)生全面結(jié)實(shí)地掌握

2、課堂教學(xué)內(nèi)容、培養(yǎng)學(xué)生分析問(wèn)題、解決問(wèn)題的能力進(jìn)展的一次全面的綜合練習(xí)。通過(guò)結(jié)合設(shè)計(jì)題目進(jìn)展綜合性應(yīng)用，對(duì)所學(xué)知識(shí)到達(dá)融會(huì)貫穿的程度，對(duì)提高學(xué)生的綜合素質(zhì)具有重要的意義。1、加深對(duì)數(shù)據(jù)庫(kù)根底理論和根本知識(shí)的理解。2、掌握數(shù)據(jù)庫(kù)設(shè)計(jì)與使用的根本方法。3、提高運(yùn)用數(shù)據(jù)庫(kù)解決實(shí)際問(wèn)題的能力小組成員及任務(wù)分配姓名學(xué)號(hào)承當(dāng)任務(wù)是否組長(zhǎng)黃加月1142151210概要設(shè)計(jì)、詳細(xì)設(shè)計(jì)、編碼是徐海生1142151228ppt制作否張寶1142151231撰寫設(shè)計(jì)報(bào)告否汪?？?142151222數(shù)據(jù)庫(kù)建表否董國(guó)龍1142151204整理和收集文獻(xiàn)資料否 摘 要酒店管理系統(tǒng)是一個(gè)酒店單位不可缺少的一局部,它的內(nèi)容對(duì)

3、于企業(yè)的決策者和管理者來(lái)說(shuō)都是至關(guān)重要的，因此，酒店管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?，但一直以?lái)人們使用傳統(tǒng)的人工方式管理，這種管理方式存在著許多缺點(diǎn)，諸如效率低，保密性差等，而且時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。 隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)不斷開展，其強(qiáng)大的功能已經(jīng)被人們深刻認(rèn)識(shí)，它已經(jīng)進(jìn)入了社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一局部，使用計(jì)算機(jī)對(duì)產(chǎn)品庫(kù)存信息進(jìn)展管理，具有人工管理無(wú)法比較的優(yōu)點(diǎn)，它檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、本錢低等，可減少更多的人力物力，這些都能夠極大地

4、提高貨品庫(kù)存的管理效率，也是酒店管理科學(xué)化、正規(guī)化，與世界接軌的重要條件。 隨著酒店規(guī)模的不斷擴(kuò)大，客房數(shù)量的急劇增加，有關(guān)客房的各種信息量也在不斷成倍增長(zhǎng)。面對(duì)龐大的信息量，就需要有客房信息管理系統(tǒng)來(lái)提高客房管理工作的效率。 傳統(tǒng)手工的客房管理，管理過(guò)程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯(cuò)。通過(guò)這樣的系統(tǒng)，我們可以做到信息的標(biāo)準(zhǔn)管理和快速查詢，實(shí)現(xiàn)了客房信息管理的系統(tǒng)化、標(biāo)準(zhǔn)化和自動(dòng)化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理本錢。關(guān)鍵詞：VB; ER圖；目 錄1 需求分析 系統(tǒng)需求分析近年來(lái)，酒店業(yè)迅猛開展，市場(chǎng)的競(jìng)爭(zhēng)日趨劇烈，全面提高酒店的軟件管理水準(zhǔn)，已成為酒店業(yè)開展的當(dāng)

5、務(wù)之急。尤其是對(duì)于星級(jí)酒店，既需要完成前臺(tái)的一些效勞工作，還需要完成后臺(tái)的管理工作。然而，傳統(tǒng)的人工管理模式已經(jīng)遠(yuǎn)遠(yuǎn)不能滿足有效、快捷地處理經(jīng)營(yíng)中產(chǎn)生的大量信息數(shù)據(jù)的需要，從而使得企業(yè)決策層無(wú)法及時(shí)、準(zhǔn)確地掌握一線資料，繼而影響對(duì)市場(chǎng)進(jìn)展正確地分析和預(yù)測(cè)。像沿海城市三星級(jí)以上酒店引進(jìn)外方管理，使小局部酒店管理水準(zhǔn)幾乎接近或到達(dá)國(guó)際水平。但對(duì)廣闊中小型酒店來(lái)說(shuō)，是難以做到的。因此，欲在競(jìng)爭(zhēng)中甩開對(duì)手，取得優(yōu)勢(shì)，必須在經(jīng)營(yíng)、管理、產(chǎn)品、效勞等方面具備獨(dú)到之處。而對(duì)酒店的經(jīng)營(yíng)狀況起決定作用的是客房的管理。簡(jiǎn)單的效勞標(biāo)準(zhǔn)已不是制勝的錦囊，只有管理做到最細(xì)微之處，才能讓顧客體會(huì)到酒店效勞的高標(biāo)準(zhǔn)、高質(zhì)量

6、，而準(zhǔn)確、快速、周全往往就是最根本的成功要素。傳統(tǒng)的管理方法已經(jīng)不能適應(yīng)現(xiàn)代社會(huì)的需要，因此采用電腦管理業(yè)務(wù)、財(cái)務(wù)等諸多環(huán)節(jié)已成為推動(dòng)酒店業(yè)迅速開展的先決條件，酒店客房管理信息系統(tǒng)是各大中小型酒店所需要使用的一個(gè)管理系統(tǒng)。1.2 用戶需求分析酒店管理系統(tǒng)的數(shù)據(jù)庫(kù)功能主要表達(dá)在對(duì)各種信息的提供、保存、更新和查詢操作上包括客房信息?？头款愋托畔?、客戶記錄信息、客戶信息、員工信息和員工工作信息。各個(gè)局部的數(shù)據(jù)內(nèi)容又有內(nèi)在的聯(lián)系。針對(duì)該系統(tǒng)的數(shù)據(jù)特點(diǎn)，可以總結(jié)如下的需求：客房信息包括客房的詳細(xì)信息客戶信息記錄客戶登記時(shí)的詳細(xì)信息入住信息是客戶信息和客房信息之間的關(guān)聯(lián)每個(gè)員工信息都對(duì)應(yīng)一個(gè)員工類型每個(gè)客

7、房都對(duì)應(yīng)一個(gè)員工信息1.3 酒店管理系統(tǒng)的功能主要功能：前臺(tái)操作：包括用戶登錄、菜單設(shè)置和房臺(tái)設(shè)置預(yù)訂管理：包括預(yù)訂包間、轉(zhuǎn)臺(tái)和并臺(tái)信息查詢：包括客人列表、預(yù)訂客人列表、員工信息報(bào)表統(tǒng)計(jì)：包括開房記錄統(tǒng)計(jì)參考數(shù)據(jù)如下住店管理：客人姓名、證件號(hào)碼、房號(hào)、入住時(shí)期、預(yù)計(jì)離開日期、結(jié)賬離開日期、應(yīng)付金額客人信息：姓名、性別、房間信息：房號(hào)、房類型、價(jià)格、房狀態(tài)預(yù)訂房間：客人姓名、房類型、房號(hào)、價(jià)格、證件類型、證件號(hào)碼、聯(lián)系 、入住日期、預(yù)計(jì)離開日期歷史信息：2 總體設(shè)計(jì)2.1 SQL后臺(tái)本系統(tǒng)使用SQL SERVER2000作為應(yīng)用程序的數(shù)據(jù)庫(kù)后臺(tái)，考慮到系統(tǒng)的實(shí)際需求，系統(tǒng)至少需要以下幾張數(shù)據(jù)庫(kù)表

8、：1酒店部門表：用來(lái)存放酒店部門編號(hào)和部門名稱的表2用戶消費(fèi)表：用來(lái)存放顧客消費(fèi)編號(hào)，消費(fèi)方式和消費(fèi)金額的表3客房表：用來(lái)存放客房的部門編號(hào)，房臺(tái)編號(hào)，房臺(tái)名稱，部門名稱，類別名稱，房臺(tái)費(fèi)，狀態(tài)和消費(fèi)方式的表4客房分類表：用來(lái)存放客房的類別編號(hào)，類別名稱和容納人數(shù)的表5顧客消費(fèi)表：用來(lái)存放顧客的編號(hào)，房臺(tái)費(fèi)，房臺(tái)編號(hào)，房臺(tái)名稱，賬單編號(hào)，顧客姓名，消費(fèi)日期和消費(fèi)金額的表6營(yíng)業(yè)額表：用來(lái)存放編號(hào)，日期和營(yíng)業(yè)額的表7菜類別表：用來(lái)存放菜類別名稱概念模型是對(duì)現(xiàn)實(shí)世界的抽象和概述，它真實(shí)地反映了事物和事物之間的聯(lián)系。應(yīng)用E-R圖可描述某一組織的概念模型。下面根據(jù)需求分析設(shè)計(jì)酒店管理系統(tǒng)的E-R圖。全局

9、E-R圖全局E-R圖如下:m1n1mnnn領(lǐng)導(dǎo)客戶客房入住員工效勞管理圖2.1 全局E-R圖 酒店部門E-R圖：圖2.2 酒店部門E-R圖 客房E-R圖客房E-R圖中包括的屬性有部門編號(hào)，房臺(tái)編號(hào)，房臺(tái)名稱，部門名稱，類別名稱，房臺(tái)費(fèi)，狀態(tài)，消費(fèi)方式。如圖2.3所示：圖2.3 客房E-R圖 客房類別E-R圖：圖2.4 客房類別E-R圖 收益E-R圖收益E-R圖中包括的屬性有編號(hào)，日期和營(yíng)業(yè)額。如圖2.5所示：圖2.4 客房類別E-R圖3 詳細(xì)設(shè)計(jì)3.1 SQL后臺(tái)詳細(xì)設(shè)計(jì) 根本表設(shè)計(jì)1 酒店部門表部門編號(hào)，部門名稱如表3-1所示表3-1 酒店部門表2 用戶消費(fèi)表消費(fèi)編號(hào)，消費(fèi)方式，消費(fèi)金額，效

10、勞費(fèi)率如表3-2所示表3-2 用戶消費(fèi)表 3 客房表部門編號(hào)，房臺(tái)編號(hào)，房臺(tái)名稱，部門名稱，類別名稱，房臺(tái)費(fèi)，狀態(tài)，消費(fèi)方式如表3-3所示表3-3 客房表 4客房分類表類別編號(hào)，類別名稱，容納人數(shù)如表3-4所示表3-4 客房分類表5 顧客消費(fèi)表編號(hào)，房臺(tái)費(fèi)，房臺(tái)編號(hào)，房臺(tái)名稱，賬單編號(hào)，顧客姓名，消費(fèi)日期，本次應(yīng)付如表3-5所示表3-5 顧客消費(fèi)表6營(yíng)業(yè)額表 編號(hào)，日期，營(yíng)業(yè)額如表3-6所示表3-6 營(yíng)業(yè)額表7 菜類別表類別名稱如表3-7所示表3-7 菜類別表系統(tǒng)前臺(tái)VB詳細(xì)設(shè)計(jì) 前臺(tái)功能本系統(tǒng)使用Visual Basic 6.0作為前臺(tái)，系統(tǒng)要實(shí)現(xiàn)對(duì)于不同權(quán)限的用戶可以進(jìn)展不同的功能選擇，可

11、以對(duì)相關(guān)信息進(jìn)展查看、插入、修改和刪除等功能，因此系統(tǒng)至少需要以下幾個(gè)界面：1 用戶登錄界面2 系統(tǒng)主界面3開房界面4 房間查詢界面5 預(yù)定房間界面6 點(diǎn)菜界面7 查詢賬單界面 登錄界面登錄界面主要實(shí)現(xiàn)對(duì)于不同權(quán)限的用戶進(jìn)展判斷，并進(jìn)入下一界面，在用戶登錄錯(cuò)誤時(shí)給予提示，如下列圖3.1和圖3.2 所示：圖3.1 登錄成功界面 圖3.2 登錄不成功界面具體代碼如下：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenIf Text2.Text = 黃加月 And Text1.Text

12、 = 111111 Thenfrm_main.Check1.Value = 1frm_main.Check2.Value = 1frm_main.Check3.Value = 1frm_main.Check4.Value = 1frm_main.Check5.Value = 1frm_main.Check6.Value = 1frm_main.Check7.Value = 1frm_main.Check8.Value = 1frm_main.Check9.Value = 1frm_main.StatusBar1.Panels.Item(3).Text = 當(dāng)前操作員： 黃加月Unload Me

13、Adodc1.RecordSource = select * from Table_xtdl where 用戶名 = & Text2.Text & If Adodc1.Recordset.RecordCount 0 Then If Trim(Text1.Text) = Trim(Text4.Text) Then frm_main.Check1.Value = Adodc1.Recordset.Fields(字段1) frm_main.Check2.Value = Adodc1.Recordset.Fields(字段2) frm_main.Check3.Value = Adodc1.Record

14、set.Fields(字段3) frm_main.Check4.Value = Adodc1.Recordset.Fields(字段4) frm_main.Check5.Value = Adodc1.Recordset.Fields(字段5) frm_main.Check6.Value = Adodc1.Recordset.Fields(字段6) frm_main.Check7.Value = Adodc1.Recordset.Fields(字段7) frm_main.Check8.Value = Adodc1.Recordset.Fields(字段8) frm_main.Check9.Val

15、ue = Adodc1.Recordset.Fields(字段9) frm_main.Check10.Value = Adodc1.Recordset.Fields(字段10) frm_main.StatusBar1.Panels.Item(3).Text = 當(dāng)前操作員： + Adodc1.Recordset.Fields(用戶名) Unload Me Else MsgBox 密碼不正確,請(qǐng)您確認(rèn)后重新輸入 Text1.Text = End If Else MsgBox 對(duì)不起 沒(méi)有此用戶的信息 Text2.Text = Text1.Text = End If End If Else 登陸界

16、面錯(cuò)誤 系統(tǒng)主界面系統(tǒng)主界面如下列圖所示：圖3.3 系統(tǒng)主界面 顧客開房界面顧客開房界面如下列圖3.4所示：圖3.4 顧客開房界面3 房間查詢界面房間查詢界面如下列圖3.5所示：圖3.5 房間查詢界面具體代碼如下：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2Adodc2.RecordSource = select * from Table_ftsz_bmIf Ado

17、dc2.Recordset.RecordCount 0 ThenDo While Adodc2.Recordset.EOF = FalseCombo2.AddItem (Adodc2.Recordset.Fields(部門名稱)LoopElseEnd IfAdodc3.RecordSource = select * from Table_ftsz_lbIf Adodc3.Recordset.RecordCount 0 ThenDo While Adodc3.Recordset.EOF = FalseCombo1.AddItem (Adodc3.Recordset.Fields(類別名稱)Loo

18、pElseEnd IfEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then If Cmd_xg1(0).Enabled = True Then ElseIf Cmd_xg1(0).Enabled = False Then Adodc1.RecordSource = select * from Table_ftsz_ft where 房臺(tái)編號(hào)= + Text2 + If Adodc1.Recordset.RecordCount 0 Then Text1.Text = A

19、dodc1.Recordset.Fields(部門編號(hào)) Text2.Text = Adodc1.Recordset.Fields(房臺(tái)編號(hào)) Combo1.Text = Adodc1.Recordset.Fields(類別名稱) Text5(1).Text = Adodc1.Recordset.Fields(房臺(tái)名稱) Combo2.Text = Adodc1.Recordset.Fields(部門名稱) Text3.Text = Adodc1.Recordset.Fields(房臺(tái)費(fèi)) Else End If Else End IfElseEnd IfEnd SubPrivate Sub

20、Text7_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then If Cmd_xg4(3).Enabled = True Then ElseIf Cmd_xg4(3).Enabled = False Then Adodc4.RecordSource = select * from Table_ftsz_xffs where 消費(fèi)編號(hào)= + Text7 + If Adodc4.Recordset.RecordCount 0 Then Text7.Text = Adodc4.Recordset.Fields(消費(fèi)編號(hào))

21、 Text8.Text = Adodc4.Recordset.Fields(消費(fèi)方式) Text9.Text = Adodc4.Recordset.Fields(消費(fèi)金額) Text10.Text = Adodc4.Recordset.Fields(效勞費(fèi)率) Else End If Else End IfElseEnd IfEnd SubPrivate Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenIf Not IsNumeric(Text9.Text) ThenMsgBox 輸入必須為數(shù)

22、字ElseEnd IfElseEnd IfEnd Sub 點(diǎn)菜界面當(dāng)顧客需要點(diǎn)菜的時(shí)候可以用點(diǎn)菜系統(tǒng)直接點(diǎn)菜。點(diǎn)菜界面如下列圖3.6，3.7所示：圖3.6 點(diǎn)菜界面圖3.7 點(diǎn)菜界面具體代碼如下：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2Adodc3.RecordSource = select * from Table_cdsz_cxszIf Adodc3.Rec

23、ordset.RecordCount 0 ThenDo While Adodc3.Recordset.EOF = FalseCombo2.AddItem (Adodc3.Recordset.Fields(菜系名稱)LoopElseEnd IfAdodc2.RecordSource = select * from Table_cdsz_jclbIf Adodc2.Recordset.RecordCount 0 ThenDo While Adodc2.Recordset.EOF = FalseCombo3.AddItem (Adodc2.Recordset.Fields(類別名稱)LoopElse

24、End IfAdodc4.RecordSource = select * from Table_cdsz_jcsmIf Adodc4.Recordset.RecordCount 0 ThenDo While Adodc4.Recordset.EOF = FalseCombo4.AddItem (Adodc4.Recordset.Fields(附加說(shuō)明)LoopElseEnd IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then If Cmd_xg1(0).Enab

25、led = True Then ElseIf Cmd_xg1(0).Enabled = False Then Adodc1.RecordSource = select * from Table_cdszb where 編號(hào)= + Text1 + If Adodc1.Recordset.RecordCount 0 Then Text1.Text = Adodc1.Recordset.Fields(編號(hào)) Text2.Text = Adodc1.Recordset.Fields(酒菜名稱) Combo1.Text = Adodc1.Recordset.Fields(單位) Text3.Text =

26、 Adodc1.Recordset.Fields(價(jià)格) Combo2.Text = Adodc1.Recordset.Fields(菜系) Combo3.Text = Adodc1.Recordset.Fields(酒菜類別) Combo4.Text = Adodc1.Recordset.Fields(附加說(shuō)明) Else End If Else End IfElseEnd IfEnd SubPrivate Sub Text5_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then

27、 If Cmd_xg2(1).Enabled = True Then Text6(0).SetFocus ElseIf Cmd_xg2(1).Enabled = False Then Adodc2.RecordSource = select * from Table_cdsz_jclb where 類別編號(hào)= + Text5(0) + If Adodc1.Recordset.RecordCount 0 Then Text5(0).Text = Adodc2.Recordset.Fields(類別編號(hào)) Text6(0).Text = Adodc2.Recordset.Fields(類別名稱)

28、Text5(0).SetFocus Else End If Else End IfElseEnd IfEnd SubPrivate Sub Text55_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then If Cmd_xg3(2).Enabled = True Then ElseIf Cmd_xg3(2).Enabled = False Then Adodc3.RecordSource = select * from Table_cdsz_cxsz where 菜系編號(hào)= +

29、Text55(1) + If Adodc1.Recordset.RecordCount 0 Then Text6(1).Text = Adodc3.Recordset.Fields(菜系名稱) Text55(1).SetFocus Else MsgBox 沒(méi)有此菜系信息 End If Else End IfElseEnd IfEnd SubPrivate Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then If Cmd_xg4(3).Enabled = True Then ElseIf Cmd_

30、xg4(3).Enabled = False ThenAdodc4.RecordSource = select * from Table_cdsz_jcsm where 編號(hào)= + Text8.Text + If Adodc4.Recordset.RecordCount 0 Then Text8.Text = Adodc4.Recordset.Fields(編號(hào)) Text51(2).Text = Adodc4.Recordset.Fields(附加說(shuō)明) Text51(2).SetFocus Else End If Else End If 結(jié)賬界面當(dāng)顧客需要結(jié)賬的時(shí)候我們可以在系統(tǒng)上直接查詢

31、出顧客消費(fèi)的情況。結(jié)賬界面如圖3.8所示：圖3.8 顧客結(jié)賬界面具體代碼如下：Private Sub Label6_Click()End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenCall mainDim temp1If b = 1 Then If Combo1.Text = Or Text1.Text = Then MsgBox 請(qǐng)您選擇結(jié)賬方式或輸入結(jié)賬方式內(nèi)容 Else Adodc1.RecordSource = select * from Table_gkx

32、f where + Combo1 + = + Text1 + And 狀態(tài)= 使用 If Adodc1.Recordset.RecordCount 0 Then b = b + 1 Text2(0).Text = Adodc1.Recordset.Fields(房臺(tái)編號(hào)) Text2(1).Text = Adodc1.Recordset.Fields(房臺(tái)名稱) Text2(2).Text = Adodc1.Recordset.Fields(付款方式) Text2(3).Text = Adodc1.Recordset.Fields(賬單編號(hào)) Text2(4).Text = Adodc1.Re

33、cordset.Fields(顧客姓名) DTPicker1.Value = Adodc1.Recordset.Fields(結(jié)算時(shí)間) Do While Adodc1.Recordset.EOF = False key = Adodc1.Recordset.Fields(酒菜名稱) Set itmX = ListView1.ListItems.Add(, , key, 1) Loop Adodc1.RecordSource = select sum(消費(fèi)總金額) 編號(hào) from Table_gkxf where + Combo1 + = + Text1 + And 狀態(tài)= 使用 Adodc2

34、.RecordSource = select * from Table_ftsz_ft where 房臺(tái)編號(hào)= + Text2(0) + And 狀態(tài)= 使用 If Adodc2.Recordset.RecordCount 0 Then temp2 = Adodc2.Recordset.Fields(房臺(tái)費(fèi)) Text2(5).Text = Val(Text3.Text) + Val(temp2) temp1 = Adodc2.Recordset.Fields(temp1) Set adoRs = adoCon.Execute(update Table_ftsz_ft set 房臺(tái)名稱= + temp1 + ,狀態(tài)=空閑 where 房臺(tái)編號(hào)= + Text2(0) + ) Else End If Set adoRs = adoCon.Execute(update Table_gkxf set 狀態(tài)=空閑,結(jié)賬次數(shù)=1 where + Combo1 + = + Text1 + ) Dim c c = 房臺(tái)編號(hào)為 + Text2(0).Text