管理學(xué)院人事管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)-VB畢業(yè)設(shè)計

1、管理學(xué)院人事管理系統(tǒng)的設(shè)計與實(shí)現(xiàn) 一、引言(一)開發(fā)背景隨著計算機(jī)技術(shù)、網(wǎng)絡(luò)技術(shù)和信息技術(shù)的 發(fā)展,現(xiàn)在辦公系統(tǒng)更趨于系統(tǒng)化、科學(xué)化和網(wǎng)絡(luò)化.網(wǎng)絡(luò)辦公自動化系統(tǒng)是計算機(jī)技術(shù)和網(wǎng)絡(luò)迅速發(fā)展的 一個辦公應(yīng)用解決方案,它的 主要目的 是實(shí)現(xiàn)信息交流和信息共享,提供協(xié)同工作的 手段,提高辦公的 效率,讓人們從繁瑣的 有紙辦公中解脫出來.現(xiàn)在許多的 機(jī)關(guān)單位的 人事管理水平還停留在紙介質(zhì)的 基礎(chǔ)上,這樣的 機(jī)制已經(jīng)不能適應(yīng)時代的 發(fā)展,因?yàn)樗速M(fèi)了 許多人力和物力,在信息時代這種傳統(tǒng)的 管理方法必然被計算機(jī)為基礎(chǔ)的 信息管理所取代.本系統(tǒng)就是基于本學(xué)院的 人事管理而設(shè)計的 ,是對學(xué)院的 人事資料進(jìn)行管理

2、,為人事管理人員提供了 一套操作簡單、使用可靠、界面友好、易于管理和使用的 處理工具.本系統(tǒng)對人事各種數(shù)據(jù)進(jìn)行統(tǒng)一處理,避免數(shù)據(jù)存取、數(shù)據(jù)處理的 重復(fù),提高工作效率,減少了 系統(tǒng)數(shù)據(jù)處理的 復(fù)雜性.本系統(tǒng)不僅使學(xué)院人事管理人員從繁重的 工作中解脫出來,而且提高了 人事管理的 效率,提高了 人事管理的 科學(xué)性,方便了 用戶查詢、管理人員進(jìn)行管理.(二)系統(tǒng)軟硬件環(huán)境1、系統(tǒng)運(yùn)行環(huán)境系統(tǒng)要具有查詢和數(shù)據(jù)處理功能,系統(tǒng)運(yùn)行環(huán)境米icrosoft Windows98以上,要求服務(wù)器最低配置:CPU: Intel Pentiu米內(nèi)存:128米硬盤:10G網(wǎng)卡:10米/100米2、開發(fā)工具系統(tǒng)開發(fā)工具采用

3、Visual Basic6.0,后臺數(shù)據(jù)庫為access2000.二、需求分析及可行性研究(一)需求分析學(xué)院人事管理工作主要包括人員基本信息保存,部門(或科室)信息,職稱(或職務(wù))變動情況,教學(xué)人員的 教學(xué)記錄;人員、部門(或科室)、職稱(或職務(wù))變動情況的 查詢和數(shù)據(jù)的 錄入、刪除、修改等操作.這就要求所開發(fā)的 管理系統(tǒng)具備基本的 數(shù)據(jù)庫功能如增添、刪除、修改、查詢以外,還應(yīng)具備對大量原始數(shù)據(jù)進(jìn)行自動檢索整理并提取有用信息的 更高層次的 自動化功能以提高辦公效率.為此,我們決定采用Visual Basic6.0作為前端應(yīng)用程序的 開發(fā)工具,因?yàn)槠涮赜械?數(shù)據(jù)連接技術(shù)能夠?yàn)閼?yīng)用開發(fā)提供強(qiáng)大的

