【導(dǎo)讀】成為各個(gè)企業(yè)的當(dāng)務(wù)之急。管理、部門管理、用戶管理、招聘管理等主要模塊。其圖形用戶界面利用DELPHI進(jìn)行。開發(fā)，后臺(tái)數(shù)據(jù)庫使用SQLSERVER2020，采用ADO數(shù)據(jù)訪問方式。本文針對(duì)具體項(xiàng)目。展開研究，首先進(jìn)行需求分析、模塊劃分，對(duì)實(shí)施該課題的方案進(jìn)行論證。系統(tǒng)進(jìn)行了功能測(cè)試。業(yè)管理效率，使得管理者能夠更加方便的了解到企業(yè)內(nèi)部人事狀況。第三章系統(tǒng)模型建立與比較論證........

　　

【正文】 。 。 := 39。select * from 用戶清單 where 用戶名 = 39。39。39。++39。39。39。 and 密碼 = 39。39。39。++39。39。39。39。 。 33 //如果沒有該用戶 if =0 then begin ShowMessage(39。用戶名或密碼錯(cuò)誤，請(qǐng)重新登錄 39。)。 end else//找到用戶 begin //記錄用戶信息 idright:=(39。權(quán)限 39。).AsInteger。 idnum:=(39。編號(hào) 39。).AsInteger。 //決定是否顯示用戶名 if then begin uname:=39。隱身登陸 39。 end else begin uname:=(39。用戶名 39。).AsString。 end。 //生成其他窗口 :=false。 (Thm_mainForm, hm_mainForm)。 (Thm_userForm, hm_userForm)。 (Thm_dpForm, hm_dpForm)。 (Thm_pinfForm, hm_pinfForm)。 (Thm_rollForm, hm_rollForm)。 (Thm_empForm, hm_empForm)。 。 34 end。 end。 167。 重新登錄模塊的實(shí)現(xiàn) 企業(yè)人事管理系統(tǒng)應(yīng)該允許多個(gè)用戶訪問，不同的用戶應(yīng)使用不同的用戶名和口令登錄。當(dāng)一個(gè)用戶使用完畢后，可以在 應(yīng)用程序不關(guān)閉的情況下，讓另外一個(gè)用戶登錄使用。所以，對(duì)該系統(tǒng)設(shè)計(jì)了重新登錄窗口（即注銷后登錄）。重新登錄由主界面菜單的“重新登錄”或者“注銷用戶”子菜單調(diào)用，界面同圖 生成該窗體的代碼如下： procedure (Sender: TObject)。 begin 。 。 。 。 。 := False。 hm_LoginOutForm := (nil)。//生成重新登錄界面 。 end。 167。 建立應(yīng)用程序主窗體 該系統(tǒng)應(yīng)用程序的主窗體 hm_mainform 如圖 所示： 35 圖 系統(tǒng)主界面 該窗體主要是為了打開其他窗體所提供的一個(gè)載體。在改模塊中使用了鼠標(biāo)移動(dòng)改變字體，顯示功能提示的方法。 選取其中一條，代碼如下： //顯示部門管理窗口 procedure (Sender: TObject)。 begin :=false。 。 end。 //鼠標(biāo)進(jìn)入改變字體格式，顯示說明信息 procedure (Sender: TObject)。 begin :=[fsItalic, fsUnderline]。 :=39。* 查閱維護(hù)部門信息 39。 end。 36 //鼠標(biāo)離開恢復(fù)字體格式，取消說明信息 procedure (Sender: TObject)。 begin :=[]。 :=39。39。 end。 167。 用戶管理模塊的實(shí)現(xiàn) 用戶管理模塊主要是實(shí)現(xiàn)對(duì)用戶的權(quán)限管理，權(quán)限管理在整個(gè)系統(tǒng)中占非常重要的位置，只有系統(tǒng)管理員有權(quán)限訪問，因?yàn)樗苯雨P(guān)系到用戶的訪問權(quán)限，也關(guān)系到整個(gè)系統(tǒng)的安全。主要實(shí)現(xiàn)對(duì)用戶授權(quán)及撤消用戶權(quán)限。在進(jìn)入管理員系統(tǒng)頁面選擇權(quán)用戶時(shí)，系統(tǒng)會(huì)判斷是否具有訪問權(quán)限，若具有則進(jìn)入權(quán)限管理頁面，否則不能進(jìn)入該頁面。 在進(jìn)行用戶權(quán)限管理時(shí)，分為權(quán)限最底的一般用戶，和權(quán)限次于系統(tǒng)管理員的高級(jí)用戶，高級(jí)用戶除了不能進(jìn)行用戶管理，其他系統(tǒng)功能都能使用。此功能也主要是對(duì)數(shù)據(jù)庫進(jìn)行操作。為了方便進(jìn)行用戶選擇， 在這個(gè)模塊還有一個(gè)查詢功能，可以將不同權(quán)限組的用戶顯示到 dbgrid 中，以方便系統(tǒng)管理員瀏覽和選擇編輯。在這個(gè)窗體里主要使用了 lable、 groupBox、 boBoxdbgrid、 speedbutton 等控件 啟動(dòng)查詢代碼如下： procedure (Sender: TObject)。 var tempstr:array[1..1,1..5] of string。 begin //五種情況 tempstr[1,1]:=39。39。 tempstr[1,2]:=39。where 權(quán)限 = 139。 tempstr[1,3]:=39。where 權(quán)限 = 239。 tempstr[1,4]:=39。where 權(quán)限 = 339。 tempstr[1,5]:=39。where 用戶名 = 39。39。39。+ +39。39。39。39。 //查詢 37 。 。 := 39。select * from 39。用戶清單 +tempstr[1,+1]。 。 //清除上次的顯示信息 。 。 。 。 :=39。39。 DBGrid1CellClick(nil)。 end。 修改添加刪除的代碼略，將在下面的模塊進(jìn)行介紹。 167。 員工信息模塊的實(shí)現(xiàn) 這個(gè)模塊是整個(gè)系統(tǒng)的重點(diǎn)，在這個(gè)模塊中，為了方便查詢 和修改，使用了 treeview控件，樹狀的部門結(jié)構(gòu)能讓用戶通過對(duì)部門的選擇，對(duì)不同部門的員工進(jìn)行瀏覽，選擇需要修改的員工信息，進(jìn)行修改。為了使各項(xiàng)信息編輯方便，在該模塊使用了pageControl 控件，結(jié)合幾種查詢引導(dǎo)方式的使用，能夠很清楚的把基本檔案、工作經(jīng)歷、社會(huì)關(guān)系、獎(jiǎng)懲記錄、培訓(xùn)經(jīng)歷顯示出來。 TabSheet 活躍才能對(duì)該頁面進(jìn)行修改添加操作，選取其中一頁的代碼實(shí)現(xiàn)如下： // 確定修改，添加 procedure (Sender: TObject)。 var bEdtState: Boolean。 sText: string。 begin bEdtState := False。 //基本信息 TabSheet1 活躍代表要對(duì)基本信息表操作 38 if = 0 then begin if = Date then begin showmessage(39。出生日期不合法！ 39。)。 Exit。 end。 if Trim() = 39。39。 then begin showmessage(39。姓名不能為空！ 39。)。 Exit。 end。 := Date。 if In [dsEdit ,dsInsert] then begin (39。姓名 39。).AsString := Trim()。 (39。性別 39。).AsString := Trim()。 (39?；橐鰻顩r39。).AsString :=Trim()。 (39。部門 39。).AsString := Trim()。 (39。學(xué)歷 39。).AsString := Trim()。 (39。出生日期 39。).AsDateTime := 。 (39。錄用時(shí)間 39。).AsDateTime := 。 (39。起止時(shí)間 39。).AsString := Trim()。 (39。更新時(shí)間 39。).AsDateTime := 39 。 。 end。 end else begin if In [dsEdit, dsInsert] then begin bEdtState := True。 (39。員工編號(hào)39。).AsString:=[0].AsString。 end。 end。 其他代碼略 167。 部門管理模塊的實(shí)現(xiàn) 該模塊能夠清晰的將部門組織結(jié)構(gòu)、詳細(xì)信息展示給用戶，同時(shí)支持部門組織結(jié)構(gòu)的更改。在這個(gè)模塊中也使用了 treeview 控件來 展示組織結(jié)構(gòu)關(guān)系。并且基于組織結(jié)構(gòu)關(guān)系來進(jìn)行部門的添加，其中包括同級(jí)部門添加和子部門的添加。 代碼實(shí)現(xiàn)如下： //選擇增加同級(jí)部門 procedure (Sender: TObject)。 var sLevel, sParent,S: string。 begin S := Trim()。 :=true。 :=true。 :=false。 40 :=false。 :=false。 :=false。 sLevel := 39。039。 sParent := 39。100039。 pnum := 1000。 snum := 1000。 if then begin if 0 then begin sLevel := Trim((39。層次 39。).AsString)。 sParent := Trim((39。父編號(hào) 39。).AsString)。 。 if StrtoInt(sLevel) = 0 then := 39。Select Max(編號(hào) ) as 編號(hào) From 部門信息 Where 層次 =39。 + QuotedStr(sLevel) else := 39。Select Max(編號(hào) ) as 編號(hào) From 部門信息 Where 層次 =39。 + QuotedStr(sLevel) + 39。 and 父編號(hào) = 39。 + QuotedStr(sParent)。 。 //記錄當(dāng)前的部門的父編號(hào)，也就是新增 子部門的上級(jí)編號(hào) pnum:= (39。編號(hào) 39。).AsInteger。 //由父部門的最大子號(hào) 以及層次信息，生成新增子部門的編號(hào) snum:=strtoint(temptable[pnum,2])。 ItemLevel:=(39。層次 39。).AsInteger。 snum:=snum+strtoint(floattostr(intpower(10,3ItemLevel)))。 if StrtoInt(sLevel) = 0 then 41 pnum := snum。 end end else begin 。 。 := 39。Select * From 部門信息 Where 編號(hào) like 39。39。XXX39。39。39。 。 end。 。 其他代碼略。 167。 考勤管理模塊的實(shí)現(xiàn) 該模塊提供了基于員工號(hào) ,姓名和時(shí)間范圍的查詢。這個(gè)窗體使用了 dbgrid 、dateTimepicker 控件，為了考勤信息條理清楚并便于查看，該窗體同樣使用了pageControl 這個(gè)控件，其代碼實(shí)現(xiàn)略。 167。 招聘信息模塊的實(shí)現(xiàn) 該模塊主要是進(jìn)行招聘信息和應(yīng)聘信息的編輯，在這個(gè)模塊作者使用兩個(gè)radioButton 控件，用于對(duì)兩種信息編輯狀態(tài)的選擇。由于應(yīng)聘信息是基于招聘信息進(jìn)行編輯，所以作者使 用了兩個(gè) Dbgrid 控件，首先要通過選擇招聘信息，才能對(duì)相應(yīng)的應(yīng)聘信息進(jìn)行編輯。 167。 其他模塊的實(shí)現(xiàn) 這個(gè)模塊是實(shí)現(xiàn)登錄用戶對(duì)自己密碼的修改，功能比較簡(jiǎn)單，代碼略。 該模塊主要是該系統(tǒng)基本情況的提示。代碼略。 42 第五章 系統(tǒng)測(cè)試 167。 測(cè)試目的 在軟件生命周期的每個(gè)階段都不可避免的會(huì)引入新的錯(cuò)誤。如果在軟件投入生產(chǎn)性運(yùn)行之前，沒有發(fā)現(xiàn)并糾正軟件中的大部分差錯(cuò)，則這些差錯(cuò)遲早會(huì)在生產(chǎn)過程中暴露出來，那時(shí)不僅糾正這些