學生成績管理系統(tǒng)畢業(yè)設計

1、<p>　　膃蒆螅膆聿蒆袈罿莇蒅薇螁芃蒄蝕羇腿薃螂螀肅薂蒂羅羈薁薄螈莀薀螆肅芆薀衿袆膂蕿薈肂肈薈蝕裊莆蚇螃肀節(jié)蚆裊袃膈蚅薅肈肄節(jié)螇袁肀芁衿膇荿芀蕿罿芅艿蟻膅膁羋螄羈肇羋袆螁莆莇薆羆節(jié)莆蚈蝿膇蒞袀羄膃莄薀袇聿莃螞肅莈莂螅裊芄莂袇肁膀莁薆襖肆蒀蠆聿羂葿螁袂芁蒈蒁肇芇蕆蚃羀膃蒆螅膆聿蒆袈罿莇蒅薇螁芃蒄蝕羇腿薃螂螀肅薂蒂羅羈薁薄螈莀薀螆肅芆薀衿袆膂蕿薈肂肈薈蝕裊莆蚇螃肀節(jié)蚆裊袃膈蚅薅肈肄節(jié)螇袁肀芁衿膇荿芀蕿罿芅艿蟻膅膁羋螄羈肇羋袆螁莆

2、莇薆羆節(jié)莆蚈蝿膇蒞袀羄膃莄薀袇聿莃螞肅莈莂螅裊芄莂袇肁膀莁薆襖肆蒀蠆聿羂葿螁袂芁蒈蒁肇芇蕆蚃羀膃蒆螅膆聿蒆袈罿莇蒅薇螁芃蒄蝕羇腿薃螂螀肅薂蒂羅羈薁薄螈莀薀螆肅芆薀衿袆膂蕿薈肂肈薈蝕裊莆蚇螃肀節(jié)蚆裊袃膈蚅薅肈肄節(jié)螇袁肀芁衿膇荿芀蕿罿芅艿蟻膅膁羋螄羈肇羋袆螁莆莇薆羆節(jié)莆蚈蝿膇蒞袀羄膃莄薀袇聿莃螞肅莈莂螅裊芄莂袇肁膀莁薆襖肆蒀蠆聿羂葿螁袂芁蒈蒁肇芇蕆蚃羀膃蒆螅膆聿蒆袈罿莇蒅薇螁芃蒄蝕羇腿薃螂螀肅薂蒂羅羈薁薄螈莀薀螆肅芆薀衿袆膂蕿薈肂肈薈蝕裊莆

3、蚇螃肀節(jié)蚆裊袃膈蚅薅肈肄節(jié)螇袁肀芁衿膇荿芀蕿罿芅艿蟻膅膁羋螄羈肇羋袆螁莆莇薆羆節(jié)莆蚈蝿膇蒞袀羄膃莄薀袇聿莃螞肅莈莂螅裊芄莂袇肁膀莁薆襖肆蒀蠆聿</p><p><b>　　上海電視大學</b></p><p>　　畢業(yè)設計（論文、作業(yè)）</p><p>　　畢業(yè)設計（論文、作業(yè)）題目：</p><p>　　閔二分校學生成

4、績管理系統(tǒng) </p><p>　　分校（站、點）： 閔二分校 </p><p>　　年級、專業(yè)： 09秋計算機 </p><p>　　教育層次：

5、 ?？?</p><p>　　學生姓名： 屈華 </p><p>　　學 號： 098020518 </p><p>　　指導教師： 黃曉

6、冬 </p><p>　　完成日期： 2011年11月 </p><p><b>　　目 錄</b></p><p>　　內(nèi)容摘要和關(guān)鍵詞 ……………………………………………………………………Ⅰ</p><p>　　