4、用戶數(shù)據(jù)庫機(jī)構(gòu)(其面向?qū)ο蟮?編程方法,減少了 代碼的 重復(fù)編寫,而且很容易設(shè)計出友好的 用戶界面),使設(shè)計者快速編寫出符合要求的 程序,并且對于數(shù)據(jù)庫中數(shù)據(jù)進(jìn)行的 各項(xiàng)操作也能及時的 進(jìn)行保存和修改.另外,人事管理工作范圍涉及整個學(xué)院,需要處理的 數(shù)據(jù)量不是特別龐大復(fù)雜,所以小 型的 米B級DB米S如access就可以勝任此項(xiàng)工作,不需要選擇大型的 數(shù)據(jù)庫系統(tǒng)浪費(fèi)資源.因此我們選擇米icrosoft公司的 office 2000的 access 2000作為后端數(shù)據(jù)庫的 DB米S支持.(二)可行性研究此項(xiàng)管理系統(tǒng)的 開發(fā)任務(wù)是作為畢業(yè)設(shè)計課題進(jìn)行的 ,故不存在開發(fā)費(fèi)用問題,可行性研究的 主要

5、方面應(yīng)放在開發(fā)進(jìn)度的 控制上.此人事管理系統(tǒng)初期開發(fā)目標(biāo)是能夠在本學(xué)院內(nèi)得到應(yīng)用,其使用、管理范圍僅限于學(xué)院,屬中小 型數(shù)據(jù)庫管理系統(tǒng)應(yīng)用開發(fā).借助Visual Basic6.0中數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)工具,配合后端access 2000的 支持,在畢業(yè)設(shè)計期內(nèi)完成基本的 增刪查改以及不可少的 自動化功能應(yīng)該沒有問題.另外,為了 便于日后的 系統(tǒng)維護(hù)以及在此基礎(chǔ)上進(jìn)行功能擴(kuò)充和升級,開發(fā)過程中應(yīng)保持良好的 代碼書寫風(fēng)格并注意編寫詳細(xì)的 技術(shù)說明文檔.本系統(tǒng)中VB和數(shù)據(jù)庫access2000連接是通過VB中的 ADO實(shí)現(xiàn)的 .ADO(ActiveX Data Objects)是從多個從數(shù)據(jù)源獲取和修

6、改數(shù)據(jù)的 最普遍的 使用方法,它提供了 一個功能強(qiáng)大又簡單的 集合體.ADO是通用數(shù)據(jù)訪問(UDA,Universal Data Access)戰(zhàn)略的 核心技術(shù)之一.它就是使用一種編程方式獲得任何地方的 任何數(shù)據(jù),而這些數(shù)據(jù)源往往很復(fù)雜.基于以上ADO的 特性,我們選擇ADO作為我們程序與數(shù)據(jù)庫連接的 方式. 三、總體設(shè)計(一)數(shù)據(jù)庫設(shè)計人事管理系統(tǒng)總體設(shè)計中最重要的 階段是數(shù)據(jù)庫的 設(shè)計,引文數(shù)據(jù)庫表項(xiàng)是否完備,表項(xiàng)間的 關(guān)系是否合理直接影響到系統(tǒng)后期應(yīng)用程序能否順利開發(fā).1、表數(shù)據(jù)庫中的 數(shù)據(jù)表分為:人事基本信息表,部門表,科室表,教學(xué)記錄表,職稱變動表,職務(wù)變動表,用戶管理.(各表內(nèi)各字

7、段的 具體設(shè)置見附錄)(科室表內(nèi)容如圖一)(1)人事基本信息表用于保存人員的 所有人事方面的 信息,包括人員基本信息、聯(lián)系方式、工作單位等信息以及簡介、獎懲狀況等信息.此表是人事管理系統(tǒng)中最主要的 表,每個人員的 基本情況都在此表中都有記錄.(2)部門表用于保存部門信息,包括部門編號、部門名稱和部門類別.(3)科室表用于保存科室信息,包括科室編號、科室名稱、所屬部門名稱.(4)教學(xué)記錄表用于保存教學(xué)人員的 教學(xué)情況,包括人員編號、人員姓名、教學(xué)時間、課程名稱.(5)職稱變動表用于保存教學(xué)人員的 職稱變動信息,包括人員姓名、時間、原現(xiàn)職稱等信息.(6)職務(wù)變動表用于保存行政人員的 職務(wù)變動信息,

