工資管理系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告計(jì)劃

1、薪資管理系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告計(jì)劃薪資管理系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告計(jì)劃24/24薪資管理系統(tǒng)數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告計(jì)劃目錄一、開(kāi)發(fā)背景1二、功能描繪2三、數(shù)據(jù)流分析33.1數(shù)據(jù)流圖33.2數(shù)據(jù)詞典4四、見(jiàn)解模型設(shè)計(jì)7五、邏輯構(gòu)造設(shè)計(jì)和優(yōu)化10六、應(yīng)用程序設(shè)計(jì)11七、心得意會(huì)13參照文件14附錄15一、開(kāi)發(fā)背景跟著經(jīng)濟(jì)的發(fā)展，公司正向著大型化、規(guī)?；l(fā)展，而對(duì)于大中型公司，職工、職稱(chēng)等跟薪資管理有關(guān)的信息隨之急劇增添。在這類(lèi)狀況下單靠人工來(lái)辦理職工的薪資不單顯得力所不及，并且極簡(jiǎn)單犯錯(cuò)。怎樣設(shè)計(jì)一個(gè)小型公司薪資的數(shù)據(jù)庫(kù)管理系統(tǒng)，由計(jì)算機(jī)取代人工履行一系列諸如增添新職工，刪除舊職工，薪資查問(wèn)，統(tǒng)計(jì)等操作

2、。這樣就使辦公人員能夠輕松快捷地達(dá)成薪資管理的任務(wù)。對(duì)于企、事業(yè)單位的薪資發(fā)放來(lái)說(shuō)，不需要太大型的數(shù)據(jù)庫(kù)系統(tǒng)。只需要一個(gè)操作方便，功能合用，能同時(shí)知足財(cái)務(wù)部門(mén)、單位其余有關(guān)部門(mén)及代發(fā)單位三方對(duì)數(shù)據(jù)的管理及需求的系統(tǒng)。公司的目標(biāo)就是在于利用編程軟件開(kāi)發(fā)一個(gè)功能合用，用戶(hù)操作方便，簡(jiǎn)單了然的薪資管理程序。實(shí)現(xiàn)薪資的集中管理?？晒┴?cái)務(wù)人員對(duì)本單位的人員以及薪資進(jìn)行增添、刪除、改正、查問(wèn)，對(duì)薪資發(fā)放中的應(yīng)發(fā)薪資共計(jì)等項(xiàng)目由系統(tǒng)自動(dòng)進(jìn)行計(jì)算；同時(shí)系統(tǒng)還可對(duì)職工及薪資管理狀況進(jìn)行多角度查問(wèn)。鑒于以上原由，公司薪資管理系統(tǒng)使用電腦安全保留、迅速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)薪資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。公司薪資管

3、理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），前臺(tái)程序開(kāi)發(fā)工具采納微軟的VB6，后臺(tái)數(shù)據(jù)庫(kù)采納SQLServer2000數(shù)據(jù)庫(kù)。VB6是一種面向?qū)ο蟮拈_(kāi)發(fā)工具，擁有組件豐富、語(yǔ)言簡(jiǎn)單、功能興盛的長(zhǎng)處。SQLServer2000數(shù)據(jù)庫(kù)擁有與VB6無(wú)縫連結(jié)、操作簡(jiǎn)單、易于使用的長(zhǎng)處二、功能描繪薪資管理系統(tǒng)系是為了更好的實(shí)現(xiàn)薪資各樣信息的管理以及各樣信息的安全性管理。本系統(tǒng)主要對(duì)查察職工的各樣薪資信息需求所設(shè)計(jì)的，能夠很好的管理數(shù)據(jù)。本系統(tǒng)的主要功能由以下幾個(gè)部分構(gòu)成：經(jīng)過(guò)調(diào)研及分析，薪資管理信息系統(tǒng)主要達(dá)成以下功能：1）管理員身份確實(shí)認(rèn)：只合用戶(hù)名和用戶(hù)密碼都吻合的管理員方可進(jìn)入本系統(tǒng)，為了防備不合法用戶(hù)

