vb.net 程序設(shè)計--客房管理系統(tǒng)

1、<p><b>　　畢 業(yè) 設(shè) 計</b></p><p>　　設(shè)計題目：VB.NET 程序設(shè)計--客房管理系統(tǒng)</p><p>　　系 別： 10級 </p><p>　　班 級： </p><p>　　姓　 　名： <

2、;/p><p>　　指 導(dǎo) 教 師： </p><p>　　2012年8月31 日</p><p>　　VB.NET 程序設(shè)計</p><p>　　----客房管理系統(tǒng)</p><p><b>　　摘 要</b></p><p>　　本文

3、主要針對客房信息管理系統(tǒng)設(shè)計原則以及步驟的一個簡單的介紹客房信息管理系統(tǒng)將是客房普遍應(yīng)用的系統(tǒng)。因此作為計算機應(yīng)用專業(yè)的人員不僅要掌握數(shù)據(jù)庫的知識，而且要開發(fā)適應(yīng)的系統(tǒng)達到學(xué)以致用的目的，才能體現(xiàn)出大學(xué)生的素質(zhì)所在。</p><p>　　本系統(tǒng)主要對客房的基本設(shè)置進行瀏覽添加、修改、刪除等操作，以及對客戶的基本信息瀏覽添加、修改、刪除等操作。而且包括用戶權(quán)限的設(shè)置。附加功能主要有幫助信息，系統(tǒng)簡單易懂，用戶操作起

4、來既輕松又便捷。</p><p>　　關(guān)鍵字: 客房管理系統(tǒng) 數(shù)據(jù)庫 用戶權(quán)限</p><p><b>　　目 錄</b></p><p>　　摘要………………………………………………………………………1</p><p>　　關(guān)鍵字……………………………………………………………………1</p>&l

5、t;p>　　一、概述…………………………………………………………………2</p><p>　　1.1目的以及意義…………………………………………………………2</p><p>　　1.2系統(tǒng)實現(xiàn)的具體功能…………………………………………………2</p><p>　　1.3系統(tǒng)的主要特點………………………………………………………2</p><

6、p>　　1.4系統(tǒng)運行的軟、硬件環(huán)境……………………………………………2</p><p>　　二、功能需求分析…………………………………………………………3</p><p>　　2.1社會背景和發(fā)展?fàn)顩r…………………………………………………3</p><p>　　2.2功能需求分析…………………………………………………………3</p><p

7、>　　2.3系統(tǒng)性能分析…………………………………………………………3</p><p>　　三、系統(tǒng)設(shè)計………………………………………………………………3</p><p>　　3.1軟件的開發(fā)環(huán)境和開發(fā)平臺…………………………………………3</p><p>　　3.2系統(tǒng)框架圖……………………………………………………………4</p><p&

8、gt;　　3.3項目設(shè)計方案說明……………………………………………………4</p><p>　　四、技術(shù)實現(xiàn)………………………………………………………………5</p><p>　　4.1數(shù)據(jù)庫的設(shè)計…………………………………………………………5</p><p>　　4.2界面設(shè)計………………………………………………………………7</p><p&g

9、t;　　五、總結(jié)…………………………………………………………………12</p><p>　　參考文獻…………………………………………………………………14</p><p>　　附錄………………………………………………………………………15</p><p><b>　　一、概述</b></p><p>　　隨著經(jīng)濟文化水平

10、的顯著提高，人們對生活效率的提高，客房管理是各大賓館的主要日常管理工作之一，涉及到登記、結(jié)算等各個方面，隨著計算機的飛速發(fā)展，尤其是以計算機與通信技術(shù)為基礎(chǔ)的信息系統(tǒng)正處于蓬勃發(fā)展的時期?？头抗芾砉ぷ魅遮叿敝?、復(fù)雜的工作。迫切需要研制開發(fā)一款功能強大，操作簡單，具有人性化的客房管理系統(tǒng)。</p><p><b>　　1.1目的以及意義</b></p><p>　　客房