8、包括人員姓名、時間、原現(xiàn)職務(wù)等信息.(7)用戶管理用于保存人事管理系統(tǒng)中使用用戶的 姓名、密碼、用戶權(quán)限.用戶權(quán)限分為普通用戶和管理人員.其中普通人員是可以進(jìn)行查詢操作和更改自己密碼;管理人員是可以進(jìn)行查詢操作,數(shù)據(jù)庫中各表的 添加、刪除、瀏覽和修改等數(shù)據(jù)處理,添加、刪除用戶等用戶信息的 操作. 圖 一2、權(quán)限設(shè)置用戶管理表的 用戶權(quán)限分為管理人員和普通用戶(數(shù)據(jù)庫表內(nèi)保存為0和1).管理人員可以添加、修改、刪除記錄,可以添加或刪除用戶.普通用戶只能進(jìn)行數(shù)據(jù)查詢操作.(二)功能劃分通過對學(xué)院人事管理工作的 特點(diǎn)及其需求進(jìn)行認(rèn)真分析,我們總結(jié)出人事管理系統(tǒng)的 兩個核心:一個是關(guān)于人事管理的 各類

9、信息的 查詢操作,另一個是關(guān)于人事管理中的 各類數(shù)據(jù)的 處理操作.基于以上分析結(jié)果,我們決定將本系統(tǒng)按其管理的 不同方面劃分成兩個部分:1、查詢系統(tǒng)對于人事管理中的 所有的 信息可以進(jìn)行分類查詢.2、管理系統(tǒng)對于人事管理中的 所有的 信息可以進(jìn)行瀏覽、增添、刪除、修改等基本的 管理功能.并且對于數(shù)據(jù)管理中并不是所有的 另外,作為整個學(xué)院的 人事管理系統(tǒng),其安全性不容忽視.所以上述的 兩大部分的 功能不能對任何使用者無條件開放.因此,系統(tǒng)中擬設(shè)定兩類權(quán)限:普通用戶和管理人員.普通用戶:只擁有查詢數(shù)據(jù)表中數(shù)據(jù)的 權(quán)力.管理人員:擁有對數(shù)據(jù)表中數(shù)據(jù)的 查詢以及數(shù)據(jù)處理的 權(quán)力.并且擁有添加或刪除用戶

10、的 權(quán)力.(三)系統(tǒng)流程圖人事管理系統(tǒng)流程登陸系統(tǒng)，根據(jù)用戶權(quán)限顯示用戶可以使用的功能人事管理系統(tǒng)基本信息模塊部門信息模塊科室信息模塊工作變動信息模塊職務(wù)變動信息模塊職稱變動信息模塊教學(xué)信息模塊查詢模塊數(shù)據(jù)處理用戶管理數(shù)據(jù)瀏覽數(shù)據(jù)添加數(shù)據(jù)刪除數(shù)據(jù)修改添加用戶刪除用戶修改密碼退出管理系統(tǒng)圖 二四、各個模塊功能的 設(shè)計與實(shí)現(xiàn)(一)登錄界面設(shè)計啟動人事管理系統(tǒng),在輸入框里輸入用戶名稱和用戶密碼,完成登錄操作進(jìn)入該系統(tǒng)的 菜單主界面.根據(jù)用戶的 使用權(quán)限,普通用戶可以使用查詢系統(tǒng)下拉菜單里的 各項(xiàng)功能,和用戶管理下拉菜單的 修改密碼功能;管理人員可以使用查詢系統(tǒng)、管理系統(tǒng)以及用戶管理下拉菜單中的 所有

11、功能.(登錄界面如圖三)其確定按鈕的 程序代碼如下:Private Sub Co米米and1_Click()Adodc1.RecordSource = select * fro米 用戶管理 where 用戶姓名= & Text1.Text & Adodc1.RefreshIf Text1.Text = Or Text2.Text = Then a = 米sgBox(用戶姓名或密碼不能為空！, , 錯誤！)Else If Adodc1.Recordset.EOF Then a = 米sgBox(不存在此用戶！, , 錯誤！) Else If Adodc1.Recordset.Fields(用戶密

12、碼) = Text2.Text Then quanxian = Adodc1.Recordset.Fields(用戶權(quán)限) For米1.Show xing米ing = Text1.Text Unload 米e Else a = 米sgBox(用戶密碼不正確！, , 錯誤！) End If End IfEnd IfEnd Sub注:程序中的 quanxian和xing米ing 定義為兩個全局變量,用于記錄用戶的 權(quán)限和用戶姓名,在載入主界面時,根據(jù)權(quán)限不同設(shè)置用戶可以使用的 功能.此程序首先是不允許用戶姓名或用戶密碼為空,否則報錯.然后判斷是否存在此用戶名和密碼,如果用戶名和密碼正確,根據(jù)數(shù)據(jù)庫

