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

1、目錄一、開(kāi)發(fā)背景2二、功能描述3三、數(shù)據(jù)流分析43.1數(shù)據(jù)流圖43.2數(shù)據(jù)字典5四、概念模型設(shè)計(jì)7五、邏輯結(jié)構(gòu)設(shè)計(jì)和優(yōu)化10六、應(yīng)用程序設(shè)計(jì)11七、心得體會(huì)13參考文獻(xiàn)14附錄14一、開(kāi)發(fā)背景隨著經(jīng)濟(jì)的發(fā)展，企業(yè)正向著大型化、規(guī)?；l(fā)展，而對(duì)于大中型企業(yè)，員工、職稱等跟工資管理有關(guān)的信息隨之急劇增加。在這種情況下單靠人工來(lái)處理員工的工資不但顯得力不從心，而且極容易出錯(cuò)。如何設(shè)計(jì)一個(gè)小型企業(yè)工資的數(shù)據(jù)庫(kù)管理系統(tǒng)，由計(jì)算機(jī)代替人工執(zhí)行一系列諸如增加新員工，刪除舊員工，工資查詢，統(tǒng)計(jì)等操作。這樣就使辦公人員可以輕松快捷地完成工資管理的任務(wù)。 對(duì)于企、事業(yè)單位的工資發(fā)放來(lái)說(shuō)，不需要太大型的數(shù)據(jù)庫(kù)系統(tǒng)。

2、只需要一個(gè)操作方便，功能實(shí)用，能同時(shí)滿足財(cái)務(wù)部門(mén)、單位其他相關(guān)部門(mén)與代發(fā)單位三方對(duì)數(shù)據(jù)的管理與需求的系統(tǒng)。企業(yè)的目標(biāo)就是在于利用編程軟件開(kāi)發(fā)一個(gè)功能實(shí)用，用戶操作方便，簡(jiǎn)單明了的工資管理程序。 實(shí)現(xiàn)工資的集中管理。可供財(cái)務(wù)人員對(duì)本單位的人員以與工資進(jìn)行增加、刪除、修改、查詢，對(duì)工資發(fā)放中的應(yīng)發(fā)工資合計(jì)等項(xiàng)目由系統(tǒng)自動(dòng)進(jìn)行計(jì)算；同時(shí)系統(tǒng)還可對(duì)員工與工資管理情況進(jìn)行多角度查詢。 基于以上原因，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)化、自動(dòng)化。企業(yè)工資管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），前臺(tái)程序開(kāi)發(fā)工具采用微軟的VB6，后臺(tái)數(shù)據(jù)庫(kù)采用SQL Server2

3、000數(shù)據(jù)庫(kù)。VB6是一種面向?qū)ο蟮拈_(kāi)發(fā)工具，具有組件豐富、語(yǔ)言簡(jiǎn)單、功能強(qiáng)大的優(yōu)點(diǎn)。SQL Server2000數(shù)據(jù)庫(kù)具有與VB6無(wú)縫連接、操作簡(jiǎn)單、易于使用的優(yōu)點(diǎn)二、功能描述工資管理系統(tǒng)系是為了更好的實(shí)現(xiàn)工資各種信息的管理以與各種信息的安全性管理。本系統(tǒng)主要對(duì)查看員工的各種工資信息需求所設(shè)計(jì)的，可以很好的管理數(shù)據(jù)。 本系統(tǒng)的主要功能由以下幾個(gè)部分組成：經(jīng)過(guò)調(diào)研與分析，工資管理信息系統(tǒng)主要完成以下功能：（1） 管理員身份的確認(rèn)：只有用戶名和用戶密碼都相符的管理員方可進(jìn)入本系統(tǒng)，為了防止不合法用戶對(duì)數(shù)據(jù)的察看和修改，管理員可以設(shè)定用戶名、密碼和其權(quán)限，還可以對(duì)紀(jì)錄進(jìn)行增加、刪除、修改等操作。當(dāng)

4、管理員要進(jìn)入系統(tǒng)時(shí)必須先輸入用戶名和密碼，按“確認(rèn)”按鈕后，系統(tǒng)辨別管理員身份，對(duì)合法管理員賦予權(quán)限。（2） 員工基本信息模塊：?jiǎn)T工的基本信息。（3） 工資信息模塊：?jiǎn)T工每個(gè)月度的基本工資、崗位工資、水電費(fèi)、津貼工資、扣除薪酬、實(shí)發(fā)金額。（4） 部門(mén)信息模塊：公司各部門(mén)編號(hào)、名稱、負(fù)責(zé)人、人數(shù)。（5） 考勤模塊：記錄員工遲到、缺席次數(shù)。（6） 津貼模塊：記錄員工加班情況派發(fā)津貼。（7） 員工信息管理模塊：管理員對(duì)所需要的資料的查詢即對(duì)員工基本信息的增加、刪除、修改、查詢操作。（8） 員工工資管理模塊：管理員對(duì)所需要的資料的查詢即對(duì)員工工資信息的增加、刪除、修改、查詢操作。三、數(shù)據(jù)流分析3.1數(shù)