7、一、XXXXXXXX …………………………………………………………………………1</p><p>　　(一）XXXXXXXX …………………………………………………………………………2</p><p>　　1、XXXXXXXX …………………………………………………………………………4 </p><p>　　二、XXXXXXXX ……………………………………

8、……………………………………7</p><p>　　(一）XXXXXXXX …………………………………………………………………………8</p><p>　　1、XXXXXXXX ……………………………………………………………………………10</p><p>　　三、XXXXXXXX …………………………………………………………………………12</p>

9、<p>　　(一）XXXXXXXX …………………………………………………………………………13</p><p>　　1、XXXXXXXX ……………………………………………………………………………14 </p><p>　　四、XXXXXXXX …………………………………………………………………………20</p><p>　　(一）XXXXXXXX

10、 …………………………………………………………………………21</p><p>　　1、XXXXXXXX ……………………………………………………………………………23 </p><p>　　五、XXXXXXXX …………………………………………………………………………25</p><p>　　(一）XXXXXXXX ……………………………………………………………

11、……………26</p><p>　　1、XXXXXXXX ……………………………………………………………………………27 </p><p>　　參考文獻　………………………………………………………………………………30</p><p>　　附錄　　　………………………………………………………………………………31</p><p>　　致謝　

12、 …………………………………………………………………………………32</p><p>　　內(nèi) 容 摘 要</p><p>　　隨著計算機普及, 網(wǎng)絡技術(shù)的發(fā)展, 越來越多的企業(yè)為引進現(xiàn)代化計算機工具，推動現(xiàn)代化管理，使公司管理規(guī)范化、程序化、迅速快捷。各個企業(yè)單位的管理系統(tǒng)也不得不與時俱進，及時開發(fā)出新的軟件或?qū)υ械能浖M行功能更新或版本升級。旅游事業(yè)的蓬勃發(fā)展和賓館管理業(yè)務的不斷

13、擴大,賓館管理人員尤其是星級賓館的管理人員對賓館管理的現(xiàn)代化科學化的要求逐漸迫切起來。越來越多的賓館領(lǐng)導認識到賓館管理計算機化的重要性和必要性,計算機信息管理系統(tǒng)對賓館管理來說,已不再是一個時髦的奢侈品,而是一個必不可少的得力助手。</p><p>　　本系統(tǒng)使用Visual Basic 2003編程技術(shù)和SQL Server 2000數(shù)據(jù)庫技術(shù)進行開發(fā)，操作系統(tǒng)為Windows2000 Server。本系統(tǒng)共有

14、登入功能、基礎設置、業(yè)務管理、房態(tài)管理等模塊。通過這些模塊可以對酒店的客房，入住情況等進行搜索、新增、更改、刪除等操作。本系統(tǒng)簡單易操作，為酒店管理提供了方便。</p><p><b>　　關(guān)鍵詞：</b></p><p>　　酒店管理 VB.NET2003 SQLServer2000</p><p><b>　　酒店管理系統(tǒng)<

15、/b></p><p><b>　　一、引言</b></p><p>　　（一）本課題的研究意義</p><p>　　酒店作為旅游業(yè)的主要組成部分，正在發(fā)揮越來越重要的作用。酒店的內(nèi)涵也隨著客人需要的發(fā)展而不斷變革，消費者對現(xiàn)代酒店的功能、經(jīng)營管理提出了新的衡量標準。以此為基礎，酒店的等級標準也在逐漸提高。現(xiàn)代酒店競爭格局的變化帶來現(xiàn)代酒

16、店集團的產(chǎn)生與發(fā)展，它對酒店功能的設置與資源管理也提出了更為嚴格的要求。</p><p>　?。ǘ┍菊撐牡哪康摹?nèi)容</p><p>　　酒店組織龐大，服務項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務質(zhì)量和管理水平，促進經(jīng)濟效益，必須借助計算機來進行現(xiàn)代化的信息管理。</p><p>　　用酒店管理系統(tǒng)通過節(jié)省大量的人力物力，增加飯店的服務項目，提高酒店

17、的服務檔次，減少管理上的漏洞，從整體上提高酒店的經(jīng)濟效益。如完善的預訂功能可防止有房不能租或滿房重訂的情況出現(xiàn)，可隨時提供準確的房間使用和預訂情況，從而提高客房出租率。</p><p>　　二、研究現(xiàn)狀及設計目標</p><p>　?。ㄒ唬┫嘟芯空n題的特點及優(yōu)缺點分析</p><p>　　傳統(tǒng)的酒店管理，多采用手工的形式，既繁瑣又易于出差錯，隨著電子技術(shù)的發(fā)展，酒

18、店管理多采用使用計算機的方式進行管理，避免進行簡單的重復計算，從而做到準確、快捷。酒店管理系統(tǒng)發(fā)揮其強大的優(yōu)勢，在數(shù)據(jù)保存、數(shù)據(jù)交換等方面均快速可靠，是手工操作所不能完成的。</p><p>　?。ǘ┍菊n題要達到的設計目標</p><p>　　酒店作為一個服務型行業(yè),從客房的營銷即客人的預訂開始,到入住登記直至最后退房結(jié)帳,整個過程應該能夠體現(xiàn)以賓館為中心,提供快捷,方便的服務,給賓客一

19、種顧客至上的享受,提高酒店的管理水平,簡化各種復雜操作,在最合理最短時間內(nèi)完成酒店業(yè)務規(guī)范操作,這樣才能令旅客舒適難忘。因此，采用計算機網(wǎng)絡和管理系統(tǒng)，將成為提高酒店的管理效率、改善服務水準的重要手段之一。</p><p>　　三、要解決的幾個關(guān)鍵問題</p><p>　?。ㄒ唬﹩栴}：房態(tài)設置</p><p>　　解決方案:酒店客房在不同時間有不同的狀態(tài),如空房、維

20、修房等,在酒店的管理中需要實時掌握每一個客房所處的狀態(tài),從而安排各種工作。為了直觀的表示和更改這些信息，酒店管理系統(tǒng)中一般都使用房態(tài)圖來表示。房態(tài)圖是酒店管理系統(tǒng)中最為重要的一個功能，它以圖形的形式顯示了酒店各個房間的不同狀態(tài)，從而使操作者準確、快速地分析酒店目前的房間占用情況，用鼠標單擊任意一間客房，就可以瀏覽到該客房相關(guān)的信息。</p><p>　　（二）問題：系統(tǒng)與數(shù)據(jù)庫連接</p><

21、p>　　解決方法：數(shù)據(jù)庫建立完成后，創(chuàng)建保存入住單、計算應收賬款、收銀退房三個存儲過程。在程序設計界面時，從工具箱拖動一個SqlDataAdapter對象，添加界面需要的表，然后生成數(shù)據(jù)集，在生成數(shù)據(jù)集對話框單擊確定。為TextBox控件以及Combobox控件設置數(shù)據(jù)源。Textbox控件屬性DataBingings與Text進行數(shù)據(jù)綁定。</p><p>　?。ㄈ﹩栴}：登入系統(tǒng)</p>

22、<p>　　解決方法：在數(shù)據(jù)庫中創(chuàng)建一個登入使用的“用戶信息” 表，規(guī)定只有數(shù)據(jù)庫有信息的操作員才能登入系統(tǒng)，里面包含操作員登入時使用的用戶編號、姓名、密碼等信息。程序設計里添加一個frmLogin登入界面，并為其添加Label、Textbox、Button等控件，操作員需輸入正確的用戶名和密碼方可進入操作，輸入錯誤則提示確認用戶名密碼是否正確，確定后返回重新輸入</p><p><b>　　

23、四、系統(tǒng)結(jié)構(gòu)與模型</b></p><p><b>　?。ㄒ唬┫到y(tǒng)結(jié)構(gòu)</b></p><p>　　圖1 系統(tǒng)模塊結(jié)構(gòu)圖</p><p><b>　?。ǘ┫到y(tǒng)流程</b></p><p><b>　　圖2 系統(tǒng)流程圖</b></p><p&

24、gt;　　（三）設計實現(xiàn)的策略和算法描述</p><p>　　客房信息是系統(tǒng)關(guān)鍵的表，其它信息均與通過客房編號字段相對應進行多對一的關(guān)聯(lián)。系統(tǒng)共需要10張表格，用途分別如下表：</p><p>　　系統(tǒng)數(shù)據(jù)表及其用途表</p><p>　　創(chuàng)建完成各個表格后，還要創(chuàng)建主鍵及外鍵等表約束，尤其關(guān)鍵的是創(chuàng)建存儲過程，這個系統(tǒng)使用了“sf_保存入住單”，“sf_計算應收賬

25、款”，“sf_收銀退房”三個存儲過程，操作實現(xiàn)的功能分別為保存入住單時修改房態(tài)，收銀結(jié)帳時計算應收賬款總額和收銀結(jié)帳。具體計算方法在下面的腳本中有詳細的注釋：</p><p>　　1. sf_保存入住單</p><p>　　create proc sf_保存入住單 @入住單號 varchar(36)</p><p><b>　　as</b>&l

26、t;/p><p>　　begin tran</p><p>　　-- 修改客房信息</p><p>　　update 客房信息 set 狀態(tài)='住房' from 客房信息 as a, 入住單 as b </p><p>　　where a.客房編號=b.客房編號 and b.入住單號=@入住單號</p><p

27、>　　-- 修改預定單狀態(tài)</p><p>　　update 預定單 set 單據(jù)狀態(tài)='入住' from 預定單 as a, 入住單 as b </p><p>　　where a.預定單號=b.預定單號 and b.入住單號=@入住單號</p><p>　　-- 將已入住的預定單放入歷史</p><p>　　inse

28、rt into 預定單歷史 select * from 預定單 where 單據(jù)狀態(tài) = '入住'</p><p>　　-- 清除已入住預定單</p><p>　　delete from 預定單 where 單據(jù)狀態(tài) = '入住'commit</p><p><b>　　GO</b></p><

29、;p>　　2. sf_計算應收賬款</p><p>　　create proc sf_計算應收帳款 @入住單號 varchar(36)</p><p><b>　　as</b></p><p>　　begin tran</p><p>　　declare @total money</p><p&

30、gt;　　declare @datecount int</p><p><b>　　-- 設置離電時間</b></p><p>　　update 入住單 set 離店時間 = getdate() where 入住單號 = @入住單號</p><p><b>　　-- 住店天數(shù)</b></p><p>

31、;　　select @datecount = datediff(dd,抵店時間,getdate())</p><p>　　from 入住單 where 入住單號 = @入住單號</p><p><b>　　-- 住店金額</b></p><p>　　select @total = 0</p><p>　　select @

32、total = @datecount*(isnull(入住價格,0)+isnull(加床價格,0))</p><p>　　from 入住單 where 入住單號 = @入住單號</p><p><b>　　-- 消費金額</b></p><p>　　select @total = @total + isnull(b.消費金額,0) from&l

33、t;/p><p>　　(select sum(消費金額) as 消費金額 from 帳單明細</p><p>　　where 入住單號 = @入住單號) as b</p><p>　　-- 設置應收帳款和結(jié)算金額</p><p>　　update 入住單 set 應收帳款 = @total, </p><p>　　結(jié)帳金額

34、 = @total - isnull(預收款,0) </p><p>　　where 入住單號 = @入住單號</p><p><b>　　commit</b></p><p><b>　　GO</b></p><p>　　3. sf_收銀退房</p><p>　　creat

35、e proc sf_收銀退房 @入住單號 varchar(36), @付款方式 varchar(20)</p><p><b>　　as</b></p><p>　　begin tran</p><p>　　update 入住單 set 離店時間 = getdate(), 單據(jù)狀態(tài) = '離店',</p><

36、p>　　付款方式 = @付款方式, 是否結(jié)帳=1,</p><p>　　結(jié)帳日期 = getdate() </p><p>　　where 入住單號 = @入住單號</p><p><b>　　-- 設置房態(tài)</b></p><p>　　update 客房信息 set 狀態(tài)='空房' from 客房

37、信息 as a, 入住單 as b </p><p>　　where a.客房編號=b.客房編號 and b.入住單號=@入住單號</p><p><b>　　-- 倒入歷史</b></p><p>　　insert into 入住單歷史 select * from 入住單 </p><p>　　where 入住單號 =

38、 @入住單號</p><p>　　insert into 帳單明細歷史 select * from 帳單明細 </p><p>　　where 入住單號 = @入住單號</p><p>　　delete from 帳單明細 </p><p>　　where 入住單號 = @入住單號</p><p><b>　

39、　-- 清除入住單</b></p><p>　　delete from 入住單</p><p>　　where 入住單號 = @入住單號</p><p><b>　　commit</b></p><p><b>　　GO</b></p><p>　　本系統(tǒng)采用多文

40、檔窗體程序，每一功能對應一個子窗體，選擇主菜單中的各菜單命令可以進入相應的功能。</p><p>　?。ㄋ模┚幊棠Ｐ图皵?shù)據(jù)結(jié)構(gòu)</p><p>　　1.酒店管理系統(tǒng)E-R圖</p><p>　　圖3 酒店管理系統(tǒng)E-R圖</p><p><b>　　2.數(shù)據(jù)庫結(jié)構(gòu)</b></p><p><

