【正文】 當(dāng)點(diǎn)擊。 37 圖 圖 38 圖 圖 幫助功能 主窗口中的“幫助”下有一下拉菜單“關(guān)于”，它將顯示此系統(tǒng)的一些版本信息，如圖 39 圖 非管理級(jí)用戶主界面的設(shè)計(jì) 當(dāng)用戶為非管理級(jí)時(shí)，則只可登錄個(gè)人信息查詢的系統(tǒng)模塊，如圖 。 end。 :=false。 :=false。 :=false。 :=false。 :=false。 。 end。]+10。]:=[39。 [39。,[])。 (39。Late39。Late39。 。time39。 。EmployeeID39。]:=。 [39。 注意39。 確 定 增 加 新 考 勤 信 息 ？ 39。請(qǐng)選擇新增考勤項(xiàng)目或填寫(xiě)日期 39。39。 35 圖 “保存”按鈕的功能實(shí)現(xiàn)代碼如下： procedure (Sender: TObject)。對(duì)職工進(jìn)行考勤時(shí)，只需選擇“考勤選項(xiàng)選擇”下相應(yīng)的情況即可，然后按下保存按鈕，其相應(yīng)的情況的值就 會(huì)加 1。 考勤管理功能模塊的設(shè)計(jì) 在主窗口中選擇考勤管理，打開(kāi)如圖 的界面。 end。 next end。pay39。).AsString。 cells[7,i]:=fieldbyname(39。medicare39。).AsString。 cells[5,i]:=fieldbyname(39。base_prize39。).Asfloat)。 cells[3,i]:=floattostr(fieldbyname(39。Name39。).AsString。 cells[1,i]:=fieldbyname(39。Time39。39。,MB_YESNO+MB_ICONQUESTION) else with wageG do begin :=+1。,39。 with do begin if 1 then (39。 end。 open。39。39。39。39。Select * from wage where time=39。 。 then begin with do begin :=false。 end else if =39。 :=true。)。39。++39。39。+39。 (39。 close。姓名 39。 end。 open。Select * from wage where EmployeeID=39。 。 then begin with do begin 33 :=false。 begin if =39。 圖 “查詢”功能實(shí)現(xiàn)代碼如下： procedure (Sender: TObject)。最終的月工資是工資、獎(jiǎng)金的和減去這個(gè)月的考勤情況得出的值。 工資管理功能模塊的設(shè)計(jì) 在主窗口中選擇工資管理，將打開(kāi)如圖 的界面，表 中出現(xiàn)所有職工的工資信息。 end。).AsString。 cells[17,i]:=fieldbyname(39。Email39。).AsString。 cells[15,i]:=fieldbyname(39。Postalcode39。).AsString。 cells[13,i]:=fieldbyname(39。Duty39。).AsString。 cells[11,i]:=fieldbyname(39。Spec39。).AsString。 cells[9,i]:=fieldbyname(39。Marriage39。).AsString。 cells[7,i]:=fieldbyname(39。Polity39。).AsString。 cells[5,i]:=fieldbyname(39。City39。).AsString。 cells[3,i]:=fieldbyname(39。Sex39。).AsString。 cells[1,i]:=fieldbyname(39。EmployeeID39。 i:=1。 for i:=1 to do for j:=0 to 18 do cells[j,i]:=39。 查 詢結(jié) 果39。 沒(méi) 有找 到符 合條 件的 數(shù)據(jù) ？ 39。 end。 open。39。39。39。39。Select * from person_info where Name=39。 。 end else with do begin :=false。 :=true。+)。 (39。 close。職工代碼 39。 var i,j:integer?？筛鶕?jù)職工代碼或姓名，查詢職工的所有個(gè)人信息。 end。)。 showmessage(39。 。 end else begin 。新增用戶成功！ 39。 。Name39。]:=。 [39。 。medicare39。]:=600。 [39。]:=300。 [39。base_pay39。]:=500。 [39。base_pay39。管理人員 39。]:=。 [39。EmployeeID39。 。]:=888888。 //新錄入的員工的初始密碼為 888888 [39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 else [39。]:=39。 then [39。 if =39。DepartName39。]:=。 [39。Name39。]:=。 [39。,MB_YESNO+MB_ICONQUESTION)=IDYES then begin 。,39。 begin if (39。 end。刪除用戶成功 !39。 29 end。 。EmployeeID39。 。EmployeeID39。 。EmployeeID39。 。EmployeeID39。 注意39。 確 定 刪 除 這 筆 數(shù) 據(jù) ？ 39。 begin userid:=。 //“刪除”按鈕 procedure (Sender: TObject)。 end。修改成功！ 39。 。Name39。 。EmployeeID39。 。Name39。 。EmployeeID39。 。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then [39。 if =39。]:=39。 then 28 [39。 //根據(jù)不同的部門名稱，向數(shù)據(jù)庫(kù)中存入不同的部門代碼信息 if =39。]:=39。 else [39。]:=39。 then [39。 //根據(jù)不同的職務(wù)選項(xiàng)，向 數(shù)據(jù)庫(kù)中存入不同的職工類型信息 if =39。DepartName39。]:=。 [39。Name39。 。EmployeeID39。 。,userid,[])。,MB_YESNO+MB_ICONQUESTION)=IDYES then begin (39。,39。 if (39。 var userid:string。在存入 person_info 表個(gè)人信息的同時(shí)，在其他三個(gè)表中也增加了新用戶的部門信息（如基本工資的劃定等），且在程序中設(shè)置了新錄入員工登陸初始密碼都為“ 888888”的。 人事管理功能模塊的設(shè)計(jì) 點(diǎn)擊主窗口中的人事管理，出現(xiàn)如圖 的界面。 end。 。 。原始密碼不對(duì)！ 39。 。 。 對(duì)不 起39。 兩次新密碼不一致，請(qǐng)重新輸入 39。 close。 。 。密碼修改成功！ 39。 。Password39。]= then begin if = then //檢查兩次新密碼是否一致 begin 。 if [39。EmployeeID39。 圖 實(shí)現(xiàn)代碼： procedure (Sender: TObject)。 25 圖 密碼設(shè)置界面的設(shè)計(jì) 系統(tǒng)菜單下，具有密碼重新設(shè)置的功能，點(diǎn)擊進(jìn)入后，界面如圖 。 [3].text:=timetostr(time)。 設(shè)計(jì) Timer 部分的代碼： procedure (Sender: TObject)。設(shè)計(jì)如圖 。 end。 。 if Main=nil then (TMain, Main)。密碼正確！你擁有管理員的權(quán)限，可以增加用戶、刪除用戶、初始化用戶口令、修改自己的口令、修改用戶權(quán)限，你需要進(jìn)行這些工作嗎？ 39。 。 if PersonMain=nil then (TPersonMain, PersonMain)。EmployeeID39。)。 then begin showmessage(39。]39。 end else //非管理人員登錄 if [39。 。請(qǐng)聯(lián)系管理員獲取密碼再登錄！ 39。 。 。用 戶名或密碼不對(duì) 39。 //每輸入一次 times 加 1 times:=times+1。 end。 open。=39。 Password39。 and39。=39。 EmployeeID39。Select Password,EmployeeClass from depart_info where39。 。 begin with do begin :=false。 end。 圖 是人事 /工資 /考勤管理系統(tǒng)的登錄界面 圖 Delphi 的主要實(shí)現(xiàn)代碼如下： //利用 time 記錄輸入的次數(shù) procedure (Sender: TObject)。用戶必須輸入正確的密碼才能進(jìn)入下一個(gè)界面，如果用戶的密碼輸入錯(cuò)誤，應(yīng)用程序會(huì)提示 “用戶名或密碼不對(duì)”錯(cuò)誤信息。 該應(yīng)用程序中的數(shù)據(jù)模塊界面設(shè)計(jì)如圖 圖 22 登錄界面的設(shè)計(jì) 利用用戶登錄功能實(shí)現(xiàn)對(duì)用戶的分類。 數(shù)據(jù)模塊的創(chuàng)建 在這個(gè)程序中，由于系統(tǒng)的眾多功能都與后臺(tái)數(shù)據(jù)庫(kù)有交互，要避免向每個(gè)界面中添加數(shù)據(jù)訪問(wèn)組件來(lái)訪問(wèn)數(shù)據(jù)庫(kù)中的數(shù)據(jù)。一個(gè)友 好完善的界面不僅能夠方便系統(tǒng)的使用者，而且能夠使各個(gè)模塊間的劃分明確，系統(tǒng)結(jié)構(gòu)更趨于完善。建立起了能夠使系統(tǒng)順利、正確運(yùn)行的后臺(tái)保障，完成了初期的工作目標(biāo)。此時(shí)，就可以結(jié)束 Access 程序。 職工列表數(shù)據(jù)表（ depart_info） 字段名稱 數(shù)據(jù)類型 說(shuō)明 相關(guān)屬性 EmployeeID 數(shù)字 職工 編號(hào) 字段大小 =長(zhǎng)整型 Name 文本 姓名 字段大小 =8 DepartID 數(shù)字 部門代碼 字段大小 =長(zhǎng)整型 DepartName 文本 部門名稱 字段大小 =20 EmployeeClass 文本 職工類型 字段大小 =1