VB課程設計人力資源管理系統(tǒng)最終版(共58頁)

1、精選優(yōu)質文檔-傾情為你奉上人力資源管理系統(tǒng)1.設計目的21世紀,高新技術的超速發(fā)展和全球化的市場經(jīng)濟導致企業(yè)之間的競爭空前激烈,但歸根結底是人才的競爭,誰能有效地管理和開發(fā)人力資源,誰就能掌握知識經(jīng)濟時代的生產力，幾乎所有的企業(yè)管理者都意識到人力資源是企業(yè)最重要最寶貴的資源。然而,如何開發(fā)和管理人力資源,使其轉化為一種現(xiàn)實的勞動生產力,則是眾多管理者的盲點?？此坪唵蔚娜肆Y源管理,其實蘊涵了極為豐富的內涵。通過對人力資源的規(guī)劃、招聘、考核、培訓、激勵等一系列的手段,充分挖掘員工的潛力,提高他們對企業(yè)的認同感和責任感.只有這樣,才能使企業(yè)擁有不斷創(chuàng)新的活力,保證其在研發(fā)、生產、營銷等各方面的領先

2、地位,最終贏得市場的認可。隨著人力資源部門工作范圍的日益擴展,人力資源經(jīng)理專業(yè)要求的日益提升,使得計算機等先進技術手段的作用日益顯現(xiàn)。因此,開發(fā)人力資源管理系統(tǒng)是非常有必要的,它不僅能夠完成日常繁瑣的業(yè)務,而且可以準確及時地搜集各種人力資源信息以供管理者進行決策，這個系統(tǒng)要實現(xiàn)的功能包括以下幾個部分，部門的添加，更改和刪除，員工的信息管理，員工信息統(tǒng)計管理。2.功能介紹2.1 系統(tǒng)功能模塊劃分人力資源管理系統(tǒng)完成的任務雖然隨著企業(yè)的不同而有所差異,但對其任務進行歸納和劃分后可將系統(tǒng)分為幾個共同的功能需求模塊,人力資源管理系統(tǒng)主要功能需求為下列六大部分,每個部分具體的功能需求如下：(1)部門編制

3、管理部分：可以進行設置、修改、刪除、查看企業(yè)的組織部門信息。 (2)員工信息管理部分：可以進行增加、修改、刪除、查詢企業(yè)的職員各種信息。(3)員工信息統(tǒng)計部門：可以對員工信息進行圖表化的顯示。2.2系統(tǒng)數(shù)據(jù)庫設計(1)系統(tǒng)數(shù)據(jù)結構設計針對人力資源管理系統(tǒng)的需求，為本系統(tǒng)設計如下的數(shù)據(jù)項和數(shù)據(jù)結構：部門表結構如表1所示。表1部門表結構表字 段類 型長 度說 明部門序號數(shù)字長整型主鍵部門名稱文本50允許為空業(yè)務描述文本50允許為空用戶密碼表結構如表2所示。表2戶密碼表結構表字 段類 型長 度說 明用戶名文本50主鍵密碼文本50不允許為空員工個人信息表結構如表3所示。表3員工個人信息表結構表字 段類

4、 型長 度說 明工作證號數(shù)字長整型主鍵姓名文本50允許為空所屬部門文本50允許為空身份證號文本50允許為空性別文本50允許為空民族文本50允許為空出生日期日期/時間允許為空文化程度文本50允許為空戶口所在地文本50允許為空移動電話文本50允許為空照片文本50允許為空員工考勤表結構如表4所示。表4員工考勤表結構表字 段類 型長 度說 明編號數(shù)字雙精度型主鍵部門名稱文本20允許為空姓名文本20允許為空工作證號數(shù)字雙精度允許為空全勤文本10允許為空事假文本10允許為空病假文本10允許為空員工信息表結構如表5所示。表5員工信息表結構表字 段類 型長 度說 明工作證號數(shù)字長整型主鍵員工姓名文本20允許為

