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

1、<p><b>　　目錄</b></p><p><b>　　一、開發(fā)背景2</b></p><p><b>　　二、功能描述3</b></p><p><b>　　三、數(shù)據(jù)流分析4</b></p><p><b>　　3.1數(shù)據(jù)

2、流圖4</b></p><p><b>　　3.2數(shù)據(jù)字典5</b></p><p>　　四、概念模型設(shè)計(jì)7</p><p>　　五、邏輯結(jié)構(gòu)設(shè)計(jì)和優(yōu)化10</p><p>　　六、應(yīng)用程序設(shè)計(jì)11</p><p><b>　　七、心得體會13</b>

3、</p><p><b>　　參考文獻(xiàn)14</b></p><p><b>　　附錄14</b></p><p><b>　　一、開發(fā)背景</b></p><p>　　隨著經(jīng)濟(jì)的發(fā)展，企業(yè)正向著大型化、規(guī)?；l(fā)展，而對于大中型企業(yè)，員工、職稱等跟工資管理有關(guān)的信息隨之急劇增

4、加。在這種情況下單靠人工來處理員工的工資不但顯得力不從心，而且極容易出錯。如何設(shè)計(jì)一個小型企業(yè)工資的數(shù)據(jù)庫管理系統(tǒng)，由計(jì)算機(jī)代替人工執(zhí)行一系列諸如增加新員工，刪除舊員工，工資查詢，統(tǒng)計(jì)等操作。這樣就使辦公人員可以輕松快捷地完成工資管理的任務(wù)。 </p><p>　　對于企、事業(yè)單位的工資發(fā)放來說，不需要太大型的數(shù)據(jù)庫系統(tǒng)。只需要一個操作方便，功能實(shí)用，能同時滿足財(cái)務(wù)部門、單位其他相關(guān)部門及代發(fā)單位三方對數(shù)據(jù)的管理

5、及需求的系統(tǒng)。企業(yè)的目標(biāo)就是在于利用編程軟件開發(fā)一個功能實(shí)用，用戶操作方便，簡單明了的工資管理程序。 </p><p>　　實(shí)現(xiàn)工資的集中管理。可供財(cái)務(wù)人員對本單位的人員以及工資進(jìn)行增加、刪除、修改、查詢，對工資發(fā)放中的應(yīng)發(fā)工資合計(jì)等項(xiàng)目由系統(tǒng)自動進(jìn)行計(jì)算；同時系統(tǒng)還可對員工及工資管理情況進(jìn)行多角度查詢。 </p><p>　　基于以上原因，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面

6、統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動化。企業(yè)工資管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），前臺程序開發(fā)工具采用微軟的VB6，后臺數(shù)據(jù)庫采用SQL Server2000數(shù)據(jù)庫。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu)點(diǎn)。SQL Server2000數(shù)據(jù)庫具有與VB6無縫連接、操作簡單、易于使用的優(yōu)點(diǎn)</p><p><b>　　二、功能描述</b></p&g

7、t;<p>　　工資管理系統(tǒng)系是為了更好的實(shí)現(xiàn)工資各種信息的管理以及各種信息的安全性管理。本系統(tǒng)主要對查看員工的各種工資信息需求所設(shè)計(jì)的，可以很好的管理數(shù)據(jù)。 本系統(tǒng)的主要功能由以下幾個部分組成：</p><p>　　經(jīng)過調(diào)研及分析，工資管理信息系統(tǒng)主要完成以下功能：</p><p>　　管理員身份的確認(rèn)：只有用戶名和用戶密碼都相符的管理員方可進(jìn)入本系統(tǒng)，為了防止不合法用戶對

8、數(shù)據(jù)的察看和修改，管理員可以設(shè)定用戶名、密碼和其權(quán)限，還可以對紀(jì)錄進(jìn)行增加、刪除、修改等操作。當(dāng)管理員要進(jìn)入系統(tǒng)時必須先輸入用戶名和密碼，按“確認(rèn)”按鈕后，系統(tǒng)辨別管理員身份，對合法管理員賦予權(quán)限。</p><p>　　員工基本信息模塊：員工的基本信息。</p><p>　?。?） 工資信息模塊：員工每個月度的基本工資、崗位工資、水電費(fèi)、津貼工資、扣除薪酬、實(shí)發(fā)金額。</p>

9、<p>　?。?） 部門信息模塊：公司各部門編號、名稱、負(fù)責(zé)人、人數(shù)。</p><p>　?。?） 考勤模塊：記錄員工遲到、缺席次數(shù)。</p><p>　?。?） 津貼模塊：記錄員工加班情況派發(fā)津貼。</p><p>　　（7） 員工信息管理模塊：管理員對所需要的資料的查詢即對員工基本信息的增加、刪除、修改、查詢操作。</p><p&