4、對(duì)數(shù)據(jù)的觀(guān)察和改正，管理員能夠設(shè)定用戶(hù)名、密碼和其權(quán)限，還能夠夠?qū)o(jì)錄進(jìn)行增添、刪除、改正等操作。當(dāng)管理員要進(jìn)入系統(tǒng)時(shí)必然先輸入用戶(hù)名和密碼，按“確認(rèn)”按鈕后，系統(tǒng)鑒別管理員身份，對(duì)合法管理員恩賜權(quán)限。2）職工基本信息模塊：職工的基本信息。3）薪資信息模塊：職工每個(gè)月度的基本薪資、崗位薪資、水電費(fèi)、津貼薪資、扣除薪酬、實(shí)發(fā)金額。4）部門(mén)信息模塊：公司各部門(mén)編號(hào)、名稱(chēng)、負(fù)責(zé)人、人數(shù)。5）考勤模塊：記錄職工遲到、缺席次數(shù)。6）津貼模塊：記錄職工加班狀況派發(fā)津貼。7）職工信息管理模塊：管理員對(duì)所需要的資料的查問(wèn)即對(duì)職工基本信息的增添、刪除、改正、查問(wèn)操作。8）職工薪資管理模塊：管理員對(duì)所需要的資料的

5、查問(wèn)即對(duì)職工薪資信息的增添、刪除、改正、查問(wèn)操作。三、數(shù)據(jù)流分析3.1數(shù)據(jù)流圖登岸權(quán)用戶(hù)限鑒別用戶(hù)名、密碼職工信息考勤管理職工信薪資信息管理息管理員工信考勤信息表息添、刪、改考勤信息管理考津勤貼信信息息職工信息表薪資信息表薪資管理系統(tǒng)薪資信息考勤管理津貼信息表津貼信息管理部門(mén)信息部門(mén)信息管理部門(mén)信息添、刪、改部門(mén)信息表報(bào)表打印圖3.1薪資管理系統(tǒng)簡(jiǎn)單數(shù)據(jù)流圖3.2數(shù)據(jù)詞典數(shù)據(jù)構(gòu)造描繪名稱(chēng)：職工(Employee)含義說(shuō)明：職工信息構(gòu)成構(gòu)造：職工編號(hào)+姓名+性別+出生年代+所屬部門(mén)+文化程度+職稱(chēng)名稱(chēng)：薪資(Salary)含義說(shuō)明：薪資信息構(gòu)成構(gòu)造：職工編號(hào)+基本薪資+崗位薪資+水電費(fèi)+津貼薪資

6、+扣除薪資+實(shí)發(fā)薪資名稱(chēng)：部門(mén)(branch)含義說(shuō)明：部門(mén)信息構(gòu)成構(gòu)造：部門(mén)編號(hào)+部門(mén)名稱(chēng)+部門(mén)負(fù)責(zé)人+部門(mén)人數(shù)數(shù)據(jù)流的描繪數(shù)據(jù)流名稱(chēng)：職工信息增添簡(jiǎn)述：新職工信息錄入數(shù)據(jù)流根源：公司管理者數(shù)據(jù)流去處：職工信息數(shù)據(jù)流構(gòu)成：職工編號(hào)+姓名+性別+出生年代+所屬部門(mén)+文化程度+職稱(chēng)數(shù)據(jù)流名稱(chēng)：職工信息改正簡(jiǎn)述：職工信息錯(cuò)誤或許職工調(diào)換數(shù)據(jù)流根源：職工信息數(shù)據(jù)流去處：職工信息數(shù)據(jù)流構(gòu)成：職工編號(hào)+姓名+性別+出生年代+所屬部門(mén)+文化程度+職稱(chēng)數(shù)據(jù)流名稱(chēng)：職工信息刪除簡(jiǎn)述：職工辭職數(shù)據(jù)流根源：職工信息數(shù)據(jù)流去處：職工信息數(shù)據(jù)流構(gòu)成：職工編號(hào)+姓名+性別+出生年代+所屬部門(mén)+文化程度+職稱(chēng)數(shù)據(jù)流名稱(chēng)：