41、;b>　　表1 用戶信息表</b></p><p><b>　　表2 入住單表</b></p><p>　　表3 入住單歷史表</p><p><b>　　表4 客房信息表</b></p><p><b>　　表5 客房類型表</b></p&g

42、t;<p><b>　　表6 賬單明細表</b></p><p>　　表7 賬單明細歷史表</p><p><b>　　表8 樓層信息表</b></p><p><b>　　表9 預訂單表</b></p><p>　　表10 預訂單歷史表</p&g

43、t;<p><b>　　五、系統(tǒng)實現(xiàn)技術(shù)</b></p><p>　　程序設計首先要創(chuàng)建一個登入窗體，再進行創(chuàng)建系統(tǒng)主窗體，系統(tǒng)主窗體包括“基礎設置”、“業(yè)務管理”、“房態(tài)管理”三大模塊。</p><p>　　基礎設置包括：客房類型設置和客房信息設置；</p><p>　　業(yè)務管理包括：預訂管理、入住管理、消費記賬和收銀退房。&l

44、t;/p><p>　　然后創(chuàng)建各個模塊的控件。</p><p><b>　?。ㄒ唬﹦?chuàng)建登入窗體</b></p><p>　　本系統(tǒng)采用多文檔窗體程序，每一功能對應一個子窗體，利用Visual Basic.NET實現(xiàn)登入系統(tǒng)的功能。如圖5，在用戶輸入“用戶號”和“密碼” 后對用戶的輸入進行驗證，并記錄登錄用戶的姓名和用戶號，供系統(tǒng)使用（權(quán)限管理、制單