5、空所屬部門文本20允許為空到崗日期日期/時間允許為空職務文本50允許為空辦公電話文本50允許為空政治面貌文本50允許為空合同有效期文本50允許為空工資數(shù)字長整型允許為空獎金數(shù)字長整型允許為空(2)建立數(shù)據(jù)庫運行Access 2003，建立一個空數(shù)據(jù)庫，命名為人力資源管理數(shù)據(jù)庫，操作界面如圖1所示。圖1 建立Access數(shù)據(jù)庫界面圖通過設計器創(chuàng)建表，并插入數(shù)據(jù)在數(shù)據(jù)庫的設計中，共設計了五張表。其中包括員工信息表，密碼表， 部門表，員工個人信息表和員工考勤表。部門表中設置了三個字段，分別為部門序號、部門名稱和業(yè)務描述。密碼表中設置了兩個字段，分別為用戶名和密碼。員工個人信息表中設置了10個字段，分

6、別為姓名、所屬部門、身份證號、性別、民族、出生日期、文化程度、戶口所在地、移動電話、照片。員工考勤表中設置了7個字段，分別為編號部門名稱、姓名、工作證號、全勤、事假、病假。員工信息表中共設置了10個字段，其中包括：工作證號、員工姓名、所屬部門、到崗日期、職務、辦公電話、政治面貌、合同有效期、工資、獎金。(3)連接數(shù)據(jù)庫單擊菜單“工程”，在部件對話框中，添加控件“Microsoft ADO Data Control 6.0”,然后點擊確定按鈕，具體操作對話框如圖2所示。在窗體上添加Adodc數(shù)據(jù)控件，右擊Adodc，在屬性窗口中，首先選擇“通用”選項卡，并選擇“連接字符串”，單擊“生成”按鈕，如

7、圖3所示。在“提供者”選項卡中，選擇“Microsoft Jet 4.0 OLE DB Provider”，如圖4所示。單擊“測試連接”按鈕。如果顯示“測試連接成功”消息框，則表示連接成功，如圖5所示。圖2添加“Microsoft ADO Data Control 6.0”圖圖3 ADODC屬性界面圖4 添加“Microsoft Jet 4.0 OLE DB Provider”圖圖5 測試連接成功圖3.詳細設計3.1系統(tǒng)功能模塊圖人力資源管理系統(tǒng)基本信息考勤考評員工信息統(tǒng)計系統(tǒng)用戶管理圖6 系統(tǒng)功能模塊圖3.2登錄模塊設計登錄模塊的詳細設計主要是用戶登錄的一個界面，進入后將面對的是主界面，從而

8、進行相關的操作。登錄的界面主要由用戶名和密碼的信息，確定和取消的按鈕組成。通過標題可以知道此系統(tǒng)的大概內容，由此，登錄界面的設計完成，如圖7所示。圖7 登陸界面圖登陸界面窗體的控件如表6所示。表6 登錄窗體控件表控 件 類 別控件Name控件TextLabelLabel1用戶名Label2密碼TextBoxText1（空）Text2（空）CommandButtonCommand1確定Command2退出AdodcAdodc1（空）3.3“主窗體”模塊詳細設計主窗體是整個系統(tǒng)的運行的基礎。主控制平臺使用簡單直觀的布局，它主要實現(xiàn)對模塊的調用和顯示，提供了菜單的操作方式，對各個模塊進行調用和顯示，

9、如圖8所示。圖8 主窗體主窗體的菜單由菜單編輯器編輯完成，分為4個頂級菜單和若干個子菜單，具體菜單如表7所示。表7 主窗體菜單明細表菜 單 名 稱Text屬性功 能 描 述MenuItem1基本信息管理頂級菜單，包含子菜單MenuItem2部門管理調出部門管理窗體MenuItem3員工管理調出員工管理窗體MenuItem4退出系統(tǒng)退出系統(tǒng)MenuItem5考勤考評管理頂級菜單，包含子菜單MenuItem6考勤管理調出考勤管理窗體MenuItem7員工信息統(tǒng)計頂級菜單MenuItem8系統(tǒng)用戶管理頂級菜單，包含子菜單MenuItem9用戶管理調出用戶管理窗體MenuItem10修改密碼調出修改密

10、碼窗體3.4各項子模塊詳細設計(1) 基本信息管理模塊基本信息管理中又包含部門管理和員工管理兩個窗體。在基本信息管理模塊中主要對員工信息和部門信息進行輸入和管理，并能進行查詢。在部門管理中，主要對部門的信息進行管理，可以對部門信息進行添加，修改查找和刪除的操作。操作完成后，通過“返回”回到主界面,如圖9所示。圖9 部門管理模塊設計圖部門管理模塊窗體的控件如表8所示。表8 部門管理模塊窗體控件表控 件 類 別控件Name控件TextCommandButtonCommand1添加Command2查找Command3刪除Command4返回FrameFrame1（空）LabelLabel1部門信息D

