【導讀】《數(shù)據(jù)庫應用與開發(fā)》。東北電力大學經濟管理學院。第1章人力資源管理系統(tǒng)概述

　　

【正文】 18 參考文獻 [1] 楊長春 ， 劉俊 ， 石林 ． 高等學校教材計算機科學與技術 ． Delphi 程序設計教程 ，2020， [2] 梁水 ， 賽奎春 ． Delphi 開發(fā)典型模塊大全 ， 人民郵電出版社， 2020， [3] 陳紫紅 ， 賽奎春 ． Delphi 程數(shù)據(jù)庫開發(fā)實例解析 ，機械工程出版社 ， 2020， [4] 趙應丁 ． Delphi 課程設計案例精編 ， 中國水利水電出版社 ． 2020， [5] 錢辰 ， 王曉龍 ．． Delphi 必做練習題 ， 北京大學出版社， 2020， 參考文獻 19 附 錄 附錄 1 操作員管理代碼 procedure (Sender: TObject)。 begin Table1:=(self)。 :=39。122039。 :=39。39。 。 。 (39。name39。).asstring:=。 if then begin if then begin (39。用戶名相同，請檢查！ 39。,39。提示信息 39。,mb_ok)； :=39。39。 :=39。39。 :=39。39。 。 end else if then begin 。 savetotable。 。 end else begin 。 。 。 loadfromtable。 20 end。 end else begin if then begin 。 。 savetotable。 。 end else begin (39。沒有該用戶，請檢查！ 39。,39。提示信息 39。,mb_ok)； :=39。39。 :=39。39。 :=39。39。 。 end。 end。 。 end。 procedure (Sender: TObject)。 begin :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=true。 :=false。 :=false。 :=false。 :=false。 :=datetostr(date())。 Table1:=(self)。 21 :=39。122039。 :=39。39。 。 if not then LoadFormTable。 。 :=true。 end。 procedure 。 begin :=(39。username39。).asstring。 :=(39。password39。).asstring。 :=(39。department39。).asstring。 :=datetostr((39。stamp39。).asdatetime)。 :=(39。right139。).asboolean。 :=(39。right239。).asboolean。 :=(39。right339。).asboolean。 end。 procedure 。 begin (39。username39。).asstring:=。 (39。password39。).asstring:=。 (39。department39。).asstring:=。 (39。stamp39。).asdatetime:=strtodate()。 (39。right139。).asboolean:=。 (39。right239。).asboolean:=。 (39。right339。).asboolean:=。 end。 procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 begin :=39。39。 22 :=39。39。 :=39。39。 :=datetostr(date())。 :=false。 :=false。 :=false。 。 end。 procedure (Sender: TObject)。 begin if not then begin 。 。 (39。name39。).asstring:=。 if not then begin (39。沒有該用戶，請檢查！ 39。,39。提示信息 39。,mb_ok)； 。 end else loadformtable。 end。 。 end。 end.