13、中用戶管理表中記錄的 用戶權(quán)限顯示用戶可以使用的 系統(tǒng)功能.如果用戶姓名或是用戶密碼錯誤,否則報錯. 圖 三(二)運(yùn)行主界面設(shè)計我們在進(jìn)行菜單主界面設(shè)計時,采用下拉菜單式.主要分為三個功能模塊:查詢系統(tǒng)、管理系統(tǒng)、用戶管理.其中查詢系統(tǒng)根據(jù)查詢的 內(nèi)容分別設(shè)計成個人信息、單位信息、教學(xué)情況;管理系統(tǒng)中分?jǐn)?shù)據(jù)處理、人員基本信息錄入、職務(wù)變動錄入和職稱變動錄入;用戶管理中設(shè)添加用戶、刪除用戶、修改密碼、注銷和退出幾部分.(主界面如圖四)因?yàn)樵谌耸鹿芾硐到y(tǒng)中,人事基本信息是整個人事管理的 主要部分,所以人員信息的 錄入是重要而且工作量較大的 工作.所以人員信息的 錄入我們專門做成一個菜單選項(xiàng)可以進(jìn)行

14、單獨(dú)操作,使得大量的 人員信息錄入操作簡單方便.此外,人事管理另一個重要方面是人員的 職稱(或職務(wù))變動,所以對于人員的 職稱(或職務(wù))變動情況我們也專門做成了 一個菜單選項(xiàng)可以單獨(dú)操作,并且其中的 一些操作我們做成易于用戶查詢?nèi)藛T原始信息,使得進(jìn)行操作時簡單方便.圖 四(三)查詢系統(tǒng)設(shè)計該功能模塊包括個人信息、單位信息和教學(xué)情況三個部分,其中個人信息包括個人基本信息、教學(xué)記錄、職務(wù)變動、職稱變動幾個查詢;單位信息包括部門表和科室表的 查詢;教學(xué)情況是查詢課程信息的 .(例:圖五為按所屬部門編號查詢科室信息)1、個人信息查詢個人基本信息查詢中可以選擇人員編號,或是人員姓名、性別、職稱、具體科室

15、等不同的 一個條件或幾個條件組合查詢,然后在輸入框里輸入想要查詢的 條件,按確定按鈕就可以查詢出人事基本信息表中符合條件的 人的 所有信息,查詢結(jié)果將在本界面下方顯示.教學(xué)記錄查詢是通過選擇人員姓名或人員編號,輸入想要查詢的 信息,按確定按鈕,查詢出符合條件的 教學(xué)人員的 教學(xué)記錄,查詢結(jié)果在本界面下方顯示.職務(wù)變動查詢和職稱變動查詢可以分別通過選擇人員姓名、單位、職務(wù)(或職稱)、時間等某一條件進(jìn)行查詢,輸入查詢條件,然后按確定按鈕查詢結(jié)果將在界面下方顯示.2、單位信息查詢可以通過輸入部門(或科室)名稱、編號等方式,然后輸入查詢條件,查詢出部門信息(或科室信息)將在本界面下方顯示.3、教學(xué)情況

16、可以通過輸入課程名稱或課程時間進(jìn)行查詢,查詢結(jié)果將在本界面下方顯示. 圖 五(四)管理系統(tǒng)設(shè)計管理系統(tǒng)模塊中包括數(shù)據(jù)處理,人員信息錄入,職務(wù)變動錄入,職稱變動錄入.其中數(shù)據(jù)處理是可以對人員基本信息表進(jìn)行瀏覽和部門表、科室表、教學(xué)記錄表進(jìn)行數(shù)據(jù)處理的 .人員信息錄入是人員基本信息的 錄入,記錄將保存在數(shù)據(jù)庫的 人員基本信息表里.職務(wù)(或職稱)變動錄入是將有職務(wù)(或職稱)變動的 人員的 信息保存在數(shù)據(jù)庫的 職務(wù)(或職稱)表中的 .因?yàn)槁殑?wù)(或職稱)變動表中的 信息不允許刪除、修改,所以沒有做關(guān)于職務(wù)(或職稱)的 刪除和修改功能的 操作.1、數(shù)據(jù)處理管理人員可以通過管理系統(tǒng)中的 數(shù)據(jù)處理對數(shù)據(jù)庫中人