11、ataGridDataGrid1（空）AdodcAdodc1（空）在員工信息中，可以對員工的信息進行瀏覽，添加，修改，查找和刪除資料。并且可以通過這個界面進如部門調轉和詳細個人信息界面。其中，個人詳細信息與列表中的員工信息是綁定的，當選定一個員工的信息，然后點擊個人詳細信息，即可顯示這個員工的信息。同時，左側的所屬部門的框中的部門信息與員工信息也是綁定的，可以通過所屬部門框對員工信息進行分類查詢，如圖10所示。圖10 員工管理模塊設計圖員工管理模塊窗體的控件如表9所示。表9 員工管理模塊窗體控件表控 件 類 別控件Name控件TextCommandButtonCommand1詳細個人信息Com

12、mand2添加員工Command3查找Command4刪除資料Command5部門調轉Command6返回LabelLabel1所屬部門Label2員工信息DataListDataList1（空）DataGridDataGrid1（空）AdodcAdodc1（空）AdodcAdodc2（空）詳細個人信息是每個員工的個人信息，在這個窗體中，顯示與個人信息有關的內容，詳細個人信息與員工信息綁定，通過員工信息窗體，可以直接顯示對應的員工個人信息，不用再進行查詢。當需要添加個人信息時，點擊添加按鈕即可添加，點擊確定保存道數(shù)據(jù)庫。對相片可以進行修改或者是添加，當點擊“添加”按鈕時，彈出一個文件操作的對話

13、框，選定添加后，單擊保存進行保存到數(shù)據(jù)庫的操作，如圖11所示。圖11 員工個人信息窗體設計圖員工個人信息窗體的控件如表10所示。表10 員工個人信息窗體控件表控 件 類 別控件Name控件TextCommandButtonCommand1添加Command2保存Command3返回Command4添加Command5確定TextBoxText1（空）Text2（空）Text3（空）Text4（空）Text5（空）Text6（空）Text7（空）Text8（空）Text9（空）Text10（空）LabelLabel1員工個人詳細信息Label2工作證號ImageImage1（空）CommonDi

14、alogCommonDialog1（空）AdodcAdodc1（空）部門調轉窗體可以實現(xiàn)對員工的工作崗位發(fā)生變化時進行部門信息的調轉。在部門調轉窗體中，可以輸入員工編號進行查找，當查找到相應的員工時，該員工的部分信息將會在下面的文本框中顯示，以確認查找的結果，防止錯誤操作。當查找到員工時，從“調轉到”后面的選擇下拉框中選擇所要調轉到的部門，點擊確定即可，如圖12所示。圖12 部門調轉窗體設計圖部門調轉窗體的控件如表11所示。表11 部門調轉窗體控件表控 件 類 別控件Name控件TextCommandButtonCommand1查找Command2返回Command3確定LabelLabel1

15、輸入員工姓名Label2員工姓名Label3現(xiàn)在部門Label4調轉到DataComboDataCombo1（空）AdodcAdodc1（空）Adodc2（空）(2) 考勤管理窗體在考勤管理窗體中。可以實現(xiàn)對員工的考勤狀況的顯示，查詢，添加，修改，刪除，報表等功能。在窗體中，可以通過員工姓名和部門名稱兩種查詢方式進行查詢。當要選擇進行某種查詢時，選擇對應選擇框前面的按鈕，即可通過后面的下拉選擇框進行選擇，點擊查詢即可進行查詢,如圖13所示。圖13考勤管理窗體設計圖考勤管理窗體控件如表12所示。表12 考勤管理窗體控件表控 件 類 別控件Name控件TextCommandButtonComman

16、d1查詢Command2添加Command3修改Command4刪除Command5保存Command6返回Command7生成報表OptionOption1選擇員工姓名Option2選擇部門姓名ComboBoxCombo（空）DataGridDataGrid（空）Frame Frame（空）AdodcAdodc1（空）(3) 系統(tǒng)用戶管理模塊在系統(tǒng)用戶管理模塊中有兩個窗體，分別為用戶管理和修改密碼。在用戶管理模塊中可以對系統(tǒng)用戶進行添加用戶和用戶的密碼修改操作。用戶管理窗體中，可以進行添加用戶的操作。在輸入密碼時，兩次輸入的密碼要相同，不同的話系統(tǒng)會進行提示，必須進行再次輸入。完成后點擊“確

