【正文】 and you may suppose further, that when, by continually attending upon him, he has bee perfect in all this, he calls his knowledge wisdom, and makes of it a system or art, which he proceeds to teach, although he has no real notion of wha t he means by the principles or passions of which he is spea king, but calls this honourable and that dishonourable, or good or evil, or just or unjust, all in accordance with the tastes and tempers of the great brute. Good he pronounces to be that in which the beast delights and evil to be that which he dislikes。 and in right good earnest. Now what opinion of any other Sophist, or of any private person, can be expected to overe in such an unequal contest? None, he replied. No, indeed, I said, even to make the attempt is a great piece of folly。 but I should like to know more precisely what you mean about them. Grasp the truth as a whole, I said, and in the right way。 （ 4）學(xué)校可允許學(xué)位論文被查閱或借閱。除非另有說(shuō)明，本文的工作是原始性工作。 [6] 方睿 ，吳四久 . 網(wǎng)絡(luò)數(shù)據(jù)庫(kù)原理及應(yīng)用 [M]. 四川 :四川大學(xué)出版社 ,2020。 [2] 盧鎮(zhèn)波 ,李青，萬(wàn)晶 . Visual [M].北京 :清華大學(xué)出版社， 2020。通過(guò)請(qǐng)教老師和同學(xué)，問(wèn)題都得到了解決，同時(shí)也讓我深刻體會(huì)自己在這方面的不足。和老師的溝通交流更使我對(duì)設(shè)計(jì)有了新的認(rèn)識(shí)也對(duì)自己提出了新的要求。 其“更新房態(tài)”代碼為： Private Sub btnUpate_Click(ByVal sender As , _ ByVal e As ) Handles LoadData() Dim dv As DataView = = False = False 第 21 頁(yè) 共 24 頁(yè) = False 39。 strSQL += dv(iCol 1)(0). + 39。 其界面圖如圖 12 所示： 第 19 頁(yè) 共 24 頁(yè) 圖 12 房間 管理界面圖 點(diǎn)擊相應(yīng)狀態(tài)，并設(shè)置成成其他狀態(tài)時(shí)的代碼為： Private Sub btnSet_Click(ByVal sender As , _ ByVal e As ) Handles Dim iRow, iCol As Integer iRow = iCol = Dim strState As String = (iRow, iCol) Dim strTmpState As String If iCol 0 Then If = True Then strTmpState = 0 ElseIf = True Then strTmpState = 2 ElseIf = True Then strTmpState = 4 ElseIf = True Then strTmpState = 1 ElseIf = True Then strTmpState = 3 ElseIf = True Then strTmpState = 5 End If 第 20 頁(yè) 共 24 頁(yè) Else Return End If 39。 (strSQL) (exec sf_保存入住單 39。如圖 11所示： 第 17 頁(yè) 共 24 頁(yè) 圖 11 查詢空余客房編號(hào)界面圖 其“添加”功能代碼為： Public Overrides Sub SaveForAdd() Dim dr As DataRow = (入住單 ).NewRow() Try dr(入住單號(hào) ) = dr(客房類型 ) = dr(抵店時(shí)間 ) = dr(離店時(shí)間 ) = dr(聯(lián)系電話 ) = dr(客房編號(hào) ) = dr(客房?jī)r(jià)格 ) = dr(入住價(jià)格 ) = dr(折扣 ) = dr(折扣原因 ) = dr(入住人數(shù) ) = dr(是否加床 ) = dr(加床價(jià)格 ) = dr(電話等級(jí) ) = dr(預(yù)收款 ) = dr(單據(jù)狀態(tài) ) = dr(預(yù)定人 ) = dr(業(yè)務(wù)員 ) = dr(操作員 ) = dr(會(huì)員編號(hào) ) = dr(預(yù)定公司 ) = dr(早餐 ) = dr(叫醒 ) = dr(保密 ) = dr(vip) = dr(預(yù)定單號(hào) ) = dr(特要說(shuō)明 ) = 第 18 頁(yè) 共 24 頁(yè) Catch ex As Exception (數(shù)據(jù)格式不正確！ ) Exit Sub End Try Try Dim strTmp As String = (入住單 ).(dr) If = True Then (DataSet11) Dim db As DataBase = New DataBase Dim strSQL As String = update 客房信息 set 狀態(tài) =39。 這樣的設(shè)計(jì)充分體現(xiàn)了程序的友好性，簡(jiǎn)潔性。能根據(jù)實(shí)現(xiàn)進(jìn)行添加、修改、刪除、搜索預(yù)定客房信息。更新 DataSet11 (DataSet11) End If Catch ex As Exception (數(shù)據(jù)刪除失敗 !) End Try End Sub 如果要修改一個(gè)房間的信息，選中該房間的客房編號(hào)，點(diǎn)擊“修改”按鈕，即可根據(jù)實(shí)際進(jìn)行相應(yīng)需要修改信息的修改。如圖 4 所示： 圖 4 “保存”或“取消”新增客房信息 其“添加”功能代碼如下： Public Overrides Sub SaveForAdd() Dim dr As DataRow = (客房信息 ).NewRow() Try dr(客房編號(hào) ) = dr(類型編號(hào) ) = dr(樓層編號(hào) ) = dr(額定人數(shù) ) = dr(床數(shù) ) = dr(客房描述 ) = dr(狀態(tài) ) = dr(備注 ) = dr(是否可拼房 ) = Catch ex As Exception (數(shù)據(jù)格式不正確！ ) Exit Sub End Try Try (客房信息 ).(dr) If = True Then (DataSet11) End If Catch ex As Exception (數(shù)據(jù)添加失敗 !) End Try LoadData() 第 13 頁(yè) 共 24 頁(yè) = End Sub 在“添加”客房信息中，其狀態(tài)默認(rèn)設(shè)置為“空房”。在客房信息中，可設(shè)置 客房編號(hào)、類型編 號(hào)、樓層編號(hào)、額定人數(shù)、床數(shù)、狀態(tài)、是否可拼房、客房描述以及備注。在設(shè)計(jì)過(guò)程中，一定要定義數(shù)據(jù)庫(kù)對(duì)象的命名規(guī)范。 系統(tǒng)功能模塊層次如圖１： 圖 1 系統(tǒng)功能模塊層次圖 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì)思想 數(shù)據(jù)庫(kù)設(shè)計(jì)的好壞是一個(gè)系統(tǒng)的關(guān)鍵。 入住管理：入住單號(hào)、客房類型、抵店時(shí)間、離店時(shí)間、入住人數(shù)、客房編號(hào)、客房?jī)r(jià)格、入住價(jià)格、折扣、折扣、單據(jù)狀態(tài)、折扣原因、是否加床、加床價(jià)格、預(yù)收款、預(yù)定人、會(huì)員編號(hào)、預(yù)定公司、聯(lián)系電 話、備注、操作員、業(yè)務(wù)員、電話等級(jí)、早餐、叫醒、保密、 VIP、特要說(shuō)明 。 客房類型設(shè)置：該功能設(shè)置客房類型編號(hào)、類型名稱、價(jià)格、拼房?jī)r(jià)格、可超預(yù)定數(shù)和是否可拼房。對(duì)于自由線程可能需要特別給出警告。 Visual 提供大量面向?qū)ο蠊δ埽☉?yīng)用程序繼承，它允許從其 它類導(dǎo)出想創(chuàng)建的類。 介紹 Visual 和平常的開(kāi)發(fā)工具有所不同，如果說(shuō)從 VB3 遷移到 VB4是一個(gè)很大的變化，那么 則是個(gè)更大的變化。要搭建這樣一種互聯(lián)網(wǎng)環(huán)境，首先要解決的問(wèn)題是針對(duì)現(xiàn)有 Inter 的缺陷，來(lái)設(shè)計(jì)和創(chuàng)造一種下一代 Inter結(jié)構(gòu)。 .NET 是 Microsoft 對(duì)所有以網(wǎng) 絡(luò)技術(shù)為核心。使得 C/S 更利于處理大量數(shù)據(jù)。這樣，第一層與第二層結(jié)構(gòu)之間的通信、第二層與第三層結(jié)構(gòu)之間的通信都需占用同一條網(wǎng)絡(luò)線路。現(xiàn)代企業(yè)需要有開(kāi)放的信息環(huán)境，需要加強(qiáng)與外界的聯(lián)系，有的還需要通過(guò) Inter 發(fā)展網(wǎng)上營(yíng)銷業(yè)務(wù)，這使得大多數(shù)企業(yè)將他們的內(nèi)部網(wǎng)與 Inter 相連。 B/S 雖然由 JavaScript、 VBScript 提供了一定的交互能力，但與 C/S的一整套客戶應(yīng)用相比是太有限了。 C/S 模式簡(jiǎn)單地講就是基于企業(yè)內(nèi)部網(wǎng)絡(luò)的應(yīng)用系統(tǒng)。店內(nèi)裝潢、客房數(shù)量、房間設(shè)施等質(zhì)量競(jìng)爭(zhēng)和價(jià)格競(jìng)爭(zhēng)將退居二線。 第 2 頁(yè) 共 24 頁(yè) 酒店信息化 的實(shí)施，意味著酒店又增加了一項(xiàng)新的服務(wù)，即信息服務(wù)。由于這種行業(yè)間本質(zhì)上的差異，致使很多 IT 公司盡管竭盡全力將最先進(jìn)的產(chǎn)品設(shè)備或解決方案推銷給酒店，其結(jié)果通常是酒店付出了昂貴的代價(jià)卻不盡如人意。這主要表現(xiàn)在三大問(wèn)題上：一、觀念問(wèn)題。 國(guó)內(nèi)外研究現(xiàn)狀 酒店電腦管理系統(tǒng)最初出現(xiàn)于六十年代末、七十年代初的美國(guó)，其中較有代表性的有美國(guó)的 Ecco 系統(tǒng)，該系統(tǒng)使用 Nova3 系統(tǒng)平臺(tái)，基本實(shí)現(xiàn)前臺(tái)業(yè)務(wù)中的預(yù)定、排房、結(jié)帳、 客房、餐廳、問(wèn)詢、夜審等模塊，由于當(dāng)時(shí)仍然沒(méi)有個(gè)人電腦的出現(xiàn)，所以整個(gè)電腦是基于集中式的小型機(jī) /終端的管理，以后隨著 硬件技術(shù)的發(fā)展和各種網(wǎng)絡(luò)系統(tǒng)、數(shù)據(jù)庫(kù)技術(shù)的發(fā)展，操作系統(tǒng)的發(fā)展 而 推出了許多新型的酒店管理系統(tǒng)，按網(wǎng)絡(luò)操作系統(tǒng)分，基本上 有 Unix 系統(tǒng)、 Novell 系統(tǒng) 和WindowsNt 系統(tǒng) 三 種類型 。 hotel room management may configuration based on the real requirem