10、gt;　?。?） 員工工資管理模塊：管理員對所需要的資料的查詢即對員工工資信息的增加、刪除、修改、查詢操作。</p><p><b>　　三、數(shù)據(jù)流分析</b></p><p><b>　　3.1數(shù)據(jù)流圖</b></p><p>　　圖3.1 工資管理系統(tǒng)簡易數(shù)據(jù)流圖</p><p><b&g

11、t;　　3.2數(shù)據(jù)字典</b></p><p>　　3.2.1 數(shù)據(jù)結(jié)構(gòu)描述</p><p>　　名稱：員工(Employee)</p><p><b>　　含義說明：員工信息</b></p><p>　　組成結(jié)構(gòu)：員工編號+姓名+性別+出生年月+所屬部門+文化程度+職稱</p><p&

12、gt;　　名稱：工資(Salary)</p><p><b>　　含義說明：工資信息</b></p><p>　　組成結(jié)構(gòu)：員工編號+基本工資+崗位工資+水電費(fèi)+津貼工資+扣除工資+實(shí)發(fā)工資</p><p>　　名稱：部門(branch)</p><p><b>　　含義說明：部門信息</b><

13、;/p><p>　　組成結(jié)構(gòu)：部門編號+部門名稱+部門負(fù)責(zé)人+部門人數(shù)</p><p>　　3.2.2 數(shù)據(jù)流的描述</p><p>　　數(shù)據(jù)流名稱：員工信息添加 簡述：新員工信息錄入</p><p>　　數(shù)據(jù)流來源：公司管理者</p><p>　　數(shù)據(jù)流去向：員工信息</p><p&g

14、t;　　數(shù)據(jù)流組成：員工編號+姓名+性別+出生年月+所屬部門+文化程度+職稱</p><p>　　數(shù)據(jù)流名稱：員工信息修改 簡述：員工信息錯誤或者員工調(diào)動</p><p>　　數(shù)據(jù)流來源：員工信息</p><p>　　數(shù)據(jù)流去向：員工信息</p><p>　　數(shù)據(jù)流組成：員工編號+姓名+性別+出生年月+所屬部門+文化程度+職稱</

15、p><p>　　數(shù)據(jù)流名稱：員工信息刪除 簡述：員工離職</p><p>　　數(shù)據(jù)流來源：員工信息</p><p>　　數(shù)據(jù)流去向：員工信息</p><p>　　數(shù)據(jù)流組成：員工編號+姓名+性別+出生年月+所屬部門+文化程度+職稱</p><p>　　數(shù)據(jù)流名稱：工資添加 簡述：新員工工資添加</p

16、><p>　　數(shù)據(jù)流來源：公司管理者</p><p>　　數(shù)據(jù)流去向：工資信息</p><p>　　數(shù)據(jù)流組成：工號+基本工資+崗位工資+水電費(fèi)+津貼工資+扣除薪酬+實(shí)發(fā)金額</p><p>　　數(shù)據(jù)流名稱：工資修改 簡述：公司對工資修改</p><p>　　數(shù)據(jù)流來源：公司管理者</p>&l

17、t;p>　　數(shù)據(jù)流去向：工資信息</p><p>　　數(shù)據(jù)流組成：工號+基本工資+崗位工資+水電費(fèi)+津貼工資+扣除薪酬+實(shí)發(fā)金額</p><p>　　3.2.3 主要數(shù)據(jù)存儲的定義</p><p><b>　　存儲名稱：員工記錄</b></p><p><b>　　輸入：員工基本信息</b>

18、</p><p><b>　　輸出：員工所有信息</b></p><p>　　數(shù)據(jù)結(jié)構(gòu)：員工編號+姓名+性別+出生年月+所屬部門+文化程度+職稱</p><p><b>　　存儲名稱：部門記錄</b></p><p><b>　　輸入：部門基本信息</b></p>

19、<p><b>　　輸出：部門所有信息</b></p><p>　　數(shù)據(jù)結(jié)構(gòu)：部門編號+部門名稱+部門負(fù)責(zé)人+部門人數(shù)</p><p><b>　　存儲名稱：工資記錄</b></p><p><b>　　輸入：員工工資信息</b></p><p>　　輸出：員工所有

