【正文】 n :=true。 :=false。 :=true。 procedure (Sender: TObject)。 buttonokcancel。 缺勤信息 修改 實(shí)現(xiàn) 缺勤信息修改實(shí)現(xiàn)的源程序如下： procedure (Sender: TObject)。 :=true。 procedure (Sender: TObject。 。).AsString Then begin ShowMessage (39。PASSWORD39。)。它的優(yōu)勢之一是開發(fā)數(shù)據(jù)庫應(yīng)用程序。 在以后的學(xué)習(xí)過程中我會(huì)不斷努力，去完善自己， 做出更好的作品。 計(jì)算機(jī)在不斷發(fā)展，計(jì)算機(jī)語言也在不斷的更新， 面向?qū)ο蟪绦蛟O(shè)計(jì)是Delphi 開發(fā)程序的基礎(chǔ)。 := 39。 procedure (Sender: TObject。 procedure (Sender: TObject。用戶名錯(cuò)誤，請重輸！ 39。 end。 if =0 then begin showmessage(39。 。)。 :=false。 :=true。 end。 implementation uses Unit2。曠工原因 與表中曠工原因相連 DBEdit6 DataSource； DataField DataSource1。,mb_okcancel)=idok then 。 Canedit。必須輸入員工編號 39。 :=false。 :=true。 //取消或確定狀態(tài)各按鈕狀態(tài) begin :=false。可使用 Ttable 控件的相應(yīng)移動(dòng)方法。 考勤信息管理 本模塊 對考勤信息進(jìn)行維護(hù)和管理，實(shí)現(xiàn)考勤信息數(shù)據(jù)庫的操作功能，這些功能包括：考勤信息的瀏覽，添加一條新考勤信息，修改考勤信息，查詢某人的考勤信息，刪除某考勤的信息等。 canedit。 procedure (Sender: TObject)。 //獲取當(dāng)前目錄 // :=dim。 //各輸入控件不可輸入 begin :=true。 end。一開始，【確定】和【取消】按鈕不可用，單擊【添加】或【修改】按鈕后，【確定】和【取消】按鈕可用，此時(shí)其他按鈕不可用。 。 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 12 begin 。 //保存是否為管理員信息到 GLY 變量武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 11 中 KL:=(39。 := 39。你是非法用戶，不能進(jìn)入系統(tǒng)！ 39。 procedure (Sender: TObject。（注意：無論是輸入完用戶名還是口令，輸入結(jié)束后均需按 Enter 鍵確認(rèn)。 錯(cuò)誤 !未找到引用源。錯(cuò)誤 !未找到引用源。當(dāng)我們已經(jīng)了解 、理解了用戶的業(yè)務(wù)，于是可以開始分析需求了。 在 IDE、 Web、 COM 應(yīng)用 ， 數(shù)據(jù)庫系統(tǒng) ，組件庫、運(yùn)行期庫、編譯器及文檔 等 多 方面 提供了一些新增功能或做了很大改進(jìn)。 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手，我們的生活也越來越離不開它。隨著現(xiàn)代科技的進(jìn)步，用計(jì)算機(jī)來進(jìn)行考勤的管理也成為現(xiàn)代化企業(yè)運(yùn)作必不可少的一部分。它的一些 特征包括： 1. 提供了對 XML 的支持，從而簡化了數(shù)據(jù)分布，優(yōu)化了數(shù)據(jù)交換。 系統(tǒng)需求分析 2． 2． 1 系統(tǒng)功能需求 考勤信息管理系統(tǒng)中主要要解決的是： 1 能有效地管理所有員工的信息 ,通過員工編號標(biāo)識每一個(gè)員工 2 可以任意 修改維護(hù) ,添加員工信息 3 考勤信息輸入到 系統(tǒng)的考勤信息數(shù)據(jù)庫中 4 缺勤信息輸入到系統(tǒng)的缺勤信息數(shù)據(jù)庫中 5 可以更改用戶權(quán)限，密碼 以上只是簡單地對本系統(tǒng)做了些功能方面的需求分析，具體的系統(tǒng)需要完成的功能信息將在下一章的整體設(shè)計(jì)中得以具體的介紹。 錯(cuò)誤 !未找到引用源。 錯(cuò)誤 !未找到引用源。） 圖 41 系統(tǒng)登陸界面 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 9 對象名 屬性名 設(shè)置值 對象作用 Table1 TableName 與‘ user’表相聯(lián)系 DataSource1 DataSource1 Dataset： Table1 聯(lián)系 Table組件 Edit1 Edit2 Button1 Caption ‘ 退出 ’ 執(zhí)行退出功能 表 41用戶登陸窗體主要控件屬性表 登陸驗(yàn)證的源程序如下： var Form1: TForm1。 var Key: Char)。)。39。PassWord39。 end。 end。當(dāng)單擊【確定】和【取消】按鈕后，這兩個(gè)按鈕不可用， 其他各個(gè)按鈕可用 （ 2）記錄移動(dòng)。 procedure buttonokcancel()。 :=true。//設(shè)置數(shù)據(jù)庫名 CanEdit。 //取消操作 begin 。 buttonaddedit。該模塊的主界面設(shè)計(jì)和運(yùn)行情況分別如下圖武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 18 錯(cuò)誤 !未找到引用源。 （ 3）記錄的添加與修改。 :=false。 :=true。 :=false。)。 。 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 23 if =0 then begin showmessage(39。休假 與表休假相連 DBEdit7 DataSource； DataField DataSource1。 var BM:TBooKMark。 procedure disabledbutton()。 :=true。 :=false。 。 buttonaddedit。已無記錄 39。 procedure (Sender: TObject)。)。 var Key: Char)。 var Key: Char)。39。它將人們認(rèn)識世界過程中普遍采用的思維方法應(yīng)用到程序設(shè)計(jì)中。 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 36 參考文獻(xiàn) [1]劉瑞新，汪遠(yuǎn)征，李鳳華 .Delphi 程序設(shè)計(jì)教程 [M].北京： 機(jī)械工業(yè)出版社， 2020. [2]張瀚文，齊錦剛，王建中 .Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例與解析 [M].北京：高等教育出版社， 2020. [3]飛思科技產(chǎn)品研發(fā)中心 .Delphi6 開發(fā)者手冊 [M].北京：電子工業(yè)出版社，2020. [4]張敬華 .Delphi5 開發(fā)與應(yīng)用 [M].北京：北京航空航天大學(xué)出版社， 2020. [5]方可燕 .Delphi5 實(shí)戰(zhàn)與精通（精通篇） [M].北京：清華大學(xué)出版社， 2020. [6]薩師煊，王珊 .數(shù)據(jù)庫系統(tǒng)概論（第三版） [M].北京：高等教育出版社，2020. [7] 鄭人杰，殷 人昆，陶永雷 .實(shí)用軟件工程 [M].北京：清華大學(xué)出版社， 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)中，我 遇到了很多的問題，感謝 我的指導(dǎo)老師老師 給予 我的指導(dǎo) ，幫助我解決了很多關(guān)鍵的問題， 給我的作品和論文提出了很多寶貴的意見。 DELPHI 提供了靈活的可視化設(shè)計(jì)工具，將可視化界面與面向?qū)ο蠹夹g(shù)完美、緊密的結(jié)合起來，并封裝了 Windows 編程的復(fù)雜性。前后密碼輸入不同，請重輸！ 39。 (39。PASSWORD39。39。 end。 disabledbutton。 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 29 end。 cannotedit。 end。 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 27 :=true。 :=false。 {$R *.dfm} procedure buttonaddedit()。請假 與表中請假相連 DBEdit9 DataSource； DataField DataSource1。)。 addornot:=true。 end else begin 。 :=false。 :=true。 :=true。為控制數(shù)據(jù)只能在“添加”或“修改”時(shí)才能輸入，可在沒有執(zhí)行“添加”或“修改”命令之前，讓所有的數(shù)據(jù)控件組件不能輸入或修改，在執(zhí)行“添加”和“修改”命令后，讓所有的數(shù)據(jù)控件組件能夠輸入或修改，該功能可通過設(shè)置各數(shù)據(jù)控制組件的 ReadOnly 或 Enabled 屬性來實(shí)現(xiàn)。 本模塊組件對象及其屬性設(shè)置如表所示： 武漢紡織大學(xué) 08屆畢業(yè)設(shè)計(jì)論文 19 對象名 屬性名 設(shè)置值 對象作用 DBGrid1 DataSource DataSource1 顯示執(zhí)行結(jié)果 Query1 執(zhí)行 SQL語句 Table1 TableName 與‘ ygxx’表相聯(lián)系 DataSource1 DataSource1 Dataset： Table1 聯(lián)系 Table組件 DBEdit1 DataSource； DataField DataSource1。 員工信息刪除實(shí)現(xiàn) 信息修改實(shí)現(xiàn)的源程序如下： procedure (Sender: TObject)。 cannotedit。 :=true。 :=true。 :=false。 （ 3）記錄的添加與修改。 begin 。 begin 。 //保存口令信息到變量 KL中 。 end Else Begin ShowMessage (39。 //關(guān)閉表 。UserName39。 //全局變量 YHM 用來存放用戶輸入的用戶名信息 GLY:Boolean。 Paradox 是 Delphi 的標(biāo)準(zhǔn)數(shù)據(jù)庫類型，應(yīng)用和維護(hù)都比較方便。 錯(cuò)誤 !未找到引用源。 實(shí)現(xiàn)系統(tǒng)登錄功能； 2. 支持 HTML4，使用戶能在 Web 應(yīng)用中創(chuàng)建各種類型的動(dòng)態(tài)客戶端程序。現(xiàn)在利用計(jì)算機(jī)來管理我們的考勤工作，大大降低了工作人員的工作量，提高了工作效率，使原本復(fù)雜和枯燥無味的工作變得簡單而輕松了。 關(guān)鍵詞： 考勤 數(shù)據(jù)庫 Delphi 編程 ABSTRACT For years,along with social development and process of science and technology,men’s work and life can’t leave the corporations are the same as the corporations, employees’job of check on work attendance not only workload is very large,but also time is very the past many corporations carry through managing by signing in and reporting forms, efficiency and diaphaneity are not good,and easy make a mistake, with development of database technology and progress of corporation information’s building,using puter to manage check on work attendance of corporations which it is saves a mass of manpower and material resources and greatly lightens workload of employees. The text that it used design and exploiture as case which expounded the whole process of design and exploiture of the check on work attendance included the whole design of system , logic frame , data flow ,partition of every function module ,design