【正文】 。星期二 39。 days[4] := 39。星期三 39。 days[5] := 39。星期四 39。 days[6] := 39。星期五 39。 days[7] := 39。星期六 39。 result :=days[DayOfWeek(now)]。 end。 procedure (Sender: TObject)。 //生成企業(yè)員工花名冊(cè) begin frm_ygbb:=(application)。 if then 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin //打開(kāi)人事?tīng)顩r曲線分析窗口 (Tfrm_rsqkqxfs, frm_rsqkqxfs)。 if then 。 。 end。 end. 人事管理模塊的實(shí)現(xiàn) 員工基本信息輸入 功能說(shuō)明 完成新員工人事檔案的建立， 初始狀態(tài)下所有輸入和選擇框框均無(wú)效，只有點(diǎn)新增按鈕后才可用，同時(shí)提交按鈕變成有效。 畢業(yè)論文 第 23 頁(yè) 共 58 頁(yè) 屏幕格式說(shuō)明 新員工資料錄入界面 源程序分析 //增加按鈕事件，只是將各輸入框和提交按鈕置為可用 。 procedure (Sender: TObject)。 //提交按鈕事件 var Sql: String。 qsrq,rzsj,czdate: String。 begin qsrq:=FormatDatetime(39。YYYYMMDD39。,)。 //出生日期 rzsj:=FormatDatetime(39。YYYYMMDD39。,)。 //入職時(shí)間 czdate := FormatDatetime(39。YYYYMMDD HH:MM:SS39。,Now)。 //操作時(shí)間 if (39。 您 確 認(rèn) 要 提 交 嗎 ？ 39。,39。 系 統(tǒng) 提 示39。,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit。 begin if (=39。39。) or (=39。39。) then begin (39。 姓 名 不 能 為 空 或 員 工 號(hào) 不 能 為 空 !39。,39。 系 統(tǒng) 提 示39。,mb_IconInformation+mb_OK)。 Exit。 end。 畢業(yè)論文 第 24 頁(yè) 共 58 頁(yè) if trim() =39。39。 then begin showmessage(39。請(qǐng)選擇部門 39。)。exit。end。 if trim() =39。39。 then begin showmessage(39。請(qǐng)選擇職務(wù) 39。)。exit。end。 if trim() =39。39。 then begin showmessage(39。請(qǐng)選擇職稱 39。)。exit。end。 sql:=39。select * from ygzlb where ygh=39。39。39。+trim()+39。39。39。39。 //根據(jù)此員工號(hào)是否已存在 。 (sql)。 if then 。 。 if not then begin showmessage(39。此員工號(hào)已存在，請(qǐng)重新輸入員工號(hào) 39。)。 。 。 exit。 end else begin //執(zhí)行插入操作，往員工資料表中插入一條記錄 sql:=39。insert into ygzlb(ygh,xm,xb,xl,qsrq,ssbm,zc,zw,rzsj,sfzh,jtzz,gdlxdh,39。 +39。sjhm,,zzmm,yxbz,czy,czrq)39。 +39。values(39。39。39。+Trim()+39。39。39。,39。39。39。+trim()+39。39。39。,39。 +39。39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。+qsrq+39。39。39。,39。39。39。++39。39。39。,39。 +39。39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。+rzsj+39。39。39。,39。39。39。++39。39。39。,39。 +39。39。39。39。+trim()+39。39。39。,39。39。39。+trim()+39。39。39。,39。39。39。+trim()+39。39。39。,39。39。39。+trim()+39。39。39。,39。 +39。39。39。39。++39。39。39。,1,39。39。39。+dluser+39。39。39。,39。39。39。+czDate+39。39。39。)39。 。 (sql)。 。 if (39。 該記錄提交成功 , 繼續(xù)提交嗎 ?39。,39。 系統(tǒng)提示39。,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then begin := False。 Exit。 end。 。 end。 end。 end。 畢業(yè)論文 第 25 頁(yè) 共 58 頁(yè) 員工基本信息維護(hù) 功能說(shuō)明 包括修改、刪除（刪除員工只是將該員工登記為無(wú)效，并不要求從表中刪除） .輸入員工號(hào)后按回車或點(diǎn)擊查詢按鈕，查詢待修改員工基本信息，各輸入框初始狀態(tài)為只讀， 屏幕格式說(shuō)明 畢業(yè)論文 第 26 頁(yè) 共 58 頁(yè) 源程序分析 員工基本信息查看 : 功能說(shuō)明 用于瀏覽員工的基本信息，采用卡片式和表格式兩種形式表現(xiàn)員工的基本信息，瀏覽時(shí)應(yīng)具有瀏覽前一條記錄、后一條記錄、最前一條、最后一條記錄的功能。實(shí)現(xiàn)采用 pagecontrol 控件，中間放置兩個(gè) Tablesheet,其中一個(gè)放置 Dbgrid按件實(shí)現(xiàn)表格式瀏覽，另一個(gè)放置 Dbedti 控件 ,實(shí)現(xiàn)卡片式瀏覽。由于只涉及到查詢不做源程序分析。 屏幕格式說(shuō)明 瀏覽員工基本信息界面 畢業(yè)論文 第 27 頁(yè) 共 58 頁(yè) 員工基本信息條件查詢 功能說(shuō)明 可以根據(jù)不同的條件組合，查詢員工的基本信息，查詢條件包括所屬部門、職稱、職務(wù)、學(xué)歷、性別、政治面貌、員工號(hào)、姓名，和條件可以任意組合。同時(shí)應(yīng)具有查詢標(biāo)專為無(wú)效的員工的作用。系統(tǒng)同時(shí)應(yīng)提供 Excel 輸出和打印的功能。 多條件查詢是本模塊重點(diǎn)考慮的內(nèi)容，本設(shè)計(jì)完成了 對(duì)多字段、多條件的查詢，其實(shí)現(xiàn)程序如源程序分析： 屏幕格式說(shuō)明 員工資料查詢界面 源程序分析 畢業(yè)論文 第 28 頁(yè) 共 58 頁(yè) 人事?tīng)顩r曲線 : 功能說(shuō)明 采用餅狀圖分析公司的人事?tīng)顩r，實(shí)現(xiàn)按性別、職稱、職務(wù)、學(xué)歷、部門五種情況分析公司人員的分布情況，直觀的分析了公司的人力資源情況，用以輔助公司領(lǐng)導(dǎo)安排人力資源計(jì)劃，采用 Dbchart 控件可以方便的實(shí)現(xiàn)，不做程序分析。 企業(yè)員工花名冊(cè) : 功能說(shuō)明 為了保存企業(yè)員工信息，生成公司員工花名冊(cè)，設(shè) 計(jì)了此報(bào)表打印模塊，通過(guò)采用 QuickReport 控件可能方便實(shí)現(xiàn)，由于無(wú)特殊之處，在此不做源程序分析。 工資管理模塊的實(shí)現(xiàn) 出盤 功能說(shuō)明 選擇月份出盤，打印工資清單，出軟盤與銀行接口，一般不準(zhǔn)刪除歷史月份，不能修改，只能查詢，如需對(duì)本月工資信息進(jìn)行維護(hù)，見(jiàn)新員工工資新增、員工工資修改。 畢業(yè)論文 第 29 頁(yè) 共 58 頁(yè) 屏幕格式設(shè)計(jì) 出盤界面 程序流程圖 出盤： 選取出盤的月份 確認(rèn)出盤 否 是 退出 選擇存盤路徑 否 是 將該月的數(shù)據(jù)作為下個(gè)月的初始數(shù)據(jù)插入 Ygxjjgb 中 失敗 回滾 在 Kjcsb 中插入一條記錄，表示該月已經(jīng)出盤成功 成功 失敗 畢業(yè)論文 第 30 頁(yè) 共 58 頁(yè) 出盤回滾： 源程序分析 多數(shù) 據(jù)庫(kù)表之間的鏈接操作是本模塊的設(shè)計(jì)重點(diǎn)，在生成員工工資信息的過(guò)程中，為了能夠顯示工資數(shù)據(jù)，系統(tǒng)要建立基本參數(shù)表、員工資料表、員工薪水帳目表之間的連接操作，為了能夠按銀行格式輸出，本程序花了很多功夫。 員工工資結(jié)構(gòu)調(diào)整 功能說(shuō)明 要求在同一窗口上實(shí)現(xiàn)新員工工資新增和員工工資結(jié)構(gòu)調(diào)整。通過(guò)在出盤窗口上點(diǎn)擊右鍵選擇是新增還是修改員工工資信息，動(dòng)態(tài)改變提交按鈕上顯示的信息，實(shí)現(xiàn)調(diào)整員工工資結(jié)構(gòu)的目的。 屏幕格式說(shuō)明 出盤發(fā)生錯(cuò)誤 如果 Ygxjjgb 已經(jīng)存在下月數(shù)據(jù)，刪除 如果 Cjcsb 存在該月出盤成功標(biāo)志，刪除 畢業(yè)論文 第 31 頁(yè) 共 58 頁(yè) 員工工資結(jié)構(gòu)維護(hù)界面 “ IT 開(kāi)拓者 3 網(wǎng)絡(luò) 工作室”成立于 2021 年，是一個(gè)專業(yè)的計(jì)算機(jī)軟件開(kāi)發(fā)團(tuán)隊(duì)。 “資源共享，信息互通” 需要更多相關(guān)設(shè)計(jì)資料和源代碼加 :493703123