45、人指定等）。</p><p><b>　　圖4 登入窗口</b></p><p>　　登入窗體將其Name屬性設置為“frmlogin”，主要代碼：</p><p>　　在“確定”的Click事件中添加如下代碼</p><p>　　Private Sub btnSubmit_Click(ByVal sender As

46、System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click</p><p>　　'判斷用戶輸入密碼的合法性</p><p>　　If Me.UserPwd.Trim() = Me.txbPwd.Text.Trim() _</p><p>　　And UserPwd <>

47、"" Then</p><p><b>　　'合法用戶</b></p><p>　　bResult = True</p><p>　　UserName = Me.txbName.Text.Trim()</p><p>　　Me.Close()</p><p><b

48、>　　Else</b></p><p><b>　　'密碼錯誤</b></p><p>　　bResult = False</p><p>　　MessageBox.Show("請確認你的用戶名或密碼是否正確")</p><p><b>　　End If</b

49、></p><p><b>　　End Sub</b></p><p>　?。ǘ﹦?chuàng)建數(shù)據(jù)訪問模塊</p><p>　　因為各個窗體均需要對數(shù)據(jù)庫進行訪問，可以把對數(shù)據(jù)庫的一些操作通過一個類來實現(xiàn)，這樣可以使數(shù)據(jù)庫的訪問更加簡單。添加一個名為“DadaBase.vb”的類文件，主要代碼：</p><p>　　Pri