7、薪資增添簡(jiǎn)述：新職工薪資增添數(shù)據(jù)流根源：公司管理者數(shù)據(jù)流去處：薪資信息數(shù)據(jù)流構(gòu)成：工號(hào)+基本薪資+崗位薪資+水電費(fèi)+津貼薪資+扣除薪酬+實(shí)發(fā)金額數(shù)據(jù)流名稱(chēng)：薪資改正數(shù)據(jù)流根源：公司管理者簡(jiǎn)述：公司對(duì)薪資改正數(shù)據(jù)流去處：薪資信息數(shù)據(jù)流構(gòu)成：工號(hào)+基本薪資+崗位薪資+水電費(fèi)+津貼薪資+扣除薪酬+實(shí)發(fā)金額主要數(shù)據(jù)儲(chǔ)蓄的定義儲(chǔ)蓄名稱(chēng)：職工記錄輸入：職工基本信息輸出：職工全部信息數(shù)據(jù)構(gòu)造：職工編號(hào)+姓名+性別+出生年代+所屬部門(mén)+文化程度+職稱(chēng)儲(chǔ)蓄名稱(chēng)：部門(mén)記錄輸入：部門(mén)基本信息輸出：部門(mén)全部信息數(shù)據(jù)構(gòu)造：部門(mén)編號(hào)+部門(mén)名稱(chēng)+部門(mén)負(fù)責(zé)人+部門(mén)人數(shù)儲(chǔ)蓄名稱(chēng)：薪資記錄輸入：職工薪資信息輸出：職工全部薪資信息

8、數(shù)據(jù)構(gòu)造：職工編號(hào)+基本薪資+崗位薪資+水電費(fèi)+津貼薪資+扣除薪資+實(shí)發(fā)薪資儲(chǔ)蓄名稱(chēng)：考勤記錄輸入：職工考勤信息輸出：職工全部考勤信息數(shù)據(jù)構(gòu)造：職工編號(hào)+姓名+性別+遲到次數(shù)+缺席次數(shù)儲(chǔ)蓄名稱(chēng)：津貼記錄輸入：職工津貼信息輸出：職工全部津貼信息數(shù)據(jù)構(gòu)造：職工編號(hào)+姓名+性別+加班時(shí)間+加班天數(shù)+津貼狀況四、見(jiàn)解模型設(shè)計(jì)依據(jù)系統(tǒng)數(shù)據(jù)流圖和數(shù)據(jù)詞典，得出系統(tǒng)的見(jiàn)解模型（E-R）以以下圖。用戶(hù)信息用戶(hù)名密碼權(quán)限圖4.1用戶(hù)信息E-R圖職工信息職工編號(hào)職稱(chēng)姓名文化程度性別所屬部門(mén)出生年代圖4.2職工信息E-R圖部門(mén)信息部門(mén)編號(hào)部門(mén)名稱(chēng)部門(mén)負(fù)責(zé)人部門(mén)人數(shù)圖4.2部門(mén)信息E-R圖薪資信息職工編號(hào)實(shí)發(fā)金額文化

9、程度基本薪資扣除薪資崗位薪資津貼薪資水電費(fèi)圖4.3薪資信息E-R圖考勤信息職工編號(hào)姓名性別遲到次數(shù)缺席次數(shù)圖4.4考勤信息E-R圖津貼信息職工編號(hào)津貼狀況文化程度姓名加班種類(lèi)性別加班天數(shù)加班時(shí)間圖4.5津貼信息E-R圖獲取薪資n1享有津貼1n職工1參加考勤nm屬于部門(mén)1圖4.6薪資管理系統(tǒng)總E-R圖五、邏輯構(gòu)造設(shè)計(jì)和優(yōu)化5.1基本表關(guān)系模式：職工信息（職工編號(hào)、姓名、性別、出生年代、所屬部門(mén)、文化程度、職稱(chēng)）部門(mén)信息（部門(mén)編號(hào)、部門(mén)名稱(chēng)、部門(mén)負(fù)責(zé)人、部門(mén)人數(shù)）基本薪資（薪資級(jí)別、薪資本額）崗位薪資（薪資級(jí)別、薪資本額）薪資信息（職工編號(hào)、基本薪資、崗位薪資、水電費(fèi)、津貼工資、扣除薪資、實(shí)發(fā)金額

