【正文】 4) 用戶選擇完成招聘信息的修改任務(wù)。5) 對現(xiàn)有信息進(jìn)行修改。6) 修改信息完成，提示保存。b) 本使用案例中所涉及信息的描述? 招聘信息表a) 處理過程：1) 員工招聘信息窗體啟動(dòng)。2) 從招聘信息表中讀取所有的記錄，顯示到 dbgrid1 中。3) 選擇 dbgrid1 里需要?jiǎng)h除的招聘信息項(xiàng)。4) 用戶選擇完成招聘信息的刪除任務(wù)。5) 修改信息完成，提示保存。b) 本使用案例中所涉及信息的描述? 招聘信息表167。 應(yīng)聘人員管理a) 處理過程：1) 員工招聘信息窗體啟動(dòng)。2) 用戶選擇編輯應(yīng)聘信息。293) 從招聘信息表中讀取所有的記錄，顯示到 dbgrid1 中。4) 用戶選擇要應(yīng)聘的職位和部門。5) 用戶選擇完成應(yīng)聘信息的添加任務(wù)。6) 在對應(yīng)的信息欄中輸入應(yīng)聘人姓名，電話和簡介。7) 添加信息完成，提示保存。b) 本使用案例中所涉及信息的描述? 應(yīng)聘信息表? 招聘信息表a) 處理過程：1) 員工招聘信息窗體啟動(dòng)。2) 用戶選擇編輯應(yīng)聘信息。3) 從招聘信息表中讀取所有的記錄，顯示到 dbgrid1 中。4) 用戶選擇要應(yīng)聘的職位和部門。5) 用戶選擇完成應(yīng)聘信息的修改任務(wù)。6) 對現(xiàn)有的應(yīng)聘人姓名，電話和簡介進(jìn)行修改。7) 修改信息完成，提示保存。b) 本使用案例中所涉及信息的描述? 應(yīng)聘信息表? 招聘信息表a) 處理過程：1) 員工招聘信息窗體啟動(dòng)。2) 用戶選擇編輯應(yīng)聘信息。3) 從招聘信息表中讀取所有的記錄，顯示到 dbgrid1 中。4) 用戶選擇要應(yīng)聘的職位和部門。5) 用戶選擇完成應(yīng)聘信息的刪除任務(wù)。7) 刪除信息完成，提示保存。30b) 本使用案例中所涉及信息的描述? 應(yīng)聘信息表? 招聘信息表167。 方案論證分析167。 方案的技術(shù)可行性Delphi 是著名的 Borland（現(xiàn)在已和 Inprise 合并）公司開發(fā)的可視化軟件開發(fā)工具。它基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強(qiáng)大的數(shù)據(jù)庫支持，與 Windows編程緊密結(jié)合，具有強(qiáng)大而成熟的組件技術(shù)。它是一門真正的面向?qū)ο蟮拈_發(fā)工具，并且是完全的可視化。 Delphi 使用了真編譯，可以讓代碼編譯成為可執(zhí)行的文件，而且編譯速度非?？臁Ｔ?Delphi 眾多的優(yōu)勢當(dāng)中，它在數(shù)據(jù)庫方面的特長顯得尤為突出：適應(yīng)于多種數(shù)據(jù)庫結(jié)構(gòu)，從客戶機(jī)／服務(wù)機(jī)模式到多層數(shù)據(jù)結(jié)構(gòu)模式；高效率的數(shù)據(jù)庫管理系統(tǒng)和新一代更先進(jìn)的數(shù)據(jù)庫引擎；最新的數(shù)據(jù)分析手段和提供大量的企業(yè)組件，是開發(fā)中型數(shù)據(jù)庫軟件理想的編程工具。 Delphi 適用于應(yīng)用軟件、數(shù)據(jù)庫系統(tǒng)、系統(tǒng)軟件等類型的開發(fā)。 SQL SERVER 是一個(gè)關(guān)系數(shù)據(jù)庫管理系統(tǒng)(DBMS)，數(shù)據(jù)庫處理的基本結(jié)構(gòu)，采取關(guān)系型數(shù)據(jù)庫模式，但是在 SQL SERVER 的數(shù)據(jù)庫處理方式，則是使用面向?qū)ο蟮牟僮鞣绞健Ｗ髡吒鶕?jù)它的這個(gè)特點(diǎn)，配合數(shù)據(jù)設(shè)計(jì)的基本原則及數(shù)據(jù)庫的范式要求對數(shù)據(jù)庫進(jìn)行設(shè)計(jì) [3]。所以，此方案具有技術(shù)可行性。167。 方案的經(jīng)濟(jì)可行性隨著互聯(lián)網(wǎng)的普及，計(jì)算機(jī)、網(wǎng)絡(luò)已經(jīng)深入到我們生活的方方面面，企業(yè)人事管理系統(tǒng)將代替?zhèn)鹘y(tǒng)的手工信息管理。傳統(tǒng)的企業(yè)人事管理中，為了盡量避免人工操作中出現(xiàn)太多差錯(cuò)，企業(yè)不得不投入大量的人力、財(cái)力對員工和部門的基本信息進(jìn)行整理與管理，而使用企業(yè)人事管理系統(tǒng)，除了系統(tǒng)開發(fā)的費(fèi)用，只需要對相關(guān)部門的員工進(jìn)行簡單培訓(xùn)，就可以輕松的進(jìn)行管理，達(dá)到了一勞永逸的效果。另外在員工信息中獎(jiǎng)懲、考勤、培訓(xùn)等信息是經(jīng)常發(fā)生變化，如果用手工進(jìn)行記錄，一方面填寫手續(xù)較多比較麻煩、另一方面在時(shí)間的及時(shí)性上也不如系統(tǒng)管理來得及時(shí)。31所以從投資和收益的比較中可以看出，此方案的經(jīng)濟(jì)可行性很大。167。 Delphi 與 編譯器的比較與 Delphi 相比，VB 相對來說比較簡單一些，適合于初學(xué)者學(xué)習(xí)。VB 使用了 Basic語法，它是一種解釋性語言，運(yùn)行時(shí)必須要一個(gè)動(dòng)態(tài)連接庫的支持，才能解釋運(yùn)行，所以速度上 VB 要比 delphi 慢。VB 雖然使用不復(fù)雜，但它隱藏了很多細(xì)節(jié)，這對于我們想更深入的了解系統(tǒng)內(nèi)部是不利于的。Delphi 文件它運(yùn)行時(shí)速度比 VB 快，而且編譯后不需要其他的支持庫就能運(yùn)行。它擁有和 VB 差不多一樣的功能，一樣能應(yīng)用 API 函數(shù)，這在控制 Windows 很有用。 另外從界面來看， Delphi 的控件更加豐富，界面風(fēng)格也更加美觀。但與 VC 這個(gè)公認(rèn)的最難學(xué)的一門語言相比，Delphi 在學(xué)習(xí)起來就要輕松些。VC可以算是真正的面向?qū)ο蟮恼Z言了，因?yàn)閹缀跛械囊磺卸夹枰銇韺懘a實(shí)現(xiàn)，比如：要改變文本框字體的顏色，就需要自己寫一大段代碼，而 delphi 只需簡單的設(shè)置一個(gè)屬性就可以了。VC 什么東西幾乎都沒封裝，只是給我們留了成千上萬的類(MFC)， VC 不象 delphi 有大量的第三方組件，這樣一來開發(fā)效率就自然的降低了。VC 中即使很細(xì)小的東西都要自己寫很多代碼來實(shí)現(xiàn)，在這個(gè)科技飛躍發(fā)展的時(shí)代是跟不上的。它的界面美觀度也更是無法與 delphi 媲美。綜上所述，delphi 是非常強(qiáng)大的開發(fā)工具它既具有 VB 的易用性，也具有 VC 的強(qiáng)大功能，可以說是沒有不能實(shí)現(xiàn)的功能，唯一不同的是 Borland 公司所開發(fā)的 delphi是使用的 Pascal 語法，這是不同于 Basic 和 C++的另一種語法體系，但他們也是有相通的地方的，基本程序設(shè)計(jì)思想是大同小異的。Delphi 支持匯編，使用 VCL，很多第三方組件的支持，并且自身的組件功能也很強(qiáng)大，所以開發(fā)效率是非常高的，這也是目前很多程序員都喜歡使用 delphi 的原因。 所以根據(jù)作者課題的特點(diǎn)，選擇 delphi進(jìn)行開發(fā)是具有很大的優(yōu)勢的。167。 MIS 系統(tǒng)開發(fā)中 C/S 模式與 B/S 模式比較Client/server 其客戶端實(shí)現(xiàn)與服務(wù)器的直接相連，沒有中間環(huán)節(jié)，因此響應(yīng)速度快?？蛻舨僮鹘缑嬖O(shè)計(jì)個(gè)性化，具有直觀、簡單、方便的特點(diǎn)，可以滿足客戶個(gè)性化的操作要求。同時(shí)由于開發(fā)是具有針對性的，因此操作界面美觀，形式多樣，可以充分滿足客戶自身的要求。但同時(shí)由于是針對性開發(fā)，因此該模式缺少通用性，業(yè)務(wù)變32更不夠靈活，需要重新設(shè)計(jì)和開發(fā)，增加了維護(hù)和管理的難度。與 Client/server 相比，brower/server 具有分布性特點(diǎn)，可以隨時(shí)隨地進(jìn)行業(yè)務(wù)處理，業(yè)務(wù)擴(kuò)展簡單方便。維護(hù)簡單方便，只要更新網(wǎng)頁就可以實(shí)現(xiàn)所有用戶的同步更新，開發(fā)簡單，共享性強(qiáng)。但其個(gè)性化特點(diǎn)明顯降低，無法實(shí)現(xiàn)具有個(gè)性化的設(shè)計(jì)要求。操作的習(xí)慣性是以鼠標(biāo)為最基本的操作方式，無法滿足快速操作的要求。頁面動(dòng)態(tài)刷新，響應(yīng)速度明顯降低。專用性打印輸出難以實(shí)現(xiàn)，無法實(shí)現(xiàn)分頁顯示，給數(shù)據(jù)庫訪問造成較大的壓力。功能相對弱化，難以實(shí)現(xiàn)傳統(tǒng)模式下的特殊功能要求 [4]。綜上所述，兩個(gè)模式都有其優(yōu)點(diǎn)和缺點(diǎn)，在企業(yè)人事管理信息系統(tǒng)中，需要系統(tǒng)能夠快速響應(yīng)，并能實(shí)現(xiàn)一些特殊功能，其業(yè)務(wù)主要是企業(yè)內(nèi)部的人事管理，所以業(yè)務(wù)的變更不會(huì)太大，并且它的針對性很強(qiáng)，所以相比之下 C/S 模式更適合該系統(tǒng)的開發(fā)。33第四章 系統(tǒng)的實(shí)現(xiàn)167。 登錄模塊的實(shí)現(xiàn)這個(gè)模塊主要是判斷用戶是否具有登錄的資格和判斷其登錄的權(quán)限，以及登錄后可以控制的模塊的功能范圍，通過權(quán)限的不同而進(jìn)行不同的控制。167。 首次登錄模塊的實(shí)現(xiàn)系統(tǒng)登錄窗體如圖 所示：圖 系統(tǒng)登錄窗體該窗體放置了 2 個(gè)文本 lable 控件以顯示文字，放置了兩個(gè)編輯框 edit 控件，供用戶輸入用戶名和口令，另外還放置了 checkbox 控件，讓用戶選擇是否隱身登錄。在窗體的最下方放置了兩個(gè) bitbtn 控件，用來對該登錄動(dòng)作進(jìn)行確定或者取消。在這個(gè)模塊里，作者生成了該工程的大部分功能窗體。確定事件代碼實(shí)現(xiàn)如下：procedure (Sender: TObject)。begin //從用戶清單表中提取信息 。 。 := 39。select * from 用戶清單 where 用戶名 = 39。39。39。++39。39。39。 and 密碼 = 39。39。39。++39。39。39。39。 。34 //如果沒有該用戶 if =0 then begin ShowMessage(39。用戶名或密碼錯(cuò)誤，請重新登錄39。)。 end else//找到用戶 begin //記錄用戶信息 idright:=(39。權(quán)限39。).AsInteger。 idnum:=(39。編號39。).AsInteger。 //決定是否顯示用戶名 if then begin uname:=39。隱身登陸39。 end else begin uname:=(39。用戶名39。).AsString。 end。 //生成其他窗口 :=false。 (Thm_mainForm, hm_mainForm)。 (Thm_userForm, hm_userForm)。 (Thm_dpForm, hm_dpForm)。 (Thm_pinfForm, hm_pinfForm)。 (Thm_rollForm, hm_rollForm)。 (Thm_empForm, hm_empForm)。 。35 end。end。167。 重新登錄模塊的實(shí)現(xiàn)企業(yè)人事管理系統(tǒng)應(yīng)該允許多個(gè)用戶訪問，不同的用戶應(yīng)使用不同的用戶名和口令登錄。當(dāng)一個(gè)用戶使用完畢后，可以在應(yīng)用程序不關(guān)閉的情況下，讓另外一個(gè)用戶登錄使用。所以，對該系統(tǒng)設(shè)計(jì)了重新登錄窗口（即注銷后登錄） 。重新登錄由主界面菜單的“重新登錄”或者“注銷用戶”子菜單調(diào)用，界面同圖 生成該窗體的代碼如下：procedure (Sender: TObject)。begin 。 。 。 。 。 := False。 hm_LoginOutForm := (nil)。//生成重新登錄界面 。end。167。 建立應(yīng)用程序主窗體該系統(tǒng)應(yīng)用程序的主窗體 hm_mainform 如圖 所示：36圖 系統(tǒng)主界面該窗體主要是為了打開其他窗體所提供的一個(gè)載體。在改模塊中使用了鼠標(biāo)移動(dòng)改變字體，顯示功能提示的方法。選取其中一條，代碼如下：//顯示部門管理窗口procedure (Sender: TObject)。begin :=false。 。end。//鼠標(biāo)進(jìn)入改變字體格式，顯示說明信息procedure (Sender: TObject)。begin :=[fsItalic, fsUnderline]。 :=39。* 查閱維護(hù)部門信息39。end。37//鼠標(biāo)離開恢復(fù)字體格式，取消說明信息procedure (Sender: TObject)。begin :=[]。 :=39。39。end。167。 用戶管理模塊的實(shí)現(xiàn)用戶管理模塊主要是實(shí)現(xiàn)對用戶的權(quán)限管理，權(quán)限管理在整個(gè)系統(tǒng)中占非常重要的位置，只有系統(tǒng)管理員有權(quán)限訪問，因?yàn)樗苯雨P(guān)系到用戶的訪問權(quán)限，也關(guān)系到整個(gè)系統(tǒng)的安全。主要實(shí)現(xiàn)對用戶授權(quán)及撤消用戶權(quán)限。在進(jìn)入管理員系統(tǒng)頁面選擇權(quán)用戶時(shí)，系統(tǒng)會(huì)判斷是否具有訪問權(quán)限，若具有則進(jìn)入權(quán)限管理頁面，否則不能進(jìn)入該頁面。在進(jìn)行用戶權(quán)限管理時(shí)，分為權(quán)限最底的一般用戶，和權(quán)限次于系統(tǒng)管理員的高級用戶，高級用戶除了不能進(jìn)行用戶管理，其他系統(tǒng)功能都能使用。此功能也主要是對數(shù)據(jù)庫進(jìn)行操作。為了方便進(jìn)行用戶選擇，在這個(gè)模塊還有一個(gè)查詢功能，可以將不同權(quán)限組的用戶顯示到 dbgrid 中，以方便系統(tǒng)管理員瀏覽和選擇編輯。在這個(gè)窗體里主要使用了 lable、groupBox、boBoxdbgrid、speedbutton 等控件啟動(dòng)查詢代碼如下：procedure (Sender: TObject)。vartempstr:array[1..1,1..5] of string。begin //五種情況 tempstr[1,1]:=39。39。 tempstr[1,2]:=39。where 權(quán)限 = 139。 tempstr[1,3]:=39。where 權(quán)限 = 239。 tempstr[1,4]:=39。where 權(quán)限 = 339。 tempstr[1,5]:=39。where 用戶名 = 39。39。39。+ +39。39。39。39。38 //查詢 。 。 := 39。select * from 39。用戶清單 +tempstr[1,+1]。 。 //清除上次的顯示信息 。 。 。 。 :=39。39。 DBGrid1CellClick(nil)。end。修改添加刪除的代碼略，將在下面的模塊進(jìn)行介紹。167。 員工信息模塊的實(shí)現(xiàn)這個(gè)模塊是整個(gè)系統(tǒng)的重點(diǎn)，在這個(gè)模塊中，為了方便查詢和修改，使用了treeview 控件，樹狀的部門結(jié)構(gòu)能讓用戶通過對部門的選擇