11、管理系統(tǒng)是與我們?nèi)粘Ｉ钕⑾⑾嚓P(guān)的問題?？头抗芾砣找鎻?fù)雜, 這就需要借助日益發(fā)達的計算機技術(shù)和信息技術(shù), 來建立一個客房管理系統(tǒng)作為管理輔助手段, 減少勞動強度, 提高服務(wù)質(zhì)量和管理水平, 進而促進經(jīng)濟效率, 為客房的有效運行提供保障。計算機系統(tǒng)為數(shù)據(jù)處理提供明確的尺度, 使之標(biāo)準(zhǔn)化、規(guī)范化。不僅大量的重復(fù)計算由計算機處理, 可以減輕人的勞動強度, 更重要的是：在輸入數(shù)據(jù)以后, 所有的處理都由計算機系統(tǒng)來完成, 可以免去人工方式下許多中

12、間的處理環(huán)節(jié), 達到減員的效果。</p><p>　　1.2系統(tǒng)實現(xiàn)的具體功能</p><p>　　客房管理系統(tǒng)是一個便捷、個性化的數(shù)據(jù)庫系統(tǒng)，它包括6方面為公司服務(wù)。即系統(tǒng)設(shè)置（包括用戶登陸、用戶管理、角色管理、修改密碼、退出系統(tǒng)），客房管理（包括客房信息的添加、修改、刪除、查詢），客戶管理（包括客戶的添加、修改、刪除），結(jié)算管理（進行賬目結(jié)算），關(guān)于和報表。</p>&l

13、t;p>　　1.3系統(tǒng)的主要特點</p><p>　　該系統(tǒng)具有很好的容錯功能，如果系統(tǒng)登錄時沒有您的信息時，會提示您用戶不存在，只有用戶名和密碼對應(yīng)了才可以進入主界面，本公司的管理角色已經(jīng)固定，而經(jīng)理才可以設(shè)置權(quán)限。本系統(tǒng)信息全、條理請、速度快、功能齊全，可以通過幫助了解本客房以及本軟件。</p><p>　　1.4系統(tǒng)運行的軟、硬件環(huán)境</p><p>　

14、　系統(tǒng)運行于windowsxp上，內(nèi)存256M以上，硬盤80G以上。采用VB.NET語言設(shè)計，既滿足查詢用戶集中、處理數(shù)據(jù)量大的要求，又滿足查詢者最大范圍地使用該系統(tǒng)。</p><p><b>　　二、功能需求分析</b></p><p>　　2.1社會背景以及發(fā)展?fàn)顩r</p><p>　　隨著社會和計算機技術(shù)的發(fā)展，我們已經(jīng)進入了信息化的時代

15、。信息資源已經(jīng)成為我們最重要和最寶貴的資源之一，建立一個行之有效的信息管理系統(tǒng)是企業(yè)組織生存和發(fā)展的重要條件。各個客房的需求也在不斷提高自己的要求，因此，創(chuàng)建一個客房管理系統(tǒng)是對客房進行管理的有效方法，可以節(jié)省更多的人力資源，提高工作效率，加強了經(jīng)濟效益。</p><p><b>　　2.2功能需求分析</b></p><p>　　社會發(fā)展不斷加快，對各種需求就日益升

16、高，從而產(chǎn)生了對所需求的東西不斷的發(fā)展，讓人們可以在這樣快節(jié)奏的生活工作中能更方便快捷的解決問題，客房管理系統(tǒng)就是針對那些經(jīng)常出門的人群準(zhǔn)備的。這個人群由于經(jīng)常出差或者外出旅行，所以對客房的需求量比較大，從而產(chǎn)生了客房管理系統(tǒng)這一便民的系統(tǒng)平臺，本平臺不僅操作方便，更能對各種信息進行匯總和查詢，充分體現(xiàn)方便快捷的功能。</p><p>　　該系統(tǒng)是一個客房管理系統(tǒng)，主要用于對客房的管理，根據(jù)所學(xué)的數(shù)據(jù)庫原理與程序

