【導讀】多功能服務體系。在這種社會需求下，對酒店業(yè)所提供的服務有了更高的要求，設。了員工的工作效率和酒店的服務質量。本次設計包括3部分，具體內容如下。根據商務酒店客房管理的功能需求，該系統要求的主要功能包。括權限管理，客房管理，入住、退房、結賬流程管理，收支管理。誤操作或其它非法輸入數據能有效地處理。畢業(yè)設計說明書的撰寫。4)系統界面設計美觀，操作直觀、簡便，界面風格一致。6)代碼編寫符合代碼編寫規(guī)范；7)符合軟件工程相關開發(fā)規(guī)范。應的修改并進行回歸測試。2)符合《本科畢業(yè)設計(論文)撰寫規(guī)范》要求；3)在論述中采用圖文結合的方式。在接到該任務書之日起,即可開始了解畢業(yè)設計任務，熟悉開發(fā)工具與環(huán)境。1)第1-2周調研并資料搜集；想，能夠提高各業(yè)務部門本身的工作效率。單的權限機制，對每個操作員的操作進行嚴格規(guī)定。使系統達到一定的安全程度。系統通過黑盒測試，各個模塊設計目標基本達到，系統運行正常。

　　

【正文】 ADO 頂層三 個對象中 Connection 處在最頂層，用以指定數據源、建立和數據源的連接。 ADOConnection 封裝了 ADO 連接對象。 ADOConnection 必須和其他的數據控件連接才有效。由一個 ADOConnection 建立的連接可以被多個 ADO 數據集組件和操作組件通過設置他們的 Connection 屬性實現共享。所以作者在本次設計中就是通過使用一個 ADOConnection，多個 ADOQuery 共享 ADOConnection 數據庫連接的方式。 圖 42 數據 庫訪問體系結構圖 建立一個 ADOConnection 連接 Data，其連接字符串如下： :=39。Provider=。Password=123。Persist Security Info=True。User ID=sa。Initial Catalog=jdgl。Data Source=.39。 // 在這里 表 示數據 庫的連 接字符 串，Password=123 為 數據庫登陸密碼； User ID=sa 是數據庫登陸名， Initial Catalog=jdgl 是所連接數據庫的名稱；“ Data Source=.” 表示本機 := true。 系統登陸的實現 用戶進入本系統前，首先要經過登錄頁面進行登錄，用戶輸入用戶名和對應的密碼，系統進行身份驗證，驗證不通過時，給出錯誤信息，并禁止用戶進入系統。當驗證通過進入系統，顯示系統主框架頁面，讀取本系統包括的模塊信息，提供模塊接口。 系統登陸功能流程圖如圖 43 所示 : 連接部件ADOConnection 數據集組件ADOQuery 數據源 用戶界面 數據庫 （ SQL） 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 23 用 戶 登 陸 界 面輸 入 用 戶 名 與 密 碼系 統 主 界 面是 否 通 過 驗 證YN開 始 圖 43 系統登陸流程圖 系統登陸界面窗體如圖 44 放置相應組件，并對各組件進行設置。這里會使用到的ADO 組件為 ADOQuery：即通過 SQL 語言提取數據，可以直接連接到數據庫，也可以通過 ADOConnection 連接到數據庫。 圖 44 系統登陸界面窗體 系統顯示登陸窗口之后，如果數據庫連接驗證正確則會顯示登陸界面。登陸模塊提供了用戶身份認證的功能，本次系統得用戶身份認證是通過在輸入的用戶名和密碼，同數據庫的權限表中的用戶名和密碼進行比對，比對正確則登陸進入系統，否則提示錯誤，需要重新輸入。系統設 置了 3 次重新輸入的機會，如果 3 次都輸入錯誤，則自動退出系統。它的部分實現代碼如下： 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 24 1. “確定”按鈕事件代碼處理主要是兩個 ADOQuery，一個表示密碼和用戶名的認證，一個表示操作員所對應的權限。分別如下： 2. “取消”按鈕事件代碼處理 系統主界面的實現 系統主界面窗體如圖 45 放置相應的組件，并對各組件進行設置。這里主要會使用到 MainMenu 組件，用來創(chuàng)建主界面上的目錄。 if recordcount1 then//如果得到的記錄數 1 那么進行如下操作 begin if i=3 then //設置一個循環(huán)，使有 3次輸入密碼的機會 。 messagedlg(39。密碼錯誤 !還有 39。+inttostr(3i)+39。次機會 39。,mtconfirmation,[mbok],0)。 i:=i+1。 //每循環(huán)一次 i的值加 1 exit。 end else begin [3].Text:=fieldbyname(39。UserName39。).AsString。 end。 Adoquery1 ： (39。select * from glyxx where UserName=:A and Userpassword=:B39。)。(39。A39。).Value:=trim()。 //把表 glyxx中的值賦予變量 username, Userpassword ADOQuery2 ： (39。select * from glyxx where 權 限 代 碼 =39。+QuotedStr(39。A39。)+39。 and userName=39。+QuotedStr()+39。39。)。 //把 glyxx中的值賦予變量 username procedure (Sender: TObject)。 begin if messagedlg(39。 確 定 退 出 嗎 ？ 39。,mtconfirmation,[mbyes,mbno],0)=mryes then 。 end。 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 25 圖 45 系統主界面窗體 部分代碼演示如下： “散客入住”按扭事件處理代碼，動態(tài)創(chuàng)建該事件，具體實現如下： begin (TRegisterUser_Single,RegisterUser_Single)。//創(chuàng)建該入住窗體 。//顯示該窗體 。//釋放該窗體 其它按扭事件處理代碼與上“散客入住”按扭事件代碼類似，這里就不做過多的介紹。 系統用戶管理功能的實現 用戶管理窗口， 主要系統管理員對用戶權限和登陸的管理。涉及的數據庫中的表為操作員信息表。在此窗口下，管理員可以實現用戶登陸信息添加、刪除。此功能也主要是對數據庫進行操作。在這個窗體里主要使用了 lable 等控件。 按圖 46 放置相應的組件，并對各組件的屬性進行設置。 begin (TRegisterUser_Single,RegisterUser_Single)。 //創(chuàng)建該入住窗體 。//顯示該窗體 。//釋放該窗體 end。 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 26 圖 46 用戶管理界面窗體 其中“申請用戶”，“刪除用戶”按扭事件處理代碼與系統主界面上的“散客入住”按扭事件代碼類似，這里就不做過多的介紹。 申請用戶窗口如 圖 47 放置響應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery。 該窗體作用為：用于 申請系統用戶。 圖 47 申請用戶界面窗體 部分代碼演示如下： “確定”按扭事件處理代碼中會使用 ADOQuery 控件，表示密碼和用戶名極其權限的認證。相關代碼如下： 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 27 if (39。39。)and(39。39。)and(39。39。)then begin with ADOQuery1 do //對 ADOQuery1操作 begin close。 。//清空 SQL 內容 (39。select * from glyxx where username=39。+QuotedStr()+39。39。)。 //把 glyxx中的值賦予變量 username open。 end。 if 0 then begin 刪除用戶窗口如 圖 48 放置響應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery 和 DataSource。 圖 48 刪 除用戶界面窗體 部分代碼演示如下： “刪除”按扭事件處理代碼 : procedure (Sender: TObject)。//對刪除按鈕編程 begin if (39。確定要刪除這個用戶嗎？ 39。,39。提示 39。,mb_yesno)=id_yes then 。 end。 ………… //對確定按鈕單擊事件編程 begin if (39。39。)and(39。39。)and(39。39。)then begin with ADOQuery1 do //對 ADOQuery1操作 begin close。 。//清空 SQL內容 (39。select * from glyxx where username=39。+QuotedStr()+39。39。)。 //把 glyxx中的值賦予變量 username open。 end。 if 0 then begin ………… (39。Insert glyxx values(:a,:b,:c)39。)。 ………… //abc 所對應的數據更新進數據庫 //輸出用戶提示信息 ………… 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 28 密碼修改窗口如 圖 49 放置響應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery。 密碼修改界面窗體中“確定”，“取消”按扭事件處理代碼與申請用戶界面上的按扭事件代碼類似，這里就不做過多的介紹。 圖 49 密碼修改界面窗體 用戶權限設置如 圖 410 放置響應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery 和 DataSource。其按鈕事件代碼也和前邊類似，這里不做過多介紹。 圖 410 用戶權限設置界 面窗體 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 29 住房登記功能的實現 該功能實現了對客戶信息的管理。該功能可以對客戶信息進行增加和修改?？蛻粜畔▽π趴蛻暨M行登記，登記內容包括房號、姓名、性別、年齡、 證件類型 、 證件號 、客房 類型 、住店日期、離店日期等 屬性 。 該功能 分別包括散客入住登記和團體入住登記兩大部分。 散客入住登記按圖 411 放置相應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery， ADOTable 和 DataSource。 圖 411 散客入住登記界面窗體 部分代碼演示如下，“開單”按扭事件處理代碼 : 團體入住登記按圖 412 放置相應的組件，并對各組件的屬性進行設置。主要使用………… begin Try with ADOQuery1 do//對 ADOQuery1操作 begin Close。 。//清空 SQL (39。Insert lkxx values(:a,:b,:c,:d,:e,:f,:g,:h)39。)。 (39。a39。).Value:=Trim()。//房間號 ………… //更新姓名 ，性別，證件名稱，證件號碼 。，實收押金，入住時間，備注 ………… //提示信息 ………… 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 30 的組件有 ADOQuery 和 DataSource。團體入住界面窗體按扭與散客入住上基本一致，這里就不做過多介紹。 圖 412 團體入住界面窗口 更換房間按圖 413 放置相應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery 和 DataSource。代碼與前邊“修改”事件按扭代碼類似，這里不做過多介紹。 圖 413 更換房間界面窗體 修改登記窗口 按圖 414 放置相應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery 和 DataSource。其事件代碼與前邊“修改”“查詢”事件按扭代碼基本類似，這里不做過多介紹。 成都農業(yè)科技職業(yè)學院 畢業(yè)論文 31 圖 414 修改登記界面窗體 客房設置功能的實現 該功能實現了對客房信息的管理。該功能可以對客房信息進行增加、刪除和修改，客房信息主要包括客房號、客房 類型。 房間設置窗口如 圖 415 放置響應的組件，并對各組件的屬性進行設置。主要使用的組件有 ADOQuery 和 DataSource。 房間設置窗體界面上 “添加房間”、“添加類型”、“修改房間”等 按扭事件處理代碼與系統主界面上“散客入住”按扭事件 代碼類似，這里就不做過多的介紹。 圖 415 房間設置窗體 成都農業(yè)科技職業(yè)學院 畢業(yè)論文