50、vate SqlConn As SqlConnection</p><p>　　Public Shared sConn As String = "Persist Security Info=False;Integrated Security=SSPI;database=hotelbook;server=localhost;Connect Timeout=30"</p><p

51、>　　Public Sub Dispose() Implements System.IDisposable.Dispose</p><p>　　Dispose(True)</p><p>　　GC.SuppressFinalize(True)</p><p><b>　　End Sub</b></p><p>　　

52、Protected Sub Dispose(ByVal disposing As Boolean)</p><p>　　If disposing <> True Then</p><p><b>　　Return</b></p><p><b>　　End If</b></p><p>

53、　　If SqlConn Is Nothing = False Then</p><p>　　SqlConn.Dispose()</p><p>　　SqlConn = Nothing</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p&

54、gt;<p>　　Public Sub Open()</p><p>　　If SqlConn Is Nothing = True Then</p><p>　　'建立數(shù)據(jù)庫連接對象</p><p>　　SqlConn = New SqlConnection(Me.sConn)</p><p><b>　　&#

55、39;打開數(shù)據(jù)庫連接</b></p><p>　　SqlConn.Open()</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Public Sub Close()</p><p>　　&#

56、39;如果數(shù)據(jù)庫連接對象不為空則關(guān)閉數(shù)據(jù)庫連接</p><p>　　If SqlConn Is Nothing = False Then</p><p>　　SqlConn.Close()</p><p><b>　　End If</b></p><p><b>　　End Sub</b></

57、p><p>　　Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView</p><p><b>　　Me.Open()</b></p><p>　　Dim SqlDS As DataSet = New DataSet</p><p&g

58、t;　　Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, Me.SqlConn)</p><p>　　SqlDA.Fill(SqlDS)</p><p>　　Return SqlDS.Tables(0).DefaultView</p><p>　　End Function</p>

59、<p>　　Public Function RunDelOrInsSQL(ByVal sSQLString As System.String)</p><p><b>　　Me.Open()</b></p><p>　　Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, Me.SqlConn)<

60、/p><p>　　SqlComm.ExecuteNonQuery()</p><p>　　End Function</p><p><b>　　End Class</b></p><p>　　（三）創(chuàng)建數(shù)據(jù)操作窗體的父類窗體</p><p>　　因為系統(tǒng)中所有對數(shù)據(jù)庫表進行維護的窗體界面及實現(xiàn)的功能大

61、體是一致的，為了減少系統(tǒng)編程的工作量，可以把這些共同的部分抽出來，生成一個父類窗體，其它數(shù)據(jù)庫操作窗體均可以通過繼承父類窗體獲得數(shù)據(jù)維護的功能。新建一個窗體，將其Name屬性改為“frmBase”，并為其添加如圖6控件。</p><p><b>　　圖5 基礎窗體</b></p><p>　　設置完成ToolBar控件Buttons屬性，主要代碼：</p>

62、;<p>　　在ToolBar1的ButtonClick事件輸入代碼</p><p>　　Private Sub ToolBar1_ButtonClick(ByVal sender As Object, _</p><p>　　ByVal e As ToolBarButtonClickEventArgs) _</p><p>　　Handles Too

63、lBar1.ButtonClick</p><p>　　Select Case e.Button.Text</p><p>　　Case "首記錄"</p><p><b>　　'返回首記錄</b></p><p>　　bmData.Position = 0</p><p&