5、據(jù)流圖部門(mén)信息表用戶登陸權(quán)限辨別工資管理系統(tǒng)員工信息管理工資信息管理部門(mén)信息管理員工信息表津貼信息表報(bào)表打印用戶名、密碼員工信息工資信息部門(mén)信息考勤信息表工資信息表考勤信息管理津貼信息管理部門(mén)信息添、刪、改員工信息添、刪、改考勤信息津貼信息考勤管理考勤管理圖3.1 工資管理系統(tǒng)簡(jiǎn)易數(shù)據(jù)流圖3.2數(shù)據(jù)字典3.2.1 數(shù)據(jù)結(jié)構(gòu)描述名稱：?jiǎn)T工(Employee)含義說(shuō)明：?jiǎn)T工信息組成結(jié)構(gòu)：?jiǎn)T工編號(hào)+性別+出生年月+所屬部門(mén)+文化程度+職稱名稱：工資(Salary)含義說(shuō)明：工資信息組成結(jié)構(gòu)：?jiǎn)T工編號(hào)+基本工資+崗位工資+水電費(fèi)+津貼工資+扣除工資+實(shí)發(fā)工資名稱：部門(mén)(branch)含義說(shuō)明：部門(mén)信息

6、組成結(jié)構(gòu)：部門(mén)編號(hào)+部門(mén)名稱+部門(mén)負(fù)責(zé)人+部門(mén)人數(shù)3.2.2 數(shù)據(jù)流的描述數(shù)據(jù)流名稱：?jiǎn)T工信息添加 簡(jiǎn)述：新員工信息錄入數(shù)據(jù)流來(lái)源：公司管理者數(shù)據(jù)流去向：?jiǎn)T工信息數(shù)據(jù)流組成：?jiǎn)T工編號(hào)+性別+出生年月+所屬部門(mén)+文化程度+職稱數(shù)據(jù)流名稱：?jiǎn)T工信息修改 簡(jiǎn)述：?jiǎn)T工信息錯(cuò)誤或者員工調(diào)動(dòng)數(shù)據(jù)流來(lái)源：?jiǎn)T工信息數(shù)據(jù)流去向：?jiǎn)T工信息數(shù)據(jù)流組成：?jiǎn)T工編號(hào)+性別+出生年月+所屬部門(mén)+文化程度+職稱數(shù)據(jù)流名稱：?jiǎn)T工信息刪除 簡(jiǎn)述：?jiǎn)T工離職數(shù)據(jù)流來(lái)源：?jiǎn)T工信息數(shù)據(jù)流去向：?jiǎn)T工信息數(shù)據(jù)流組成：?jiǎn)T工編號(hào)+性別+出生年月+所屬部門(mén)+文化程度+職稱數(shù)據(jù)流名稱：工資添加 簡(jiǎn)述：新員工工資添加數(shù)據(jù)流來(lái)源：公司管理者數(shù)據(jù)流去向：

7、工資信息數(shù)據(jù)流組成：工號(hào)+基本工資+崗位工資+水電費(fèi)+津貼工資+扣除薪酬+實(shí)發(fā)金額數(shù)據(jù)流名稱：工資修改 簡(jiǎn)述：公司對(duì)工資修改數(shù)據(jù)流來(lái)源：公司管理者數(shù)據(jù)流去向：工資信息數(shù)據(jù)流組成：工號(hào)+基本工資+崗位工資+水電費(fèi)+津貼工資+扣除薪酬+實(shí)發(fā)金額3.2.3 主要數(shù)據(jù)存儲(chǔ)的定義存儲(chǔ)名稱：?jiǎn)T工記錄 輸入：?jiǎn)T工基本信息 輸出：?jiǎn)T工所有信息 數(shù)據(jù)結(jié)構(gòu)：?jiǎn)T工編號(hào)+性別+出生年月+所屬部門(mén)+文化程度+職稱存儲(chǔ)名稱：部門(mén)記錄 輸入：部門(mén)基本信息 輸出：部門(mén)所有信息 數(shù)據(jù)結(jié)構(gòu)：部門(mén)編號(hào)+部門(mén)名稱+部門(mén)負(fù)責(zé)人+部門(mén)人數(shù)存儲(chǔ)名稱：工資記錄 輸入：?jiǎn)T工工資信息 輸出：?jiǎn)T工所有工資信息 數(shù)據(jù)結(jié)構(gòu)：?jiǎn)T工編號(hào)+基本工資+崗位工

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

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

