【導讀】人員、考勤、工資進行計算機管理。從接到任務書開始，就對目前眾多。用面向對象的方法來開發(fā)本次課題。發(fā)工具Dephi的開發(fā)系統(tǒng)的過程等。系統(tǒng)的建立將實現(xiàn)單位人事方面的。而易舉的就能使用該軟件來達到對企業(yè)人員信息的管理。

　　

【正文】 { Private declarations } public { Public declarations } end。 var frmmain: Tfrmmain。 pubuser:string。 identify:string。 panyname:string。 implementation uses pany, datarsgl, login, about, init, datarepair, usermanager, MonthCalendar, employee, kqmanage, showfindrs, rszhgl, kqdj, kqjbzlgl, 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 32 kqsettime, rpemployeer, kqtj, ycfindkq, gzffbz, txgl, monthjzgl, yggzjs, monthendtj, prtjdrp, monthgzrp, kqzlrp, Unit_user,Unit_pw, Unit_kqdj, Unit_jbgz, Unit_kqtj, Unit_zgb, Unit_gzjs, Unit_gz_print。 {$R *.dfm} procedure (Sender: TObject)。 begin if((39。確認退出系統(tǒng)嗎 ?39。,39。提示 39。,mb_okcancel))=1 then 。 end。 procedure (Sender: TObject)。 begin if((39。確認退出系統(tǒng)嗎 ?39。,39。提示 39。,mb_okcancel))=1 then 。 end。 procedure (Sender: TObject)。 begin if identify=39。系統(tǒng)管理員 39。 then begin //:=false。 [0].Text:=39。歡迎使用工資考勤管理系統(tǒng) 39。 [1].Text:=39。用戶名稱 :39。+pubuser。 [2].Text:=39。級別 :39。+identify。 [3].Text:=datetostr(now)。 end else begin //操作者應有的權限 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 33 [0].Text:=39。歡迎使用工資考勤管理系統(tǒng) 39。 [1].Text:=39。用戶名稱 :39。+pubuser。 [2].Text:=39。級別 :39。+identify。 [3].Text:=datetostr(now)。 //設定其相應的菜單為 FALSE 狀態(tài) { :=false。 :=false。 :=false。 :=false。} end。 end。 procedure (Sender: TObject)。 begin (tfrmabout,frmabout)。 。 end。 procedure (Sender: TObject)。 begin [4].Text:=timetostr(time)。 end。 procedure (Sender: TObject)。 begin (tfrmpany,frmpany)。 。 end。 procedure (Sender: TObject)。 begin {。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 34 。 (39。select * from panytb39。)。 。 if 0 then :=(39。name39。).AsString+39。人事管理系統(tǒng) 39。} end。 procedure (Sender: TObject)。 begin (tfrminit,frminit)。 。 end。 procedure (Sender: TObject)。 begin (tfrmdatarepair,frmdatarepair)。 。 。 end。 procedure (Sender: TObject。 var Key: Char)。 begin if key=27 then close。 end。 procedure (Sender: TObject)。 begin 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 35 {(tfrmusermanager,frmusermanager)。 。 :=false。 :=false。 :=false。 :=false。 。} end。 procedure (Sender: TObject)。 begin {(tfrmusermanager,frmusermanager)。 。 :=false。 :=false。 :=false。 :=false。 。 } end。 procedure (Sender: TObject)。 begin shellexecute(handle,39。open39。,39。39。,nil,nil,sw_show)。 end。 procedure (Sender: TObject)。 begin (tfrmmonthcalendar,frmmonthcalendar)。 。 end。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 36 procedure (Sender: TObject)。 begin (tfrmemployee,frmemployee)。 。 end。 procedure (Sender: TObject)。 begin (tfrmbmzl,frmbmzl)。 。 end。 procedure (Sender: TObject)。 begin frmrszhgl:=(self)。 。 end。 procedure (Sender: TObject)。 begin frmrszhgl:=(self)。 。 :=1。 :=false。 :=false。 :=false。 with do begin close。 。 (39。select * from employeer39。)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 37 open。 first。 while not eof do begin (fieldbyname(39。number39。).AsString)。 next。 //下移動符值 end。 end。 end。 procedure (Sender: TObject)。 begin frmrszhgl:=(self)。 。 :=2。 :=false。 :=false。 :=false。 :=false。 :=formatdatetime(39。yyyymmdd39。,now)。 with do begin close。 。 (39。select * from employeer39。)。 open。 first。 while not eof do begin (fieldbyname(39。number39。).AsString)。 next。 //下移動符值 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 38 end。 end。 end。 procedure (Sender: TObject)。 begin Form_kqdj:=(self)。 。 end。 procedure (Sender: TObject)。 begin :=adoquery1。 :=39。kcgz39。 :=adoquery1。 :=39。sjgz39。 :=adoquery1。 :=39。name39。 。 end。 end。} procedure (Sender: TObject)。 begin (TForm_user,Form_user)。 。 end。 procedure (Sender: TObject)。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 39 begin (TForm_PW,Form_PW)。 。 end。 procedure (Sender: TObject)。 begin (TForm_jbgz,Form_jbgz)。 。 end。 proced implementation uses datarsgl。 {$R *.dfm} procedure (Sender: TObject)。 begin { 。 (39。 SELECT * FROM usertrb 39。) 。 。 [39。user39。].:=39。用戶 39。 。 begin 。 (39。update usertrb set password=39。39。39。+ + 39。39。39。 where name=39。39。39。++39。39。39。39。)。 ExecSQL。 重油公司工資管理信息系統(tǒng) 畢 業(yè) 設 計 _______________________________________________________________________ 40 showmessage(39。修改 39。++39。用戶密碼成功 !39。)。 end。 except MessageDlg(39。修改 39。++39。用戶密碼失敗 !39。,mtError,[mbok],0)。 Exit。 end。 end 。 end。 end. 過戰(zhàn)況，博學多聞的隆美爾一下子就猜出了那種能在空中自動旋轉，抵沖地心引力的金屬傘，是消失已久的地精文明杰作“空降陀螺傘” 劉震撼毫不掩飾，向隆美爾吹噓了自己退剿滅地精強盜，無意中得到過 地精武器設計圖紙的事實，包括威名赫赫的魔導大炮，古力火銃、地精軍刀一應俱全。 “那你怎么不給比蒙大軍列裝這種地精武器？”隆美爾哈哈大笑，顯然是認為老流氓在胡扯。 “列裝個屁啊！那個青銅版圖紙被我一氣之下，直接捏扁了！”劉震撼苦笑著雙手一攤：“威力最大的魔導炮和古力火銃，都需要魔法金屬做鍍層，還要用微雕技術篆刻魔法陣，我上哪找這些技術和材料？再說了。摩拉丁怒火上哪找去？地精雖然發(fā)明了可以炸開礦山的黑色粉未，可是我沒配方，也做