17、定” 如圖14所示。圖14 用戶管理窗體用戶管理窗體的控件如表13所示。表13 用戶管理窗體控件表控 件 類 別控件Name控件TextCommandButtonCommand1確定Command2返回LabelLabel1員工姓名Label2請輸入密碼Label3再次輸入密碼TextBoxText1（空）Text2（空）Text3（空）FrameFrame1（空）AdodcAdodc1（空）修改密碼窗體中，可以對當前用戶的密碼進行修改。同時，兩次輸入的密碼應該一致，不一致的話，系統(tǒng)會給出提示，并要求重新輸入。完成后點擊“確定”。當修改成功時，系統(tǒng)會給出修改成功的提示如圖15所示。圖15 修改

18、密碼窗體修改密碼窗體的控件如表14所示。表14修改密碼窗體控件如表控 件 類 別控件Name控件TextCommandButtonCommand1確定Command2返回LabelLabel1輸入新密碼Label2再次輸入密碼TextBoxText1（空）Text2（空）FrameFrame1（空）AdodcAdodc1（空）3.5 系統(tǒng)運行及結果在系統(tǒng)登錄界面中輸入用戶名和密碼，點擊確實進入人力資源管理系統(tǒng)如圖16所示。圖16 系統(tǒng)登陸界面輸入用戶名和密碼圖點擊確定以后進入系統(tǒng)的主界面如圖17所示圖17系統(tǒng)主界面圖選擇基本信息管理頂級菜單中的部門管理子菜單如圖18所示。圖18部門管理界面點擊

19、查找后，彈出讓用戶輸入部門序號進行查找的對話框，如圖19所示。圖19 查找對話框點擊添加后系統(tǒng)會自動在底端插入一行表格供用戶添加部門信息使用，如圖20所示。圖20 添加部門信息界面點擊返回，返回主界面，然后選擇基本信息管理中的員工管理子菜單，如圖21所示。圖21 員工管理界面點擊詳細個人信息，可以顯示員工的詳細信息，如圖22所示。圖22 員工詳細信息界面點擊返回，返回到員工管理界面，員工管理界面和部門管理界面一樣可以進行添加、刪除、和查找的操作。點擊調轉部門，然后輸入員工編號點擊查找，顯示出該編號員工的姓名和現(xiàn)部門，然后可以選擇把該員工調到其他部門，然后點擊確定就實現(xiàn)了員工的調轉部門操作，如圖

20、23所示。圖23 調轉部門界面返回到主界面后，選擇考勤管理菜單，如圖24所示。圖24 考勤管理界面按選擇員工姓名查詢，先選中選擇員工姓名單選框，然后選擇一個員工進行查詢，如圖25所示。圖25 查詢員工考勤情況界面返回主界面后選擇員工信息統(tǒng)計中的員工工資統(tǒng)計，如圖26所示系統(tǒng)以柱狀圖呈現(xiàn)給用戶。圖26 員工工資統(tǒng)計圖然后選擇員工學歷組成比例統(tǒng)計，如圖27所示系統(tǒng)以餅狀圖呈現(xiàn)給用戶。圖27員工學歷組成比例統(tǒng)計圖選擇修改密碼子菜單后，輸入新密碼，可以修改系統(tǒng)用戶的密碼如圖28所示。圖28 修改密碼界面4.心得體會我們組這次設計的程序是員工系統(tǒng)，主要用于企事業(yè)單位的考勤，便于統(tǒng)計員工的出勤情況。 1通

21、過這一次的程序設計，使我能夠進一步掌握用VB程序設計語言解決實際問題的方法，在操作當中把所學到的用于實際的編程里面去。2通過這一次的程序設計，使我能夠提高分析問題、查閱資料、吸收新知識的能力，在分析解決問題時比以前有了很大的進步，一些常用的知識和一些常規(guī)的錯誤都能夠解決。3通過這一次的程序設計和指導教師姜瑤老師的指導使我能夠進一步對VB有了熟練的操作，并且在分析，編程方面比以前有了更大的提高。4我認為實踐周的程序設計是給我們學習的一個大好機會，使我們在這樣的機會里學到了一定的知識，畢竟理論要通過實踐來鍛煉，也只有自己參與了這樣的一個鍛煉，才能更好的發(fā)現(xiàn)自己的不足并加以改進和完善！在這次的設計過