17、設(shè)計的知識，能夠針對一個小型的客房管理系統(tǒng)，進行系統(tǒng)的需求分析，系統(tǒng)設(shè)計，數(shù)據(jù)庫設(shè)計，編碼，測試等，完成題目要求的功能，從而達到掌握開發(fā)一個小型數(shù)據(jù)庫的目的。通過數(shù)據(jù)瀏覽、數(shù)據(jù)維護、數(shù)據(jù)查詢等各項功能來滿足客房各項要求。</p><p><b>　　2.3系統(tǒng)性能分析</b></p><p>　　一個系統(tǒng)的好壞不僅在于系統(tǒng)運行的速度，還涉及到系統(tǒng)是否具有人性化的提示信

18、息。該系統(tǒng)無論是在登錄、查詢時，還是在進入到后臺管理進行對數(shù)據(jù)的添加、修改、刪除時都給與了清晰的提示信息，讓用戶感到該系統(tǒng)所設(shè)計的一大特點—人性化。</p><p><b>　　三、系統(tǒng)設(shè)計</b></p><p>　　3.1軟件的開發(fā)環(huán)境以及開發(fā)平臺</p><p>　　系統(tǒng)運行于windowsxp上，在數(shù)據(jù)庫和開發(fā)工具的選擇上，我選擇了SQ

19、L Server2000數(shù)據(jù)庫管理系統(tǒng)和美國Microsoft公司的Visual Basic.NET等軟件一起實現(xiàn)設(shè)計功能。在pc機數(shù)據(jù)庫應(yīng)用程序的開發(fā)領(lǐng)域，Visual Basic.NET 是一個全面支持面向?qū)ο蟪绦蛟O(shè)計的數(shù)據(jù)庫語言工具。</p><p>　　Visual Basic.NET的要特點有：</p><p>　　① 強大的查詢與管理功能。</p><p&g

20、t;　　② 強大的數(shù)據(jù)庫開發(fā)功能。</p><p>　　③ 擴大了對SQL語言的支持。</p><p>　?、?大量使用可視化的界面操作工具。</p><p>　?、?支持面向?qū)ο蟮某绦蛟O(shè)計。</p><p><b>　?、?多平臺支持。</b></p><p><b>　?、?支持網(wǎng)絡(luò)

21、應(yīng)用。</b></p><p>　?、?SQL server的廣泛應(yīng)用</p><p>　　3.2系統(tǒng)框架圖如圖3-1：</p><p>　　圖3-1 系統(tǒng)框架圖</p><p>　　3.3項目設(shè)計方案說明</p><p>　　本系統(tǒng)由登錄界面進入主界面，登陸界面是該系統(tǒng)的總?cè)肟?，所有的用戶都將由此輸入正確

22、的用戶名和密碼后才可以登陸本系統(tǒng)進行使用，如果錯誤進行提示，本客房的經(jīng)理可以對使用者設(shè)置權(quán)限，管理員可以對本賓館的設(shè)置，顧客的登記和入住情況進行查詢、添加、修改、刪除。根據(jù)顧客入住房間的類型不同，每個房間的價格也不同，顧客退房結(jié)賬時要根據(jù)房間的每日價格乘以天數(shù)計算出顧客入住的房費。</p><p><b>　　四、技術(shù)實現(xiàn)</b></p><p><b>　

23、　4.1數(shù)據(jù)庫的設(shè)計</b></p><p>　　通過上述需求分析，我們基本確定該系統(tǒng)所需要的數(shù)據(jù)庫由7張表組成，其結(jié)構(gòu)和設(shè)計方法如下。數(shù)據(jù)庫名稱：客房管理系統(tǒng)</p><p>　　4.1.1用戶信息表如圖4-1</p><p><b>　　表4-1用戶信息表</b></p><p>　　4.1.2角色信息表