10、）考勤信息（職工編號(hào)、姓名、性別、遲到次數(shù)、少勤次數(shù)）津貼信息（職工編號(hào)、姓名、性別、加班時(shí)間、加班天數(shù)、加班種類(lèi)、津貼狀況）用戶(hù)信息（用戶(hù)名、密碼、權(quán)限）表5.1職工信息表職工編號(hào)char(8)主鍵，不同樣意重復(fù)姓名char(8)性別char(2)出生年代datetime所屬部門(mén)char(4)外鍵文化程度char(4)職稱(chēng)char(12)表5.2部門(mén)信息表部門(mén)編號(hào)char(4)主鍵,不同樣意重復(fù)部門(mén)名稱(chēng)char(20)部門(mén)負(fù)責(zé)人char(8)部門(mén)人數(shù)int表5.3基本薪資表薪資級(jí)別char(2)主鍵,不同樣意重復(fù)薪資本額numeric(8,2)表5.4崗位薪資表薪資級(jí)別char(2)主鍵,不

11、同樣意重復(fù)薪資本額numeric(8,2)表5.5薪資信息表職工編號(hào)char(8)主鍵,不同樣意重復(fù)；外鍵基本薪資numeric(8,2)崗位薪資numeric(8,2)水電費(fèi)numeric(8,2)津貼薪資numeric(8,2)加班薪資扣除薪酬numeric(8,2)遲到、缺席扣薪實(shí)發(fā)金額numeric(8,2)表5.6考勤信息表職工編號(hào)char(8)主鍵不同樣意重復(fù)姓名Char(8)性別Char(2)遲到次數(shù)Numeric(3)缺席次數(shù)Numeric(3)表5.7津貼信息表職工編號(hào)char(8)主鍵不同樣意重復(fù)姓名Char(8)性別Char(2)加班時(shí)間numeric(8,1)加班天數(shù)n

12、umeric(2)加班種類(lèi)Char(8)津貼狀況numeric(8,2)表5.8用戶(hù)信息表用戶(hù)名char(8)主鍵,不同樣意重復(fù)密碼char(20)權(quán)限char(20)六、應(yīng)用程序設(shè)計(jì)6.1用戶(hù)了登岸模塊登錄模塊的詳盡設(shè)計(jì)主假如用戶(hù)登錄的一個(gè)界面，判斷登錄的用戶(hù)是管理員仍是一般用戶(hù)，進(jìn)入后將面對(duì)的是主界面，進(jìn)而進(jìn)行有關(guān)的操作。登錄的界面主要由用戶(hù)名和密碼的信息，還有一些標(biāo)題設(shè)置，確立和撤消的按鈕構(gòu)成。經(jīng)過(guò)標(biāo)題能夠知道此系統(tǒng)的大體內(nèi)容，由此，登錄界面的設(shè)計(jì)達(dá)成。窗體以下：圖6.1用戶(hù)登錄界面6.2主窗體模塊在這個(gè)項(xiàng)目中，選擇使用多文檔界面。使用這個(gè)窗體的利處是能夠使程序更為有條理。對(duì)于一個(gè)多任務(wù)

13、的應(yīng)用程序，使用多文檔窗體還能夠夠減少占用的系統(tǒng)資源。主窗體設(shè)計(jì)的界面是用菜單編寫(xiě)器做的，主要由系統(tǒng)、薪資信息設(shè)置、薪資信息管理和對(duì)于這四個(gè)大模塊構(gòu)成。主窗體是進(jìn)行有關(guān)操作的主界面。在這幾個(gè)里，管理員有全部的權(quán)益進(jìn)行各樣操作。窗體以下：圖6.2主窗體界面七、心得意會(huì)經(jīng)過(guò)這兩周的數(shù)據(jù)庫(kù)設(shè)計(jì),使我們從中遇到很大的影響，不只將大學(xué)所學(xué)的知識(shí)進(jìn)行了實(shí)質(zhì)應(yīng)用，還學(xué)到了好多書(shū)籍上學(xué)不到的知識(shí)。廣闊了視線(xiàn)，增添了知識(shí)，累積了一些經(jīng)驗(yàn)和教訓(xùn)。充分鍛煉了自己的著手和應(yīng)用能力，真實(shí)做到了理論聯(lián)系實(shí)質(zhì)。開(kāi)發(fā)本系統(tǒng)的過(guò)程中，第一要對(duì)公司薪資管理進(jìn)行系統(tǒng)調(diào)研，熟習(xí)公司財(cái)務(wù)、人事、薪資發(fā)放管理的流程、步驟；采納開(kāi)發(fā)工具要

