【正文】 單位的職工信息打印出來。39。delete from ygz where ny=39。 （ 9）單位工資統(tǒng)計 本人在設(shè)計中考慮到，各個不同的單位工資總額、扣除工資及實際發(fā)放工資都是工資核算員比較關(guān)注的數(shù)字，因此，我做了這個單位工資統(tǒng)計，即每月、每個工資發(fā)放統(tǒng)計表。 end。39。]+39。+ +39。+ +39。++39。39。 + + + + + + + + 39。39。+ 39。 即用戶選擇用戶名后，輸入正確的口令后，系統(tǒng)自動到數(shù)據(jù)庫 usertrb 表里驗 證密碼，如果試密碼次數(shù)大于 3 時，退出系統(tǒng)，流程圖 如下： 圖 6 系統(tǒng)登錄流程 開始輸入用戶名和口令是否有當(dāng)前用戶和口令否次數(shù) N + 1次數(shù) N = 3否進(jìn)入主窗口是退出系統(tǒng)是結(jié)束 否否重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 12 密碼正確進(jìn)入系統(tǒng)主界面： 圖 7 系統(tǒng)主窗口 （ 3）單位信息管理 對于職工考勤人員來說，職工人員最基本的分類方法是按單位。密碼錯誤 ,請重試 !39。 。 begin :=False。 功能要求 本人通過對單位職工考勤和工資計算方法等方面的調(diào)研，需要完成以下方面信息的管理及功能實現(xiàn)： 1. 單位信息：一般包括單位名稱、單位簡稱、單位電話，根據(jù)數(shù)據(jù)統(tǒng)計和人事管理方面的要求，還需要單位編碼； 2. 單位職工信息：其中包括姓名、性別、族別、籍貫、出生產(chǎn)蟆、民族，學(xué)歷、聯(lián)系電話、身份證、工作時間等，主要為本單位人員提供一個人員信息庫。系統(tǒng)的建立將實現(xiàn)單位人事方面的錄入、查詢、修改、刪除、維護(hù)、分類統(tǒng)計的自動化功能，操作人員輕而易舉的就能使用該軟件來達(dá)到對 企業(yè)人員信息的管理。 業(yè)務(wù)流程圖 圖 1 業(yè)務(wù)流程圖 各單位考勤管理流程如下：各單位考勤員列出自己單位人員表，根據(jù)每個人當(dāng)月正常工作出勤情況，填寫非正常和請假天數(shù)，依據(jù)本人的基本工資情況，按一定算法計算當(dāng)前職工的當(dāng)月工資。 實現(xiàn)工具簡介 （ 1） Delphi 簡介 Delphi 是由 Borland 公司推出的基于窗口和面向?qū)ο蟮木幊坦ぞ?，與Windows 操作系統(tǒng)緊密的結(jié)合，具有強(qiáng)大的數(shù) 據(jù)庫技術(shù)支持，迅捷的編輯速度，易學(xué)靈活的特點。database\。identify39。 密 碼 重 試 次 數(shù) 過 多 , 請與管理員聯(lián)系 !39。 （ 5）考勤登記表 考勤登記表，主要是記錄每一個職工當(dāng)前月份是否工作，如果出勤，則在當(dāng)天日期下選勾，進(jìn)行保存，系統(tǒng)自動算出本月該職工出勤天數(shù)。 if i0 then begin 。 。++39。39。) 。程序設(shè) 計界面如下： 相應(yīng)用程序算法如下： procedure (Sender: TObject)。 while not do begin 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 17 dmrsgl. QueryExeSQL(ADOQuery,39。 update kqb_1 set gzze=39。39。) 。39。 。39。確認(rèn)密碼和新密碼不同 ,請重新輸入 !39。39。 end。 procedure tbexitClick(Sender: TObject)。 procedure bmzlClick(Sender: TObject)。 procedure N2Click(Sender: TObject)。 begin if((39。級別 :39。} end。 (39。 。 begin {(tfrmusermanager,frmusermanager)。 begin (tfrmmonthcalendar,frmmonthcalendar)。 begin frmrszhgl:=(self)。 next。 。 end。 。 。39。用戶密碼失敗 !39。 Exit。39。user39。 procedure (Sender: TObject)。 begin :=adoquery1。select * from employeer39。 end。 :=1。 end。 :=false。 procedure (Sender: TObject。)。 procedure (Sender: TObject)。 [3].Text:=datetostr(now)。,39。 private { Private declarations } public { Public declarations } end。 procedure muoutmoveClick(Sender: TObject)。 procedure menuaboutClick(Sender: TObject)。 end。)。 。39。 :=39。) 。 年39。39。gzze39。+ ++++++++x as gzze FROM jbgzb WHERE name=39。 ADOQuery,ADOQuery1:TADOQuery。SELECT , , , , FROM zgb INNER JOIN kqb_1 ON = 39。39。39。 。 := 39?？梢栽谶@ 里進(jìn)行修改。 錯誤39。 pubuser:=fieldbyname(39。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 10 :=True。 （ 2） Access 數(shù)據(jù)庫 作為畢業(yè)設(shè)計，系統(tǒng)采用了微軟桌面數(shù)據(jù)庫 Access， Access 操作方便，只需要計算機(jī)安裝 OFFICE 就可運行本系統(tǒng)，但缺點是作為本地文件，安全性不高。當(dāng)工資發(fā)放完后，將當(dāng)月工資報表存檔。從接到任務(wù)書開始，就對目前眾多的可視化開發(fā)工具進(jìn)行了比較，決定利用 Dephi 作為前端工具軟件，應(yīng)用面向?qū)ο蟮姆椒▉黹_發(fā)本次課題。系統(tǒng)管理主要是對系統(tǒng)用戶、用戶密 碼的管理，還可以根據(jù)使用者的要求，控制系統(tǒng)功能權(quán)限或數(shù)據(jù)權(quán)限等。具體源碼如下： procedure (Sender: TObject)。 var findstring:string。 modalresult:=mrok。 end end。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。39。 insert into kqb_1(Num,Name,ny,gzts ) SELECT Num, Name, ny, + + + + + 39。39。39。39。39。+ADOQuery3[39。+ 39。 。) 。 。 Where = and =39。) 。update usertrb set password=39。修改 39。 盤文件的目錄管理 將系統(tǒng)程序拷貝到任意目錄下，執(zhí)行 EXE 程序，其中 database 路徑下的文件 為數(shù)據(jù)庫文件。 procedure FormShow(Sender: TObject)。 // procedure txjhClick(Sender: TObject)。 identify:string。 end。 [1].Text:=39。 end。name39。 end。 :=false。 。 :=false。 begin frmrszhgl:=(self)。 first。 :=adoquery1。 end。 。)。 end。 except MessageDlg(39。39。 (39。 end。 procedure (Sender: TObject)。yyyymmdd39。 while not eof do begin (fieldbyname(39。 。,nil,nil,sw_show)。 。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 :=false。用戶名稱 :39。,mb_okcancel))=1 then 。 procedure N1Click(Sender: TObject)。 procedure calcuateClick(Sender: TObject)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 30 //******************* mainform 系統(tǒng)主界面 ********************* unit mainform。用戶密碼失敗 !39。39。保存成功后，下一次，用當(dāng)前用戶登錄時，用戶密碼即是這個更改的新密碼，否則不能登錄到系統(tǒng)了。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。 39。39。39。39。 。 ADOQuery:=(self)。通過調(diào)查，員工基本工資包括：技能標(biāo)準(zhǔn)、技術(shù)工資、職工工資、崗位工資、工齡工資、住房補(bǔ)貼公積金等，具體如下窗口內(nèi)容： 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 16 在上面窗口中選擇單位，列表中就列出了選擇單位的人員信息，點中人員信息，進(jìn)行職工工資標(biāo)準(zhǔn)數(shù)據(jù)的錄入。 年39。+ 39。 + AS KQTS FROM kqb where ny=39。39。39。人員信息維護(hù)窗口如下： 在一個優(yōu)秀的設(shè)計中，為了減少系統(tǒng)維護(hù)所帶來的工作，盡量在程序中做到動態(tài)調(diào)用參數(shù)和值，比如以上界面中的籍貫、民族、文化 程度、工程、職務(wù)等可供選擇的項，可以定義在一個代碼表中，通過分類碼分類使用這些值，就如所在部門名稱一樣，將單位名稱提前定義后，在職工信息表中，直接選擇這些單位，就是該項職工的工作單位了。 。 (findstring)。+ 39。 假設(shè)和約束 該軟件運行需在 Windows 環(huán)境下，客戶端內(nèi)存至少 32M。 職工花名冊：按單位分類登記每個職工主要信息的報表。職工 、考勤、工資三都有必然的聯(lián)系，要面對各種不同的單據(jù)，進(jìn)行煩瑣的計算。 6. 提供單位、職工、考勤、工資等相關(guān)信息的綜合查詢。Password=。+quotedstr()+39。,mb_ok+mb_iconerror)。 單位數(shù)據(jù) 表 ygbmtb 及職工人員信息表 zgb 的數(shù)據(jù)項說明詳見數(shù)據(jù)庫設(shè)計。39。39。+ 39。 。 ) )39。39。39。39。name39。39。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。++39。39。主要用到了系統(tǒng)用戶表，通過對該表的維護(hù)，就能增減使用用戶。39。 except MessageDlg(39。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 28 《軟件工程導(dǎo)論（第三版）》 張海藩 編著 清華大學(xué)出版社 《數(shù)據(jù)庫原理與應(yīng)用》 郭盈發(fā) 趙偉華 張紅娟 李菊蓮 編著 西安電子科技大學(xué)出版社 《 Delphi 數(shù)據(jù)庫應(yīng)用開發(fā)》 曾令友 編著 中國水利水電出版社 《 Delphi 程序設(shè)計與開發(fā)指南》 王松 編著 高等教育出版社 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設(shè) 計 _______________________________________________________________________ 29 通過此次畢業(yè)設(shè)計