【導讀】管理信息系統(tǒng)的開發(fā)在強調(diào)管理、強調(diào)信息的現(xiàn)代社會中也顯得越來越重要。位機構(gòu)制度要求、推動各種單位機構(gòu)人事管理走向科學化、規(guī)范化的必要條件。本論文就是以為前臺和ACCESS2021為后臺等軟件作為開發(fā)。本系統(tǒng)具有數(shù)據(jù)管。理和企業(yè)事務(wù)管理功能。使用該系統(tǒng)，可以方便地進行新進企業(yè)員工的編制，考。勤的自動化以及對員工培訓的管理。快捷地查詢公司員工的情況，方便企業(yè)高層。動，可輔助企業(yè)領(lǐng)導決策科學化，從而大大減少了工作量，提高了工作效率。

　　

【正文】 :=500。 end 30 else begin [39。base_pay39。]:=1000。 [39。base_prize39。]:=300。 end。 [39。insurance39。]:=600。 [39。medicare39。]:=300。 。 。 [39。EmployeeID39。]:=。 [39。Name39。]:=。 。 showmessage(39。新增用戶成功！ 39。)。 end else begin 。 。 。 。 showmessage(39。新增用戶取消！ 39。)。 end。 end。 其中按下“查詢”按鈕，將打開一個新的查詢界面，如圖 。可根據(jù)職工代碼或姓名，查詢職工的所有個人信息。 圖 實現(xiàn)代碼如下： procedure (Sender: TObject)。 var i,j:integer。 begin if =39。職工代碼 39。 then 31 begin with do begin :=false。 close。 。 (39。Select * from person_info where EmployeeID=39。+)。 open。 :=true。 end。 end else with do begin :=false。 close。 。 (39。Select * from person_info where Name=39。+39。39。39。39。++39。39。39。39。)。 open。 :=true。 end。 with do begin if 1 then (39。 沒 有找 到符 合條 件的 數(shù)據(jù) ？ 39。,39。 查 詢結(jié) 果39。,MB_YESNO+MB_ICONQUESTION) else with personG do begin :=+1。 for i:=1 to do for j:=0 to 18 do cells[j,i]:=39。39。 i:=1。 cells[0,i]:=fieldbyname(39。EmployeeID39。).AsString。 cells[1,i]:=fieldbyname(39。Name39。).AsString。 cells[2,i]:=fieldbyname(39。Sex39。).AsString。 cells[3,i]:=fieldbyname(39。Date39。).AsString。 cells[4,i]:=fieldbyname(39。City39。).AsString。 cells[5,i]:=fieldbyname(39。Nation39。).AsString。 cells[6,i]:=fieldbyname(39。Polity39。).AsString。 cells[7,i]:=fieldbyname(39。Culture39。).AsString。 cells[8,i]:=fieldbyname(39。Marriage39。).AsString。 cells[9,i]:=fieldbyname(39。Graduate39。).AsString。 32 cells[10,i]:=fieldbyname(39。Spec39。).AsString。 cells[11,i]:=fieldbyname(39。Speci39。).AsString。 cells[12,i]:=fieldbyname(39。Duty39。).AsString。 cells[13,i]:=fieldbyname(39。Address39。).AsString。 cells[14,i]:=fieldbyname(39。Postalcode39。).AsString。 cells[15,i]:=fieldbyname(39。Mobilephone39。).AsString。 cells[16,i]:=fieldbyname(39。Email39。).AsString。 cells[17,i]:=fieldbyname(39。IDcard39。).AsString。 end。 end。 end。 工資管理功能模塊的設(shè)計 在主窗口中選擇工資管理，將打開如圖 的界面，表 中出現(xiàn)所有職工的工資信息。其中的基本工資與基本獎金是根據(jù)不同的部門和職務(wù)規(guī)定好的，相應(yīng)的考勤情況所需扣除的工資也是規(guī)定好的，這兩項可根據(jù)用戶的具體需要進行修改。最終的月工資是工資、獎金的和減去這個月的考勤情況得出的值。在此界面中按下“選擇”按鈕后，可選擇不同的查詢方式，職工代碼、姓名或年月都可以進行查詢，獲得相應(yīng)的數(shù)據(jù)。 圖 “查詢”功能實現(xiàn)代碼如下： procedure (Sender: TObject)。 var i,j:integer。 begin if =39。職工代碼 39。 then begin with do begin 33 :=false。 close。 。 (39。Select * from wage where EmployeeID=39。+)。 open。 :=true。 end。 end else if =39。姓名 39。 then begin with do begin :=false。 close。 。 (39。Select * from wage where Name=39。+39。39。39。39。++39。39。39。39。)。 open。 :=true。 end。 end else if =39。年月 39。 then begin with do begin :=false。 close。 。 (39。Select * from wage where time=39。+39。39。39。39。++39。39。39。39。)。 open。 :=true。 end。 end 。 with do begin if 1 then (39。 沒 有找 到符 合條 件的 數(shù)據(jù) ？ 39。,39。 查 詢結(jié) 果39。,MB_YESNO+MB_ICONQUESTION) else with wageG do begin :=+1。 //清空表格中之前的查詢數(shù)據(jù) 34 for i:=1 to do for j:=0 to 11 do cells[j,i]:=39。39。 for i:=1 to do begin cells[0,i]:=fieldbyname(39。Time39。).AsString。 cells[1,i]:=fieldbyname(39。EmployeeID39。).AsString。 cells[2,i]:=fieldbyname(39。Name39。).AsString。 cells[3,i]:=floattostr(fieldbyname(39。Base_pay39。).Asfloat)。 cells[4,i]:=fieldbyname(39。base_prize39。).AsString。 cells[5,i]:=fieldbyname(39。insurance39。).AsString。 cells[6,i]:=fieldbyname(39。medicare39。).AsString。 cells[7,i]:=fieldbyname(39。deprive_attend39。).AsString。 cells[8,i]:=fieldbyname(39。pay39。).AsString。 next end。 end。 end。 end。 考勤管理功能模塊的設(shè)計 在主窗口中選擇考勤管理，打開如圖 的界面。該模塊也具有瀏覽職工信息的功能，如果是第一次瀏覽新增加的職工的考勤信息時，日期需要手工進行填寫。對職工進行考勤時，只需選擇“考勤選項選擇”下相應(yīng)的情況即可，然后按下保存按鈕，其相應(yīng)的情況的值就 會加 1。當用戶按下查詢按鈕時，將會出現(xiàn)與圖 相似的界面，根據(jù)需要選擇按職工代碼、姓名、或者年月進行查詢，在表格中輸出對應(yīng)的數(shù)據(jù)信息。 35 圖 “保存”按鈕的功能實現(xiàn)代碼如下： procedure (Sender: TObject)。 begin if (=false) and (=false) and (=false) and (=false) and (=false) and (=false)and (=false) and (=false) and (=false) and (=39。39。) then MessageDlg(39。請選擇新增考勤項目或填寫日期 39。,mtinformation,[mbOK],0) else begin if (39。 確 定 增 加 新 考 勤 信 息 ？ 39。,39。 注意39。,MB_YESNO+MB_ICONQUESTION)=IDYES then begin 。 [39。Time39。]:=。 (39。EmployeeID39。,[])。 。 [39。time39。]:=。 。 if =true then begin 36 [39。Late39。]:=[39。Late39。]+1。 (39。EmployeeID39。,[])。 。 [39。deprive_attend39。]:=[39。deprive_attend39。]+10。 。 end。 //以下是與 CheckBox1 相似 的代碼，根據(jù)不同的選項扣除規(guī)定的工資，并將結(jié)果//存入數(shù)據(jù)庫中，所以此處不作過多說明 …… end else begin 。 。 end。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 end。 報表功能模塊的實現(xiàn) 運行程序后，將出現(xiàn)如圖 的職工檔案資料報表，如圖 的職工人員花名冊，如圖 的工資管理報表，如圖 的考勤管理報表。 37 圖 圖 38 圖 圖 幫助功能 主窗口中的“幫助”下有一下拉菜單“關(guān)于”，它將顯示此系統(tǒng)的一些版本信息，如圖 39 圖 非管理級用戶主界面的設(shè)計 當用戶為非管理級時，則只可登錄個人信息查詢的系統(tǒng)模塊，如圖 。在此模塊中的系統(tǒng)下拉菜單下可進行密碼重新設(shè)置，同時個人資料檔案、個人工資及個人考勤情況也可實施相應(yīng)的查詢。