10、次數(shù)、缺勤次數(shù)） 津貼信息（員工編號(hào)、性別、加班時(shí)間、加班天數(shù)、加班類型、津貼情況） 用戶信息（用戶名、密碼、權(quán)限）表5.1員工信息表員工編號(hào)char (8)主鍵，不允許重復(fù)char (8)性別char (2)出生年月datetime所屬部門(mén)char (4)外鍵文化程度char (4)職稱char (12)表5.2部門(mén)信息表部門(mén)編號(hào)char (4)主鍵,不允許重復(fù)部門(mén)名稱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)主鍵,不允許重復(fù)工資金額nume

11、ric(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ù)nu

12、meric (2)加班類型Char(8)津貼情況numeric (8, 2)表5.8用戶信息表用戶名char (8)主鍵,不允許重復(fù)密碼char (20)權(quán)限char (20)六、應(yīng)用程序設(shè)計(jì)6.1用戶了登陸模塊登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個(gè)界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對(duì)的是主界面，從而進(jìn)行相關(guān)的操作。登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過(guò)標(biāo)題可以知道此系統(tǒng)的大概容，由此，登錄界面的設(shè)計(jì)完成。窗體如下：圖6.1用戶登錄界面6.2 主窗體模塊在這個(gè)項(xiàng)目中，選擇使用多文檔界面。使用這個(gè)窗體的好處是可以使程序更加有條理。對(duì)于一

13、個(gè)多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個(gè)大模塊組成。主窗體是進(jìn)行相關(guān)操作的主界面。在這幾個(gè)里，管理員有所有的權(quán)利進(jìn)行各種操作。窗體如下：圖6.2主窗體界面七、心得體會(huì)通過(guò)這兩周的數(shù)據(jù)庫(kù)設(shè)計(jì),使我們從中受到很大的影響，不僅將大學(xué)所學(xué)的知識(shí)進(jìn)行了實(shí)際應(yīng)用，還學(xué)到了很多書(shū)本上學(xué)不到的知識(shí)。開(kāi)闊了視野，增長(zhǎng)了知識(shí)，積累了一些經(jīng)驗(yàn)和教訓(xùn)。充分鍛煉了自己的動(dòng)手和應(yīng)用能力，真正做到了理論聯(lián)系實(shí)際。開(kāi)發(fā)本系統(tǒng)的過(guò)程中，首先要對(duì)企業(yè)工資管理進(jìn)行系統(tǒng)調(diào)研，熟悉企業(yè)財(cái)務(wù)、人事、工資發(fā)放管理的流程、步驟；選用開(kāi)發(fā)

14、工具要選用自己最熟悉、應(yīng)用較多的開(kāi)發(fā)工具，本系統(tǒng)開(kāi)發(fā)選用MS Visual Basic 6.0，其具有語(yǔ)言簡(jiǎn)單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。程序模塊的編制中，重點(diǎn)把握系統(tǒng)部完整性、功能性、實(shí)用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運(yùn)行無(wú)誤。運(yùn)行結(jié)果證明，工資管理系統(tǒng)提高了工作效率，節(jié)省了人力和物力。本次程序我主要負(fù)責(zé)數(shù)據(jù)庫(kù)的開(kāi)發(fā)背景和用戶登錄、主窗體的設(shè)計(jì)。由于是第一次弄數(shù)據(jù)庫(kù)程序設(shè)計(jì)，對(duì)于數(shù)據(jù)庫(kù)的流程還不是很清楚，所以很大一部分時(shí)間是在網(wǎng)上找資料，來(lái)完善我們這次數(shù)據(jù)庫(kù)的需求分析。一開(kāi)始對(duì)于我們這個(gè)數(shù)據(jù)庫(kù)系統(tǒng)的功能模塊、數(shù)據(jù)流圖和數(shù)據(jù)字典都不是很清楚該怎么樣來(lái)書(shū)寫(xiě)和繪圖，不過(guò)經(jīng)過(guò)進(jìn)一步的學(xué)習(xí)終于懂得這些