24、如圖4-2</p><p><b>　　表4-2角色信息表</b></p><p>　　4.1.3菜單信息表如圖4-3</p><p><b>　　表4-3菜單信息表</b></p><p>　　4.1.4客房信息表如圖4-4</p><p><b>　　表4-4客

25、房信息表</b></p><p>　　4.1.5客戶信息表如圖4-5</p><p><b>　　表4-5客戶信息表</b></p><p>　　4.1.6權(quán)限信息表如圖4-6</p><p><b>　　表4-6權(quán)限信息表</b></p><p>　　4.1.7

26、賬目結(jié)算表如圖4-7</p><p><b>　　表4-7賬目結(jié)算表</b></p><p><b>　　4.2界面設(shè)計</b></p><p>　　用戶運行就會出現(xiàn)登陸界面，用戶登錄成功后才可以進入主界面，經(jīng)理才可以對用戶進行權(quán)限設(shè)置，管理員可以對客房的設(shè)置和顧客登記、基本信息進行添加、修改、刪除。用戶登錄后，系統(tǒng)根據(jù)判

27、斷登陸者的角色進而使用軟件。如圖4-9</p><p><b>　　圖4-9 登錄</b></p><p>　　用戶名和密碼與數(shù)據(jù)庫對應(yīng)才可以進入主界面,用戶類型的選擇，對主窗體里面的權(quán)限有關(guān)系，用戶類型不同，登陸者的權(quán)限就不同。密碼使用***來表示，增加了登陸者的安全性。如圖4-10</p><p><b>　　圖4-10 主界面&

28、lt;/b></p><p>　　當(dāng)操作員正確登錄到管理界面時，可以對用戶進行管理(包括添加，修改，刪除)對用戶和基本信息情況，幫助信息。如圖4-11</p><p>　　圖4-11 用戶管理設(shè)置</p><p>　　添加、修改、刪除用戶信息，在添加用戶時，房間編號要與數(shù)據(jù)庫中的用戶編號不能重復(fù)，如果重復(fù)會有提示，選擇用戶類型時，會自動出現(xiàn)管理員和操作員的相關(guān)

29、配置；修改用戶信息時，用戶編號要與數(shù)據(jù)庫中的房間編號對應(yīng)，如果不對應(yīng)，會有提示；在信息框中選中您所要刪除的房間信息，點擊刪除按鈕后會提示您是否確認(rèn)刪除該用戶信息，確定后刪除成功。</p><p>　　當(dāng)操作員正確登錄到管理界面時，可以對用戶進行管理(包括添加，修改，刪除)對用戶和基本信息情況，幫助信息。如圖4-12</p><p>　　圖4-12 角色管理館登記信息管理系統(tǒng)主</p&

30、gt;<p>　　添加、修改、刪除用戶信息，在添加角色時，角色編號要與數(shù)據(jù)庫中的角色編號不能重復(fù)，如果重復(fù)會有提示，通過權(quán)限設(shè)置，來實現(xiàn)管理員和操作員的區(qū)別；修改角色信息時，用戶編號要與數(shù)據(jù)庫中的角色編號對應(yīng)，如果不對應(yīng)，會有提示；在信息框中選中您所要刪除的角色信息，點擊刪除按鈕后會提示您是否確認(rèn)刪除該用戶信息，確定后刪除成功。如圖4-13</p><p>　　圖4-13 修改密碼</p>

31、;<p>　　圖4-13 修改密碼館登記信息管理系統(tǒng)主</p><p>　　修改密碼時用戶名為只讀，首先判斷原密碼與數(shù)據(jù)庫是否對應(yīng)，如果一致判斷新密碼和確認(rèn)密碼是否一致，如果一致修改成功，否則提示。如圖4-14</p><p>　　圖4-14 客房管理館登記信息管理系統(tǒng)主界面</p><p>　　客房管理，房間號如果與數(shù)據(jù)庫里登記表重復(fù)，會有提示，否則

