【正文】 力求對數(shù)據(jù)庫操作的安全與穩(wěn)定，盡量避免數(shù)據(jù)庫操作異常，并要保證查詢的快速無誤。 另外，通過對 Delphi 的使用，我也對該軟件有了更深入的認識，學到了很多關(guān)于該軟件可視化編程的東西；也深深體會到了 Delphi的功能強大，使用和操作簡單。 武漢紡織大學 08屆畢業(yè)設(shè)計論文 35 結(jié)論 經(jīng) 過一個月的設(shè)計，“考勤信息管理系統(tǒng)” 已經(jīng)基本設(shè)計完成。39。 := 39。 。 begin If Ord(Key) = 13 Then 武漢紡織大學 08屆畢業(yè)設(shè)計論文 33 。)。 // 。 武漢紡織大學 08屆畢業(yè)設(shè)計論文 32 end。//根據(jù)用戶輸入的用戶名進行查找 If then//如果找到 begin 。 begin if ord(key)=13 then //如果按了回車鍵 begin :=39。 。 end。 刪除提示框39。 。 //增加 begin BM:=。 end。 //確定操作 begin if(length(trim())=0) then begin showmessage(39。 begin getdir(0,dim)。 :=false。 procedure Canedit()。 :=true。 :=false。 :=true。 :=false。為控制數(shù)據(jù)只能在“添加”或“修改”時才能輸入，可在沒有執(zhí)行“添加”或“修改”命令之前，讓所有的數(shù)據(jù)控件組件不能輸入或修改，在執(zhí)行“添加”和“修改”命令后，讓所有的數(shù)據(jù)控件組件能夠輸入或修改，該功能可通過設(shè)置各數(shù)據(jù)控制組件的 ReadOnly 或 Enabled 屬性來實現(xiàn)。出差理由 與表中出差理由相連 DBEdit12 DataSource； DataField DataSource1。姓名 與表中姓名相連 DBEdit4 DataSource； DataField DataSource1。 end。,39。 //修改 begin addornot:=false。 考勤信息添加實現(xiàn) 考勤信息添加實現(xiàn)的源程序如下： procedure (Sender: TObject)。 end。 procedure (Sender: TObject)。 var dim:string。 :=false。 :=true。 //各輸入控件不可輸入 begin :=true。 procedure disabledbutton()。 end。 var BM:TBooKMark。一開始，【確定】和【取消】按鈕不可用，單擊【添加】或【修改】按鈕后，【確定】和【取消】按鈕可用，此時其他按鈕不可用。姓名 與表中 姓名 相連 DBEdit4 DataSource； DataField DataSource1。 end。,39。 //修改 begin addornot:=false。 員工信息添加實現(xiàn) 信息添加實現(xiàn)的源程序如下： procedure (Sender: TObject)。 end。 procedure (Sender: TObject)。 var dim:string。 procedure Canedit()。 end。 :=true。 :=false。 按鈕可控部分源程序如下： var Form4: TForm4。工作職務(wù) 與表中工作職務(wù)相連 Button1 Caption ‘ 增加 ’ 執(zhí)行增加功能 Button2 Caption ‘ 修改 ’ 執(zhí)行修改功能 Button3 Caption ‘ 刪除 ’ 執(zhí)行刪除功能 Button4 Caption ‘ 退出 ’ 執(zhí)行退出功能 Button5 Caption ‘ 返回 ’ 執(zhí)行返回功能 Button6 Caption ‘ 確定 ’ 執(zhí)行確定功能 Button7 Caption ‘ 取消 ’ 執(zhí)行取消功能 表 43 員工信息 窗體主要控件屬性表 實現(xiàn)方法 ： （ 1）功能按鈕的禁止使用和允許使用。 end. 員工信息管理 本模塊 對員工信息進行維護和管理，實現(xiàn)對員工信息數(shù)據(jù)庫的操作功能，這些功能包括：員工信息的瀏覽，添加一條新的員工信息，修改員工信息，查詢某人的信息，刪除某員工的信息等。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 implementation uses Unit6, Unit3, Unit4, Unit5, Unit7。 end。Admin39。 Close?？诹铄e誤，請重新 輸入！ 39。 end。用戶名非法，請重輸！ 39。 。 //打開表 time:=0。 var time:integer。 登錄界面中，當用戶輸入完用戶名后，程序自動在 user 表中 UserName 字段中查找是否有該用戶，如果沒有該用戶，則會給出非法用戶信息，如果三次輸入的用戶名均不正確則應(yīng)用程序自動終止。 武漢紡織大學 08屆畢業(yè)設(shè)計論文 7 表 3 2 user 表的結(jié)構(gòu) 員工信息表（ ygxx 表）設(shè)計 員工信息表保存員工編號、姓名、性別、所在部門和工作職務(wù)字段。錯誤 !未找到引用源。 錯誤 !未找到引用源。 錯誤 !未找到引用源。 輸入出勤信息； 這個步驟是對用戶業(yè)務(wù)需求的一個升華，是一個把用戶業(yè)務(wù)管理流程優(yōu)化，轉(zhuǎn)化為軟件產(chǎn)品，從而提升管理而實現(xiàn)的質(zhì)的飛躍，這一步是否成功，直接關(guān)系到開發(fā)出來的軟件產(chǎn)品能否得到用戶認可，順利交付給客戶，客戶能否真正運用我們的產(chǎn)品幫助他解決業(yè)務(wù)或管理問題。 4. 利用 Inter Express，系統(tǒng)集成商和獨立軟件商可以快速開發(fā)高性能的應(yīng)用系統(tǒng)。實現(xiàn)了將可視化設(shè)計與 object Pascal 語言的有機集成，配有數(shù)據(jù)庫引擎，可通過 SQL 鏈接， ODBC 訪問多種數(shù)據(jù)庫，并且提供了強大的開發(fā)基于客戶 /服務(wù)器模式的數(shù)據(jù)庫應(yīng)用的能力。 考勤信息管理系統(tǒng)中主要包括了員工的基本信息（姓名、性別、所屬部門等），查詢員工的基本信息，通過考勤系統(tǒng)我們能很容易地對公司員工的信息有一個基本的了解，可以很方便地知道員工的出勤情況，通過對員工出勤信息的了解，就能計算出員工的實際工資。 關(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 of system function modules and concrete realization and so on . Key words: check on work attendance database Delphi programme 目 錄 1． 緒論 ?? ?????????????? ????????????? 1 1． 1 課題背景及目的 ?????? ?????????????? 1 1． 2 DELPHI 介紹 ?????????? ??????????????? 1 2． 系統(tǒng)需求分析 ??? ?????????? ?????????? 3 2． 1 需求分析的目的 ?? ???????? ????????????? 3 系統(tǒng)需求分析 ??????????????????????? ? 3 2． 2． 1 系統(tǒng)功能需求 ? ? ??? ????? ????????????? 3 2． 2． 2 軟件運行環(huán)境 ? ???? ??? ?? ????????????? 3 3. 系統(tǒng)整體設(shè)計 ???????????????????????? 4 系統(tǒng)分析與設(shè)計 ??????????????????????? 4 系統(tǒng)功能模塊設(shè)計圖 ????????????????????? 4 數(shù)據(jù)庫設(shè)計 ????????????????????????? 5 用戶信息表（ user 表）設(shè)計 ????????????????? 5 員工信息表（ ygxx 表）設(shè) 計 ????????????? ??? 5 考勤記錄表（ kqjl 表）設(shè)計 ????????????? ??? 6 缺勤記錄表（ qqjl 表）設(shè)計 ????????????? ??? 6 4. 詳細設(shè)計 ?????????????????????????? ? 7 系統(tǒng)登錄模塊實現(xiàn) ?????????????????????? 7 系統(tǒng)管理界面實現(xiàn) ????????????????????? 10 員工信息管理 ???????????????????????? 11 員工信息添加實現(xiàn) ? ??????????????????? 15 員工信息修改實現(xiàn) ???????????????????? 16 員工信息刪除實現(xiàn) ???????????????????? 16 考勤信息管理 ???????????????????????? 16 考勤信息添加實現(xiàn) ???????????????????? 21 考勤信息修改實現(xiàn) ???????????????????? 21 考勤信息刪除實現(xiàn) ???????????????????? 21 缺勤 信息管理 ?????????????????????? ?? 22 缺勤信息添加實現(xiàn) ???????????????????? 27 缺勤信息 修改 實現(xiàn) ???????????????????? 28 缺勤信息 刪除 實現(xiàn) ???????????????????? 28 密碼修改 ?????????????????????????? 28 關(guān)于系統(tǒng)的說明 ?????????????????????? 32 5．需完善功能 ????????????????????????? 33 結(jié)論 ??????????????????????????????? 34 參考文獻 ?????????????????????????? ?? 35 致謝 ?????????????????????????? ????? 36 武漢紡織大學 08屆畢業(yè)設(shè)計論文 2 1． 緒論 1． 1 課題背景及目的 今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。過去，企業(yè)多采用簽到和報表的形式進行管理，效率和透明度較差，并且也容易出錯；隨著數(shù)據(jù)庫技術(shù)的發(fā)展和企業(yè)信息化建設(shè)的進行，使用計算機管理企業(yè)考勤工作也 成為大勢所趨，它為企業(yè)的考勤工作節(jié)約了大量的人力和物力，也大大減輕了考勤工作人員的工作量。現(xiàn)在利用計算