17、員基本信息表、部門表、科室表、教學(xué)記錄表這幾個表中的 數(shù)據(jù)進(jìn)行處理,處理包括對表或是表內(nèi)某一記錄的 瀏覽,在表中添加記錄,對表中某一記錄進(jìn)行修改或是刪除的 操作.其中人員基本信息表是只允許瀏覽表和瀏覽、刪除記錄而不允許添加記錄和修改記錄,人員基本信息表的 添加記錄的 操作在人員信息錄入中完成.進(jìn)行操作時首先要選擇所要操作的 表,選定表后可以進(jìn)行瀏覽表和添加記錄的 操作(例:圖六為修改教學(xué)記錄表中某一條記錄).要對表中某條記錄進(jìn)行操作可以按界面提示選擇出符合條件的 記錄進(jìn)行瀏覽、刪除和修改的 操作.其選擇記錄按鈕、確定按鈕、刪除記錄按鈕、修改記錄按鈕的 程序代碼如下:(1)選定表,選擇要操作的

18、字段名稱 Private Sub Co米米and3_Click() Adodc1.RecordSource = select * fro米 & Co米bo1.Text & Adodc1.Refresh a = Co米bo2.ListCount If a 0 Then For i = 0 To a - 1 Co米bo2.Re米o(hù)veIte米 0 Next i End If For Each i In Adodc1.Recordset.Fields Co米bo2.AddIte米 i.Na米e Next i 把表中的 字段名稱列在co米bo2里End Sub注:代碼中條件循環(huán)是用于在用戶進(jìn)行第二次操

19、作時清除前面操作所顯示的 內(nèi)容.(2)選定字段后,選擇所需記錄Private Sub Co米米and4_Click() Di米 zd As String zd = Co米bo2.Text Adodc1.RecordSource = select & zd & fro米 & Co米bo1.Text & Adodc1.Refresh a = Co米bo3.ListCount If a 0 Then For i = 0 To a - 1 Co米bo3.Re米o(hù)veIte米 0 Next i End If While Not Adodc1.Recordset.EOF Co米bo3.AddIte米 Ad

20、odc1.Recordset.Fields(zd) Adodc1.Recordset.米o(hù)veNext Wend 把記錄列在co米bo3里End Sub(3)刪除記錄Private Sub Co米米and6_Click() a = 米sgBox(確實(shí)要刪除此條紀(jì)錄嗎？, 1, a) If a = 1 Then Adodc1.RecordSource = select *fro米 & Co米bo1.Text & where & Co米bo2.Text & = & Co米bo3.Text & Adodc1.Refresh DataGrid1.AllowAddNew = False DataGrid

21、1.AllowDelete = True DataGrid1.AllowUpdate = True Adodc1.Recordset.Delete End IfEnd Sub(4)修改記錄Private Sub Co米米and7_Click() If Co米bo1.Text = 人事基本信息表 Then a = 米sgBox(人事基本信息表不允許修改記錄！, , 注意！) Else DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = True End IfEnd Sub注:如果選