14、采納自己最熟習(xí)、應(yīng)用好多的開(kāi)發(fā)工具，本系統(tǒng)開(kāi)發(fā)采納MSVisualBasic6.0，其擁有語(yǔ)言簡(jiǎn)單、功能興盛、組件眾多的長(zhǎng)處。程序模塊的編制中，要點(diǎn)掌握系統(tǒng)內(nèi)部圓滿(mǎn)性、功能性、合用性、便利性，使其能夠協(xié)調(diào)一致、運(yùn)轉(zhuǎn)無(wú)誤。運(yùn)轉(zhuǎn)結(jié)果證明，薪資管理系統(tǒng)提升了工作效率，節(jié)儉了人力和物力。本次程序我主要負(fù)責(zé)數(shù)據(jù)庫(kù)的開(kāi)發(fā)背景和用戶(hù)登錄、主窗體的設(shè)計(jì)。因?yàn)槭堑谝淮闻獢?shù)據(jù)庫(kù)程序設(shè)計(jì)，對(duì)于數(shù)據(jù)庫(kù)的流程還不是很清楚，因此很大一部分時(shí)間是在網(wǎng)上找資料，來(lái)圓滿(mǎn)我們此次數(shù)據(jù)庫(kù)的需求分析。一開(kāi)始對(duì)于我們這個(gè)數(shù)據(jù)庫(kù)系統(tǒng)的功能模塊、數(shù)據(jù)流圖和數(shù)據(jù)詞典都不是很清楚該怎么樣來(lái)書(shū)寫(xiě)和繪圖，可是經(jīng)過(guò)進(jìn)一步的學(xué)習(xí)終于懂得這些該怎么樣寫(xiě)

15、才是正確的，也加強(qiáng)了我自學(xué)的踴躍性。詳盡我們這個(gè)程序應(yīng)當(dāng)達(dá)成些什么功能仍是經(jīng)過(guò)小組共同商議才確立下來(lái)，因?yàn)橐婚_(kāi)始對(duì)此次數(shù)據(jù)庫(kù)程序設(shè)計(jì)還很陌生，因此都是在研究中行進(jìn)，自然也會(huì)遇到好多問(wèn)題。比方一個(gè)功能的實(shí)現(xiàn)遇到了困難就會(huì)很憂(yōu)愁的面對(duì)這個(gè)問(wèn)題。最后，我們要感謝老師的關(guān)懷、指導(dǎo)和教誨。再次向全部關(guān)懷、幫助、理解、支持我們做好數(shù)據(jù)庫(kù)課程設(shè)計(jì)的老師和同學(xué)們致以深深的謝意，感謝你們的幫助和關(guān)愛(ài)！參照文件1龔沛曾，陸慰民，楊志強(qiáng)VisualBasic6.0程序設(shè)計(jì)簡(jiǎn)潔教程（6.0版）高等教育第一版社2001林永，張樂(lè)強(qiáng)VisualBasic用戶(hù)編程手冊(cè)（第二版）M人民郵電第一版社2002薩師煊,王珊數(shù)據(jù)庫(kù)系

