【文章內(nèi)容簡介】 20 專業(yè) whcd Varchar 10 文化程度 tc Varchar 50 特長 gzsj Datetime 8 參加工作時間 gn Int 4 工齡 zp Image 16 照片 ssbm Varchar 50 所屬部門 gz Varchar 10 工種 zw Varchar 10 職務 zc Varchar 20 職稱 jbgz Float 8 基本工資 qtgz Float 8 其它工資 drsj Datetime 8 調(diào)入時間 jl Varchar 200 簡歷 djrq Datetime 8 登記日期 各功能模塊的實現(xiàn) 數(shù)據(jù) 模塊設計 數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)庫訪問組件， 在本系統(tǒng)中，這個模塊是最重要的模塊，其他模塊都要通過這個模塊中的組件訪問數(shù)據(jù)庫，雖然只有簡單的組件屬性設置， Delphi自動生成代碼，但是不容有誤。 數(shù)據(jù)模塊如圖 3所示 ： 圖 3 數(shù)據(jù)模塊 此模塊的設計步驟如下： （ 1）在 Delphi中選擇“ File” /“ New” /“ Data Module”菜單項，新建一個數(shù)據(jù)模塊，命名為“ Data1”。 （ 2）在“ ADO”組件頁中點選“ TADOConnection”組件，添加到窗體上，TADOConnection組件用到連接數(shù)據(jù)庫，其它數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。 （ 3）點選 ADOConnection1組件，在“ Object Inspector”窗口中，單擊ConnectionString屬性右側的【?】按鈕，彈出對話框如圖 4所示。 圖 4 數(shù)據(jù)連接對話框 （ 4）單擊【 Build】按鈕，在彈出的對話框中的“提供程序”選項卡中設置希望連接的數(shù)據(jù)，如圖 5 所示。 圖 5 連接屬性對話框 （ 5）選擇“連接”選項卡，設置連接相關設置，如圖 6所示。 圖 6 連接屬性對話框 （ 6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。 （ 7）在窗體上添加 TADOQuery組件，設置 Connection為 “ ADOConnection1”。 這里的每個 TADOQuery組件連接一個數(shù)據(jù)表。 登錄 界面的設計 登錄 界 面 主要是用于對用戶進行安全性檢查，以防止非法用戶進入該系統(tǒng)。只有合法的用戶，才可以進入系統(tǒng)。 驗證操作員及其密碼。主要是通過對數(shù)據(jù)表中的操作員信息表的查詢，判斷用戶輸入的密碼是否符合數(shù)據(jù)庫中的信息，如果符合則允許登錄；否則會有相應的提示。為了安全本系統(tǒng)會在三次錯誤之后自動關閉。 圖 7 登錄 界面 此模塊的設計步驟如下： （ 1）新建一個窗 體 ，命名為“ frm_Login”，設置 Caption 屬性為“登錄”，設置 Position 屬性為“ poScreenCenter”。 （ 2）在“ Additional”組件頁中點 選“ TImage”組件，添加到窗體上，設置Align 屬性為“ alClient”； Stretch 屬性為“ Tree”，在 Pictuer 屬性中添加圖片。 （ 3）在“ Standard”組件頁中點選“ TEdit”組件，添加到窗體上，設置 Ctl3D屬性為“ False”；設置 Text 屬性為空，設置 Edir2 的 PasswordChar 屬性為“ *”。 （ 4）在“ Additional”組件頁中點選“ TSpeedButton”組件，添加到窗體上，設置 Caption 屬性分別為“登錄”和“取消”；設置 Flat 屬性為“ True”。 此 模塊調(diào)用了數(shù)據(jù)模塊中的 ADOquery 組件連接數(shù)據(jù)庫，然后用 select 語句對操作員信息這張數(shù)據(jù)表進行操作。對數(shù)據(jù)庫的操作主要由以下代碼實現(xiàn)： with do begin close。 。 (39。select * from 操作員信息表 where 操作員名稱 = :a and 操作員密碼 = :b39。)。 //使用 SQL語句檢索數(shù)據(jù)表中的用戶名和密碼 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 open。 end。 這里將輸入的用戶名和密碼與操作員信息表中的操作員名稱和操作員密碼進行比較，如果兩者相同才能進入本系統(tǒng)。 新員工登記模塊設計 新員工登記模塊，主要用于添加、修改新員工的個人基本信息，如：姓名、性別、民族、文化程度等。新員工登記模塊運行結果如圖 8 所示。 圖 8 新 員工登記模塊 此模塊設計如下： （ 1）新建一個窗體，命名為“ frm_xygdj”，設置 Caption 屬性為“新員工登記”，設置 Position 屬性為“ poScreenCenter”。 （ 2）在窗體中添加“ TPanel”組件、“ TGroupBox”組件、“ TEdit”組件、“ TCombobox” 組件、“ TLabel”組件、“ TMaskEdit”組件、“ TMemo”組件、“ TBitbtn”組件、“ TImage”組件，設置屬性如表 5所示。 表 5 主要組件屬性設置 組件名稱 所在組件頁 屬性 值 Panel1 Standard Align Bevellnner BevelOuter alClient bvSpace bvLowered Panel2 Standard Align Bevellnner BevelOuter alNone bvSpace bvLowered Panel3 Standard Align Bevellnner BevelOuter alNone bvSpace bvLowered Groupbox1 Standard Caption 基本信息 Groupbox2 Standard Caption 其它信息 MaskEdit Additional Ctl3D EditMask False !9999/99/00。1。_ Image Additional Align Stretch alClient Ture 此模塊調(diào)用數(shù)據(jù)模塊中的 ADOquery 組件連接數(shù)據(jù)庫中的人事表。 “保存”按鈕的功能主要是通過 Insert 語句向數(shù)據(jù)庫中插入和添加數(shù)據(jù)， 這段 Insert 語句如下： with do begin close。 。 (39。insert 人 事表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z,:aa,:ab,:ac,:ad,:ae,:af)39。)。 這里需要注意的是在“ insert 人事表 values”后面的括號中的項目數(shù)要與數(shù)據(jù)表中的字段數(shù)目相同，因為這是向數(shù)據(jù)表中依次插入數(shù)據(jù)，如果不相同就會出錯。 在編輯框的 OnChange 事件中添加如下代碼，用來控制保存 按鈕的使用，如果沒有完全填寫信息， bitbtn 的 Enabled 屬性就設置為 false，則設置 【保存】按鈕不可用。 這部分判斷輸入是否為空的實現(xiàn)如下： procedure (Sender: TObject)。 begin if (39。39。) and (39。39。) and (39。39。) and (39。39。) and(39。39。) and (39。39。) and (39。39。) and (39。39。) and(39。39。) and (39。39。) and (39。39。) and (39。39。) and(39。39。) and (39。39。) and (39。39。) and (39。39。) and(39。39。) and (39。39。) and (39。39。) and (39。39。) and(39。39。) and (39。39。) and (39。39。) and (39。39。) and (39。39。) and (39。39。) and (39。39。) then :=true else :=false。 end。 在窗體的 OnShow 事件中添加如下代碼，用來向下拉列表框（ TCombobox）組件添加數(shù)據(jù)表中的數(shù)據(jù)， 為了避免下拉列表框中出現(xiàn)重復，這里用了 select distinct 語句，以民族為例。 with do begin close。 。 (39。select distinct 民族 from 民族表 39。)。 open。 end。 while Not do //在不是最后一條記錄時進行循環(huán) begin ((39。 民族39。).Value)。 。 //將指針指向下一條記錄 end。 此模塊中的，婚姻狀況、文化程度等所有下拉列表框的實現(xiàn)都是這樣，這里不再重復。 在一個企業(yè)里，難免會用重名的員工，所 以姓名不能作為員工的唯一標識，那么如果用員工編號來做唯一標識，就可以解決這個問題了。人為的編號也難免會出錯，所以在這里我們設置單擊“添加”按鈕自動生成員工編號。 這個功能實現(xiàn)，首先需要使用 select語句在人事表中找到最大的編號，實現(xiàn)如下： begin Close。 。 (39。select max(bh) as ss From 人事表 39。)。 Open。 end。 當然，如果是第一次添加新員工，返回值為空時，編號就由 001開始編排。 If (39。ss39。).Value = null then s :=’ mr’ +39。00139。 如果不為空就需要分情況進行處理，這里實現(xiàn)代碼如下： m:= Trim((39。ss39。).Value) 。 n:= StrToInt(copy(m,4,2)) 。//將 m的值從第 4位取 2位變?yōu)檎? if n9 then s:= s+39。0039。+ InttoStr(n +1) else if n99 then s:=s+39。039。+ InttoStr(n +1) else s:= s+InttoStr(n +1)。 這樣就有效的避免了人為操作的輸入失誤。 工資設置 模塊設計 工資設置模塊主要用于設置員工的工資信息，此窗體中主要應用的也是基本的 SQL 語句 Insert 向數(shù)據(jù)中插入數(shù)據(jù)。工資設置模塊運行結果如圖 9 所示。 圖 9 工資設置 模塊 此模塊主要用了以下的組件： “ TPanel”組件 、 “ TGroupBox”組件 、 “ TLabel”組件 、 “ TEdit”組件 、 “ TCombobox”組件 、 “ TCheckBox”組件 、 “ TBitBtn”組件 、“ TDataSource”組件 、 “ TDBGrid”組件 ，其中 “ TDataSource”組件 、 “ TDBGrid”組件 兩個組件是顯示數(shù)據(jù)庫中內(nèi)容的組件在運行時是看不到的。 工資設置模塊連接數(shù)據(jù)庫也和其他模塊一樣用的是數(shù)據(jù)模塊中的 ADOquery組件。 此模塊在“員工編號”的下拉列表框中選中選擇編號后員工姓名的列表框中的自動變?yōu)橄鄬男彰?，這個功能首先也是用的 select 語句對數(shù)據(jù)庫進行查詢。查詢代碼如下： begin close。 。 (39。select * from 人事表 where bh=:a39。)。 (39。a39。).Value:=。 open。 end。 然后再將查詢到的行中的“姓名”字段中的值賦給模塊中的姓名后的bobox 組件的 text 屬性，由下面一條代碼完成。 :=(39。xm39。).Value。 本系統(tǒng)能夠通過輸入工資來對所要交納的個人所得稅的級別來進行判斷，這需要在基本工資后的 OnChange 事件中添加代碼。 首先同樣是用 select 語句查詢個人所得稅表，然后執(zhí)行以下代碼： while not do begin if (strtofloat()=(39。應納所得稅金額下限 39。).Value) and (strtofloat()(39。應納所得稅金額上限 39。).Value) then :=(39。級別號 39。).Value。 。 end。 這段代碼中運用了 ADOquery 組件的 Eof 屬性返回數(shù)據(jù)集的最后一條記錄、ADOquery 組件的 Next 屬性返回數(shù)據(jù)集中當前記錄的下一條記錄，這兩個屬性主要是實現(xiàn)對數(shù)據(jù)表的逐一查詢。 主窗體 設計 主窗體中主要控制方式 是通過菜單和工具欄按鈕來調(diào)用子窗體，它的背景區(qū)由一幅圖片填充。 人事管理系統(tǒng) 主窗體運行結果如圖 10所示。 圖 10