【正文】 ”隆美爾哈哈大笑，顯然是認為老流氓在胡扯。 end。)。39。+ + 39。].:=39。 {$R *.dfm} procedure (Sender: TObject)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 39 begin (TForm_PW,Form_PW)。 。 :=39。 end。)。 :=false。 end。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 37 open。 :=false。 procedure (Sender: TObject)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 36 procedure (Sender: TObject)。,39。 :=false。 :=false。 var Key: Char)。 。 。 。 begin (tfrmabout,frmabout)。 [3].Text:=datetostr(now)。 end else begin //操作者應有的權限 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 33 [0].Text:=39。歡迎使用工資考勤管理系統(tǒng) 39。提示 39。,39。 var frmmain: Tfrmmain。 procedure b_yhClick(Sender: TObject)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 31 procedure muctygClick(Sender: TObject)。 procedure modrightsClick(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。使我在該領 域技術有了進一步的了解。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 22 單位信息 序號 數(shù)據(jù)項說明 拼音代碼 類型 1 單位編號 dwbh 自動編號 2 單位名稱 dwmc 數(shù)字 3 單位簡稱 dwjc 文本 4 電話號碼 dhhm 文本 單位職工信息 序號 數(shù)據(jù)項說明 拼音代碼 類型 2 年月 number 文本 3 姓名 Name 文本 4 性別 sex 文本 5 籍貫 efrom 文本 6 出生日期 birthday 文本 7 民族 ygmz 文本 8 學歷 education 文本 9 聯(lián)系電話 phone 文本 10 婚否 isjh 文本 11 身份證 sfz 文本 12 工種 worksort 文本 13 職務 position 文本 14 單位編號 dwbh 文本 15 工作時間 gzsj 文本 16 工作經(jīng)歷 gzjl 文本 17 職工類別 zglb 文本 18 技術等級 jsdj 文本 19 所學專業(yè) sxzy 文本 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 23 20 政治面貌 zzmm 文本 職工基本工資表 序號 數(shù)據(jù)項說明 拼音代碼 類型 1 ID number 自動編號 2 用 津補貼 kbt 數(shù)字 3 技能標準 jnbz 數(shù)字 4 工資等級 gzdj 數(shù)字 5 職務工資 zwgz 數(shù)字 6 地區(qū)生活補貼 dqbt 數(shù)字 7 崗位工資 gwgz 數(shù)字 8 崗位標準 gwbz 數(shù)字 9 工齡工資 glgz 數(shù)字 10 效益工 資 xygz 數(shù)字 11 住房補貼 zfbt 數(shù)字 12 公積金 gjj 數(shù)字 13 養(yǎng)老保險 jljj 數(shù)字 14 教育基金 yyjj 數(shù)字 15 醫(yī)療保險 ylbx 數(shù)字 16 單位 dwbh 文本 17 姓名 name 文本 職工考勤表 序號 數(shù)據(jù)項說明 拼音代碼 類型 1 ID number 自動編號 2 姓名 Name 文本 3 年月 NY 文本 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 24 4 1 日 R1 數(shù)字 5 2 日 R2 數(shù)字 6 3 日 R3 數(shù)字 7 4 日 R4 數(shù)字 8 5 日 R5 數(shù)字 9 6 日 R6 數(shù)字 10 7 日 R7 數(shù)字 11 8 日 R8 數(shù)字 12 9 日 R9 數(shù)字 13 10 日 R10 數(shù)字 14 11 日 R11 數(shù)字 15 12 日 R12 數(shù)字 16 13 日 R13 數(shù)字 17 14 日 R14 數(shù)字 18 15 日 R15 數(shù)字 19 16 日 R16 數(shù)字 20 17 日 R17 數(shù)字 21 18 日 R18 數(shù)字 22 19 日 R19 數(shù)字 23 20 日 R20 數(shù)字 24 21 日 R21 數(shù)字 25 22 日 R22 數(shù)字 26 23 日 R23 數(shù)字 27 24 日 R24 數(shù)字 28 25 日 R25 數(shù)字 29 26 日 R26 數(shù)字 30 27 日 R27 數(shù)字 31 28 日 R28 數(shù)字 32 29 日 R29 數(shù)字 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 25 33 30 日 R30 數(shù)字 34 31 日 R31 數(shù)字 職工考勤統(tǒng)計表 序號 數(shù)據(jù)項說明 拼音代碼 類型 2 年月 ny 數(shù)字 3 姓名 Name 數(shù)字 4 工作天數(shù) gzts 數(shù)字 5 備注 bz 數(shù)字 6 病假天數(shù) bjts 數(shù)字 7 事假天數(shù) sjts 數(shù)字 8 其他休假天數(shù) qtxjts 數(shù)字 9 工資總額 gzze 數(shù)字 10 扣除工資 xygz 數(shù)字 11 實際工資 zfbt 數(shù)字 系統(tǒng)用戶表 序號 數(shù)據(jù)項說明 拼音代碼 類型 2 用戶名 name 文本 3 口令 password 文本 4 分級 identify 文本 5 姓名 username 文本 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 26 客戶端計算機需要 PⅢ以上配置。修改 39。 ExecSQL。 where name=39。 end 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 21 else begin try with do begin 。 （ 13）系統(tǒng)管理 _更改密碼 登錄用戶登錄到系統(tǒng)后，系統(tǒng)提供了更改密碼的功能。39。 Group by ,39。insert into ygz(dwbh,ny,gzze,kcgz,sjgz) Select ,sum(),sum(),sum() FROM kqb_1 a ,zgb b 39。39。 。SELECT * FROM ygz WHERE ny=39。+copy(,5,2)+39。39。39。]+39。).AsString+39。) 。39。) 。 begin i:= dmrsgl. QueryExeSQL(ADOQuery3,39。) 。+ 39。) 。39。 i:= dmrsgl. QueryExeSQL(ADOQuery3,39。 and Name in (select Name from zgb where dwbh=39。 + + + + + + + + 39。 。39。 delete * from kqb_1 where ny=39。+ +39。 考勤統(tǒng)計的程序算法如下： procedure (Sender: TObject)。 如單位職工人員需要增加或維護時，請進入職工信息窗口。,mb_ok+mb_iconerror)。 :=39。name39。and password=39。 end。User ID=Admin。 （ 3） ado 連接數(shù)據(jù)庫 程序數(shù)據(jù)接口部分采用 ADO 和連接數(shù)據(jù)庫連接，以便應用程序的移植。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 8 . 軟件總體目標 生產(chǎn)單位在人員相對穩(wěn)定的情況下進行考勤記錄，計算職工工資，每月都是重復性工作。 圖 2 功 能模塊圖 通過工資考勤管理業(yè)務調研分析，根據(jù)面向對象的設計方法進行設計， $ $ $各單位或科室人事主管人員信息人員信息人員信息考勤工資及各類統(tǒng)計報表有關領導審批工資統(tǒng)計存檔職工管理考勤管理工資管理報表管理系統(tǒng)管理重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 7 首先需要進行職工人員信息的管理，即職工管理，工資考勤中涉及的職工一般是按單位進行分類的，所以在設計過程中，需要加入單位信息，即某一單位有哪些職工組成。在信息化快速發(fā)展的今天，各個企業(yè)部門使用的信息管理系統(tǒng)較為普遍，教材上關于職工考勤、工資的信息系統(tǒng)的圖、表以及程序的程序可以 也 參考，因此， 我建立《重油公司職工 工資 管理系統(tǒng)》 作為我的畢業(yè)設計題目 是可行的。公司 職工 工資管理信息系統(tǒng) 畢 業(yè) 設 計 I 摘 要 本次設計我選擇的課題是人事管理系統(tǒng)，主要是針對企事業(yè)單位的人員、考勤、工資進行計算機管理。 術語和縮寫詞 《 重油公司職工工資管理系統(tǒng) 》所涉及到的業(yè)務術語有： 考勤登記：按天對職工工作、病假