64、gt;　　Case "上記錄"</p><p>　　If bmData.Position <> 0 Then</p><p>　　bmData.Position -= 1</p><p><b>　　End If</b></p><p>　　Case "下記錄"<

65、/p><p>　　If bmData.Position <> bmData.Count Then</p><p>　　bmData.Position += 1</p><p><b>　　End If</b></p><p>　　Case "尾記錄"</p><p>&

66、lt;b>　　'返回尾記錄</b></p><p>　　bmData.Position = bmData.Count</p><p><b>　　Case "新增"</b></p><p>　　Me.dgdList.Enabled = False</p><p>　　SetT

67、extBoxState(False)</p><p>　　SetToolBarState(False)</p><p>　　bAdd = True</p><p><b>　　Clear()</b></p><p><b>　　Case "修改"</b></p>&

68、lt;p>　　Me.dgdList.Enabled = False</p><p>　　SetTextBoxState(False)</p><p>　　SetToolBarState(False)</p><p>　　bAdd = False</p><p><b>　　Case "刪除"</b&g

69、t;</p><p><b>　　'彈出詢問對話框</b></p><p>　　Dim dlgResult As DialogResult = _</p><p>　　MessageBox.Show("你確認刪除此數(shù)據(jù)？", _</p><p>　　"刪除", Messag

70、eBoxButtons.OKCancel)</p><p>　　If dlgResult = DialogResult.OK Then</p><p>　　DeleteData()</p><p><b>　　End If</b></p><p><b>　　Case "保存"</b&

71、gt;</p><p>　　SetToolBarState(True)</p><p>　　SetTextBoxState(True)</p><p>　　If bAdd = True Then</p><p><b>　　'為新增數(shù)據(jù)保存</b></p><p>　　SaveForAdd

72、()</p><p><b>　　Else</b></p><p><b>　　'為更新數(shù)據(jù)保存</b></p><p>　　SaveForUpdate()</p><p><b>　　End If</b></p><p>　　Me.dgdLis

73、t.Enabled = True</p><p><b>　　Case "取消"</b></p><p>　　SetTextBoxState(True)</p><p>　　SetToolBarState(True)</p><p>　　Me.dgdList.Enabled = True</p&

74、gt;<p>　　SearchResult()</p><p><b>　　Case "退出"</b></p><p><b>　　'關(guān)閉本窗體</b></p><p>　　Me.Close()</p><p>　　End Select</p>

75、<p><b>　　Try</b></p><p>　　Me.dgdList.CurrentRowIndex = bmData.Position</p><p><b>　　SetData()</b></p><p>　　Catch ex As Exception</p><p><

76、;b>　　End Try</b></p><p><b>　　End Sub</b></p><p>　　搜索btnSearch的Click事件主要代碼</p><p>　　Private Sub btnSearch_Click(ByVal sender As System.Object, _</p><p

77、>　　ByVal e As System.EventArgs) Handles btnSearch.Click</p><p>　　SearchResult()</p><p><b>　　End Sub</b></p><p>　　（四）設置系統(tǒng)界面與數(shù)據(jù)庫連接</p><p>　　創(chuàng)建客房類型設置、客房信息設置

78、、預訂管理、入住管理、消費記賬和收銀退房的窗體界面相似：選擇文件，添加新項命令，在添加新項對話框模板列表框中選擇繼承的窗體選項，并分別命名為“frmRoomType.vb”、“frmRoomInfo.vb”、“frmReserve.vb”、“frmReside.vb”、“frmConsume.vb”和“frmCash.vb”。單擊打開按鈕后出現(xiàn)繼承選擇器對話框，在其中選擇frmBase選項并確定。</p><p>

79、;　　客房類型設置、客房信息設置、預訂管理、入住管理和消費記賬都是從工具箱中拖動一個SqlDataAdapter對象到窗體上，連接hotelbook數(shù)據(jù)庫，添加相對應的表，并選折所有字段。</p><p>　　收銀退房連接hotelbook數(shù)據(jù)庫后，則要添加入住單表并選者“入住單號、客房類型、客房編號、抵店時間、離店時間、入住價格、加床價格、預收款、應收賬款、結(jié)帳金額、是否結(jié)帳、結(jié)帳日期、付款方式”字段。<

80、/p><p>　　然后在SqlDataAdapter1對象上右擊，在彈出的快捷菜單中選擇生成數(shù)據(jù)集命令，在生成數(shù)據(jù)集對話框中單擊確定按鈕。</p><p>　　為每個TextBox、ComboBox和CheckBox控件設置數(shù)據(jù)源：在控件屬性設計器中對TextBox和ComboBox的屬性Databingdings與Text進行數(shù)據(jù)綁定，CheckBox的屬性Databingdings與Che

