【導讀】成為各個企業(yè)的當務之急。管理、部門管理、用戶管理、招聘管理等主要模塊。其圖形用戶界面利用DELPHI進行。開發(fā)，后臺數(shù)據(jù)庫使用SQLSERVER2020，采用ADO數(shù)據(jù)訪問方式。本文針對具體項目。展開研究，首先進行需求分析、模塊劃分，對實施該課題的方案進行論證。系統(tǒng)進行了功能測試。業(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。用戶名或密碼錯誤，請重新登錄 39。)。 end else//找到用戶 begin //記錄用戶信息 idright:=(39。權限 39。).AsInteger。 idnum:=(39。編號 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。 重新登錄模塊的實現(xiàn) 企業(yè)人事管理系統(tǒng)應該允許多個用戶訪問，不同的用戶應使用不同的用戶名和口令登錄。當一個用戶使用完畢后，可以在 應用程序不關閉的情況下，讓另外一個用戶登錄使用。所以，對該系統(tǒng)設計了重新登錄窗口（即注銷后登錄）。重新登錄由主界面菜單的“重新登錄”或者“注銷用戶”子菜單調(diào)用，界面同圖 生成該窗體的代碼如下： procedure (Sender: TObject)。 begin 。 。 。 。 。 := False。 hm_LoginOutForm := (nil)。//生成重新登錄界面 。 end。 167。 建立應用程序主窗體 該系統(tǒng)應用程序的主窗體 hm_mainform 如圖 所示： 35 圖 系統(tǒng)主界面 該窗體主要是為了打開其他窗體所提供的一個載體。在改模塊中使用了鼠標移動改變字體，顯示功能提示的方法。 選取其中一條，代碼如下： //顯示部門管理窗口 procedure (Sender: TObject)。 begin :=false。 。 end。 //鼠標進入改變字體格式，顯示說明信息 procedure (Sender: TObject)。 begin :=[fsItalic, fsUnderline]。 :=39。* 查閱維護部門信息 39。 end。 36 //鼠標離開恢復字體格式，取消說明信息 procedure (Sender: TObject)。 begin :=[]。 :=39。39。 end。 167。 用戶管理模塊的實現(xiàn) 用戶管理模塊主要是實現(xiàn)對用戶的權限管理，權限管理在整個系統(tǒng)中占非常重要的位置，只有系統(tǒng)管理員有權限訪問，因為它直接關系到用戶的訪問權限，也關系到整個系統(tǒng)的安全。主要實現(xiàn)對用戶授權及撤消用戶權限。在進入管理員系統(tǒng)頁面選擇權用戶時，系統(tǒng)會判斷是否具有訪問權限，若具有則進入權限管理頁面，否則不能進入該頁面。 在進行用戶權限管理時，分為權限最底的一般用戶，和權限次于系統(tǒng)管理員的高級用戶，高級用戶除了不能進行用戶管理，其他系統(tǒng)功能都能使用。此功能也主要是對數(shù)據(jù)庫進行操作。為了方便進行用戶選擇， 在這個模塊還有一個查詢功能，可以將不同權限組的用戶顯示到 dbgrid 中，以方便系統(tǒng)管理員瀏覽和選擇編輯。在這個窗體里主要使用了 lable、 groupBox、 boBoxdbgrid、 speedbutton 等控件 啟動查詢代碼如下： procedure (Sender: TObject)。 var tempstr:array[1..1,1..5] of string。 begin //五種情況 tempstr[1,1]:=39。39。 tempstr[1,2]:=39。where 權限 = 139。 tempstr[1,3]:=39。where 權限 = 239。 tempstr[1,4]:=39。where 權限 = 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。 修改添加刪除的代碼略，將在下面的模塊進行介紹。 167。 員工信息模塊的實現(xiàn) 這個模塊是整個系統(tǒng)的重點，在這個模塊中，為了方便查詢 和修改，使用了 treeview控件，樹狀的部門結構能讓用戶通過對部門的選擇，對不同部門的員工進行瀏覽，選擇需要修改的員工信息，進行修改。為了使各項信息編輯方便，在該模塊使用了pageControl 控件，結合幾種查詢引導方式的使用，能夠很清楚的把基本檔案、工作經(jīng)歷、社會關系、獎懲記錄、培訓經(jīng)歷顯示出來。 TabSheet 活躍才能對該頁面進行修改添加操作，選取其中一頁的代碼實現(xiàn)如下： // 確定修改，添加 procedure (Sender: TObject)。 var bEdtState: Boolean。 sText: string。 begin bEdtState := False。 //基本信息 TabSheet1 活躍代表要對基本信息表操作 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。婚姻狀況39。).AsString :=Trim()。 (39。部門 39。).AsString := Trim()。 (39。學歷 39。).AsString := Trim()。 (39。出生日期 39。).AsDateTime := 。 (39。錄用時間 39。).AsDateTime := 。 (39。起止時間 39。).AsString := Trim()。 (39。更新時間 39。).AsDateTime := 39 。 。 end。 end else begin if In [dsEdit, dsInsert] then begin bEdtState := True。 (39。員工編號39。).AsString:=[0].AsString。 end。 end。 其他代碼略 167。 部門管理模塊的實現(xiàn) 該模塊能夠清晰的將部門組織結構、詳細信息展示給用戶，同時支持部門組織結構的更改。在這個模塊中也使用了 treeview 控件來 展示組織結構關系。并且基于組織結構關系來進行部門的添加，其中包括同級部門添加和子部門的添加。 代碼實現(xiàn)如下： //選擇增加同級部門 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。父編號 39。).AsString)。 。 if StrtoInt(sLevel) = 0 then := 39。Select Max(編號 ) as 編號 From 部門信息 Where 層次 =39。 + QuotedStr(sLevel) else := 39。Select Max(編號 ) as 編號 From 部門信息 Where 層次 =39。 + QuotedStr(sLevel) + 39。 and 父編號 = 39。 + QuotedStr(sParent)。 。 //記錄當前的部門的父編號，也就是新增 子部門的上級編號 pnum:= (39。編號 39。).AsInteger。 //由父部門的最大子號 以及層次信息，生成新增子部門的編號 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 編號 like 39。39。XXX39。39。39。 。 end。 。 其他代碼略。 167。 考勤管理模塊的實現(xiàn) 該模塊提供了基于員工號 ,姓名和時間范圍的查詢。這個窗體使用了 dbgrid 、dateTimepicker 控件，為了考勤信息條理清楚并便于查看，該窗體同樣使用了pageControl 這個控件，其代碼實現(xiàn)略。 167。 招聘信息模塊的實現(xiàn) 該模塊主要是進行招聘信息和應聘信息的編輯，在這個模塊作者使用兩個radioButton 控件，用于對兩種信息編輯狀態(tài)的選擇。由于應聘信息是基于招聘信息進行編輯，所以作者使 用了兩個 Dbgrid 控件，首先要通過選擇招聘信息，才能對相應的應聘信息進行編輯。 167。 其他模塊的實現(xiàn) 這個模塊是實現(xiàn)登錄用戶對自己密碼的修改，功能比較簡單，代碼略。 該模塊主要是該系統(tǒng)基本情況的提示。代碼略。 42 第五章 系統(tǒng)測試 167。 測試目的 在軟件生命周期的每個階段都不可避免的會引入新的錯誤。如果在軟件投入生產(chǎn)性運行之前，沒有發(fā)現(xiàn)并糾正軟件中的大部分差錯，則這些差錯遲早會在生產(chǎn)過程中暴露出來，那時不僅糾正這些