15、該怎么樣寫(xiě)才是正確的，也增強(qiáng)了我自學(xué)的積極性。具體我們這個(gè)程序應(yīng)該完成些什么功能還是通過(guò)小組共同商討才確定下來(lái)，因?yàn)橐婚_(kāi)始對(duì)這次數(shù)據(jù)庫(kù)程序設(shè)計(jì)還很陌生，所以都是在摸索中前進(jìn)，當(dāng)然也會(huì)遇到很多問(wèn)題。比如一個(gè)功能的實(shí)現(xiàn)遇到了困難就會(huì)很焦急的面對(duì)這個(gè)問(wèn)題。最后，我們要感老師的關(guān)心、指導(dǎo)和教誨。再次向所有關(guān)心、幫助、理解、支持我們做好數(shù)據(jù)庫(kù)課程設(shè)計(jì)的老師和同學(xué)們致以深深的意，感你們的幫助和關(guān)愛(ài)！參考文獻(xiàn)1 龔沛曾，陸慰民，志強(qiáng)Visual Basic 6.0 程序設(shè)計(jì)簡(jiǎn)明教程（6.0版）M高等教育20012 林永，樂(lè)強(qiáng)Visual Basic 用戶編程手冊(cè)（第二版）M人民郵電20023 薩師煊,王珊數(shù)

16、據(jù)庫(kù)系統(tǒng)概論(第三版)M高等教育20004 王珊,紅數(shù)據(jù)庫(kù)系統(tǒng)原理教程M清華大學(xué)1998 5 錢雪忠,京數(shù)據(jù)庫(kù)原理與應(yīng)用（第三版）M郵電大學(xué)20106 溫賢發(fā)VB數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手M科學(xué)2001 附錄登錄模塊源代碼如下：Private Sub cmd_cancel_Click() txt_key.Text = "" cmo_user.Text = "請(qǐng)選擇" Unload MeEnd SubPrivate Sub cmd_ok_Click() Dim try_times As String Dim sql As String Dim rst As ADO

17、DB.Recordset try_times = 0If (Trim(txt_key.Text) = "") Then MsgBox "請(qǐng)輸入密碼", vbOKOnly + vbExclamation, "提示"Else sql = "select * from 用戶表 where 用戶名='" & Trim(cmo_user.Text) & "'" Set rst = ExecuteSQL(sql, "") If Trim(rst.Field

18、s(1) = Trim(txt_key.Text) Then If Trim(rst.Fields(2) <> "管理員" Then frm_main.xitong.Enabled = False '在這里設(shè)計(jì)非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的系統(tǒng) frm_main.shezhi.Enabled = False frm_main.xinxiweihu.Enabled = False End If rst.Close UserName = Trim(cmo_user.Text) frm_main.Show Unload Me Els

19、e MsgBox "密碼不正確，請(qǐng)重新輸入", vbOKOnly + vbExclamation, "警告" txt_key.SetFocus txt_key.Text = "" try_times = try_times + 1 Exit Sub '在這里若密碼錯(cuò)了應(yīng)該跳出該過(guò)程，否則下面的語(yǔ)句還會(huì)執(zhí)行，這不是你想要的 End If 'try_times = try_times + 1 '個(gè)人認(rèn)為密碼輸入錯(cuò)了才加一，你這樣的話，用戶名錯(cuò)了也會(huì)加一，當(dāng)然你這里用戶名不會(huì)錯(cuò)是吧，改得多余了 If try_time

20、s = 3 Then Unload Me End IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As ADODB.Recordset sql = "select 用戶名 from 用戶表 " Set rst = ExecuteSQL(sql, "") For i = 1 To rst.RecordCount cmo_user.AddItem (rst.Fields(0) rst.MoveNext Next iEnd Sub主窗體：Priv

21、ate Sub bumenxinxi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power

22、) = "管理員" Thenfrm_bumenxinxi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub gangweigongzi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox &q

23、uot;您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = "管理員" Thenfrm_gangweigongzi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")p

24、ower = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = "管理員" Thenfrm_jiben.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghushanchu_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql

25、 = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = "管理員" Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd Su

26、bPrivate Sub yonghutianjia_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Tr

27、im(power) = "管理員" Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As ADODB.Recordset sql = "select 權(quán)限 from 用戶表 " Set rst = ExecuteSQL(sql, "") For i = 1 To rst.RecordCount rst.MoveNext Next i主窗體

28、模塊源代碼如下：Private Sub bumenxinxi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseI

29、f Trim(power) = "管理員" Thenfrm_bumenxinxi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub gangweigongzi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" T

30、henMsgBox "您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = "管理員" Thenfrm_gangweigongzi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無(wú)權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = "管理員" Thenfrm_jiben.Show