81、cked進行數(shù)據(jù)綁定。</p><p>　?。ㄎ澹┰O置房態(tài)圖功能</p><p>　　新建一個Name屬性為“frmRoomState”的窗體，并為其添加如圖7所示的控件。</p><p><b>　　圖6 房態(tài)圖窗體</b></p><p>　　在文件添加現(xiàn)有項命令，將表示客房狀態(tài)的圖片加入到項目中去，單擊打開按鈕，

82、解決方案資源管理器對話框中設置加入到項目中的表示客房狀態(tài)的位圖文件，將屬性中的生成操作設置為嵌入的資源，主要代碼：</p><p>　　frmRoomState的LoadData事件</p><p>　　Private Sub LoadData()</p><p>　　dtData.Rows.Clear()</p><p>　　Dim db

83、As DataBase = New DataBase</p><p>　　Dim dvFloor As DataView = _</p><p>　　db.RunSelectSQL("select 樓層編號 from 樓層信息")</p><p>　　Dim strSQL As String</p><p>　　For i

84、 As Int16 = 0 To dvFloor.Count - 1</p><p>　　strSQL = "select 樓層編號,狀態(tài) from 客房信息 "</p><p>　　Dim strTmp As String = ""</p><p>　　If strFilter.Trim <> "&qu

85、ot; Then</p><p>　　strTmp = " and " + strFilter</p><p><b>　　End If</b></p><p>　　strSQL += " where 樓層編號 = "</p><p>　　strSQL += dvFloor(i)(

86、0).ToString.Trim + strTmp</p><p>　　'查詢出每個樓層的房間信息</p><p>　　Dim tmpdv As DataView = db.RunSelectSQL(strSQL)</p><p><b>　　'新建數(shù)據(jù)行</b></p><p>　　Dim dr As

87、DataRow = dtData.NewRow()</p><p>　　'將樓層房間信息添加到數(shù)據(jù)行中</p><p>　　dr(0) = dvFloor(i)(0).ToString.Trim + "/F"</p><p>　　For j As Int16 = 0 To iMaxRoomNumber - 1</p><

88、;p>　　'設置房間的狀態(tài)信息</p><p>　　If j < tmpdv.Count Then</p><p>　　dr(j + 1) = GetStateNumber(tmpdv(j)("狀態(tài)"))</p><p><b>　　Else</b></p><p>　　dr(j

89、+ 1) = "6"</p><p><b>　　End If</b></p><p><b>　　Next</b></p><p>　　dtData.Rows.Add(dr)</p><p><b>　　Next</b></p><p&

90、gt;<b>　　End Sub</b></p><p>　　更新房態(tài)圖btnUpate的Click事件</p><p>　　Private Sub btnUpate_Click(ByVal sender As System.Object, _</p><p>　　ByVal e As System.EventArgs) Handles btn

91、Upate.Click</p><p>　　LoadData()</p><p>　　Dim dv As DataView = dtData.DefaultView</p><p>　　dv.AllowNew = False</p><p>　　dv.AllowDelete = False</p><p>　　dv.A

92、llowEdit = False</p><p><b>　　'設置數(shù)據(jù)源</b></p><p>　　dgdList.DataSource = dtData.DefaultView</p><p><b>　　End Sub</b></p><p>　　設置房態(tài)btnSet的Clicksh

93、ij</p><p>　　Private Sub btnSet_Click(ByVal sender As System.Object, _</p><p>　　ByVal e As System.EventArgs) Handles btnSet.Click</p><p>　　Dim iRow, iCol As Integer</p><p&

94、gt;　　iRow = dgdList.CurrentCell.RowNumber</p><p>　　iCol = dgdList.CurrentCell.ColumnNumber</p><p>　　Dim strState As String = dgdList.Item(iRow, iCol)</p><p>　　Dim strTmpState As Str

95、ing</p><p>　　If iCol <> 0 Then</p><p>　　If Me.rbnArrive.Checked = True Then</p><p>　　strTmpState = "0"</p><p>　　ElseIf Me.rbnEmpty.Checked = True Then&l

96、t;/p><p>　　strTmpState = "2"</p><p>　　ElseIf Me.rbnFull.Checked = True Then</p><p>　　strTmpState = "4"</p><p>　　ElseIf Me.rbnLeave.Checked = True Then&

97、lt;/p><p>　　strTmpState = "1"</p><p>　　ElseIf Me.rbnRepair.Checked = True Then</p><p>　　strTmpState = "3"</p><p>　　ElseIf Me.rbnSelf.Checked = True The

98、n</p><p>　　strTmpState = "5"</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p><b>　　Return</b></p><p><b&

99、gt;　　End If</b></p><p><b>　　'如果狀態(tài)已經(jīng)更新</b></p><p>　　If strTmpState <> strState Then</p><p>　　Dim db As DataBase = New DataBase</p><p>　　Dim d

