【導(dǎo)讀】我們剖析數(shù)據(jù)庫開發(fā)案例，由淺入深步入DELPHI數(shù)據(jù)庫。沒有必要詳細(xì)研究DELPHI的發(fā)展歷史，我們目。睹的是其作為偉大開發(fā)工具的事實(shí)。它繼承了OOP語言中優(yōu)越的全功能。Basic等可視化程序設(shè)計(jì)語言中的代碼執(zhí)行效率低下等問題。用DELPHI開發(fā)的考勤信息管理系統(tǒng)，涉及文件的操作和管理，企業(yè)員工的考勤的工作不僅工做量大，而且時(shí)效性強(qiáng)。工作以成為大勢所趨。輸入員工基本信息，包括姓名、性別、所屬部門等；輸入基本工資和獎(jiǎng)金信息并計(jì)算實(shí)際工資；瀏覽和修改員工的出勤情況，可同時(shí)查看該員工基本信。難免有很多疏漏之處，敬請老師批評指正。擴(kuò)充成為一個(gè)完整的考勤管理系統(tǒng)。下面來說一下本程序的各個(gè)模。關(guān)查詢、密碼修改、幫助說明及退出系統(tǒng)五部分組成。入對應(yīng)的密碼進(jìn)入，選擇“取消”終止程序運(yùn)行。人看到密碼，密碼輸入框內(nèi)的密碼用“＊”屏蔽。并顯示用戶身份。理系統(tǒng)的作者）。

　　