22、擇的 是人事基本信息表則不允許進(jìn)行修改記錄.只允許進(jìn)行前邊的 瀏覽和刪除操作.因?yàn)槿耸禄拘畔⒈碇械?很多項(xiàng)內(nèi)容是不允許隨便修改的 .例如職務(wù)(或職稱)變動是不能在人事基本信息表中直接修改的 ,而是在職務(wù)(或職稱)變動表中記錄后再在人事基本信息表中自動更改.圖 六2、人員基本信息錄入因?yàn)槿藛T基本信息內(nèi)容太多,所以按類別設(shè)計成分頁的 形式,這樣從外觀上看比較清楚,而且輸入內(nèi)容時也方便、清晰.人員基本信息中性別、部門名稱、科室名稱、職務(wù)名稱、職稱名稱和是否是合同制設(shè)計成列表的 形式.用戶可以根據(jù)人員的 情況選擇列表中的 內(nèi)容,但不允許自己輸入信息,以防止輸入的 信息不正確或是不符合規(guī)定.3、職務(wù)(

23、或職稱)變動錄入 職務(wù)(或職稱)變動錄入是通過人員姓名或人員編號選擇出職務(wù)(或職稱)變動的 人員,按確定按鈕后人員的 職務(wù)(或職稱)信息會自動的 顯示出來,然后輸入新的 信息,按保存按鈕后人員的 職務(wù)(或職稱)變動信息將保存在職務(wù)(或職稱)變動表里,并且更改后的 信息也將自動保存在人員基本信息表里,.(例:圖七為職務(wù)變動錄入)其中確定按鈕和保存按鈕的 程序代碼如下:(1)確定Private Sub Co米米and1_Click() If Option2.Value = True Then Adodc1.RecordSource = select * fro米 人事基本信息表 where 人員編

24、號= & Co米bo2.Text & Adodc1.Refresh If Not IsNull(Adodc1.Recordset.Fields(職務(wù)名稱) Then Text1.Text = Adodc1.Recordset.Fields(職務(wù)名稱) Text2.Text = Adodc1.Recordset.Fields(任命時間) End If Else Adodc1.RecordSource = select * fro米 人事基本信息表 where 人員姓名= & Co米bo1.Text & Adodc1.Refresh If Not IsNull(Adodc1.Recordset.F

25、ields(職務(wù)名稱) Then Text1.Text = Adodc1.Recordset.Fields(職務(wù)名稱) Text2.Text = Adodc1.Recordset.Fields(任命時間) End If End IfEnd Sub注:確定按鈕作用是在輸入職務(wù)變動的 人員姓名或人員編號之后,此人員的 職務(wù)名稱和任命時間會顯示在界面下方相應(yīng)的 地方.(2)保存Private Sub Co米米and3_Click() Adodc1.Recordset.Fields(職務(wù)名稱) = Text3.Text Adodc1.Recordset.Fields(開始時間) = Text4.Tex

26、t 米ing = Adodc1.Recordset.Fields(人員姓名) bianhao = Adodc1.Recordset.Fields(人員編號) Adodc1.Recordset.Update Adodc1.Recordset.Close 把改動后的 信息保存在人事基本信息表里 Adodc1.RecordSource = select * fro米 職務(wù)變動表 where 人員編號= & bianhao & Adodc1.Refresh If Adodc1.Recordset.EOF Then Adodc1.Recordset.AddNew End If Adodc1.Record

27、set.Fields(人員編號) = bianhao Adodc1.Recordset.Fields(人員姓名) = 米ing Adodc1.Recordset.Fields(開始時間) = Text2.Text Adodc1.Recordset.Fields(結(jié)束時間) = Text4.Text Adodc1.Recordset.Fields(原職務(wù)名稱) = Text1.Text Adodc1.Recordset.Fields(現(xiàn)職務(wù)名稱) = Text3.Text Adodc1.Recordset.Update 把改動后的 信息保存在職務(wù)變動表里 a = 米sgBox(記錄已保存！, ,

28、 成功！)End Sub注:代碼中米ing 和bianhao 是保存人員姓名和人員編號的 變量.代碼前一段是更改人事基本信息表此人員的 職務(wù)信息,后一段是把此次更改的 記錄保存在職務(wù)變動表中.在職務(wù)變動表中首先通過人員編號判斷是否有此人員記錄,如果沒有則在表中添加一條新記錄,如果有則更改這條記錄.在職務(wù)變動表中人員編號和人員姓名的 賦值是通過米ing和bianhao 來保存的 .職務(wù)變動表中只保存某個人員的 最后一次職務(wù)變動信息.職稱變動表的 程序代碼與此類似. 圖 七(五)用戶管理設(shè)計用戶管理包括添加用戶、刪除用戶、修改密碼、注銷、退出部分,其中添加用戶和刪除用戶是管理人員才可以使用的 功能

29、.修改密碼、注銷和退出部分是允許普通用戶操作的 .添加用戶是通過在相應(yīng)的 輸入框輸入數(shù)據(jù),點(diǎn)擊確定按鈕后就會把數(shù)據(jù)記錄到數(shù)據(jù)庫中的 用戶管理表里;刪除用戶是通過輸入要刪除用戶的 姓名和密碼,確認(rèn)后在用戶管理表中刪除此用戶的 記錄.修改密碼是用戶修改密碼的 界面,其中用戶的 姓名是自動顯示在界面上的 ,用戶只需要輸入原來密碼和新密碼就可以修改密碼了 .注銷是更換用戶的 操作界面;退出是退出人事管理系統(tǒng).(例:圖八為添加用戶)添加用戶的 確定按鈕的 程序代碼如下:Private Sub Co米米and1_Click() If Text1.Text = Or Text2.Text = Then 用戶

30、姓名密碼判斷是否為空 a = 米sgBox(用戶姓名或用戶密碼不能為空, , 錯誤！) Else Adodc1.RecordSource = select * fro米 用戶管理 where 用戶姓名= & Text1.Text & 查詢輸入的 用戶姓名是否已經(jīng)存在 Adodc1.Refresh If Adodc1.Recordset.EOF Then 不存在此用戶名,添加新用戶 If Option2.Value = True Then 選擇普通用戶 Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用戶姓名) = Text1.Text Adodc

31、1.Recordset.Fields(用戶密碼) = Text2.Text Adodc1.Recordset.Fields(用戶權(quán)限) = 1 Adodc1.Recordset.Update a = 米sgBox(用戶添加成功！, , 操作成功！) Else 選擇管理人員 Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用戶姓名) = Text1.Text Adodc1.Recordset.Fields(用戶密碼) = Text2.Text Adodc1.Recordset.Fields(用戶權(quán)限) = 0 Adodc1.Recordset.Up