22、程中，我學到的不僅是知識，我還認識到許多事情。這次設計使我的編程水平提高了一大步，使我充分的認識到合作的可貴。由于這次設計涉及到數(shù)據(jù)庫，我也學到了不少數(shù)據(jù)庫連接的知識，對數(shù)據(jù)庫的操作有了進一步的了解。這次設計對我的綜合能力是一次很好的鍛煉，但是我必須承認自己的能力和知識還很膚淺。所以今后我的學習道路還是很漫長的。最后，在這里我要衷心的感謝我們的指導老師謝謝她的耐心指導和熱心幫助。由于我水平有限，加之時間短暫，故學習數(shù)據(jù)庫系統(tǒng)中還有許多不足之處，請老師批評指正，我會在以后的制作中不斷改進，不斷完善。12：911503 正阿奇 VB實用教程M.北京：電子工業(yè)出版社，2000,4：88-1254 郭

23、安源 教育信息化系統(tǒng)開發(fā)M.北京：人民郵電出版社，2002,5：220-2805 劉天惠. Visual Basic程序設計教程M.清華大學出版社,2006.2 ：165-2246.附錄 (1)登陸窗體源代碼： Adodc1.Recordset.Find "用戶名='" & Text1.Text & "'", , 1 If Adodc1.Recordset.EOF Then MsgBox "沒有此用戶，請重新輸入!", , "提示" Text1.SetFocus Else If Tr

24、im(Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) Then userID = Text1.Text Adodc1.Recordset.MoveFirst Unload Me Form1.Show Else MsgBox "密碼不正確！請重新輸入！", vbOKOnly + vbExclamation, "" Text2.SetFocus End If End IfEnd If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit S

25、ub End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Dim a As StringAdodc1.ConnectionString = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=renliziyuan.mdb"Adodc1.RecordSource = "密碼"cnt = 0Text2.PasswordChar = ""End Sub(2)主窗體源代碼：Pr

26、ivate Sub bmgl_Click()Form1.Hideform2.ShowEnd SubPrivate Sub gztj_Click()End SubPrivate Sub kqgl_Click()Form11.ShowEnd SubPrivate Sub tc_Click()EndEnd SubPrivate Sub xgmm_Click()Form9.ShowEnd SubPrivate Sub yggl_Click()Form1.HideForm3.ShowEnd SubPrivate Sub ygxxtj_Click()Form10.ShowEnd SubPrivate Su

27、b yhgl_Click()Form8.ShowEnd Sub(3)部門管理窗體源代碼：Private Sub command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Dim m As String m = InputBox("請輸入部門序號", "查找窗") Adodc1.Recordset.Find "部門序號= '" & m & " '", , , 1 If Adodc1.Records

28、et.EOF Then MsgBox "無次部門！", , "提示" End SubPrivate Sub Command3_Click()ask = MsgBox("是否刪除？", vbYesNo)If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click()Adodc1.R

29、ecordset.UpdateForm1.Showform2.HideEnd Sub(4)員工管理窗體源代碼：Private Sub command1_Click()Adodc2.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Dim m As String m = InputBox("請輸入員工號", "查找窗") Adodc2.Recordset.Find "工作證號= '" & m & " '", , , 1 If Adod

