【正文】 39。39。39。EDU_LEVEL=39。39。39。39。DEPARTMENT=39。39。39。39。AUTHORITY=39。39。39。39。JOB=39。39。39。39。BIRTHDAY=39。39。39。39。SEX=39。39。39。39。NAME=39。39。var s:string。 圖46 模糊查詢窗口窗口的主要控件及屬性設(shè)置如表45所示。 模糊查詢窗口的窗體設(shè)計(jì)模糊查詢窗口的窗體設(shè)計(jì)如圖46所示。這是一種在不知員工號(hào)下的查詢，它能根據(jù)用戶提供的模糊信息，一步一步的縮小查詢范圍。end。 :=true。39。+ +39。39。 :=39。（3）顯示變動(dòng)記錄代碼：procedure (Sender: TObject)。39。39。39。39。39。39。39。39。39。39。39。39。39。39。（2） 窗體初始化代碼：procedure (Sender: TObject)。 。39。39。39。ID=39。begin :=false。 圖45 根據(jù)員工號(hào)查詢窗口窗體的主要控件及屬性設(shè)置如表44所示。DBGrid1組件用來輸出本員工的人事變動(dòng)基本信息，DBMemo1輸出對(duì)應(yīng)的人事變動(dòng)具體情況。 簡單查詢模塊的窗體設(shè)計(jì)這里的簡單查詢指的是根據(jù)員工號(hào)來查詢，其窗口的窗體設(shè)計(jì)如圖45所示。end。begin :=false。end。 for j:=0 to 50 do [j]:=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。確認(rèn)對(duì)話框39。修改成功39。 。]:=S。 table2[39。39。]:= 。 table2[39。TIME39。]:= 。 table2[39。NUMBER39。 。 。JOB39。]:= 。 table1[39。 s:string。 圖44 人事變動(dòng)記錄窗口窗體的主要控件及屬性設(shè)置如表43所示 表45 人事變動(dòng)窗體的主要控件與屬性對(duì)照表控件名稱 屬性 設(shè)置值 注釋Table1 Databasename renshi 指定要訪問的數(shù)據(jù)庫的路徑名 Tablename 與表PERSON相聯(lián)系 CachedUpdates True 允許通過Table修改數(shù)據(jù)Datasource1 Dataset Table1Table2 Databasename renshi 指定要訪問的數(shù)據(jù)庫的路徑名 Tablename PERSONNELCHANGE 與表相聯(lián)系 CachedUpdates True 允許通過Table修改數(shù)據(jù)DatasSource2 DataSet Table2 DBEdit1 Datasource Datasource1 Datafield NAME 顯示NAME內(nèi)容DBGrid1 Datasource Datasource2 人事變動(dòng)窗口的代碼設(shè)計(jì) 人事變動(dòng)窗口的主要代碼如下：（1） 修改代碼：procedure (Sender: TObject)。人事變動(dòng)信息可直接存入數(shù)據(jù)庫中的人事變動(dòng)列表，以后在人事變動(dòng)窗口和員工信息表中都有所反映。此窗口可對(duì)員工的人事變動(dòng)信息進(jìn)行記錄，例如員工的部門變動(dòng)或者職位變動(dòng)。 人事變動(dòng)窗口的窗體設(shè)計(jì)人事變動(dòng)窗口的窗體設(shè)計(jì)如圖44所示。end。 for j:=0 to 50 do [j]:=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 ( [0] as TradioButton).Checked :=false。 :=39。 :=39。 :=39。確認(rèn)對(duì)話框39。添加成功39。 。]:=s。 table2[39。39。新員工加入39。SEASON39。]:= 。 table2[39。ID39。]:= 。 table2[39。 。 end。REMARK39。 for j:=0 to 50 do s:=s+[j]。 begin s:=39。AUTHORITY39。]:= 。 table1[39。TEL39。]:= 。 table1[39。SPECIALTY39。]:= 。 table1[39。JOB39。]:= 。 table1[39。BIRTHDAY39。 end。SEX39。女39。男39。]:= 。 table1[39。PASSWD39。]:= 。 table1[39。begin 。 s:string。增加新員工模塊的主要代碼如下：//“添加”按鈕代碼procedure (Sender: TObject)。 圖43 增加新員工窗口窗體的主要控件及屬性設(shè)置如表42所示。只有系統(tǒng)管理員具有給系統(tǒng)中添加信息的權(quán)利，普通員工是不能進(jìn)入“增加新員工”窗口的。其中包括11個(gè)edit控件（用來輸入員工信息），1個(gè)RadioGroup（選擇性別）組件，三個(gè)ComboBox組件，一個(gè)備注框Memo（列出詳細(xì)信息）組件和兩個(gè)按鈕（添加按鈕與關(guān)閉按鈕）。使我們不但可以了解員工的基本情況，而且有他們加入公司的詳細(xì)信息。那我們就必須設(shè)置一個(gè)人事變動(dòng)列表，用來存貯這些信息。一個(gè)員工什么時(shí)候是什么時(shí)候加入公司的，隨著時(shí)間的遷移，有時(shí)候不僅員工本人想知道，公司必然以后也需要這個(gè)信息。end。錯(cuò)誤39。用戶名錯(cuò)誤39。,MB_OK)。,39。 end else (39。+ 。 [1].Text :=39。 :=false。 :=false。 :=true。 :=false。+ 。 [1].Text :=39。 :=true。 :=false。添加與修改39。AUTHORITY39。PASSWD39。 。39。39。39。ID=39。begin :=false。 圖42 系統(tǒng)登錄窗口我們應(yīng)用BDE建立Delphi與數(shù)據(jù)庫的連接。控件編輯框edit2用做密碼輸入，輸入的數(shù)據(jù)一般以“*”顯示，為此需要將edit2的屬性passwardchar設(shè)置成*。 系統(tǒng)登錄窗口的窗體設(shè)計(jì)登錄窗口如圖42所示，包括兩個(gè)文本輸入框和兩個(gè)按鈕。只有登錄成功才有操作菜單的權(quán)限。 系統(tǒng)登錄窗口的創(chuàng)建系統(tǒng)登錄窗口模塊的實(shí)現(xiàn)過程包括登錄窗體設(shè)計(jì)和代碼設(shè)計(jì)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin 。end。 .text:=39。 .text:=39。 [1].Text :=39。 :=false。procedure (Sender: TObject)。您尚未登錄，請(qǐng)選擇登錄頁面登錄！39。 :=false。procedure (Sender:TObject)。begin 。 圖41 人事管理系統(tǒng)主窗口 添加代碼主窗體需要調(diào)用其他各窗體，因此uses子句中需包含以下項(xiàng)目login,add,change,isearch,dsearch,modify,about。 在程序運(yùn)行期間調(diào)入圖形。也可以通過調(diào)用過程：procedure LoadFromFile(const FileName: string)。其一，在對(duì)象編輯器中，修改autosize屬性值為true，則Image控件可自動(dòng)調(diào)整大小以適應(yīng)調(diào)入的圖形；其二，在對(duì)象編輯器中，修改stretch屬性值為true，則Image控件大小不變，圖形則自動(dòng)縮小或放大以適應(yīng)Image控件的大小。選定Image控件，單擊對(duì)象編輯器中的Picture屬性行擴(kuò)展符號(hào)按鈕，打開對(duì)話框，單擊load按鈕，選擇圖形文件。圖象控件Timage是一種容器控件，它在應(yīng)用程序窗體上提供一個(gè)巨型區(qū)域，用于顯示各種位圖、圖標(biāo)、圖元文件。H幫助 A2 Caption amp。R員工信息修改 D3 Caption amp。E根據(jù)員工號(hào)查詢 D2 Caption amp。C人事變動(dòng) S2 Caption amp。M人事管理 A1 Caption amp。D 斷開連接 Shortcut F3 N1 Caption (用作分割線) X1 Caption amp。S 系統(tǒng) C1 Caption amp。有時(shí)會(huì)在已建好的菜單中，插入一個(gè)新的菜單項(xiàng)或刪除一個(gè)菜單選項(xiàng)，這時(shí)就可用鼠標(biāo)選定將要插入或刪除的位置，按Insert鍵則新的空白菜單項(xiàng)會(huì)出現(xiàn)在所選位置的左側(cè)，若按Delete鍵則將刪除所選菜單項(xiàng)?！狈?hào)后的第一個(gè)字符稱為加速字符。在對(duì)象編輯器中，輸入其caption屬性（例如：File,Edit等），若輸入“amp。主菜單控件對(duì)象在設(shè)計(jì)期窗體上顯示為正方型的區(qū)塊，對(duì)象名為“MainMenu”，雙擊這個(gè)對(duì)象即彈出菜單設(shè)計(jì)窗口。實(shí)際應(yīng)用中，菜單可分為兩種基本類型：主菜單（mainmenu）和彈出式菜單（popmenu）。在“File”菜單中選擇“New Application”選項(xiàng)，系統(tǒng)將創(chuàng)建一個(gè)名為Project1的新工程。與此對(duì)應(yīng)的是該程序由9個(gè)窗體組成，各窗體設(shè)置如表41所示。 圖 37 ODBC SQL Server DSN配置對(duì)話框至此，就建立了一個(gè)名為“renshi”的SQL Server ODBC數(shù)據(jù)源，可以在應(yīng)用程序中使用它了。接著彈出一個(gè)確認(rèn)完成配置的對(duì)話框，在該對(duì)話框中，總結(jié)了用戶選擇的所有設(shè)置，并允許測試數(shù)據(jù)源以確保可用。設(shè)置默認(rèn)數(shù)據(jù)庫為“renshi”,其余選項(xiàng)采用默認(rèn)設(shè)置，單擊“下一步”按鈕，在出現(xiàn)的新窗口中繼續(xù)采用默認(rèn)設(shè)置。單擊“下一步”按鈕。這里，我們選擇SQL Server，單擊完成按鈕，則轉(zhuǎn)向下一對(duì)話框，它是與你選擇的驅(qū)動(dòng)程序相關(guān)的。用戶DSN選項(xiàng)卡顯示了可以由當(dāng)前登錄用戶使用的數(shù)據(jù)源清單；系統(tǒng)DSN選項(xiàng)卡顯示可以由系統(tǒng)上所有用戶使用的系統(tǒng)數(shù)據(jù)源清單；文件DSN選項(xiàng)卡顯示可以連接到一個(gè)文件上的數(shù)據(jù)源清單。其過程如下：在Windows 2000的管理工具中找到ODBC數(shù)據(jù)源管理器，雙擊該圖表，則顯示一個(gè)如圖36所示的窗口。在系統(tǒng)上安裝任何一個(gè)支持Microsoft ODBC的應(yīng)用程序時(shí)，一般都會(huì)安裝Microsoft SQL Server ODBC 驅(qū)動(dòng)程序。ODBC可以用來訪問不同平臺(tái)上的數(shù)據(jù)庫，例如SQL Server、Oracle或者DB2。本應(yīng)用程序中所建的表如圖34和圖35所示 連接ODBC數(shù)據(jù)源開放式數(shù)據(jù)庫連接（Open Database Connectivity, ODBC）是由Microsoft定義的一套數(shù)據(jù)庫訪問標(biāo)準(zhǔn)，包含在所有的Microsoft Windows操作系統(tǒng)中。方法是單擊工具欄上的“保存”按鈕，然后在“選擇名稱”對(duì)話框中輸入表名，單擊“確定”即可。如圖33所示。當(dāng)插入點(diǎn)移動(dòng)到此字段時(shí)，可以單擊按鈕更改排序規(guī)則。該選項(xiàng)只適用于其“標(biāo)識(shí)”屬性設(shè)置為“是”或“是（不適用于復(fù)制）”的字段，默認(rèn)值為1。該選項(xiàng)只適用于其“標(biāo)識(shí)”屬性設(shè)置為“是”或“是（不適用于復(fù)制）”的字段，默認(rèn)值為1。是（不適用于復(fù)制）——和第二個(gè)選項(xiàng)功能相似，但如果是以復(fù)制的方式向表中輸入數(shù)據(jù)，系統(tǒng)將不自動(dòng)生成字段值。否——不設(shè)置該字段為表識(shí)字段。只有bigint、int、smallint、tinyint、decimal和numeric可以設(shè)置該屬性。小數(shù)位數(shù)：顯示該列值小數(shù)點(diǎn)右邊能出現(xiàn)的最多數(shù)字個(gè)數(shù)。精度：指定該字段的位數(shù)。