【文章內(nèi)容簡介】 8其它金額kgfFloat8曠工費ylbxFloat8養(yǎng)老保險sybxFloat8失業(yè)保險ylbxFloat8醫(yī)療保險qtkeFloat8其它扣額yfgzFloat8應(yīng)發(fā)工資ykgzFloat8應(yīng)扣工資sfgzFloat8實發(fā)工資bzvarchar50備注4．人事表人事表用來存放員工的詳細(xì)信息，人事表結(jié)構(gòu)如表4所示。表4 人事表字段名數(shù)據(jù)類型長度主鍵否功能描述bhVarchar5是編號xmVarchar10姓名xbVarchar2性別sfzhVarchar20身份證號csnyDatetime8出生年月mzVarchar20民族hyzkVarchar4婚姻狀況zzmmVarchar10政治面貌jgVarchar50籍貫nxdhVarchar20聯(lián)系電話sjhmVarchar30手機(jī)號碼dzyxVarchar20電子郵箱jtdzVarchar50家庭地址byyxVarchar50畢業(yè)院校zyVarchar20專業(yè)whcdVarchar10文化程度tcVarchar50特長gzsjDatetime8參加工作時間gnInt4工齡zpImage16照片ssbmVarchar50所屬部門gzVarchar10工種zwVarchar10職務(wù)zcVarchar20職稱jbgzFloat8基本工資qtgzFloat8其它工資drsjDatetime8調(diào)入時間jlVarchar200簡歷djrqDatetime8登記日期 各功能模塊的實現(xiàn) 數(shù)據(jù)模塊設(shè)計數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)庫訪問組件，在本系統(tǒng)中，這個模塊是最重要的模塊，其他模塊都要通過這個模塊中的組件訪問數(shù)據(jù)庫，雖然只有簡單的組件屬性設(shè)置，Delphi自動生成代碼，但是不容有誤。數(shù)據(jù)模塊如圖3所示：圖3 數(shù)據(jù)模塊此模塊的設(shè)計步驟如下：（1）在Delphi中選擇“File”/“New”/“Data Module”菜單項，新建一個數(shù)據(jù)模塊，命名為“Data1”。（2）在“ADO”組件頁中點選“TADOConnection”組件，添加到窗體上，TADOConnection組件用到連接數(shù)據(jù)庫，其它數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。（3）點選ADOConnection1組件，在“Object Inspector”窗口中，單擊ConnectionString屬性右側(cè)的【…】按鈕，彈出對話框如圖4所示。圖4 數(shù)據(jù)連接對話框（4）單擊【Build】按鈕，在彈出的對話框中的“提供程序”選項卡中設(shè)置希望連接的數(shù)據(jù)，如圖5所示。圖5 連接屬性對話框（5）選擇“連接”選項卡，設(shè)置連接相關(guān)設(shè)置，如圖6所示。圖6 連接屬性對話框（6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。（7）在窗體上添加TADOQuery組件，設(shè)置Connection為“ADOConnection1”。這里的每個TADOQuery組件連接一個數(shù)據(jù)表。 登錄界面的設(shè)計登錄界面主要是用于對用戶進(jìn)行安全性檢查，以防止非法用戶進(jìn)入該系統(tǒng)。只有合法的用戶，才可以進(jìn)入系統(tǒng)。驗證操作員及其密碼。主要是通過對數(shù)據(jù)表中的操作員信息表的查詢，判斷用戶輸入的密碼是否符合數(shù)據(jù)庫中的信息，如果符合則允許登錄；否則會有相應(yīng)的提示。為了安全本系統(tǒng)會在三次錯誤之后自動關(guān)閉。圖7 登錄界面此模塊的設(shè)計步驟如下：（1）新建一個窗體，命名為“frm_Login”，設(shè)置Caption屬性為“登錄”，設(shè)置Position屬性為“poScreenCenter”。（2）在“Additional”組件頁中點選“TImage”組件，添加到窗體上，設(shè)置Align屬性為“alClient”；Stretch屬性為“Tree”，在Pictuer屬性中添加圖片。（3）在“Standard”組件頁中點選“TEdit”組件，添加到窗體上，設(shè)置Ctl3D屬性為“False”；設(shè)置Text屬性為空，設(shè)置Edir2的PasswordChar屬性為“*”。（4）在“Additional”組件頁中點選“TSpeedButton”組件，添加到窗體上，設(shè)置Caption屬性分別為“登錄”和“取消”；設(shè)置Flat屬性為“True”。此模塊調(diào)用了數(shù)據(jù)模塊中的ADOquery組件連接數(shù)據(jù)庫，然后用select語句對操作員信息這張數(shù)據(jù)表進(jìn)行操作。對數(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。這里將輸入的用戶名和密碼與操作員信息表中的操作員名稱和操作員密碼進(jìn)行比較，如果兩者相同才能進(jìn)入本系統(tǒng)。 新員工登記模塊設(shè)計新員工登記模塊，主要用于添加、修改新員工的個人基本信息，如：姓名、性別、民族、文化程度等。新員工登記模塊運行結(jié)果如圖8所示。圖8 新員工登記模塊此模塊設(shè)計如下：（1）新建一個窗體，命名為“frm_xygdj”，設(shè)置Caption屬性為“新員工登記”，設(shè)置Position屬性為“poScreenCenter”。（2）在窗體中添加“TPanel”組件、“TGroupBox”組件、“TEdit”組件、“TCombobox” 組件、“TLabel”組件、“TMaskEdit”組件、“TMemo”組件、“TBitbtn”組件、“TImage”組件，設(shè)置屬性如表5所示。表5 主要組件屬性設(shè)置組件名稱所在組件頁屬性值Panel1StandardAlignBevellnnerBevelOuteralClientbvSpacebvLoweredPanel2StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredPanel3StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredGroupbox1StandardCaption基本信息Groupbox2StandardCaption其它信息MaskEditAdditionalCtl3DEditMaskFalse!9999/99/00。1。_ImageAdditionalAlignStretchalClientTure此模塊調(diào)用數(shù)據(jù)模塊中的ADOquery組件連接數(shù)據(jù)庫中的人事表?！氨４妗卑粹o的功能主要是通過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屬性就設(shè)置為false，則設(shè)置【保存】按鈕不可用。這部分判斷輸入是否為空的實現(xiàn)如下：procedure (Sender: TObject)。beginif (39。39。) and (39。39。) and (39。39。) and (39。39。) then:=trueelse:=false。end。在窗體的OnShow事件中添加如下代碼，用來向下拉列表框（TCombobox）組件添加數(shù)據(jù)表中的數(shù)據(jù)，為了避免下拉列表框中出現(xiàn)重復(fù)，這里用了select distinct語句，以民族為例。 with do begin close。 。 (39。select distinct 民族 from 民族表39。)。 open。 end。 while Not do //在不是最后一條記錄時進(jìn)行循環(huán) begin ((39。民族39。).Value)。 。 //將指針指向下一條記錄 end。此模塊中的，婚姻狀況、文化程度等所有下拉列表框的實現(xiàn)都是這樣，這里不再重復(fù)。在一個企業(yè)里，難免會用重名的員工，所以姓名不能作為員工的唯一標(biāo)識，那么如果用員工編號來做唯一標(biāo)識，就可以解決這個問題了。人為的編號也難免會出錯，所以在這里我們設(shè)置單擊“添加”按鈕自動生成員工編號。這個功能實現(xiàn)，首先需要使用select語句在人事表中找到最大的編號，實現(xiàn)如下：begin Close。 。 (39。select max(bh) as ss From 人事表 39。)。 Open。 end。