【正文】 數(shù)據(jù)庫(kù)服務(wù)器如ORACLE、SyBase、Informix等InterBase SQL Link 連接Delphi數(shù)據(jù)庫(kù)應(yīng)用程序一本地InterBase服務(wù)器的驅(qū)動(dòng)程序Delphi上述這些特性使得創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序通過(guò)BDE能夠很靈活地與dBASE、Paradox、Local InterBase數(shù)據(jù)庫(kù)服務(wù)器進(jìn)行連接并可以方便地訪問(wèn)其中的數(shù)據(jù)。 Delphi可以訪問(wèn)的數(shù)據(jù)源（DataSource）Delphi數(shù)據(jù)庫(kù)應(yīng)用程序是通過(guò)BDE獲取它們所需的數(shù)據(jù)的，BDE與不同類型的數(shù)據(jù)源打交道，BDE可以使用的數(shù)據(jù)源見(jiàn)表12。圖11是Delphi6提供的通過(guò)BDE接口訪問(wèn)數(shù)據(jù)庫(kù)的數(shù)據(jù)訪問(wèn)組件。利用Ttable部件程序員甚至可以不需要編寫(xiě)任何程序便可對(duì)數(shù)據(jù)庫(kù)進(jìn)行訪問(wèn)，在一個(gè)應(yīng)用程序中放置一個(gè)Ttable部件的過(guò)程如下：（1） 在部件選擇板上選擇Data Access頁(yè)。TableName屬性指定要訪問(wèn)數(shù)據(jù)庫(kù)中具體的數(shù)據(jù)庫(kù)表。該方法可以指定一個(gè)表中需要使用的記錄集合或列集合，也可以指定需要同時(shí)訪問(wèn)的多個(gè)數(shù)據(jù)表。在對(duì)象瀏覽器上，單擊SQL屬性時(shí)，會(huì)打開(kāi)一個(gè)字符串編輯器供程序設(shè)計(jì)者輸入SQL語(yǔ)句。Dataset屬性指定一個(gè)數(shù)據(jù)集部件，可以是TTable、TQuery或TstoredProc部件的名字。圖12 數(shù)據(jù)控制頁(yè)上的數(shù)據(jù)控制部件數(shù)據(jù)控制部件既能夠把數(shù)據(jù)庫(kù)中的數(shù)據(jù)顯示到窗體中，又可以將其自身的經(jīng)過(guò)修改的數(shù)據(jù)寫(xiě)回到數(shù)據(jù)庫(kù)中。 數(shù)據(jù)庫(kù)訪問(wèn)技術(shù) Delphi提供了對(duì)BDE、ODBC等多種數(shù)據(jù)庫(kù)驅(qū)動(dòng)的支持，能夠滿足不同應(yīng)用對(duì)數(shù)據(jù)庫(kù)程序開(kāi)發(fā)的需要。BDE管理器在控制面板的應(yīng)用程序中，它使您可以為被支持的數(shù)據(jù)庫(kù)和ODBC別名指定一個(gè)別名，此別名使用本地BDE數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序。它也是一個(gè)API定義。第2章 人事管理系統(tǒng)系統(tǒng)設(shè)計(jì) 系統(tǒng)功能分析 開(kāi)發(fā)數(shù)據(jù)庫(kù)的應(yīng)用程序之前，必須清楚地了解程序需要實(shí)現(xiàn)的各項(xiàng)功能，對(duì)程序的功能塊做出清晰的劃分，設(shè)計(jì)出應(yīng)用程序的結(jié)構(gòu)。2） 新員工系統(tǒng)界面，管理人員主要完成以下功能：?jiǎn)T工基本信息的錄入、員工加入公司時(shí)間以及新員工加入的人事變動(dòng)記錄。此功能塊應(yīng)能實(shí)現(xiàn)兩大功能：其一，這種功能實(shí)現(xiàn)比較簡(jiǎn)單：系統(tǒng)根據(jù)查詢?nèi)藛T輸入的員工編號(hào)來(lái)進(jìn)行查詢；另一功能相對(duì)復(fù)雜一點(diǎn)，系統(tǒng)能根據(jù)查詢?nèi)藛T輸入的不確定信息來(lái)找出具有某種屬性的人員，例如：只知道某員工是女性，根據(jù)此信息，找出公司里的全部女性成員。6） 刪除員工信息界面，可根據(jù)員工號(hào)刪除本員工的所有信息。 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)變動(dòng)時(shí)間員工號(hào)員工密碼 權(quán)限姓名性別生日職位學(xué)歷專業(yè)聯(lián)系地址聯(lián)系電話 Email當(dāng)前狀態(tài)員工部 門(mén)1:1N:1N:111記錄編號(hào) 變動(dòng) 描述人事變動(dòng)記錄圖23 是人事管理系統(tǒng)的ER圖。 第3章 數(shù)據(jù)庫(kù)的建立在此應(yīng)用程序中，是用SQL Server 2000來(lái)建立數(shù)據(jù)庫(kù)。SQL Server 使用客戶機(jī)/服務(wù)器體系結(jié)構(gòu)將所有的工作負(fù)荷分解成在服務(wù)器上的任務(wù)和在客戶機(jī)上的任務(wù)。SQL Server 2000 是作為服務(wù)器運(yùn)行的Windows應(yīng)用程序，與Windows NT和Windows 2000完全集成，并且利用了NT的許多功能。你所要做的是建立一個(gè)數(shù)據(jù)庫(kù)和與之交互的應(yīng)用程序，不用為背景過(guò)程擔(dān)心。MSDTC 服務(wù)是并列事務(wù)管理器，用于管理分布于兩個(gè)以上的數(shù)據(jù)庫(kù)、消息隊(duì)列或文件系統(tǒng)，協(xié)調(diào)多服務(wù)器之間的事務(wù)一致性。在給數(shù)據(jù)庫(kù)命名時(shí)，一定要使數(shù)據(jù)庫(kù)名稱簡(jiǎn)短且有意義。這樣，新數(shù)據(jù)庫(kù)自動(dòng)具有model數(shù)據(jù)庫(kù)中的系統(tǒng)表結(jié)構(gòu)。當(dāng)數(shù)據(jù)庫(kù)創(chuàng)建之后，數(shù)據(jù)庫(kù)的用戶就自動(dòng)成為數(shù)據(jù)庫(kù)的所有者?？砂匆韵虏襟E創(chuàng)建數(shù)據(jù)庫(kù)。常規(guī)選項(xiàng)卡最上面的部分要求在一個(gè)文本框中輸入該數(shù)據(jù)庫(kù)的名稱。SQL Server 2000 對(duì)試圖訪問(wèn)服務(wù)器的用戶將會(huì)進(jìn)行四層檢查。同時(shí)表是用來(lái)存儲(chǔ)數(shù)據(jù)和操作數(shù)據(jù)的邏輯結(jié)構(gòu)，其結(jié)構(gòu)和電子表格相似，由行和列組成。（2）單擊“表”節(jié)點(diǎn)，此時(shí)該數(shù)據(jù)庫(kù)中的表對(duì)象會(huì)顯示在內(nèi)容窗口中，然后選擇下列操作之一打開(kāi)表設(shè)計(jì)窗口。而特殊屬性的設(shè)置會(huì)根據(jù)字段數(shù)據(jù)類型的不同而有所不同。字段名要遵守標(biāo)示符的規(guī)定，在特定表中必須是唯一的，但同一數(shù)據(jù)庫(kù)中的不同表可使用相同的列名。 圖32 表設(shè)計(jì)窗口 長(zhǎng)度：指定字段的長(zhǎng)度，也就是字段所占字節(jié)數(shù)。描述：指定字段的注釋文本描述。對(duì)于decimal和numeric數(shù)據(jù)類型的字段可以設(shè)置精度屬性?？赡艿闹涤幸韵氯齻€(gè)。標(biāo)識(shí)種子：指定標(biāo)識(shí)字段的初始值。排序規(guī)則：指定當(dāng)字段值用于對(duì)查詢結(jié)果的記錄進(jìn)行排序時(shí)的排序規(guī)則，默認(rèn)情況下使用數(shù)據(jù)庫(kù)默認(rèn)設(shè)置。 圖33 設(shè)置表字段屬性2． 保存表格在完成以上步驟以后，就可以將表格保存。ODBC是一組重要的數(shù)據(jù)庫(kù)訪問(wèn)API的集合，用來(lái)訪問(wèn)關(guān)系型數(shù)據(jù)庫(kù)或者ISAM（indexed sequential access method）數(shù)據(jù)庫(kù)。僅僅安裝了SQL Server ODBC驅(qū)動(dòng)程序，還不能使用ODBC，還需要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)源。單擊“添加”按鈕，則出現(xiàn)創(chuàng)建新數(shù)據(jù)源對(duì)話框，在該窗口中，你可以選擇連接數(shù)據(jù)源的驅(qū)動(dòng)程序。下一步是選擇認(rèn)證模式，選擇“使用網(wǎng)絡(luò)登錄ID的Windows NT驗(yàn)證”項(xiàng)，單擊“下一步”按鈕，則出現(xiàn)圖37。單擊“測(cè)試數(shù)據(jù)源”按鈕以檢測(cè)連接，如果連接成功，會(huì)出現(xiàn)“測(cè)試成功”對(duì)話框。 表41 窗體設(shè)計(jì)對(duì)照表窗體名稱Unit文件窗體功能Form1人事管理系統(tǒng)主窗體Form2系統(tǒng)登錄的窗體Form3增加新員工的窗體Form4人事變動(dòng)窗體Form5簡(jiǎn)單查詢的窗體Form6復(fù)雜查詢的窗體Form7員工信息修改的窗體Form8刪除員工信息的窗體AboutBoxAbout窗體 主窗口的創(chuàng)建啟動(dòng)Windows，并從“開(kāi)始”菜單選擇“Borland Delphi 6”/“Delphi 6”，以啟動(dòng)Delphi。主菜單一般稱為菜單欄，其中包括一個(gè)或多個(gè)選擇項(xiàng)稱為菜單項(xiàng)。B標(biāo)題板”則表示可按Ctrl+B或Alt+B鍵來(lái)選擇此功能，其中“amp。 設(shè)置菜單主要屬性 表42 菜單屬性表 菜單欄 菜單項(xiàng)（菜單欄） 菜單項(xiàng) 屬性 取值 （說(shuō)明） S1 Caption amp。X退出 Shortcut Ctrl+Q M1 Caption amp。S員工信息查詢 E1 Caption amp。D刪除員工信息 H1 Caption amp。雙擊控件欄additional頁(yè)上的Image控件，在主窗口form1中添加Image控件。當(dāng)兩個(gè)屬性都設(shè)置為true時(shí)，則優(yōu)先響應(yīng)autosize屬性，既調(diào)整Image控件大小，以適應(yīng)調(diào)入的圖形。經(jīng)過(guò)以上方法，可設(shè)置本應(yīng)用程序的主窗口，如圖41所示。end。 [1].Text:=39。begin :=true。您已經(jīng)斷開(kāi)連接，請(qǐng)重新登錄！39。39。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。每個(gè)用戶都可以進(jìn)入主窗口，但不是每個(gè)用戶都有操作菜單的權(quán)限，他們必須用用戶名和密碼進(jìn)行登錄。兩個(gè)文本框分別用于用戶名輸入和密碼輸入。在登錄窗口中放置一個(gè)Database控件，一個(gè)Table控件與一個(gè)DataSource控件，其屬性設(shè)置為下表所示： 表43 登錄窗體的主要控件與屬性對(duì)照表控件名稱 屬性 設(shè)置值 注釋Database1 AliasName MQIS 指定要訪問(wèn)的數(shù)據(jù)庫(kù)所在的路徑名 DatabaseName renshi 指定要訪問(wèn)的數(shù)據(jù)庫(kù)的路徑名 Connected true 連接Table1 DatabaseName renshi 指定要訪問(wèn)的數(shù)據(jù)庫(kù)的路徑名 TableName 與表PERSON聯(lián)系 Active true 激活與數(shù)據(jù)庫(kù)表格的數(shù)據(jù)聯(lián)系 CachedUpdates true 允許通過(guò)Table修改數(shù)據(jù)DataSource1 DataSet Table1 系統(tǒng)登錄窗口的代碼設(shè)計(jì) 系統(tǒng)的主要代碼（系統(tǒng)登錄代碼）如下： procedure (Sender: TObject)。39。39。 if 0 then begin if table1[39。]=39。 :=true。您已經(jīng)正確登錄39。 :=true。 :=true。您已經(jīng)正確登錄,但只有查詢權(quán)限39。密碼錯(cuò)誤39。 end else (39。,MB_ok)。這是我們?cè)谀K設(shè)計(jì)過(guò)程中必須解決的問(wèn)題。 增加新員工模塊的窗體設(shè)計(jì)增加新員工窗口的窗體設(shè)計(jì)如圖43所示。管理員首先應(yīng)給新員工分配一個(gè)員工號(hào)和一個(gè)密碼，這樣新員工以后就有對(duì)員工信息表進(jìn)行查詢的權(quán)利。var i,j:integer。 。 table1[39。NAME39。 sexs[1]:=39。]:=sexs[i]。]:=。 table1[39。EDU_LEVEL39。]:= 。 table1[39。Email39。]:= 。 table1[39。 。NUMBER39。]:= 。 table2[39。 begin s:=39。DESCRIPTION39。 (39。,MB_OK)。39。 ( [1] as TradioButton).Checked :=false。39。39。39。39。39。39。其中主要包括4個(gè)edit組件，3個(gè)ComboBox組件，1個(gè)Memo（具體描述人事變動(dòng)）組件，1個(gè)DBGrid（顯示人事變動(dòng)信息）組件三個(gè)按鈕。此處的變動(dòng)原因只包括員工的職務(wù)變動(dòng)和辭退，而不包括新員工的加入。begin 。 table1[39。 。]:= 。 table2[39。SEASON39。 for j:=0 to 50 do s:=s+ [j]。 end。,39。39。39。39。39。（2） 刷新代碼（使得DBGrid控件的內(nèi)容隨著變動(dòng)記錄的添加而變動(dòng)）：procedure (Sender: TObject)。 簡(jiǎn)單查詢模塊的創(chuàng)建簡(jiǎn)單查詢模塊的創(chuàng)建過(guò)程也包括窗體設(shè)計(jì)和代碼設(shè)計(jì)兩部分。DBMemo2輸出員工詳細(xì)信息。 :=39。+ +39。 :=true。begin :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。end。ID=39。39。 。查詢的結(jié)果由用戶提供的信息量而定，有可能是具體某一位員工，也有可能是一個(gè)查詢范圍。 表47 模糊查詢窗口的主要控件與屬性對(duì)照表控件名稱 屬性 設(shè)置值 注釋Table1 Databasename renshi 指定要訪問(wèn)的數(shù)據(jù)庫(kù)的路徑名 Tablename 與表PERSON相聯(lián)系 CachedUpdates True 允許通過(guò)Table修改數(shù)據(jù)Datasource1 Dataset Table1DBGrid1 Datasource Datasource1 模糊查詢窗口的代碼設(shè)計(jì) 模糊查詢模塊的主要代碼：（1） 查詢代碼：procedure (Sender: TObject)。 if or or or or or or or or or or or then begin if then s:=s+39。+ +39。 else if then s:=s+39。+ +39。 else if then s:=s+39。+ +39。 else if then s:=s+39。+ +39。 else if then s:=s+39。+ +39。 else if then s:=s+39。+ +39。 else if then s:=s+39。+ +39。