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