32、添加成功。如圖4-15</p><p>　　圖4-15 客房添加館登記信息管理系統(tǒng)主界面</p><p>　　客房添加的房間號首先與數(shù)據(jù)庫里客房表里客房編碼是否重復(fù)，如果重復(fù)提示，否則與客房信息表里的客房編碼是否重復(fù)，如果重復(fù)提示，否則預(yù)訂成功。還可以實現(xiàn)客房的查詢，修改，刪除等功能。在此就不一一列舉。如圖4-16</p><p>　　圖4-16客戶信息管理館登記信

33、息管理系統(tǒng)主界面</p><p>　　根據(jù)客戶信息表里的姓名和客戶編號確定他們原來的客戶信息，然后選擇進行添加修改、刪除，如果客戶姓名與客戶信息表的信息重復(fù)，提示信息，如果沒有重復(fù)，則成功。如圖4-17</p><p>　　圖4-17 結(jié)算管理館登記信息管理系統(tǒng)主界面</p><p>　　通過輸入信息，根據(jù)計算按鈕進行結(jié)算，通過保存來進行結(jié)算信息保存，并在數(shù)據(jù)庫中進

34、行查詢。</p><p><b>　　五、總結(jié)</b></p><p>　　本次設(shè)計是ＶＢ.ＮＥＴ為平臺制作出的客房管理系統(tǒng)，系統(tǒng)為客房的管理提供了方便，提高了公司的工作效率。</p><p>　　通過這次設(shè)計，對所學(xué)的知識有了更加深刻的理解。不僅實現(xiàn)了理論與實踐相結(jié)合，受到一次綜合運用所學(xué)知識、獨立完成某項技術(shù)工作的訓(xùn)練，從而培養(yǎng)和提高了我獨

35、立工作的能力，為以后的就業(yè)提供了扎實的基礎(chǔ)。該系統(tǒng)主要的亮點有以下幾方面：</p><p>　　1．界面清晰，設(shè)計簡單。清晰簡單的界面可以使用戶一目了然，可以很輕松的找到所要進行的工作。不需要花費大量時間來尋找本系統(tǒng)的內(nèi)容，浪費用戶時間。</p><p>　　2．系統(tǒng)操作簡單，易管理。系統(tǒng)的管理對于系統(tǒng)的維護來說很重要，客房的規(guī)定不斷的變化，設(shè)備在不斷地更新。因此越是操作簡單的系統(tǒng)越是受到

36、賓館客房的歡迎，本系統(tǒng)管理的所有功能集中在一個界面，用戶可以很方便的在各個功能之間切換。</p><p>　　3．容錯技術(shù)使系統(tǒng)更具有人性化。用戶在操作本系統(tǒng)時，在輸入錯誤信息時都會給出相應(yīng)的提示信息。</p><p>　　通過本次設(shè)計，使我充分的體會了編程給我?guī)淼臉啡ぁ?lt;/p><p><b>　　參 考 文 獻</b></p>

37、<p>　　[1] 溫丹麗 主編. Visual Basic.NET 2005程序設(shè)計教程與實訓(xùn)[M]. 北京: 清華大學(xué)出版社，2008，</p><p>　　[2] 杜兆將 主編.SQL Server數(shù)據(jù)庫管理與開發(fā)教程與實踐[M]. </p><p>　　北京：北京大學(xué)出版社，2006. </p><p>　　[3].楊光宏主編，《面向?qū)ο蟪绦蛟O(shè)

38、計實用教程—— Visual Basic可視化編程》，北京：機械工業(yè)出版社 ， 2005年，第52-232頁</p><p>　　[4].茅健編著， 《Visual Basic.NET+SQL Server全程指南》，北京：電子工業(yè)出版社，2008 ，第73-196頁</p><p>　　[5].葛小東，鄧秋媛等. 《 VB.NET編程技巧與實例集粹》 ，北京：北京希望電子出版社，2003

39、 , 第66-262頁</p><p><b>　　附錄</b></p><p>　　Public Class 角色管理</p><p>　　Private Sub 角色管理_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated&l

