公司職工工資管理信息系統(tǒng)—畢業(yè)設(shè)計(jì)-資料下載頁
2025-08-06 06:05本頁面
【正文】 procedure mukqdjClick(Sender: TObject)。 // procedure txjhClick(Sender: TObject)。 // procedure ywjzClick(Sender: TObject)。 procedure ydtjClick(Sender: TObject)。 procedure nztjClick(Sender: TObject)。 // procedure ygxzbbClick(Sender: TObject)。 //procedure kqzlbbClick(Sender: TObject)。 procedure b_yhClick(Sender: TObject)。 procedure btn_passClick(Sender: TObject)。 procedure N1Click(Sender: TObject)。 procedure mukqtjClick(Sender: TObject)。 procedure ygzlbbClick(Sender: TObject)。 procedure N2Click(Sender: TObject)。 procedure ygxzbbClick(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var frmmain: Tfrmmain。 pubuser:string。 identify:string。 panyname:string。implementationuses pany, datarsgl, login, about, init, datarepair, usermanager, MonthCalendar, employee, kqmanage, showfindrs, rszhgl, kqdj, kqjbzlgl, 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)。beginif((39。確認(rèn)退出系統(tǒng)嗎?39。,39。提示39。,mb_okcancel))=1 then。end。procedure (Sender: TObject)。beginif((39。確認(rèn)退出系統(tǒng)嗎?39。,39。提示39。,mb_okcancel))=1 then。end。procedure (Sender: TObject)。beginif identify=39。系統(tǒng)管理員39。 then begin //:=false。 [0].Text:=39。歡迎使用工資考勤管理系統(tǒng)39。 [1].Text:=39。用戶名稱:39。+pubuser。 [2].Text:=39。級(jí)別:39。+identify。 [3].Text:=datetostr(now)。 endelse begin //操作者應(yīng)有的權(quán)限 [0].Text:=39。歡迎使用工資考勤管理系統(tǒng)39。 [1].Text:=39。用戶名稱:39。+pubuser。 [2].Text:=39。級(jí)別:39。+identify。 [3].Text:=datetostr(now)。 //設(shè)定其相應(yīng)的菜單為 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{。(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)。beginif key=27 thenclose。end。procedure (Sender: TObject)。begin{(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。procedure (Sender: TObject)。begin (tfrmemployee,frmemployee)。 。end。procedure (Sender: TObject)。begin (tfrmbmzl,frmbmzl)。 。end。procedure (Sender: TObject)。beginfrmrszhgl:=(self)。end。procedure (Sender: TObject)。beginfrmrszhgl:=(self)。:=1。:=false。:=false。:=false。with dobeginclose。(39。select * from employeer39。)。open。first。while not eof dobegin(fieldbyname(39。number39。).AsString)。next。 //下移動(dòng)符值end。end。end。procedure (Sender: TObject)。beginfrmrszhgl:=(self)。:=2。:=false。:=false。:=false。:=false。:=formatdatetime(39。yyyymmdd39。,now)。with dobeginclose。(39。select * from employeer39。)。open。first。while not eof dobegin(fieldbyname(39。number39。).AsString)。next。 //下移動(dòng)符值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)。begin (TForm_PW,Form_PW)。 。end。procedure (Sender: TObject)。begin (TForm_jbgz,Form_jbgz)。 。end。procedimplementationuses 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。 showmessage(39。修改39。++39。 用戶密碼成功!39。)。 end。 except MessageDlg(39。修改39。++39。 用戶密碼失敗!39。,mtError,[mbok],0)。 Exit。 end。 end 。end。end.
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1