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

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

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

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

4、來(lái)既輕松又便捷。</p><p>　　關(guān)鍵字: 客房管理系統(tǒng) 數(shù)據(jù)庫(kù) 用戶(hù)權(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)實(shí)現(xiàn)的具體功能…………………………………………………2</p><p>　　1.3系統(tǒng)的主要特點(diǎn)………………………………………………………2</p><

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

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

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

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

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

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

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

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

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

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

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

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

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

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

20、t;　?、?強(qiáng)大的數(shù)據(jù)庫(kù)開(kāi)發(fā)功能。</p><p>　?、?擴(kuò)大了對(duì)SQL語(yǔ)言的支持。</p><p>　?、?大量使用可視化的界面操作工具。</p><p>　?、?支持面向?qū)ο蟮某绦蛟O(shè)計(jì)。</p><p><b>　?、?多平臺(tái)支持。</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項(xiàng)目設(shè)計(jì)方案說(shuō)明</p><p>　　本系統(tǒng)由登錄界面進(jìn)入主界面，登陸界面是該系統(tǒng)的總?cè)肟?，所有的用?hù)都將由此輸入正確

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

23、　4.1數(shù)據(jù)庫(kù)的設(shè)計(jì)</b></p><p>　　通過(guò)上述需求分析，我們基本確定該系統(tǒng)所需要的數(shù)據(jù)庫(kù)由7張表組成，其結(jié)構(gòu)和設(shè)計(jì)方法如下。數(shù)據(jù)庫(kù)名稱(chēng)：客房管理系統(tǒng)</p><p>　　4.1.1用戶(hù)信息表如圖4-1</p><p><b>　　表4-1用戶(hù)信息表</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客戶(hù)信息表如圖4-5</p><p><b>　　表4-5客戶(hù)信息表</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è)計(jì)</b></p><p>　　用戶(hù)運(yùn)行就會(huì)出現(xiàn)登陸界面，用戶(hù)登錄成功后才可以進(jìn)入主界面，經(jīng)理才可以對(duì)用戶(hù)進(jìn)行權(quán)限設(shè)置，管理員可以對(duì)客房的設(shè)置和顧客登記、基本信息進(jìn)行添加、修改、刪除。用戶(hù)登錄后，系統(tǒng)根據(jù)判

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

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

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

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

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

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

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

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

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

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

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

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

39、 , 第66-262頁(yè)</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 角色名稱(chēng) 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>　　'使用與菜單項(xiàng)相匹配的數(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("角色名稱(chēng)不能為空。")</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ǐ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、處理填菜單項(xiàng)CheckedListBox</p><p>　　角色管理_Activated(sender, e)</p><p>　　MsgBox("添加角色成功!")</p><p><b>　　End Sub</b></p>