40、t;/p><p>　　'設(shè)置DataGridView1、DataGridView2、DataGridView3</p><p>　　strSQL = "select ID,jueseID as 角色編碼,juesename as 角色名稱 from jueseInfo"</p><p>　　Setsql適配器(strSQL, "ju

41、eseInfo")</p><p>　　DataGridView3.DataSource = ds內(nèi)存</p><p>　　DataGridView3.DataMember = "jueseInfo"</p><p>　　DataGridView2.DataSource = ds內(nèi)存</p><p>　　Data

42、GridView2.DataMember = "jueseInfo"</p><p>　　DataGridView1.DataSource = ds內(nèi)存</p><p>　　DataGridView1.DataMember = "jueseInfo"</p><p>　　'設(shè)置CheckedListBox</p&

43、gt;<p>　　TabControl1_Click(sender, e)</p><p><b>　　End Sub</b></p><p>　　Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.C

44、lick</p><p>　　RefreshTabPage(CheckedListBox1, ListBox1, DataGridView1)</p><p>　　RefreshTabPage(CheckedListBox2, ListBox2, DataGridView2)</p><p>　　RefreshTabPage(CheckedListBox3, Lis

45、tBox3, DataGridView3)</p><p><b>　　End Sub</b></p><p>　　Private Sub RefreshTabPage(ByVal CheckedListBoxa As CheckedListBox, ByVal ListBoxa As ListBox, ByVal DataGridViewa As DataGridV

46、iew)</p><p>　　Dim i As Integer</p><p>　　Dim i1 As Integer</p><p>　　Dim VjueseId As String</p><p>　　Dim bl1 As Boolean</p><p>　　Dim bl2 As Boolean</p>

47、<p>　　'---------------------------------------------------------------------------------------------------------</p><p>　　'使用與菜單項相匹配的數(shù)據(jù)表TQx_MnItm生成 CheckedListBox、ListBox的條目</p><p&g

48、t;　　strSQL = "SELECT * FROM caidanInfo order by caidanID"</p><p>　　Setsql適配器(strSQL, "caidanInfo")</p><p>　　CheckedListBoxa.Items.Clear()</p><p>　　ListBoxa.Items

49、.Clear()</p><p>　　i = ds內(nèi)存.Tables("caidanInfo").Rows.Count - 1</p><p>　　For i1 = 0 To i</p><p>　　CheckedListBoxa.Items.Add(ds內(nèi)存.Tables("caidanInfo").Rows(i1).Ite

50、m("caidanname"), False)</p><p>　　ListBoxa.Items.Add(ds內(nèi)存.Tables("caidanInfo").Rows(i1).Item("caidanID"))</p><p><b>　　Next</b></p><p>　　'

51、;使用數(shù)據(jù)表TQx_QxInfo，設(shè)置 CheckedListBox 的 Checked 屬性</p><p><b>　　Try</b></p><p>　　Me.TextBox3.Text = DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells(1).Value</p><p

52、>　　Me.TextBox4.Text = DataGridView2.Rows(DataGridView2.CurrentCell.RowIndex).Cells(2).Value</p><p>　　Catch ex As Exception</p><p><b>　　End Try</b></p><p><b>　　T

53、ry</b></p><p>　　VjueseId = DataGridViewa.Rows(DataGridViewa.CurrentCell.RowIndex).Cells(1).Value</p><p>　　strSQL = "SELECT * FROM quanxianInfo where jueseID=@CS1"</p><

54、p>　　Setsql適配器Char1(strSQL, "quanxianInfo", Trim(VjueseId))</p><p>　　Dim j As Integer</p><p>　　Dim j1 As Integer</p><p>　　j = CheckedListBoxa.Items.Count - 1</p>

55、<p>　　For j1 = 0 To j</p><p>　　CheckedListBoxa.SetItemChecked(j1, False)</p><p><b>　　Next</b></p><p>　　i = ds內(nèi)存.Tables("quanxianInfo").Rows.Count - 1</