【正文】 個(gè) BitBtn 組件， 3 個(gè) Label 組件和 3 個(gè) Edit組件。 添加如上代碼后效果如下圖： 天道酬勤 Business School of Central South University 接下來，需 要進(jìn)行事件分析處理。由于在 “舊密碼“編輯框 ( Edit10)中有輸錯(cuò)的可能，因此在其 OnExit 事件添加如下代碼，以便給出提示。 procedure (Sender: TObject)。 begin a1:=trim()。 if userpassa1 then begin Messagedlg(39。舊密碼不正確 ,請重新輸入！ 39。,mtwarning,[mbok],0)。 :=39。39。 。 end。 end。 舊密碼輸入錯(cuò)誤提示如下圖： 天道酬勤 Business School of Central South University 同樣，在“驗(yàn)證新密碼”編輯框中的字符串要與“新密碼”編輯框中的字符串完全一致，否則也是不允許的。 最后，需要在“確定”按鈕的 OnClick 事件中完成密碼修改工作，添加如下代碼： procedure (Sender: TObject)。 var df:file。 numread:integer。 begin assignfile(df,39。39。)。 reset(df,1)。 while not eof(df) do begin blockread(df,ss,12,numread)。 if ss=username then begin blockwrite(df,a2,12,numread)。 messagedlg(39。您的密碼已經(jīng)修改！ 39。,mtconfirmation,[mbok],0)。 exit。 end。 blockread(df,ss,12,numread)。 end。 closefile(df)。 end。 天道酬勤 Business School of Central South University 修 改密碼結(jié)果窗體如下圖： 7． 幫助說明模塊 幫助說明模塊采用的是采用的是流行的雙窗格形式，易于瀏覽和演示。該界面是 TreeView 和 RichEdit組件的綜合應(yīng)用事例。 （ 1） .TreeView TreeView 組件是一個(gè)使用廣泛的組件它以樹狀結(jié)構(gòu)方式顯示列表信息。典型的應(yīng)用為 Windows 下的資源管理器。 TreeView 組件的樹狀結(jié)構(gòu)中有一系列的節(jié)點(diǎn)，每個(gè)接點(diǎn)包括標(biāo)簽和一個(gè)可選圖象，每個(gè)接點(diǎn)又有一系列的子接點(diǎn)，用鼠標(biāo)，可以將接點(diǎn)展開和重疊。 TreeView 組件的重 要可由 TreeView Items Editor 對話框來完成。雙擊 TreeView 組件或單擊其 Items 屬性右邊的“ ? ”按鈕，均可以打開這個(gè)對話框，向 TreeView 組件中添加列表內(nèi)容。 如下圖： 天道酬勤 Business School of Central South University 單擊 New Item或 New SubItem按鈕可建立不同的新列表，同時(shí)在 Text編輯框中輸入名稱，并選擇合適的 Image Index 指定位圖圖象，完成設(shè)置后點(diǎn) OK。 TreeView 組件的幾個(gè)重要屬性、事件和方法如下： Images 屬性：該屬性確定與 TreeView 組件 節(jié)點(diǎn)位圖圖標(biāo)相連的圖像列表?？梢詾槊恳粋€(gè)節(jié)點(diǎn)添加一個(gè)關(guān)聯(lián)的圖標(biāo)，更加直觀的表現(xiàn)項(xiàng)目的內(nèi)容。 Items 屬性：該屬性的類型為 TtreeNodes，保存著 TreeView 組件中的獨(dú)立節(jié)點(diǎn)列表。要在運(yùn)行期間訪問某個(gè)節(jié)點(diǎn)，可加入代碼：My： =TreeView1。 Items[1]； Selected 屬性：當(dāng)用戶選擇從一個(gè)節(jié)點(diǎn)到另一個(gè)節(jié)點(diǎn)改變時(shí)，觸發(fā)該事件。 天道酬勤 Business School of Central South University 在本程序中，還需要添加一個(gè) ImageList 組件，打開圖象列表對話框，然后單擊“ Add“按鈕，將合適的位圖圖標(biāo)加入到“ Images”列表框中，如下圖，系統(tǒng)會(huì)自動(dòng)為 每個(gè)位圖增加索引 接下來，打開 TreeView Items Editor 對話框，指定 Image 天道酬勤 Business School of Central South University Index 為 2，即為手形圖標(biāo)，然后單擊 OK 按鈕，關(guān)閉該對話框。在TreeView 的 Images屬性中選擇 ImageList1。則此時(shí)的窗口如下： 設(shè)置 RichEdit 組件 RichEdit 組件是一個(gè)標(biāo)準(zhǔn)的 RTF 編輯器，它允許用戶輸入變化的字體形式和段落格式的文本。 RichEdit 組件的幾個(gè)重要屬性和方法如下： Lines 屬性：該屬性定義文本框中的一個(gè)獨(dú)立行。 Lines 是一個(gè)Tstrings 類型的對象，運(yùn) 用它的方法可以對字符串進(jìn)行增加、刪除、修改等操作。 Paragraph 屬性：該屬性用于設(shè)置段落格式。段落格式是一個(gè)TparaAttributes 類型的對象。 PlainText 屬性：該屬性用來定義文本的格式，是一個(gè)無格式文本還是 RTF 格式的文本。 SelText 屬性：該屬性表示所選擇的文本字符串。 Clear 方法：該方法用于刪除文本框的所有文本。 Print 方法：該方法用于打印文本框內(nèi)的內(nèi)容。其定義為：procedure Print（ const Caption： string）；其中的 Caption 參數(shù) 天道酬勤 Business School of Central South University 用于定 義出現(xiàn)在打印紙上的標(biāo)題名。 本程序中添加一個(gè) RichEdit 組件和一個(gè) BitBtn 組件。在“打印本頁”按鈕的 OnClick 事件中添加代碼，完成用戶打印需求，并將打印紙的標(biāo)題設(shè)置為“考勤信息管理系統(tǒng) 用戶幫助”。 TreeView 組件的 AbsoluteIndex 屬性是指某個(gè)接點(diǎn)的絕對位置，也就是該接點(diǎn)與第一個(gè)接點(diǎn)之間的距離，在 Delphi 中第一個(gè)接點(diǎn)為 Item[0]，其他依次類推。另外，由于 RichEdit 組件的 Lines屬性為 TStrings 類型，故可以使用 TStrings 類 型的方法LoadFromFile,用指定的文件填充文本。 LoadFromFile 方法定義為：procedure LoadFromFile。本程序代碼中載入的文本文件都是事選編輯好的文檔，注意他們的保存位置應(yīng)應(yīng)與源程序在一個(gè)目錄下，編譯時(shí)才會(huì)出錯(cuò)。 最后完成的“幫助說明”頁的執(zhí)行結(jié)果如下圖： 天道酬勤 Business School of Central South University “打印本頁”代碼如下： procedure (Sender: TObject)。 begin (39?？记谛?息管理系統(tǒng) 用戶幫助 39。)。 end。 procedure (Sender: TObject)。 var x:cardinal。 begin x:=winexec(39。 ,Control_RunDLL ,039。,9)。 end。 procedure (Sender: TObject)。 var r:integer。 天道酬勤 Business School of Central South University begin r:=messagedlg(39。 真 要 退 出 系 統(tǒng) 嗎 ？39。,mtconfirmation,[mbOK,mbCancel],0)。 if r=mrok then else exit。 end。 8． 退出系統(tǒng)模塊 本模塊的設(shè)計(jì)用于提供附加信息和終止程序運(yùn)行的功能。在 TabSheet7 頁面上添加 一個(gè) Label 組件， 1 個(gè) Bevel 組件和 3 個(gè) Button 組件。設(shè)置完它們的屬性后，其設(shè)計(jì)結(jié)果窗口參見下圖： 天道酬勤 Business School of Central South University 接下來，在“系統(tǒng)信息”按鈕的 OnClick 事件中添加如下的代碼，用于顯示 Windows 控制面板中的“ 系統(tǒng)”屬性。在“程序作者”按鈕的OnClick 事件中添加代碼，顯示有關(guān)程序作者的信息。最后在“退出系統(tǒng)”按鈕的 OnClick 事件中添加代碼，結(jié)束程序的運(yùn)行。 “系統(tǒng)信息”代碼如下： procedure (Sender: TObject)。 var x:cardinal。 begin x:=winexec(39。 ,Control_RunDLL ,039。,9)。 end。 運(yùn)行如下圖： 天道酬勤 Business School of Central South University “程序作者”代 碼如下： procedure (Sender: TObject)。 begin 。 end。 運(yùn)行如下圖： “退出系統(tǒng)”代碼如下： procedure (Sender: TObject)。 var r:integer。 begin r:=messagedlg(39。真要退出系統(tǒng)嗎？ 39。,mtconfirmation,[mbOK,mbCancel],0)。 if r=mrok then else exit。 end。 天道酬勤 Business School of Central South University 運(yùn)行如下圖： 天道酬勤 Business School of Central South University 五、附錄 1． 開發(fā)人員分工名單： 陳宇（登錄界面、密碼修改模塊、員工信息、出勤信息模塊） 吳慧慧（員工工資、相關(guān)查詢模塊、數(shù)據(jù)庫制作） 謝 婧（幫助說明、退出系統(tǒng)模塊、 PPT 制作） 2． 系統(tǒng)開發(fā)參考文獻(xiàn) 《 Delphi 軟件項(xiàng)目開發(fā)實(shí)例》 ◆電子工業(yè)出版社 □趙萬軍 王興東 等編著 《 Delphi 數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)與開發(fā)》 ◆清華大學(xué)出版社 □張春林 馬成勇 劉均 編著 《 Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例與解析》 ◆高等教育出版社 □張翰文 齊錦剛 王建中 編著 天道酬勤 Business School of Central South University 六、結(jié)束語 在使用 DELPHI 制作考勤信息管理系統(tǒng)中，我們遇到了很多問題，都在制作過程中逐一解決，由于我們所掌握的知識有限，我們制作的考勤信息管理系統(tǒng)還有不足，再以后的學(xué)習(xí)過程中我們會(huì)不斷努力，去完善自己，能做出更好的作品。 在這一個(gè)月的制作過程中，我們學(xué)到了比以前更多的知識，得到了許多朋友的幫助。計(jì)算機(jī)在不斷發(fā)展，計(jì)算機(jī)語言也在不斷的更新，DELPHI 提供了靈活的可視化設(shè)計(jì)工具，將可視化界 面與面向?qū)ο蠹夹g(shù)完美、緊密的結(jié)合起來，并封裝了 Windows 編程的復(fù)雜性。它的優(yōu)勢之一是開發(fā)數(shù)據(jù)庫應(yīng)用程序。在這方面，它不但提供了大量的數(shù)據(jù)庫組件并配有數(shù)據(jù)庫引擎 BDE，能通過 SQL Links 和 ODBC 等訪問多種數(shù)據(jù)庫，同時(shí)提供了強(qiáng)大的開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫的能力。 面向?qū)ο蟪绦蛟O(shè)計(jì)是 Delphi 開發(fā)程序的基礎(chǔ)。它將人們認(rèn)識世界過程中普遍采用的思維方法應(yīng)用到程序設(shè)計(jì)中。面向?qū)ο蟮某绦蛟O(shè)計(jì)涉及到對象、封裝、類、繼承和多態(tài)等幾個(gè)基本概念。 在制作考勤信息管理系統(tǒng)中，我們遇到了很多的問題，感謝魏淇、小潘子、 Michael 給予我們的幫助！ 陳宇