【正文】 武漢紡織大學 08屆畢業(yè)設計論文 36 參考文獻 [1]劉瑞新，汪遠征，李鳳華 .Delphi 程序設計教程 [M].北京： 機械工業(yè)出版社， 2020. [2]張瀚文，齊錦剛，王建中 .Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實例與解析 [M].北京：高等教育出版社， 2020. [3]飛思科技產(chǎn)品研發(fā)中心 .Delphi6 開發(fā)者手冊 [M].北京：電子工業(yè)出版社，2020. [4]張敬華 .Delphi5 開發(fā)與應用 [M].北京：北京航空航天大學出版社， 2020. [5]方可燕 .Delphi5 實戰(zhàn)與精通（精通篇） [M].北京：清華大學出版社， 2020. [6]薩師煊，王珊 .數(shù)據(jù)庫系統(tǒng)概論（第三版） [M].北京：高等教育出版社，2020. [7] 鄭人杰，殷 人昆，陶永雷 .實用軟件工程 [M].北京：清華大學出版社， 2020. [8]Warren Object Pascal With Delphi[M]. Wordware Publishing,2020. [9]Clay of Delphi:Developer’s Guide to Troubleshooting[M]. Wordware Publishing,2020. 致謝 在制作考勤信息管理系統(tǒng)中，我 遇到了很多的問題，感謝 我的指導老師老師 給予 我的指導 ，幫助我解決了很多關(guān)鍵的問題， 給我的作品和論文提出了很多寶貴的意見。 當然在設計中還有很多不足的地方，比如功能還不是很豐富，不支持批量刪除操作， 沒有統(tǒng)計功能， 還有就是數(shù)據(jù)表之間的參照完整性，也許在數(shù)據(jù)庫操作中還存在些 bug 沒有對異常正確的處理。 設計中力 求界面友好、簡潔，易于操作。 系統(tǒng)的權(quán)限及登錄設計 基于該系統(tǒng)的一些設計，下面對系統(tǒng)做一個總結(jié)。在這方面，它不但提 供了大量的數(shù)據(jù)庫組件并配有數(shù)據(jù)庫引擎 BDE，能通過 SQL Links 和 ODBC 等訪問多種數(shù)據(jù)庫，同時提供了強大的開發(fā)網(wǎng)絡數(shù)據(jù)庫的能力。 DELPHI 提供了靈活的可視化設計工具，將可視化界面與面向?qū)ο蠹夹g(shù)完美、緊密的結(jié)合起來，并封裝了 Windows 編程的復雜性。它將人們認識世界過程中普遍采用的思維方法應用到程序設計中。在這一個月的開發(fā)過程中，學到了許多有關(guān)數(shù)據(jù)庫管理軟件設計的東西。 5．需完善功能 設計中還有很多不足的地方，比如功能還不是很豐富， 沒有對員工信息進行關(guān)鍵詞搜索的 不支持批量刪除操作，沒有統(tǒng)計功能，也許在數(shù)據(jù)庫操作中還存在些 bug 沒有對異常正確的處理。 end。 。 := 39。 := 39。前后密碼輸入不同，請重輸！ 39。39。39。39。39。)。 showmessage(39。).AsString :=。 (39。 var Key: Char)。 end。 var Key: Char)。 end end。 。 := 39。口令錯誤，請重新輸入！ 39。PASSWORD39。 var Key: Char)。 end。39。 // :=dim。 var dim:string。 end。 //焦點設置在 Edit1，以便輸入口令 end。39。)。 //焦點設置在 Edit2，以便輸入口令 end else //用戶名輸入錯誤 begin ShowMessage(39。).AsString := 。 //把用戶表設置為查詢狀態(tài) (39。UserName39。UserName39。 var Key: Char)。 end。 procedure (Sender: TObject)。 。 begin //。 implementation uses Unit2。 錯誤 !未找到引用源。 密碼修改 本系統(tǒng)添加了一個密碼 修改功能， 用于管理員及時修改登錄密碼。 end。 disabledbutton。已無記錄 39。,mb_okcancel)=idok then 。,39。 //刪除 begin if (39。 end。 canedit。 //修改 begin addornot:=false。 武漢紡織大學 08屆畢業(yè)設計論文 29 end。 buttonaddedit。 Canedit。 缺勤信息添加實現(xiàn) 缺勤信息添加實現(xiàn)的源程序如下： procedure (Sender: TObject)。 buttonokcancel。 if addornot then (bm)。 procedure (Sender: TObject)。 end。 cannotedit。 。必須輸入員工編號 39。 procedure (Sender: TObject)。 武漢紡織大學 08屆畢業(yè)設計論文 28 end else buttonokcancel。 //設置可輸入組件為只讀 if =0 then begin disabledbutton。 //獲取當前目錄 // :=dim。 var dim:string。 end。 :=false。 :=false。 :=false。 :=false。 :=false。 //各輸入控件可輸入 begin :=false。 end。 武漢紡織大學 08屆畢業(yè)設計論文 27 :=true。 :=true。 :=true。 :=true。 :=true。 //各輸入控件不可輸入 begin :=true。 end。 :=false。 :=false。 procedure disabledbutton()。 :=true。 :=true。 //取消或確定狀態(tài)各按鈕狀態(tài) begin :=false。 武漢紡織大學 08屆畢業(yè)設計論文 26 end。 :=false。 :=true。 {$R *.dfm} procedure buttonaddedit()。 var BM:TBooKMark。 按鈕可控部分源程序如下： var Form7: TForm7。對表的操作， Ttable 組件提供了相應的方法：如添加一條可執(zhí)行 Append 方法，修改記錄的內(nèi)容可執(zhí)行 Edit 方法，把修改的內(nèi)容存入到表中可執(zhí)行 Post 方法，取消對表的修改可執(zhí)行 Cancel 方法等?？墒褂?Ttable 控件的相應移動方法。一開始，【確定】和【取消】按鈕不可用，單擊【添加】或【修改】按鈕后，【確定】和【取消】按鈕可用，此時其他按鈕不可用?？记跁r 間 與表中考勤時間相連 Button1 Caption ‘ 增加 ’ 執(zhí)行增加功能 Button2 Caption ‘ 修改 ’ 執(zhí)行修改功能 Button3 Caption ‘ 刪除 ’ 執(zhí)行刪除功能 武漢紡織大學 08屆畢業(yè)設計論文 25 Button4 Caption ‘ 退出 ’ 執(zhí)行退出功能 Button5 Caption ‘ 返回 ’ 執(zhí)行返回功能 Button6 Caption ‘ 確定 ’ 執(zhí)行確定功能 Button7 Caption ‘ 取消 ’ 執(zhí)行取消功能 表 45 缺勤信息 窗體主要控件屬性表 實現(xiàn)方法 ： （ 1）功能按鈕的禁止使用和允許 使用。出差 與表中出差相連 DBEdit11 DataSource； DataField DataSource1。請假 與表中請假相連 DBEdit9 DataSource； DataField DataSource1。休假 與表休假相連 DBEdit7 DataSource； DataField DataSource1。曠工 與表中曠工相連 DBEdit5 DataSource； DataField DataSource1。員工編號 與表中員工編號相連 DBEdit3 DataSource； DataField DataSource1。 本模塊組件對象及其屬性設置如表所示： 對象名 屬性名 設置值 對象作用 DBGrid1 DataSource DataSource1 顯示執(zhí)行結(jié)果 Query1 執(zhí)行 SQL語句 Table1 TableName 與‘ cqxx’表相聯(lián)系 DataSource1 DataSource1 Dataset： Table1 聯(lián)系 Table組件 DBEdit1 DataSource； DataField DataSource1。該模塊的主界面設計和運行情況分別如下圖 錯誤 !未找到引用源。 end。 :=true。)。 武漢紡織大學 08屆畢業(yè)設計論文 23 if =0 then begin showmessage(39。 刪除提示框39。 真的要刪除嗎？ 39。 考勤信息刪除實現(xiàn) 考勤信息刪除實現(xiàn)的源程序如下： procedure (Sender: TObject)。 buttonaddedit。 。 考勤信息修改實現(xiàn) 考勤信息修改實現(xiàn)的源程序如下： procedure (Sender: TObject)。 addornot:=true。 。 //增加 begin BM:=。 end。 cannotedit。 //取消操作 begin 。 end。 buttonokcancel。 end else begin 。)。 //確定操作 begin if(length(trim())=0) then begin showmessage(39。 end。 :=true。//設置數(shù)據(jù)庫名 CanEdit。 begin getdir(0,dim)。 procedure (Sender: TObject)。 :=false。 :=false。 :=false。 :=false。 :=false。 procedure Canedit()。 :=true。 :=true。 :=true。 :=true。 :=true。 procedure Cannotedit()。 :=false。 :=false。 //所有按鈕均不可 用 begin :=false。 end。 :=true。 :=false。 procedure buttonokcancel()。 :=false。 :=false。 //添加或修改狀態(tài)各按鈕狀態(tài) begin :=true。 AddOrNot:Boolean。 implementation 武漢紡織大學 08屆畢業(yè)設計論文 20 uses Unit2。為控制數(shù)據(jù)只能在“添加”或“修改”時才能輸入，可在沒有執(zhí)行“添加”或“修改”命令之前，讓所有的數(shù)據(jù)控件組件不能輸入或修改，在執(zhí)行“添加”和“修改”命令后，讓所有的數(shù)據(jù)控件組件能夠輸入或修改，該功能可通過設置各數(shù)據(jù)控制組件的 ReadOnly 或 Enabled 屬性來實現(xiàn)。 （ 3）記錄的添加與修改。當單擊【確定】和【取消】按鈕后，這兩個按鈕不可用，其他各個按鈕可用 （ 2）記錄移動。在一定的情況下，有的按鈕不可以使用，如數(shù)據(jù)表中無記錄時，則除了【添加】按鈕外的其他按鈕均不可用。加班時間 與表中加班時間 相連 DBEdit10 DataSource； DataField DataSource1。早退 原因 與表中 早退 原因相連 DBEdit8 DataSource； DataField DataSource1。遲到 與表中 遲到 相連 DBEdit5 DataSource； DataField DataSource1遲到 原因 與表中 遲到 原因 相連 DBEdit6 DataSource； DataField DataSource1。員工編號 與表中 員工編號 相連 DBEdit3 DataSource； DataField DataSource1。 本模塊組件對象及其屬性設置如表所示： 武漢紡織大學 08屆畢業(yè)設計論文 19 對象名 屬性名 設置值