56、p><p>　　For i1 = 0 To i</p><p>　　j = ListBoxa.Items.Count - 1</p><p>　　For j1 = 0 To j</p><p>　　bl1 = (ds內(nèi)存.Tables("quanxianInfo").Rows(i1).Item("caidanID&q

57、uot;) = ListBoxa.Items(j1))</p><p>　　bl2 = (ds內(nèi)存.Tables("quanxianInfo").Rows(i1).Item("IsEnabled") = True)</p><p>　　If bl1 And bl2 Then</p><p>　　CheckedListBoxa.

58、SetItemChecked(j1, True)</p><p><b>　　End If</b></p><p><b>　　Next</b></p><p><b>　　Next</b></p><p>　　Catch ex As Exception</p>

59、<p><b>　　End Try</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 角色管理_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Hand

60、les Me.FormClosing</p><p>　　QXFlag = True</p><p><b>　　End Sub</b></p><p>　　Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.Da

61、taGridViewCellEventArgs) Handles DataGridView1.CellClick</p><p>　　RefreshTabPage(CheckedListBox1, ListBox1, DataGridView1)</p><p><b>　　End Sub</b></p><p>　　Private Sub D

62、ataGridView2_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick</p><p>　　RefreshTabPage(CheckedListBox2, ListBox2, DataGridView2)<

63、/p><p><b>　　End Sub</b></p><p>　　Private Sub DataGridView3_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellClick&l

64、t;/p><p>　　RefreshTabPage(CheckedListBox3, ListBox3, DataGridView3)</p><p><b>　　End Sub</b></p><p>　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sys

65、tem.EventArgs) Handles Button1.Click</p><p>　　Dim j As Integer</p><p>　　Dim j1 As Integer</p><p>　　Dim mk As Boolean</p><p>　　Dim vIsEnabled As Int16</p><p&g

66、t;　　If Trim(TextBox1.Text) = "" Then</p><p>　　MsgBox("角色編碼不能為空。")</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　I

67、f Trim(TextBox2.Text) = "" Then</p><p>　　MsgBox("角色名稱不能為空。")</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　strSQL

68、 = "select * from jueseInfo where jueseID=@CS1"</p><p>　　SelectChar1(strSQL, Trim(TextBox1.Text))</p><p>　　If (dr.Read()) Then</p><p>　　MsgBox("該角色編碼已經(jīng)存在,請選擇‘修改角色’!&q

69、uot;)</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　mk = False</p><p>　　j = CheckedListBox1.Items.Count - 1</p><p>　　For

70、 j1 = 0 To j</p><p>　　mk = mk Or CheckedListBox1.GetItemChecked(j1)</p><p><b>　　Next</b></p><p>　　If Not mk Then</p><p>　　MsgBox("功能選擇不能為空。")</

71、p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　strSQL = "insert into jueseInfo(jueseID,juesename)values(@CS1,@CS2)"</p><p>　　Non

72、SelectChar2(strSQL, Trim(TextBox1.Text), Trim(TextBox2.Text))</p><p>　　j = CheckedListBox1.Items.Count - 1</p><p>　　For j1 = 0 To j</p><p>　　If CheckedListBox1.GetItemChecked(j1) Th

73、en</p><p>　　vIsEnabled = 1</p><p><b>　　Else</b></p><p>　　vIsEnabled = 0</p><p><b>　　End If</b></p><p>　　strSQL = "insert into

74、quanxianInfo(jueseID,caidanID,IsEnabled)values(@CS1,@CS2,@CS3)"</p><p>　　NonSelectChar2Bit1(strSQL, Trim(TextBox1.Text), ListBox1.Items(j1), vIsEnabled)</p><p><b>　　Next</b><

75、/p><p>　　'處理數(shù)據(jù)表DataGridView、處理填菜單項CheckedListBox</p><p>　　角色管理_Activated(sender, e)</p><p>　　MsgBox("添加角色成功!")</p><p><b>　　End Sub</b></p>