目錄一、簡(jiǎn)介 .21.Delphi .22.數(shù)據(jù)庫 .3二、系統(tǒng)設(shè)計(jì) .41、數(shù)據(jù)庫的建立 .42、管理系統(tǒng)建立 .63、 實(shí)現(xiàn)功能 .11三、結(jié)論 .13一、簡(jiǎn)介1.DelphiDelphi 是 Borland 公司推出的可視化編程環(huán)境，它提供了一種方便、快捷的 Windows 應(yīng)用程序開發(fā)工具。它使用了 Microsoft Windows 圖形用戶界面的許多先進(jìn)特性和設(shè)計(jì)思想，采用了可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z言（Object-Oriented Language） 、當(dāng)今世界上最快的編輯器、最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。Delphi 是優(yōu)秀的可視化開發(fā)工具，不僅簡(jiǎn)單、易于掌握而且功能強(qiáng)大，使用 Delphi 開發(fā)應(yīng)用軟件，會(huì)大大地提高編程效率。Delphi 是 Pascal 語言有天壤之別。一個(gè) Delphi 程序首先是應(yīng)用程序框架，而這一框架正是應(yīng)用程序的“骨架” 。在“骨架”上即使沒有附著任何東西，仍可以嚴(yán)格的按照設(shè)計(jì)運(yùn)行。用戶的工作只是在“骨架”中添入自己的程序。默認(rèn)的應(yīng)用程序是一個(gè)空白的窗體“Form ”，可以直接運(yùn)行，結(jié)果得到一個(gè)空白的窗口，這個(gè)窗口具有 Windows 窗口的全部性質(zhì)：可以被放大、縮小、移動(dòng)最大化、最小化等，但沒有編寫程序代碼。因此，可以說應(yīng)用程序框架通過提供所有應(yīng)用程序共有的東西，為用戶應(yīng)用程序的開發(fā)打下良好的基礎(chǔ)。用戶所需要做的，只是在應(yīng)用程序中中假如完成所需功能的代碼而已。Delphi 具有以下的特性：基于窗體和面向?qū)ο蟮姆椒ǎ咚俚木幾g器，強(qiáng)大的數(shù)據(jù)庫支持，與Windows 編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。但最重要的還是 Object Pascal 語言，它才是一切的根本。 Object Pascal 語言是在 Pascal 語言的基礎(chǔ)上發(fā)展起來的，簡(jiǎn)單易學(xué)。Delphi 提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（Image Editor） ，以及各種開發(fā)數(shù)據(jù)庫的應(yīng)用程序，除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具。在 Delphi 眾多的優(yōu)勢(shì)當(dāng)中，它在數(shù)據(jù)庫方面的特長(zhǎng)顯得尤為突出：適應(yīng)于多種數(shù)據(jù)庫結(jié)構(gòu)，從客戶機(jī)服務(wù)機(jī)模式到多層數(shù)據(jù)結(jié)構(gòu)模式；高效率的數(shù)據(jù)庫管理系統(tǒng)和新一代更先進(jìn)的數(shù)據(jù)庫引擎；最新的數(shù)據(jù)分析手段和提供大量的企業(yè)組件。Delphi 這個(gè)名字源于古希臘的城市名。它集中了第三代語言的優(yōu)點(diǎn)。以 Object Pascal 為基礎(chǔ)，擴(kuò)充了面向?qū)ο蟮哪芰?，并且完美地結(jié)合了可視化的開發(fā)手段。Delphi 自 1995 年 3 月一推出就受到了人們的關(guān)注，并在當(dāng)年一舉奪得了多項(xiàng)大獎(jiǎng)。 Delphi 的出現(xiàn)打破了 V 承可視化編程領(lǐng)域一統(tǒng)天下的局面。并且 Delphi 使用了本地編譯器直接生成技術(shù)，使程序的執(zhí)行性能遠(yuǎn)遠(yuǎn)高于其它產(chǎn)品生成的程序。它還是真正的面向?qū)ο蟮木幊陶Z言。PASCAL 語言的嚴(yán)謹(jǐn)加上可視化的優(yōu)勢(shì)和強(qiáng)大的數(shù)據(jù)庫功能使得它有充分的資本和微軟的 VB 叫板。許多人當(dāng)時(shí)都認(rèn)為 Pascal 是最有前途的程序設(shè)計(jì)語言，并預(yù)測(cè) Delphi 將會(huì)成為可視化編程的主流環(huán)境。Delphi 在你編好程序后自動(dòng)轉(zhuǎn)換成.EXE 文件它運(yùn)行時(shí)速度比 VB 快，而且編譯后不需要其他的支持庫就能運(yùn)行。它的數(shù)據(jù)庫功能也挺強(qiáng)的，是開發(fā)中型數(shù)據(jù)庫軟件理想的編程工具。 Delphi 適用于應(yīng)用軟件、數(shù)據(jù)庫系統(tǒng)、系統(tǒng)軟件等類型的開發(fā)。而且它擁有和 VB 差不多一樣的功能，而且一樣能應(yīng)用 API 函數(shù)，這在控制 Windows 很有用。Delphi 是全新的可視化編程環(huán)境，為我們提供了一種方便、快捷的 Windows 應(yīng)用程序開發(fā)工具。它使用了 Microsoft Windows 圖形用戶界面的許多先進(jìn)特性和設(shè)計(jì)思想，采用了彈性可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z言(Object-Oriented Language)、當(dāng)今世界上最快的編輯器、最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。對(duì)于廣大的程序開發(fā)人員來講，使用 Delphi 開發(fā)應(yīng)用軟件，無疑會(huì)大大地提高編程效率，而且隨著應(yīng)用的深入，您將會(huì)發(fā)現(xiàn)編程不再是枯燥無味的工作Delphi 的每一個(gè)設(shè)計(jì)細(xì)節(jié)，都將帶給您一份欣喜。2.數(shù)據(jù)庫數(shù)據(jù)庫是存儲(chǔ)在一起的相關(guān)數(shù)據(jù)的集合，這些數(shù)據(jù)是結(jié)構(gòu)化的，無有害的或不必要的冗余，并為多種應(yīng)用服務(wù)；數(shù)據(jù)的存儲(chǔ)獨(dú)立于使用它的程序；對(duì)數(shù)據(jù)庫插入新數(shù)據(jù)，修改和檢索原有數(shù)據(jù)均能按一種公用的和可控制的方式進(jìn)行。當(dāng)某個(gè)系統(tǒng)中存在結(jié)構(gòu)上完全分開的若干個(gè)數(shù)據(jù)庫時(shí)，則該系統(tǒng)包含一個(gè)“數(shù)據(jù)庫集合” 。數(shù)據(jù)庫是“按照數(shù)據(jù)結(jié)構(gòu)來組織、存儲(chǔ)和管理數(shù)據(jù)的倉庫” 。在數(shù)據(jù)管理的日常工作中，常常需要把某些相關(guān)的數(shù)據(jù)放進(jìn)這樣“倉庫” ，并根據(jù)管理的需要進(jìn)行相應(yīng)的處理。數(shù)據(jù)庫發(fā)展階段大致劃分為如下幾個(gè)階段：人工管理階段；文件系統(tǒng)階段；數(shù)據(jù)庫系統(tǒng)階段；高級(jí)數(shù)據(jù)庫階段。使用數(shù)據(jù)庫可以帶來許多好處：如減少了數(shù)據(jù)的冗余度，從而大大地節(jié)省了數(shù)據(jù)的存儲(chǔ)空間；實(shí)現(xiàn)數(shù)據(jù)資源的充分共享等等。數(shù)據(jù)庫通常分為層次式數(shù)據(jù)庫、網(wǎng)絡(luò)式數(shù)據(jù)庫和關(guān)系式數(shù)據(jù)庫三種。而不同的數(shù)據(jù)庫是按不同的數(shù)據(jù)結(jié)構(gòu)來聯(lián)系和組織的。此外，數(shù)據(jù)庫技術(shù)還為用戶提供了非常簡(jiǎn)便的使用手段使用戶易于編寫有關(guān)數(shù)據(jù)庫應(yīng)用程序。數(shù)據(jù)庫是通過數(shù)據(jù)庫管理系統(tǒng)(DBMS-DATA BASE MANAGEMENT SYSTEM)軟件來實(shí)現(xiàn)數(shù)據(jù)的存儲(chǔ)、管理與使用的。數(shù)據(jù)庫文件有著相同的特征：文件的記錄格式相同，長(zhǎng)度相等；不同的行是不同的記錄，因而具有不同的內(nèi)容；不同的列表示不同的字段名，同一列中的數(shù)據(jù)的性質(zhì)(屬性 )相同；每一行各列的內(nèi)容是不能分割的，但行的順序和列的順序不影響文件內(nèi)容的表達(dá)。數(shù)據(jù)庫對(duì)文件引用最多的是主文件和事物文件。其他的文件分類還包括表文件、備份文件、檔案的輸出文件等。二、系統(tǒng)設(shè)計(jì)1、數(shù)據(jù)庫的建立打開 Microsoft Access 新建空數(shù)據(jù)庫，選擇“使用設(shè)計(jì)器創(chuàng)建表” 。設(shè)置字段名和數(shù)據(jù)類型（如圖 1-1） 。然后保存。圖 1-1 設(shè)置字段名及數(shù)據(jù)類型設(shè)置記錄（如圖 1-2） 。圖 1-2 設(shè)置記錄保存并關(guān)閉 Access 表格。并進(jìn)行數(shù)據(jù)庫的建立。選擇開始設(shè)置控制面板管理工具數(shù)據(jù)源（ODBC） ，彈出如圖 1-3 對(duì)話框。圖 1-3 “ODBC 數(shù)據(jù)源管理器”對(duì)話框單擊添加彈出“創(chuàng)建新數(shù)據(jù)源”對(duì)話框選擇“ ”選項(xiàng)，單擊完成，彈出如圖 1-4 對(duì)話框，添加數(shù)據(jù)源名后單擊 ，彈出如圖 1-5 對(duì)話框，圖 1-4 添加數(shù)據(jù)源選定“目錄”下表格所在位置，選定數(shù)據(jù)源名，單擊確定，最后用“確定”結(jié)束數(shù)據(jù)庫添加。圖 1-5“選擇數(shù)據(jù)庫”對(duì)話框2、管理系統(tǒng)建立(1)Form1 圖書管理系統(tǒng)的建立在 Form1 中添加“Additional”下的 Image 控件，點(diǎn)擊左側(cè)“Object Inspector”對(duì)話框匯中的 ，點(diǎn)擊右側(cè)“”彈出如圖 2-1 對(duì)話框，選擇 ,添加圖片，之后添加如下控件：圖 2-1 菜單選項(xiàng)添加 Date source 控件添加 BDE 中的 Query 控件添加 DBGrid 控件圖 2-2 應(yīng)添加的控件暫將其連接到 Delphi7 自帶的數(shù)據(jù)庫 DBDEMOS 上。DBGrid 控件連接到數(shù)據(jù)庫。具體操作：?jiǎn)螕?DBGrid 控件的對(duì)象檢查器（如圖 2.6）中的 Datasource 屬性，在彈出的下拉式菜單中選擇 Datasource1。加入兩個(gè) Button 控件，一個(gè)設(shè)置為“查詢”按鈕，另一個(gè)設(shè)置為“退出”按鈕。圖 2-3 DBGrid 控件的對(duì)象檢查器雙擊“查詢”按鈕編輯代碼，使其能輸入 SQL 語句來查詢數(shù)據(jù)；雙擊“退出”按鈕編輯代碼，使其擁有同意的退出功能。 “查詢”按鈕的代碼為：procedure Tt_main.SpeedButton3Click(Sender: TObject);var str:string;beginif inputquery(輸入框, 請(qǐng)輸入 SQL 語句:,str) thenbeginif str thenbeginquery1.Active:=false;query1.SQL.Clear;query1.SQL.Add(str);query1.Active:=true;endelsequery1.Active:=false;end;end;退出按鈕為代碼為：procedure Tt_main.Button2Click(Sender: TObject);beginclose;form2.Close;end;end.（2）Form2 登錄窗口建立先在 Form2 上加入一個(gè) Additional 中的 Image 控件，添加如圖 2-4 所示圖片然后添加兩個(gè) Edit 控件和兩個(gè) Button 控件。并設(shè)計(jì)成如圖 2-5 所示登錄框。2-4 添加的登錄框圖片圖 2-5 登錄框加入 Query 控件，并連接至數(shù)據(jù)庫。具體操作：將 Query 控件的對(duì)象檢查器（如圖 2.2）中的 DatabaseName 屬性的下拉式菜單中選擇剛剛建立并添加至數(shù)據(jù)源的數(shù)據(jù)名，然后單擊被紅線圈中的 SQL 屬性后的按鈕，在彈出的對(duì)話框中輸入 SQL 語句并單擊確定。圖 2.2 Query 控件的對(duì)象檢查器加入 Datasource 控件，并將其與 Query 控件相連。具體操作：在 Datasource 控件的對(duì)象檢查器（如圖 2.3）中的 DataSet 屬性的下拉式菜單中選擇 Query1。如 2.3 Datasource 控件的對(duì)象檢查器雙擊“登錄”彈出代碼編輯器，編輯 Form1 與 Form2 相連的代碼為procedure TForm2.SpeedButton1Click(Sender: TObject);varusername,password:string;name,word:string;i:integer;beginquery1.Active:=false;query1.SQL.Clear;query1.SQL.Add(select 帳號(hào),密碼 from 操作員信息);username:=edit1.Text;password:=edit2.Text;query1.Active:=true;for i:=1 to 10 dobeginname:=query1.FieldByName(帳號(hào)).AsString;word:=query1.Fi