16、統(tǒng)概論(第三版)M高等教育第一版社2000王珊,陳紅數(shù)據(jù)庫(kù)系統(tǒng)原理教程M清華大學(xué)第一版社1998錢(qián)雪忠,李京數(shù)據(jù)庫(kù)原理及應(yīng)用（第三版）M北京郵電大學(xué)第一版社20106溫賢發(fā)VB數(shù)據(jù)庫(kù)程序設(shè)計(jì)妙手M科學(xué)第一版社2001附錄登錄模塊源代碼以下：PrivateSubcmd_cancel_Click()txt_key.Text=cmo_user.Text=請(qǐng)選擇UnloadMeEndSubPrivateSubcmd_ok_Click()Dimtry_timesAsStringDimsqlAsStringDimrstAsADODB.Recordsettry_times=0If(Trim(txt_key.

17、Text)=)ThenMsgBox請(qǐng)輸入密碼,vbOKOnly+vbExclamation,提示Elsesql=select*from用戶(hù)表where用戶(hù)名=&Trim(cmo_user.Text)&Setrst=ExecuteSQL(sql,)IfTrim(rst.Fields(1)=Trim(txt_key.Text)ThenIfTrim(rst.Fields(2)管理員Thenfrm_main.xitong.Enabled=False在這里設(shè)計(jì)非管理員用戶(hù)的權(quán)限，這里我假定讓非管理員用戶(hù)不可以夠用菜單中的系統(tǒng)frm_main.shezhi.Enabled=Falsefrm_main.xi

18、nxiweihu.Enabled=FalseEndIfrst.CloseUserName=Trim(cmo_user.Text)frm_main.ShowUnloadMeElseMsgBox密碼不正確，請(qǐng)從頭輸入,vbOKOnly+vbExclamation,警示txt_key.SetFocustxt_key.Text=try_times=try_times+1ExitSub在這里若密碼錯(cuò)了應(yīng)當(dāng)跳出該過(guò)程，不然下邊的語(yǔ)句還會(huì)履行，這不是你想要的EndIftry_times=try_times+1個(gè)人以為密碼輸入錯(cuò)了才加一，你這樣的話(huà)，用戶(hù)名錯(cuò)了也會(huì)加一，自然你這里用戶(hù)名不會(huì)錯(cuò)是吧，改得節(jié)余了I

19、ftry_times=3ThenUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql=select用戶(hù)名from用戶(hù)表Setrst=ExecuteSQL(sql,)Fori=1Torst.RecordCountcmo_user.AddItem(rst.Fields(0)rst.MoveNextNextiEndSub主窗體：PrivateSubbumenxinxi_Click()DimsqlAsStringDimrstAsNewADODB.Records

20、etsql=select*from用戶(hù)表Setrst=ExecuteSQL(sql,)power=rst.Fields(2)IfTrim(power)管理員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,ElseIfTrim(power)=管理員Thenfrm_bumenxinxi.ShowUnloadMeEndIfEndIfEndSub警示PrivateSubgangweigongzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL(sq

21、l,)power=rst.Fields(2)IfTrim(power)管理員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,ElseIfTrim(power)=管理員Then警示frm_gangweigongzi.ShowUnloadMeEndIfEndIfEndSubPrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL(sql,)power=rst.Fields(2)IfTrim(power)管理員ThenMsg

22、Box您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,警示ElseIfTrim(power)=管理員Thenfrm_jiben.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghushanchu_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL(sql,)power=rst.Fields(2)IfTrim(power)管理員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,警示ElseIfT

23、rim(power)=管理員Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghutianjia_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL(sql,)power=rst.Fields(2)IfTrim(power)管理員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,ElseIfTrim(power)=管理員Then警示frm_tianjiayusha

24、nchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql=select權(quán)限from用戶(hù)表Setrst=ExecuteSQL(sql,)Fori=1Torst.RecordCountrst.MoveNextNexti主窗體模塊源代碼以下：PrivateSubbumenxinxi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL

25、(sql,)power=rst.Fields(2)IfTrim(power)管理員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,警示ElseIfTrim(power)=管理員Thenfrm_bumenxinxi.ShowUnloadMeEndIfEndIfEndSubPrivateSubgangweigongzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL(sql,)power=rst.Fields(2)IfTrim(power)管理

26、員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,警示ElseIfTrim(power)=管理員Thenfrm_gangweigongzi.ShowUnloadMeEndIfEndIfEndSubPrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL(sql,)power=rst.Fields(2)IfTrim(power)管理員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,警示ElseIfTrim(power)=管理員Thenfrm_jiben.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghushanchu_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql=select*from用戶(hù)表Setrst=ExecuteSQL(sql,)power=rst.Fields(2)IfTrim(power)管理員ThenMsgBox您無(wú)權(quán)進(jìn)行該操作！,vbOKOnly+vbExclamation,警示ElseIfTrim(power)=管理員Thenfrm_ti