20、工資信息</p><p>　　數(shù)據(jù)結(jié)構(gòu)：員工編號+基本工資+崗位工資+水電費(fèi)+津貼工資+扣除工資+實(shí)發(fā)工資</p><p><b>　　存儲名稱：考勤記錄</b></p><p><b>　　輸入：員工考勤信息</b></p><p>　　輸出：員工所有考勤信息</p><p&g

21、t;　　數(shù)據(jù)結(jié)構(gòu)：員工編號+姓名+性別+遲到次數(shù)+缺席次數(shù)</p><p><b>　　存儲名稱：津貼記錄</b></p><p><b>　　輸入：員工津貼信息</b></p><p>　　輸出：員工所有津貼信息</p><p>　　數(shù)據(jù)結(jié)構(gòu)：員工編號+姓名+性別+加班時間+加班天數(shù)+津貼情況&l

22、t;/p><p><b>　　四、概念模型設(shè)計(jì)</b></p><p>　　根據(jù)系統(tǒng)數(shù)據(jù)流圖和數(shù)據(jù)字典，得出系統(tǒng)的概念模型（E-R）如圖所示。</p><p>　　圖4.1用戶信息E-R圖</p><p>　　圖4.2員工信息E-R圖</p><p>　　圖4.2部門信息E-R圖</p>

23、<p>　　圖4.3工資信息E-R圖</p><p>　　圖4.4考勤信息E-R圖</p><p>　　圖4.5津貼信息E-R圖</p><p>　　圖4.6工資管理系統(tǒng)總E-R圖</p><p>　　五、邏輯結(jié)構(gòu)設(shè)計(jì)和優(yōu)化</p><p><b>　　5.1基本表</b><

24、/p><p>　　關(guān)系模式：員工信息（員工編號、姓名、性別、出生年月、所屬部門、文化程度、職稱）</p><p>　　部門信息（部門編號、部門名稱、部門負(fù)責(zé)人、部門人數(shù)）</p><p>　　基本工資（工資級別、工資金額）</p><p>　　崗位工資（工資級別、工資金額）</p><p>　　工資信息（員工編號、基本工資

25、、崗位工資、水電費(fèi)、津貼工資、扣除工資、實(shí)發(fā)金額）</p><p>　　考勤信息（員工編號、姓名、性別、遲到次數(shù)、缺勤次數(shù)）</p><p>　　津貼信息（員工編號、姓名、性別、加班時間、加班天數(shù)、加班類型、津貼情況）</p><p>　　用戶信息（用戶名、密碼、權(quán)限）</p><p><b>　　表5.1員工信息表</b&g

26、t;</p><p><b>　　表5.2部門信息表</b></p><p><b>　　表5.3基本工資表</b></p><p><b>　　表5.4崗位工資表</b></p><p><b>　　表5.5工資信息表</b></p>&l

27、t;p><b>　　表5.6考勤信息表</b></p><p><b>　　表5.7津貼信息表</b></p><p><b>　　表5.8用戶信息表</b></p><p><b>　　六、應(yīng)用程序設(shè)計(jì)</b></p><p>　　6.1用戶了登陸

28、模塊</p><p>　　登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對的是主界面，從而進(jìn)行相關(guān)的操作。</p><p>　　登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。</p><p><b>　　窗體如下：</

29、b></p><p>　　圖6.1用戶登錄界面</p><p><b>　　6.2 主窗體模塊</b></p><p>　　在這個項(xiàng)目中，選擇使用多文檔界面。使用這個窗體的好處是可以使程序更加有條理。對于一個多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。</p><p>　　主窗體設(shè)計(jì)的界面是用菜單編輯

30、器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個大模塊組成。主窗體是進(jìn)行相關(guān)操作的主界面。在這幾個里，管理員有所有的權(quán)利進(jìn)行各種操作。窗體如下：</p><p><b>　　圖6.2主窗體界面</b></p><p><b>　　七、心得體會</b></p><p>　　通過這兩周的數(shù)據(jù)庫設(shè)計(jì),使我們從中受到很

31、大的影響，不僅將大學(xué)所學(xué)的知識進(jìn)行了實(shí)際應(yīng)用，還學(xué)到了很多書本上學(xué)不到的知識。開闊了視野，增長了知識，積累了一些經(jīng)驗(yàn)和教訓(xùn)。充分鍛煉了自己的動手和應(yīng)用能力，真正做到了理論聯(lián)系實(shí)際。</p><p>　　開發(fā)本系統(tǒng)的過程中，首先要對企業(yè)工資管理進(jìn)行系統(tǒng)調(diào)研，熟悉企業(yè)財(cái)務(wù)、人事、工資發(fā)放管理的流程、步驟；選用開發(fā)工具要選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用MS Visual Basic 6.0，其具有語言