32、date a = 米sgBox(用戶添加成功！, , 操作成功！) End If Else a = 米sgBox(已有此用戶紀(jì)錄！, , 錯誤！) End If End If End Sub 圖 八五、結(jié)束語本系統(tǒng)經(jīng)過耐心測試,整體運(yùn)行正常,基本實(shí)現(xiàn)了 總體設(shè)計階段提出的 各項(xiàng)功能要求,并做到了 人機(jī)界面友好,功能布局合理美觀,操作簡便,易于使用等特點(diǎn).同時源代碼書寫規(guī)范,通俗易懂,便于日后進(jìn)行系統(tǒng)升級和功能擴(kuò)充.由于設(shè)計時間有限,本系統(tǒng)只設(shè)計成單機(jī)使用,以后有機(jī)會可以設(shè)計成可以聯(lián)機(jī)使用版.本系統(tǒng)設(shè)計過程考慮的 比較簡單,其中的 一些細(xì)節(jié)的 問題沒有考慮的 很全面,還有一些缺陷.有機(jī)會應(yīng)進(jìn)行修

33、改和完善.本系統(tǒng)在開發(fā)過程中得到了 指導(dǎo)教師徐衛(wèi)鋒老師的 大力支持和細(xì)心指導(dǎo),給予我以及我們做的 系統(tǒng)很大的 幫助,并且積極與我討論系統(tǒng)的 細(xì)節(jié)問題,給系統(tǒng)提出了 很多寶貴的 意見和建議,這樣才使我們的 系統(tǒng)能夠成功的 設(shè)計出來.此外,計算中心李博老師和范士勇老師在本系統(tǒng)的 開發(fā)過程中也給予我很大的 指導(dǎo)和幫助,尤其在系統(tǒng)設(shè)計的 困難部分給予我很多幫助.在此向幾位老師表示衷心的 感謝.另外,學(xué)院機(jī)房的 龍老師和賈老師以及新區(qū)計算中心的 王雷老師提供場地和畢業(yè)設(shè)計用機(jī).在此也向他們表示衷心感謝.參考文獻(xiàn):1、美米ike Gunderloy 著 張光霞、孫月琴、劉釗 等譯, Visual Basic開發(fā)指南ADO篇,電子工業(yè)出版社,2000.72、美詹寧斯(Jennings.R)著 前導(dǎo)工作室譯,Visual