基于vb的酒店管理系統(tǒng)設(shè)計(jì)報(bào)告(更新版)
【正文】 provider=。 Trim() amp。 provider=。data source= amp。 amp。 amp。 data source= amp。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。關(guān)系式數(shù)據(jù)庫(kù)由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè)字段有一個(gè)字段名，字段名在一個(gè)表中不能重復(fù)。雖然Visual Basic易于使用，但這并不表明Visual Basic的功能薄弱，使用Visual Basic不僅可以開發(fā)簡(jiǎn)單的應(yīng)用程序，還可以編寫出商業(yè)級(jí)的客戶端/服務(wù)器程序，以及強(qiáng)大的數(shù)據(jù)庫(kù)應(yīng)用程序。此外，借助COM/COM+強(qiáng)大的功能，使用Visual Basic可以輕松地開發(fā)多層結(jié)構(gòu)的分布式應(yīng)用程序以及高效的Web應(yīng)用程序。酒店管理方面的信息化已成為現(xiàn)代化酒店的重要標(biāo)志。隨著我國(guó)市場(chǎng)經(jīng)濟(jì)的迅速發(fā)展，人們?cè)谏钏接辛孙@著提高，旅游經(jīng)濟(jì)和各種商務(wù)活動(dòng)更促進(jìn)了酒店行業(yè)的快速發(fā)展。本系統(tǒng)根據(jù)酒店管理的現(xiàn)狀及未來(lái)的發(fā)展方向，結(jié)合有關(guān)酒店管理當(dāng)中的管理學(xué)實(shí)踐，設(shè)計(jì)了酒店管理系統(tǒng)。系統(tǒng)中各業(yè)務(wù)管理模塊可以單機(jī)獨(dú)立運(yùn)行。作為提供多功能服務(wù)的綜合場(chǎng)所，吸引顧客是酒店生存的重要條件。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。Visual Basic基于圖形界面的開發(fā)環(huán)境使開發(fā)者對(duì)各種功能一目了然、容易理解。Visual Basic 。Access 數(shù)據(jù)庫(kù)由六種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、宏和模塊。宏(Macro) 相當(dāng)于DOS中的批處理，用來(lái)自動(dòng)執(zhí)行一系列操作。 amp。 provider=。 ，請(qǐng)牢記！, vbOKOnly, = = = Else MsgBox 兩次密碼不一致，請(qǐng)重新輸入！ End If Else MsgBox 已取消注冊(cè)!, vbOKOnly, = = = End If Else MsgBox 用戶名已存在，請(qǐng)重新注冊(cè)！, vbOKOnly + vbExclamation, End If本界面是系統(tǒng)的主界面，主要有菜單欄和工具欄。39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, = Else Set = rs_book = False = False = False End If刪除信息提示框刪除的代碼 Dim answer As String answer = MsgBox(真的刪除嗎？, vbYesNo, 刪除) If answer = vbYes Then = TrueElseExit SubEnd If界面如下：代碼如下：Dim sql As StringDim conn As New Dim rs_bookstyle As New If Trim() = ThenMsgBox 登記號(hào)不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = ThenMsgBox 房間號(hào)不能為空, vbOKOnly + vbExclamation, Exit SubEnd If provider=。代碼好下：. 退房信息刪除數(shù)據(jù)保存有一定的保存期限，如果過(guò)了那一個(gè)期限，就把數(shù)據(jù)刪除。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Set = rs_tushu Dim i i = MsgBox(真的刪除嗎？, 1 + 48, 刪除) If i = 1 Then Set = rs_tushu Set = rs_tushu End If客戶信息可以查看客戶的信息，有助于酒店的安全管理。 \, amp。我只有在以后的學(xué)習(xí)之路上做到一絲不茍，才能獲得成功
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1