32、簡單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。程序模塊的編制中，重點(diǎn)把握系統(tǒng)內(nèi)部完整性、功能性、實(shí)用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運(yùn)行無誤。運(yùn)行結(jié)果證明，工資管理系統(tǒng)提高了工作效率，節(jié)省了人力和物力。</p><p>　　本次程序我主要負(fù)責(zé)數(shù)據(jù)庫的開發(fā)背景和用戶登錄、主窗體的設(shè)計(jì)。由于是第一次弄數(shù)據(jù)庫程序設(shè)計(jì)，對于數(shù)據(jù)庫的流程還不是很清楚，所以很大一部分時間是在網(wǎng)上找資料，來完善我們這次數(shù)據(jù)庫的需求分析。一開始對于我們這個數(shù)據(jù)

33、庫系統(tǒng)的功能模塊、數(shù)據(jù)流圖和數(shù)據(jù)字典都不是很清楚該怎么樣來書寫和繪圖，不過經(jīng)過進(jìn)一步的學(xué)習(xí)終于懂得這些該怎么樣寫才是正確的，也增強(qiáng)了我自學(xué)的積極性。具體我們這個程序應(yīng)該完成些什么功能還是通過小組共同商討才確定下來，因?yàn)橐婚_始對這次數(shù)據(jù)庫程序設(shè)計(jì)還很陌生，所以都是在摸索中前進(jìn)，當(dāng)然也會遇到很多問題。比如一個功能的實(shí)現(xiàn)遇到了困難就會很焦急的面對這個問題。</p><p>　　最后，我們要感謝老師的關(guān)心、指導(dǎo)和教誨。再

34、次向所有關(guān)心、幫助、理解、支持我們做好數(shù)據(jù)庫課程設(shè)計(jì)的老師和同學(xué)們致以深深的謝意，感謝你們的幫助和關(guān)愛！</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 龔沛曾，陸慰民，楊志強(qiáng)﹒Visual Basic 6.0 程序設(shè)計(jì)簡明教程（6.0版）[M]﹒高等教育出版社﹒2001</p><p>　　[2] 林永，張樂強(qiáng)﹒Vi

35、sual Basic 用戶編程手冊（第二版）[M]﹒人民郵電出版社﹒2002</p><p>　　[3] 薩師煊,王珊﹒數(shù)據(jù)庫系統(tǒng)概論(第三版)[M]﹒高等教育出版社﹒2000</p><p>　　[4] 王珊,陳紅﹒數(shù)據(jù)庫系統(tǒng)原理教程[M]﹒清華大學(xué)出版社﹒1998 </p><p>　　[5] 錢雪忠,李京﹒數(shù)據(jù)庫原理及應(yīng)用（第三版）[M]﹒北京郵電大學(xué)出版社﹒

36、2010</p><p>　　[6] 溫賢發(fā)﹒VB數(shù)據(jù)庫程序設(shè)計(jì)高手[M]﹒科學(xué)出版社﹒2001 </p><p><b>　　附錄</b></p><p>　　登錄模塊源代碼如下：</p><p>　　Private Sub cmd_cancel_Click()</p><p>　　txt_ke

37、y.Text = ""</p><p>　　cmo_user.Text = "請選擇"</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmd_ok_Cli

38、ck()</p><p>　　Dim try_times As String</p><p>　　Dim sql As String</p><p>　　Dim rst As ADODB.Recordset</p><p>　　try_times = 0</p><p>　　If (Trim(txt_key.Text)

39、 = "") Then</p><p>　　MsgBox "請輸入密碼", vbOKOnly + vbExclamation, "提示"</p><p><b>　　Else</b></p><p>　　sql = "select * from 用戶表 where 用戶名=&

40、#39;" & Trim(cmo_user.Text) & "'"</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　If Trim(rst.Fields(1)) = Trim(txt_key.Text) Then</p><p>　　If T

41、rim(rst.Fields(2)) <> "管理員" Then</p><p>　　frm_main.xitong.Enabled = False '在這里設(shè)計(jì)非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的‘系統(tǒng)’</p><p>　　frm_main.shezhi.Enabled = False</p><p>

42、;　　frm_main.xinxiweihu.Enabled = False</p><p><b>　　End If</b></p><p><b>　　rst.Close</b></p><p>　　UserName = Trim(cmo_user.Text)</p><p>　　frm_mai

43、n.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確，請重新輸入", vbOKOnly + vbExclamation, "警告"</p><p>　

