【正文】 OK)。 :=39。39。 :=39。39。 :=39。39。 ( [0] as TradioButton).Checked :=false。 ( [1] as TradioButton).Checked :=false。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 for j:=0 to 50 do [j]:=39。39。end。 人事變動模塊的實現(xiàn)人事變動模塊的實現(xiàn)過程包括窗口設計和代碼設計兩部分。 人事變動窗口的窗體設計人事變動窗口的窗體設計如圖44所示。其中主要包括4個edit組件，3個ComboBox組件，1個Memo（具體描述人事變動）組件，1個DBGrid（顯示人事變動信息）組件三個按鈕。此窗口可對員工的人事變動信息進行記錄，例如員工的部門變動或者職位變動。為了方便以后的查詢，每條變動記錄都可以輸入對應的記錄號。人事變動信息可直接存入數(shù)據(jù)庫中的人事變動列表，以后在人事變動窗口和員工信息表中都有所反映。此處的變動原因只包括員工的職務變動和辭退，而不包括新員工的加入。 圖44 人事變動記錄窗口窗體的主要控件及屬性設置如表43所示 表45 人事變動窗體的主要控件與屬性對照表控件名稱 屬性 設置值 注釋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內容DBGrid1 Datasource Datasource2 人事變動窗口的代碼設計 人事變動窗口的主要代碼如下：（1） 修改代碼：procedure (Sender: TObject)。var j:integer。 s:string。begin 。 table1[39。DEPARTMENT39。]:= 。 table1[39。JOB39。]:= 。 。 。 。 table2[39。NUMBER39。]:= 。 table2[39。ID39。]:= 。 table2[39。TIME39。]:= 。 table2[39。SEASON39。]:= 。 begin s:=39。39。 for j:=0 to 50 do s:=s+ [j]。 table2[39。DESCRIPTION39。]:=S。 end。 。 (39。修改成功39。,39。確認對話框39。,MB_OK)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 for j:=0 to 50 do [j]:=39。39。end。（2） 刷新代碼（使得DBGrid控件的內容隨著變動記錄的添加而變動）：procedure (Sender: TObject)。begin :=false。 。end。 簡單查詢模塊的創(chuàng)建簡單查詢模塊的創(chuàng)建過程也包括窗體設計和代碼設計兩部分。 簡單查詢模塊的窗體設計這里的簡單查詢指的是根據(jù)員工號來查詢，其窗口的窗體設計如圖45所示。其包括2個edit編輯框，13個DBEdit組件，2個DBMemo組件，一個DBGrid組件和三個按鈕。DBGrid1組件用來輸出本員工的人事變動基本信息，DBMemo1輸出對應的人事變動具體情況。DBMemo2輸出員工詳細信息。 圖45 根據(jù)員工號查詢窗口窗體的主要控件及屬性設置如表44所示。 表46 簡單查詢窗體的主要控件與屬性對照表控件名稱 屬性 設置值 注釋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 PASSWD 顯示PASSWD的內容DBEdit2 Datasource Datasource1 Datafield NAME 顯示MAME的內容DBEdit3 Datasource Datasource1 Datafield SEX 顯示SEX的內容DBEdit4 Datasource Datasource1 Datafield BIRTHDAY 顯示BIRTHDAY的內容DBEdit5 Datasource Datasource1 Datafield JOB 顯示JOB的內容DBEdit6 Datasource Datasource1 Datafield EDU_LEVEL 顯示EDU_LEVEL的內容DBEdit7 Datasource Datasource1 Datafield ADDRESS 顯示ADDRESS的內容DBEdit8 Datasource Datasource1 Datafield DEPARTMENT 顯示DEPARTMENT的內容DBEdit9 Datasource Datasource1 Datafield AUTHORITY 顯示AUTHORITY的內容DBEdit10 Datasource Datasource1 Datafield SPECIALTY 顯示SPECIALTY的內容DBEdit11 Datasource Datasource1 Datafield TEL 顯示TEL的內容DBEdit12 Datasource Datasource1 Datafield EMAIL 顯示EMAIL的內容DBEdit13 Datasource Datasource1 Datafield STATE 顯示STATE的內容 簡單查詢窗口的代碼設計 簡單查詢窗口主要有以下代碼（1） 添加代碼：procedure (Sender: TObject)。begin :=false。 :=39。ID=39。39。39。+ +39。39。39。39。 :=true。 。end。（2） 窗體初始化代碼：procedure (Sender: TObject)。begin :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。end。（3）顯示變動記錄代碼：procedure (Sender: TObject)。begin :=false。 :=39。ID=39。39。39。+ +39。39。39。39。 :=true。 。end。 模糊查詢模塊的創(chuàng)建模糊查詢功能的實現(xiàn)相對于簡單查詢比較復雜。這是一種在不知員工號下的查詢，它能根據(jù)用戶提供的模糊信息，一步一步的縮小查詢范圍。查詢的結果由用戶提供的信息量而定，有可能是具體某一位員工，也有可能是一個查詢范圍。 模糊查詢窗口的窗體設計模糊查詢窗口的窗體設計如圖46所示。其中包括6個edit編輯框，6個ComboBox組件，1個DBGrid組件和三個按鈕。 圖46 模糊查詢窗口窗口的主要控件及屬性設置如表45所示。 表47 模糊查詢窗口的主要控件與屬性對照表控件名稱 屬性 設置值 注釋Table1 Databasename renshi 指定要訪問的數(shù)據(jù)庫的路徑名 Tablename 與表PERSON相聯(lián)系 CachedUpdates True 允許通過Table修改數(shù)據(jù)Datasource1 Dataset Table1DBGrid1 Datasource Datasource1 模糊查詢窗口的代碼設計 模糊查詢模塊的主要代碼：（1） 查詢代碼：procedure (Sender: TObject)。var s:string。begin s:=39。39。 if or or or or or or or or or or or then begin if then s:=s+39。NAME=39。39。39。+ +39。39。39。39。 else if then s:=s+39。SEX=39。39。39。+ +39。39。39。39。 else if then s:=s+39。BIRTHDAY=39。39。39。+ +39。39。39。39。 else if then s:=s+39。JOB=39。39。39。+ +39。39。39。39。 else if then s:=s+39。AUTHORITY=39。39。39。+ +39。39。39。39。 else if then s:=s+39。DEPARTMENT=39。39。39。+ +39。39。39。39。 else if then s:=s+39。ED