【正文】 “資源共享，信息互通” 需要更多相關(guān)設(shè)計(jì)資料和源代碼加 :493703123 。通過在出盤窗口上點(diǎn)擊右鍵選擇是新增還是修改員工工資信息，動(dòng)態(tài)改變提交按鈕上顯示的信息，實(shí)現(xiàn)調(diào)整員工工資結(jié)構(gòu)的目的。 畢業(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)，在生成員工工資信息的過程中，為了能夠顯示工資數(shù)據(jù)，系統(tǒng)要建立基本參數(shù)表、員工資料表、員工薪水帳目表之間的連接操作，為了能夠按銀行格式輸出，本程序花了很多功夫。 企業(yè)員工花名冊(cè) : 功能說明 為了保存企業(yè)員工信息，生成公司員工花名冊(cè)，設(shè) 計(jì)了此報(bào)表打印模塊，通過采用 QuickReport 控件可能方便實(shí)現(xiàn)，由于無(wú)特殊之處，在此不做源程序分析。系統(tǒng)同時(shí)應(yīng)提供 Excel 輸出和打印的功能。 屏幕格式說明 瀏覽員工基本信息界面 畢業(yè)論文 第 27 頁(yè) 共 58 頁(yè) 員工基本信息條件查詢 功能說明 可以根據(jù)不同的條件組合，查詢員工的基本信息，查詢條件包括所屬部門、職稱、職務(wù)、學(xué)歷、性別、政治面貌、員工號(hào)、姓名，和條件可以任意組合。實(shí)現(xiàn)采用 pagecontrol 控件，中間放置兩個(gè) Tablesheet,其中一個(gè)放置 Dbgrid按件實(shí)現(xiàn)表格式瀏覽，另一個(gè)放置 Dbedti 控件 ,實(shí)現(xiàn)卡片式瀏覽。 end。 end。 end。,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then begin := False。,39。 if (39。 (sql)。)39。39。39。,39。39。39。,1,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。,39。39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。39。,39。39。39。,39。39。39。values(39。sjhm,zzmm,yxbz,czy,czrq)39。insert into ygzlb(ygh,xm,xb,xl,qsrq,ssbm,zc,zw,rzsj,sfzh,jtzz,gdlxdh,39。 exit。 。此員工號(hào)已存在，請(qǐng)重新輸入員工號(hào) 39。 。 (sql)。39。39。39。select * from ygzlb where ygh=39。end。)。 then begin showmessage(39。 if trim() =39。exit。請(qǐng)選擇職務(wù) 39。39。end。)。 then begin showmessage(39。 畢業(yè)論文 第 24 頁(yè) 共 58 頁(yè) if trim() =39。 Exit。 系 統(tǒng) 提 示39。 姓 名 不 能 為 空 或 員 工 號(hào) 不 能 為 空 !39。39。39。,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit。,39。 //操作時(shí)間 if (39。YYYYMMDD HH:MM:SS39。,)。 //出生日期 rzsj:=FormatDatetime(39。YYYYMMDD39。 qsrq,rzsj,czdate: String。 procedure (Sender: TObject)。 end. 人事管理模塊的實(shí)現(xiàn) 員工基本信息輸入 功能說明 完成新員工人事檔案的建立， 初始狀態(tài)下所有輸入和選擇框框均無(wú)效，只有點(diǎn)新增按鈕后才可用，同時(shí)提交按鈕變成有效。 。 begin //打開人事狀況曲線分析窗口 (Tfrm_rsqkqxfs, frm_rsqkqxfs)。 end。 。 。 //生成企業(yè)員工花名冊(cè) begin frm_ygbb:=(application)。 end。星期六 39。星期五 39。星期四 39。星期三 39。星期二 39。星期一 39。星期日 39。 //獲取星期函數(shù) var days: array[1..7] of string。 end。 procedure (Sender: TObject)。 end。 //實(shí)現(xiàn)窗口極小化 var i:integer。 end。 procedure (Sender: TObject)。 Tile。 procedure (Sender: TObject)。,nil,nil,SW_ShowNormal)。,39。 //打開計(jì)算器 begin ShellExecute(handle,39。//調(diào)用 API 函數(shù) end。39。open39。 procedure (Sender: TObject)。 。 //打開工資短信窗口 begin 畢業(yè)論文 第 21 頁(yè) 共 58 頁(yè) frm_gzdx:=(application)。 end。 procedure (Sender: TObject)。 。//打開薪水帳目維護(hù)窗口 begin (TFrm_gzzmwh, Frm_gzzmwh)。 end。 procedure (Sender: TObject)。 //打開員工信息查看窗口 begin (Tfrm_llygzbxx, frm_llygzbxx)。 end。 procedure (Sender: TObject)。 。//打開職稱維護(hù)窗口 begin (TFrm_zcxg, Frm_zcxg)。//調(diào)用函數(shù) f_get_week end?！?39。hh:nn:ssAM/PM39。日 39。月 39。年 39。 【 39。 //在狀態(tài)欄上顯示日期時(shí)間星期 begin decodedate(now,y,m,d)。 procedure (Sender: TObject)。 畢業(yè)論文 第 20 頁(yè) 共 58 頁(yè) 。//打開用戶維護(hù)窗口 begin (TFrm_yhgl, Frm_yhgl)。 end。 procedure (Sender: TObject)。 。 //打開職務(wù)參數(shù)維護(hù)窗口 begin (TFrm_zwxg, Frm_zwxg)。 //打開 Query end。 if then 。 procedure (Sender: TObject)。 begin close。 end。 ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 )。是否退出并關(guān)閉計(jì)算機(jī)？ 39。 procedure (Sender: TObject)。 //菜單關(guān)閉事件 begin close。狀態(tài)欄主要是用于顯示日期時(shí)鐘信息，以及系統(tǒng)操作過程中的信息。 end。 dluser:=。 //輸入次數(shù)加 1 exit。 //若密碼輸入錯(cuò)誤，提示重新輸入 。 請(qǐng) 重 新 輸 入 ！39。 密 碼 或 工 號(hào) 不 正 確 39。 //關(guān)閉主窗口，退出系統(tǒng) end。,mb_IconInformation+mb_OK)。,39。).asstring then begin if err_cou=2 then //判斷是否三次輸入錯(cuò)誤 begin (39。 //根據(jù)用戶名從用戶口令表中取出用戶口令 if (39。 if then 。39。39。39。39。select pswd from yhklb where dlyh=39。 。 Exit。,mb_IconInformation+mb_OK)。,39。 then //判斷密碼是否輸入為空 begin (39。 begin if =39。 屏幕格式設(shè)計(jì) 啟動(dòng)界面 登錄窗口設(shè)計(jì) 功能說明 控制員工登錄，防止非法用戶闖入本系統(tǒng)，保證系統(tǒng)的安全， 輸入口令時(shí)屏畢業(yè)論文 第 16 頁(yè) 共 58 頁(yè) 幕顯示為 “*”以利保密 。 畢業(yè)論文 第 15 頁(yè) 共 58 頁(yè) 第四章 詳細(xì)設(shè)計(jì) 根據(jù)需求分析、概要設(shè)計(jì)的結(jié)果，采用 Delphi 做為開發(fā)工具，實(shí)現(xiàn)公司人事工資管理各模塊的功能。 Kjcsb 控制參數(shù)表 說明：控制參數(shù)表用于控制出盤，在每次出盤成功后，會(huì)在該表中插入一條記錄，以記錄該月是否已經(jīng)出盤；在需要再次出盤的時(shí)候，系統(tǒng)將會(huì)首先判斷該月的出盤標(biāo)志，如果已經(jīng)出盤，則對(duì)數(shù)據(jù)庫(kù)不做操作，僅僅在界面上進(jìn)行出盤，生成 TXT 文本文件，如果未出盤則需要對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作（將該月的數(shù)據(jù)重新插入數(shù)據(jù)庫(kù)，作為下個(gè)月出盤的初始數(shù)據(jù)）