44、　txt_key.SetFocus</p><p>　　txt_key.Text = ""</p><p>　　try_times = try_times + 1</p><p>　　Exit Sub '在這里若密碼錯了應(yīng)該跳出該過程，否則下面的語句還會執(zhí)行，這不是你想要的</p><p><b>　　E

45、nd If</b></p><p>　　'try_times = try_times + 1 '個人認(rèn)為密碼輸入錯了才加一，你這樣的話，用戶名錯了也會加一，當(dāng)然你這里用戶名不會錯是吧，改得多余了</p><p>　　If try_times = 3 Then</p><p><b>　　Unload Me</b>&l

46、t;/p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim i As

47、 Integer</p><p>　　Dim sql As String</p><p>　　Dim rst As ADODB.Recordset</p><p>　　sql = "select 用戶名 from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")

48、</p><p>　　For i = 1 To rst.RecordCount</p><p>　　cmo_user.AddItem (rst.Fields(0))</p><p>　　rst.MoveNext</p><p><b>　　Next i</b></p><p><b>　

49、　End Sub</b></p><p>　　主窗體：Private Sub bumenxinxi_Click()</p><p>　　Dim sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表

50、 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　power = rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)

51、行該操作！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Else</b></p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_bumenxinxi.Show</p><p&g

52、t;<b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub gangweig

53、ongzi_Click()</p><p>　　Dim sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "

54、")</p><p>　　power = rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"</p>

55、;<p><b>　　Else</b></p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_gangweigongzi.Show</p><p><b>　　Unload Me</b></p><p><b&

56、gt;　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub jiben_Click()</p><p>　　Dim sql As String</p>&l

57、t;p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　power = rst.Fields(2)</p><

58、p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Else</b></p><p>　　If Trim

59、(power) = "管理員" Then</p><p>　　frm_jiben.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p

60、><p><b>　　End Sub</b></p><p>　　Private Sub yonghushanchu_Click()</p><p>　　Dim sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql =

61、 "select * from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　power = rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><

62、p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Else</b></p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_tianjiayus

63、hanchu.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>&

64、lt;p>　　Private Sub yonghutianjia_Click()</p><p>　　Dim sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表 "</p><p>　　Se

65、t rst = ExecuteSQL(sql, "")</p><p>　　power = rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclam

66、ation, "警告"</p><p><b>　　Else</b></p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_tianjiayushanchu.Show</p><p><b>　　Unload Me<

67、/b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　

68、Dim i As Integer</p><p>　　Dim sql As String</p><p>　　Dim rst As ADODB.Recordset</p><p>　　sql = "select 權(quán)限 from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "

69、")</p><p>　　For i = 1 To rst.RecordCount</p><p>　　rst.MoveNext</p><p><b>　　Next i</b></p><p>　　主窗體模塊源代碼如下：</p><p>　　Private Sub bumenxinxi

70、_Click()</p><p>　　Dim sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, ""

71、;)</p><p>　　power = rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"</p>&l

72、t;p><b>　　Else</b></p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_bumenxinxi.Show</p><p><b>　　Unload Me</b></p><p><b>　　End

73、 If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub gangweigongzi_Click()</p><p>　　Dim sql As String</p>&l

74、t;p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　power = rst.Fields(2)</p><

75、p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Else</b></p><p>　　If Trim

76、(power) = "管理員" Then</p><p>　　frm_gangweigongzi.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b&g

77、t;</p><p><b>　　End Sub</b></p><p>　　Private Sub jiben_Click()</p><p>　　Dim sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql =

78、 "select * from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　power = rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><

79、p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Else</b></p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_jiben.Show

80、</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　P

81、rivate Sub yonghushanchu_Click()</p><p>　　Dim sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表 "</p><p>　　Set rst = Exe

82、cuteSQL(sql, "")</p><p>　　power = rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, &quo

83、t;警告"</p><p><b>　　Else</b></p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_tianjiayushanchu.Show</p><p><b>　　Unload Me</b></

84、p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub yonghutianjia_Click()</p><p>　　D

85、im sql As String</p><p>　　Dim rst As New ADODB.Recordset</p><p>　　sql = "select * from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　power =

86、 rst.Fields(2)</p><p>　　If Trim(power) <> "管理員" Then</p><p>　　MsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Else</b>

87、</p><p>　　If Trim(power) = "管理員" Then</p><p>　　frm_tianjiayushanchu.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p>&

88、lt;p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim i As Integer</p><p>　　Dim sql As String</p>

89、<p>　　Dim rst As ADODB.Recordset</p><p>　　sql = "select 權(quán)限 from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　For i = 1 To rst.RecordCount</p>