100、v As DataView = dtRoom.Copy.DefaultView</p><p>　　dv.RowFilter = "樓層編號=" + _</p><p>　　dgdList.Item(iRow, 0).ToString.Split("/")(0)</p><p>　　Dim strSQL As String =

101、 "update 客房信息 set 狀態(tài)='"</p><p>　　strSQL += GetStateText(strTmpState) + "'"</p><p>　　strSQL += " where 客房編號='"</p><p>　　strSQL += dv(iCol -

102、1)(0).ToString.Trim + "'"</p><p>　　db.RunDelOrInsSQL(strSQL)</p><p>　　db.Dispose()</p><p><b>　　End If</b></p><p>　　LoadData()</p><p

103、>　　Dim dvTmp As DataView = dtData.DefaultView</p><p>　　dvTmp.AllowNew = False</p><p>　　dvTmp.AllowDelete = False</p><p>　　dvTmp.AllowEdit = False</p><p><b>　　&

104、#39;設置數(shù)據(jù)源</b></p><p>　　dgdList.DataSource = dtData.DefaultView</p><p><b>　　End Sub</b></p><p><b>　　六、性能測試與分析</b></p><p>　?。ㄒ唬y試實例（測試集）的研究與

105、選擇</p><p>　　在系統(tǒng)完成后，進行用戶的驗收測試，它是用戶在實際應用環(huán)境中所進行的真實數(shù)據(jù)測試。一般來說，對程序測試有兩種測試方法：根據(jù)系統(tǒng)應具有的功能，來測試每個功能是否都能正常使用；如果知道程序的內(nèi)部工作過程，根據(jù)系統(tǒng)程序結(jié)構(gòu)，來測試程序內(nèi)部是否按照程序設計正常進行。測試程序?qū)嵗斎霐?shù)據(jù)和預期輸出結(jié)果是否符合設計的效果，還要輸入不正確或非法的數(shù)據(jù)進行測試，檢查程序是否做了不應該做得工作，主要測試容易

106、出錯的程序模塊并對其修改，修改完成后必須重新進行測試。</p><p>　?。ǘy試環(huán)境與測試條件</p><p>　　1.運行Intel Core 2 Duo E7500雙核處理器的計算機，內(nèi)存2GB。</p><p>　　2.運行環(huán)境：Microsoft windows 2000 Server，Microsoft Visual Studio .NET 2003

107、，Microsoft SQL Server2000。</p><p><b>　　（三）實例測試</b></p><p>　　1. 首先Microsoft SQL Server2000導入hotelbook數(shù)據(jù)庫；</p><p>　　2. 運行系統(tǒng)登入，輸入密碼，正確驗證密碼，系統(tǒng)報錯如下圖所示，返回輸入正確的用戶名密碼，就能夠登入系統(tǒng)主

108、界面進行操作了。</p><p>　　圖7 酒店管理性能測試一</p><p>　　3.系統(tǒng)里修改數(shù)據(jù)要輸入數(shù)據(jù)庫表規(guī)定的數(shù)據(jù),超出則提示錯誤信息,如下圖：</p><p>　　圖8 酒店管理性能測試二</p><p><b>　　七、結(jié)束語</b></p><p>　　經(jīng)過近三個月的構(gòu)思與設

109、計，在指導老師的精心指導和安排下，本系統(tǒng)已經(jīng)設計完畢。其使用功能基本符合酒店在實際工作的需要，具有一定的實用性。但是由于個人水平有限，時間比較倉促，系統(tǒng)還是有些不盡人意的地方，以后還要加強改進。</p><p><b>　　參考文獻：</b></p><p>　　[1]VB.NET入門經(jīng)典(第3版) 清華大學出版社 </p><p&g

110、t;　　[2]VISUAL BASIC 高級編程解決方案 機械工業(yè)出版社</p><p>　　[3]SQL Server 2000 編程員指南 北京希望電子出版社</p><p>　　[4]VB.Net高級編程 電子書版本</p><p>　　[5]Visual Basic.NET項目開發(fā)寶典 電子工業(yè)出版社

111、</p><p><b>　　致 謝</b></p><p>　　特別感謝我的導師黃曉東老師，本文是在黃老師精心指導和大力支持下完成的。黃老師以其嚴謹求實的治學態(tài)度、高度的敬業(yè)精神、兢兢業(yè)業(yè)、孜孜以求的工作作風和大膽創(chuàng)新的進取精神對我產(chǎn)生重要影響。他淵博的知識、開闊的視野和敏銳的思維給了我深深的啟迪。</p><p>　　蒄襖螇芄薆蚇肆芃芆蒀

112、肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄

113、羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