30、c2.Recordset.EOF Then MsgBox "無此員工！", , "提示" End SubPrivate Sub Command3_Click()ask = MsgBox("是否刪除？", vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End SubPrivate Sub Command4_Cli

31、ck()Form3.HideForm4.ShowEnd SubPrivate Sub Command5_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Command6_Click()Dim n As Integern = Adodc2.Recordset.Fields("工作證號")Form5.Adodc1.CommandType = adCmdTextForm5.Adodc1.RecordSource = "select* from 員工個人信息表 where 工作證號='" & n &am

32、p; "'"Form5.Adodc1.RefreshForm3.HideForm5.ShowEnd SubPrivate Sub DataList1_Click()Adodc2.RecordSource = "Select * from 員工信息 Where 所屬部門 ='" & DataList1.BoundText & "'"Adodc2.RefreshEnd Sub(5)員工個人詳細信息窗體源代碼：Private Sub command1_Click()Dim strb() As Byte

33、Adodc1.RecordSource = "select*from 員工個人信息表 where 工作證號='" & Text10 & "'"Adodc1.RefreshCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Binary As #1fl = LOF(1)ReDim strb(fl)Get #1, , strbAdodc1.Recordset.Fields("照片").AppendChunk strbClose #1Image1.Pic

34、ture = LoadPicture(CommonDialog1.FileName)End SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Form5.HideForm3.ShowEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Label12_Cl

35、ick()End Sub(6)調轉部門窗體源代碼：Private Sub command1_Click()Dim no As Stringno = Val(Text1.Text)Adodc1.Recordset.Find "工作證號='" & no & "'", , , 1If Adodc1.Recordset.EOF Then MsgBox "數(shù)據(jù)不存在！", , "提示"End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub

36、Command2_Click()Form4.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.Fields("所屬部門") = DataCombo1.BoundTextAdodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = ""End Sub(7)用戶管理窗體源代碼：Private Sub command1_Click()If T

37、rim(Text1.Text) = "" Then MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, "" Exit Sub Text1.SetFocusElse Do While Not Adodc1.Recordset.EOF If Trim(Adodc1.Recordset.Fields("用戶名") = Trim(Text1) Then MsgBox "已有這個用戶", vbOKOnly + vbExclamation, "" T

38、ext1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" Exit Sub Else Adodc1.Recordset.MoveNext End If Loop If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, "" Text2.SetFocus Text2.Text = "&quo

39、t; Text3.Text = "" Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用戶名") = Text1 Adodc1.Recordset.Fields("密碼") = Text2 Adodc1.Recordset.Update MsgBox "添加用戶成功", vbOKOnly + vbExclamation, "" Unload Me End IfEnd IfEnd SubPrivate Sub Comma

40、nd2_Click()Form8.HideForm1.ShowEnd SubPrivate Sub Form_Load()Text2.PasswordChar = "*"Text3.PasswordChar = "*"End Sub(8)密碼修改窗體源代碼：Private Sub command1_Click()Adodc1.RecordSource = " select * from 密碼 where 用戶名='" & userID & "'"Adodc1.RefreshIf Tr

41、im(Text1.Text) <> Trim(Text2.Text) Then MsgBox "密碼不一致！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = ""Else Adodc1.Recordset.Fields("密碼") = Text1 Adodc1.Recordset.Update MsgBox "密碼修改成功", vbOKOnly + vbExcla

42、mation, "" Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Form9.HideEnd SubPrivate Sub Form_Load()Adodc1.RecordSource = 系統(tǒng)管理Text1.PasswordChar = "*"Text2.PasswordChar = "*"End Sub(9)員工信息統(tǒng)計窗體源代碼：Dim a$(), b%(), n, max Public Sub zbx() Cls n = 0: max = 0 Adodc1.Refresh

43、 Do While Not Adodc1.Recordset.EOF n = n + 1 ReDim Preserve a(n) ReDim Preserve b(n) a(n) = Adodc1.Recordset.Fields("員工姓名") b(n) = Adodc1.Recordset.Fields("工資") If b(n) > max Then max = b(n) Adodc1.Recordset.MoveNextLoopScale (-3, max * 1.2)-(max * 1.2, -max * 0.1)Line (0, 0)-

44、(max * 1.2, 0): Line (0, max * 1.2)-(0, 0)CurrentX = -3: CurrentY = -1Print "數(shù)據(jù):"For i = 1 To UBound(a)Print a(i); b(i); ","Next iEnd SubPrivate Sub bl_Click()Dim s$(0 To 4), m%(0 To 4), zuida%, sum%s(0) = "本科"s(1) = "大專"s(2) = "高中"s(3) = "初中&qu

45、ot;s(4) = "小學"Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find " 文化程度 = '" & s(0) & " '" ', adSearchForward If Not Adodc2.Recordset.EOF Then m(0) = m(0) + 1 If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then GoTo line1 Else Adodc2.Recordset.MoveNext End If End If Loopline1:Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find " 文化程度 = '" & s(1) & " '" '