SQL數(shù)據(jù)庫(kù)課程設(shè)計(jì)人事管理系統(tǒng)設(shè)計(jì)

1、一、引言1.1 選題目的及意義 人事管理系統(tǒng)是一個(gè)比較復(fù)雜的工作，管理人事要跟公司的具體情況結(jié)合起來(lái)。一般說(shuō)來(lái)，公司都會(huì)分比較多的部門，每一個(gè)員工都屬于一個(gè)部門，擔(dān)任不同的職務(wù)，在人事管理系統(tǒng)時(shí)都要考慮各種情況。在現(xiàn)實(shí)生活中，公司部門的調(diào)整，員工的聘請(qǐng)、辭退、升遷是很平常見，為了了解各種情況，在數(shù)據(jù)庫(kù)中不僅要保存員工的基本資料，同時(shí)這些變動(dòng)也要能反映到數(shù)據(jù)庫(kù)中。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)人事進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高商場(chǎng)人事管理的效率,也是科學(xué)化、正規(guī)化管理的重要條件。1.

2、2 主要內(nèi)容概要經(jīng)過(guò)簡(jiǎn)單的分析,初步確定系統(tǒng)的主要功能：（1）友好的用戶界面，操作簡(jiǎn)單。（2）具有良好的安全措施，能夠保證系統(tǒng)數(shù)據(jù)不被非法使用。（3）按照某種條件，查詢、統(tǒng)計(jì)符合條件的員工信息。（4）能動(dòng)態(tài)更新部門，人事資料。1.3系統(tǒng)功能結(jié)構(gòu)圖及其相關(guān)模塊描述人事管理系統(tǒng)用戶資料管理用戶權(quán)限管理員工資料管理基本資料管理日志管理數(shù)據(jù)庫(kù)管理部門資料管理新增員工查詢員工刪除員工修改員工導(dǎo)入數(shù)據(jù)庫(kù)導(dǎo)出數(shù)據(jù)庫(kù)功能模塊名：?jiǎn)T工資料管理模塊模塊功能：作為本系統(tǒng)的核心模塊，為了方便處理，人事變更如調(diào)動(dòng)、離職等操作都放在這個(gè)模塊的修改中，當(dāng)然在實(shí)用系統(tǒng)中，這些功能可能會(huì)獨(dú)立實(shí)現(xiàn)。功能模塊名：數(shù)據(jù)庫(kù)管理模塊模塊

3、功能：主要實(shí)現(xiàn)數(shù)據(jù)庫(kù)備份。注：由于篇幅有限，本課程設(shè)計(jì)只實(shí)現(xiàn)了具有代表性和在系統(tǒng)中占核心地位的員工資料管理模塊，同時(shí)也講解了如何實(shí)現(xiàn)數(shù)據(jù)庫(kù)備份。1.4系統(tǒng)的數(shù)據(jù)字典a. 員工基本資料（描述員工的考勤信息，便于查詢、操作）：?jiǎn)T工號(hào)，員工名，性別，年齡，部門，職務(wù)，合同開始時(shí)間結(jié)束時(shí)間，工作狀態(tài)，住址，聯(lián)系電話，手機(jī)，郵箱，備注b. 人事更新表（描述員工的人事變動(dòng)信息）：記錄號(hào)、工號(hào)、原部門、新部門、原職務(wù)、新職務(wù)、操作、日期c. 部門表（描述員工所在部門）：部門號(hào)、部門名稱、上級(jí)部門d. 職務(wù)表（描述員工所屬部門）：職務(wù)二、 數(shù)據(jù)庫(kù)概念模型設(shè)計(jì)2.1數(shù)據(jù)實(shí)體關(guān)系圖系統(tǒng)的概念結(jié)構(gòu)設(shè)計(jì)設(shè)計(jì)就是將需求

4、分析得到的用戶需求抽象為信息結(jié)構(gòu)即概念模型的過(guò)程。設(shè)計(jì)概念結(jié)構(gòu)通常有四類方法，它們分別是自頂向下、自底向下、逐步擴(kuò)張、混合策略。在本系統(tǒng)中把需求分析中得到的數(shù)據(jù)圖抽象，通過(guò)選擇局部應(yīng)用、逐一設(shè)計(jì)分e-r圖，設(shè)計(jì)出人事管理系統(tǒng)的概念模型，用e-r模型來(lái)描述概念結(jié)構(gòu)。人事管理系統(tǒng)實(shí)體關(guān)系e-r圖：?jiǎn)T 工部 門職 務(wù)人事變更111nn1屬 于屬 于執(zhí) 行2.2數(shù)據(jù)實(shí)體描述 用戶密碼表（用戶名、用戶密碼、用戶權(quán)限） 員工資料表（員工號(hào)，員工名，性別，年齡，部門，職務(wù)，合同開始時(shí)間結(jié)束時(shí)間，工作 狀態(tài)，住址，聯(lián)系電話，手機(jī)，郵箱，備注） 人事更新表（記錄號(hào)、工號(hào)、原部門、新部門、原職務(wù)、新職務(wù)、操作、日

5、期） 部門表（部門號(hào)、部門名稱、上級(jí)部門） 職務(wù)表（職務(wù)）三、 數(shù)據(jù)庫(kù)邏輯模型設(shè)計(jì) 邏輯結(jié)構(gòu)設(shè)計(jì)是獨(dú)立于任何一種數(shù)據(jù)模型的信息結(jié)構(gòu)。邏輯結(jié)構(gòu)設(shè)計(jì)的任務(wù)就是把概念結(jié)構(gòu)設(shè)計(jì)階段設(shè)計(jì)好的基本e-r圖轉(zhuǎn)換為與用戶選用dbms產(chǎn)品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。職務(wù)表職務(wù) char 30人事變更表記錄號(hào) int 4工號(hào) char 30原部門 char 30新部門 char 30新職務(wù) char 30操作 char 30日期 datetime 8根據(jù)前面的概念結(jié)構(gòu)設(shè)計(jì)出來(lái)的e-r圖，將實(shí)體間的聯(lián)系轉(zhuǎn)換為關(guān)系模式，本系統(tǒng)通過(guò)e-r圖轉(zhuǎn)換成的關(guān)系模式如下：用戶密碼表用戶名 char 30用戶密碼 char

6、30部門表部門號(hào) char 30部門名稱 char 30上級(jí)部門 char 30用戶權(quán)限 char 30員工資料表員工號(hào) char 20員工名 char 30性別 int 4年齡 int 4部門 char 30職務(wù) char 30合同開始時(shí)間 datetime 8合同結(jié)束時(shí)間 datetime 8工作狀態(tài) char 20住址 char 20聯(lián)系電話 char 15手機(jī) char 15郵箱 char 30備注 char 127四、系統(tǒng)的實(shí)現(xiàn)4.1 設(shè)計(jì)登錄模塊 設(shè)置登錄界面是保障系統(tǒng)安全的一種手段，一般的數(shù)據(jù)應(yīng)用系統(tǒng)都需要進(jìn)行登錄才能進(jìn)入系統(tǒng)。在這個(gè)模塊里，主要處理的是輸入的用戶名和密碼，程序根

7、據(jù)用戶名和密碼編寫sql語(yǔ)句，然后執(zhí)行，查詢?cè)撚脩裘兔艽a是否與用戶密碼表的某條記錄相符。新建一個(gè)工程，在窗體中添加控件，然后調(diào)整界面,如圖：更改用戶名對(duì)應(yīng)的文本框的name為edit2，同時(shí)password屬性值改為*，表示鍵盤輸入密碼都顯示為*。在文件新建datamodule新建一個(gè)datamodule設(shè)計(jì)器，更改其名mydata，添加database組件，query組件data source組件，雙擊登錄按鈕，進(jìn)入它的響應(yīng)函數(shù)編輯區(qū)，添加代碼如下：procedure tlogin.speedbutton1click(sender: tobject);begin with mydata.q

8、uery1 do begin close; /關(guān)閉query1,否則不能寫入sql語(yǔ)句with sql do /使用query1的sql屬性 begin clear; /先清除sql屬性中的內(nèi)容,以免影響下面的操作 /添加sql代碼,使用參數(shù)化方法，注意在參數(shù)前面一定要用:號(hào) add(select *from 用戶密碼表 where 用戶名=:uname and 用戶密碼=:upassword); /給各參數(shù)賦值 parambyname(uname).asstring:=trim(edit1.text); parambyname(upassword).asstring:=trim(edit2.

9、text); end; open; /執(zhí)行sql語(yǔ)句 if(mydata.query1.findlast)then /判斷查詢結(jié)果是否為空 begin /如果用戶名和密碼正確,則隱藏登錄窗體，顯示主窗體，main為主窗體名 main.show(); login.hide; end; else begin /提示出錯(cuò)信息 showmessage(用戶名或密碼錯(cuò)誤,請(qǐng)重新輸入); end; end;end;雙擊退出按鈕，建立它的響應(yīng)函數(shù)，并添加代碼如下：procedure tlogin.speedbutton2click(sender: tobject);begin /結(jié)束程序,回收所有資源 ap

10、plication.free;end;4.2設(shè)計(jì)主窗體當(dāng)?shù)卿洺晒?，進(jìn)入主窗口。新建一個(gè)form,然后將其命名為main。窗體如圖:具體實(shí)現(xiàn)員工資料管理模塊。雙擊”員工資料管理“按鈕，建立它的響應(yīng)函數(shù)，添加代碼如下：employee.show();main.hide;4.3設(shè)計(jì)員工資料管理模塊添加用戶子模塊由于這個(gè)模塊的數(shù)據(jù)結(jié)構(gòu)比較復(fù)雜，先來(lái)構(gòu)建員工子模塊。新建一個(gè)form對(duì)象，添加需要的組件,窗口如圖:圖中的數(shù)據(jù)輸入框有文本框，單選框，組合框等，delphi中的組件相對(duì)容易控制，可以方便的將各控件的內(nèi)容讀取出來(lái)。各控件的屬性及類型，如表格:cption屬性name屬性控件類型工號(hào)codete

11、dit員工名stuffnametedit性別man,womentradiobutton年齡agetedit部門partmenttcombobox職務(wù)jobtcombobox合同開始starttimetdatetimepicker合同結(jié)束endtimetdatetimepicker住址addresstedit聯(lián)系電話telephonetedit手機(jī)mobiletedit電子郵箱mailtedit備注remarktmemo部門和職務(wù)對(duì)應(yīng)的組合框的內(nèi)容都是通過(guò)數(shù)據(jù)表的內(nèi)容動(dòng)態(tài)更新，添加員工資料時(shí)可以直接在組合框里選擇。工作狀態(tài)輸入框雖然也是組合框，但它的內(nèi)容是在程序中設(shè)定，主要是在職，離職等一些相對(duì)

12、固定的狀態(tài)。合同開始時(shí)間和合同結(jié)束時(shí)間的輸入框是時(shí)間日期拾取器，datatimepicker，使用這個(gè)控件的date屬性可以獲取的日期，然后調(diào)用datetostr函數(shù)把他轉(zhuǎn)化成字符串。備注對(duì)應(yīng)的輸入框是一個(gè)多行文本輸入框memo控件，它與一般的文本輸入框的區(qū)別是可以多行輸入在這個(gè)子模塊中，由于部門和職務(wù)組合框的數(shù)據(jù)是由數(shù)據(jù)表提供，所以除了各按鈕控件的響應(yīng)函數(shù)外，還需要一個(gè)初始化過(guò)程oninit(),在type部分聲明procedure oninit();然后在inplementation中實(shí)現(xiàn)這個(gè)函數(shù)如下：procedure tform5.oninit();var temp:string;be

13、gin man.checked:=true; /初始選擇男 /選擇query_depart 用來(lái)讀取部門資料表內(nèi)容 /選擇query組件可以是任意的，只要不影響其他操作 with mydata.query_depart do begin close; with sql do begin clear; add(select 部門名稱 from 部門資料表); end; open; first; partment.clear; while (eof=false) do begin temp:=fieldbyname(部門名稱).asstring; partment.items.append(tem

14、p); next; end; end; with mydata.query_job do begin close; with sql do begin clear; add (select * from 職務(wù)表); end; open; first; job.clear; while (eof=false) do begin temp:=fieldbyname(職務(wù)).asstring; job.items.append(temp); next; end; end;end;實(shí)現(xiàn)“添加用戶”按鈕的響應(yīng)函數(shù)，程序如下：procedure tform5.addstuffclick(sender: t

15、object);var temp:string;begin /判斷輸入內(nèi)容是否完整，如果不完整則要求用戶輸入完整后在執(zhí)行下一步操作 if (trim(code.text)= )or(trim(stuffname.text)= )or(trim(age.text)= )or (trim(partment.text)= )or(trim(job.text)= )or(trim(address.text)= )or (trim(telephone.text)= )or(trim(mobile.text)= )or(trim(mail.text)= )or (trim(jobstate.text)=

16、) then begin showmessage(請(qǐng)輸入完整資料); end else begin with mydata.query_stuff do begin close; with sql do begin clear; add (select * from 員工資料表 where 員工號(hào)=:stuffcode); parambyname (stuffcode).asstring:=trim(code.text); end; open; if(findlast() then begin showmessage(該工號(hào)已經(jīng)有人使用，請(qǐng)重新輸入工號(hào)); with sql do begin

17、clear; add (select * from 員工資料表); end; open; end else begin close; with sql do begin clear; add(insert into 員工資料表 values(:code,:name,:sex,:age,:partment,:job,:start,:end,:state,:address,:telephone,:mobile,:email,:remark); parambyname(code).asstring:=trim(code.text); parambyname(name).asstring:=trim(

18、stuffname.text); if man.checked then begin parambyname(sex).asinteger:=1; end else begin parambyname(sex).asinteger:=0; end; parambyname(age).asinteger:=strtoint(trim(age.text); parambyname(partment).asstring:=trim(partment.text) ; parambyname(job).asstring:=trim(job.text); parambyname(start).asstri

19、ng:=datetostr(starttime.date); parambyname(end).asstring:=datetostr(endtime.date); parambyname(address).asstring:=trim (address.text); parambyname(telephone).asstring:=trim (telephone.text); parambyname(mobile).asstring:=trim (mobile.text); parambyname(email).asstring:=trim (mail.text); parambyname(

20、state).asstring:=trim (jobstate.text); parambyname(remark).asstring:=trim (remark.text); end; try execsql; except showmessage(unsuccess); end; close; with sql do begin clear; add(select * from 員工資料表); end; open; end; end; end;end;清除輸入的函數(shù)代碼如下：procedure tform5.clearclick(sender: tobject);var temp:stri

21、ng;begin code.text:=; stuffname.text:=; man.checked:=true; age.text:=0; address.text:=; telephone.text:=; mobile.text:=; mail.text:=; jobstate.text:=; remark.text:=;end;4.4查詢員工子模塊查詢員工并不需要根據(jù)所有字段進(jìn)行查詢，有時(shí)可能是查詢所有，有時(shí)可能只需要對(duì)某幾個(gè)字段條件進(jìn)行查詢，這就是需要對(duì)sql語(yǔ)句進(jìn)行合適的處理。在條件選擇上，可以使用cleck box組件進(jìn)行選擇判斷，每選擇一項(xiàng)，則在sql語(yǔ)句中添加一個(gè)條件，查詢子

22、模塊的窗體，如圖：在查詢子模塊窗體內(nèi)容與添加員工子模塊類似，只是在添加員工子模塊中的label組件改為check box組件。雙擊查詢按鈕建立它的響應(yīng)函數(shù)，如下：procedure tform6.searchstuffclick(sender: tobject);var sign:boolean; value:integer;begin sign:=false; /標(biāo)準(zhǔn)前面是否選擇查詢條件 with mydata.query_stuff do begin close; with sql do begin clear; add(select * from 員工資料表); if (checkcod

23、e.checked ) then /如果選擇查詢工號(hào) begin add(where 員工號(hào)=:code); /添加查詢條件 parambyname(code).asstring:=trim(code.text); sign:=true; end; if checkname.checked then /判斷是否選擇名字查詢 begin if sign then /如果已經(jīng)有其他條件查詢，則用and還是where begin add(and 員工名=:name); end else begin add(where 員工名=:name); sign:=true; end; parambyname(

24、name).asstring:=trim(stuffname.text); end; if checksex.checked then begin if man.checked then begin value:=1; end else begin value:=0; end; if sign then begin add(and 性別=:sex); end else begin add(where 性別=:sex); sign:=true; end; parambyname(sex).asinteger:=value; end; if checkage.checked then begin

25、if sign then begin add(and 年齡=:age); end else begin add(where 年齡=:age); sign:=true; end; parambyname(age).asstring:=trim(age.text); end; if checktime.checked then begin if endtime.date=:sdata and 合同結(jié)束時(shí)間=:edate); parambyname(sdate).asstring:=datetostr(starttime.date); parambyname(edate).asstring:=dat

26、etostr(endtime.date); end; end; if checkstate.checked then begin if sign then begin add(and 工作狀態(tài)=:state); end else begin add(where 工作狀態(tài)=:state); sign:=true; end; parambyname(state).asstring:=trim(jobstate.text); end; if checkaddress.checked then begin if sign then begin add(and 住址=:address); end els

27、e begin add(where 住址=:address); sign:=true; end; parambyname(address).asstring:=trim(address.text); end; if checktel.checked then begin if sign then begin add(and 聯(lián)系電話=:telephone); end else begin add(where 聯(lián)系電話=:telephone); sign:=true; end; parambyname(telephone).asstring:=trim(telephone.text); end;

28、 if checkmobile.checked then begin if sign then begin add(and 手機(jī)=:mobile); end else begin add(where 手機(jī)=:mobile); sign:=true; end; parambyname(mobile).asstring:=trim(mobile.text); end; if checkmail.checked then begin if sign then begin add(and 郵箱=:mail); end else begin add(where 郵箱=:mail); sign:=true

29、; end; parambyname(mail).asstring:=trim(mail.text); end; if checkremark.checked then begin if sign then begin add(and 備注 like :remark ); end else begin add(where 備注 like :remark); end; parambyname(remark).asstring:=trim(%+remark.text+ %); end; end; open; end;end;4.4更新員工資料子模塊在人事管理系統(tǒng)中更新資料相對(duì)比較頻繁，在實(shí)際使用中

30、，人事更新的操作類型有許多種，但在數(shù)據(jù)庫(kù)操作方面來(lái)說(shuō)，只是更新員工資料表，同時(shí)插入相應(yīng)的記錄。因而人事更新操作其實(shí)可以集中在一個(gè)資料更新模塊中，當(dāng)執(zhí)行一些特定的操作，如更改部門職務(wù)，則需要在人事調(diào)動(dòng)表添加一條記錄，表明人事結(jié)構(gòu)發(fā)生變化。在執(zhí)行更新操作之前，要先輸入工號(hào)，然后判斷該工號(hào)是否存在于數(shù)據(jù)庫(kù)中，如果存在，則讀取數(shù)據(jù)庫(kù)中的相關(guān)數(shù)據(jù)，并將它們顯示在各組件中。輸入工號(hào)按鈕對(duì)應(yīng)的函數(shù)，如下：procedure tform7.bitbtn1click(sender: tobject);var sign:boolean;begin sign:=false; with mydata.query1 d

31、o begin close; with sql do begin clear; add(select * from 員工資料表 where 員工號(hào)=:code); parambyname(code).asstring:=trim(code.text); end; open; if findlast() then /判斷工號(hào)是否存在與數(shù)據(jù)庫(kù)中 begin stuffname.text:=fieldbyname(員工號(hào)).asstring; if (fieldbyname(性別).asinteger=1) then begin man.checked:=true; end else begin m

32、an.checked:=false; end; age.text:=fieldbyname(年齡).asstring; partment.text:=fieldbyname(部門).asstring; job.text:=fieldbyname(職務(wù)).asstring; starttime.datetime:=fieldbyname(合同開始時(shí)間).asdatetime; endtime.datetime:=fieldbyname(合同結(jié)束時(shí)間).asdatetime; address.text:=fieldbyname(住址).asstring; telephone.text:=field

33、byname(聯(lián)系電話).asstring; mobile.text:=fieldbyname(手機(jī)).asstring; mail.text:=fieldbyname(郵箱).asstring; jobstate.text:=fieldbyname(工作狀態(tài)).asstring; remark.text:=fieldbyname(備注).asstring; end else begin showmessage(員工號(hào)不正確); end; end;end;輸入工號(hào)后，可以選擇任意項(xiàng)進(jìn)行更新，如果沒(méi)有任何選項(xiàng)中，則給出提示信息，不做數(shù)據(jù)庫(kù)更新操作，更新按鈕的響應(yīng)函數(shù)及其代碼如下：procedur

34、e tform7.updatestuffclick(sender: tobject);var sign:boolean;begin sign:=false; /開始無(wú)更新選項(xiàng) with mydata.query1 do /使用query1 begin close; with sql do /設(shè)置sql屬性 begin clear; add(update 員工資料表 set); /開始添加更新資料的sql語(yǔ)句 if checkname.checked then begin add(員工名=:name); parambyname(name).asstring:=trim(stuffname.tex

35、t); sign:=true; end; if checksex.checked then begin if sign then begin /如果前面已經(jīng)有其他字段更新，則需要在賦值語(yǔ)句前加上“，”號(hào) add(,); end; sign:=true; add(性別=:sex); if man.checked then begin parambyname(sex).asinteger:=1; end else begin parambyname(sex).asinteger:=0; end; end; if checkage.checked then begin if sign then be

36、gin add(,); end; add(年齡=:age); sign:=true; parambyname(age).asstring:=trim(age.text); end; if checkdepart.checked then begin if sign then begin add(,); end; sign:=true; add(部門=:depart); parambyname(depart).asstring:=trim(partment.text); end; if checkjob.checked then begin if sign then begin add(,);

37、end; sign:=true; add(職務(wù)=:job); parambyname(job).asstring:=trim(job.text); end; if checkstart.checked then begin if sign then begin add(,); end; sign:=true; add(合同開始時(shí)間=:startdate); parambyname(startdate).asstring:=datetostr(starttime.date); end; if checkend.checked then begin if sign then begin add(,

38、); end; sign:=true; add(合同結(jié)束時(shí)間=:endtime); parambyname(endtime).asstring:=datetostr(endtime.date); end; if checkstate.checked then begin if sign then begin add(,); end; sign:=true; add(工作狀態(tài)=:state); parambyname(state).asstring:=trim(jobstate.text); end; if checkaddress.checked then begin if sign then

39、 begin add(,); end; sign:=true; add(住址=:address); parambyname(address).asstring:=trim(address.text); end; if checktel.checked then begin if sign then begin add(,); end; sign:=true; add(聯(lián)系電話=:telephone); parambyname(telephone).asstring:=trim(telephone.text); end; if checkmobile.checked then begin if

40、sign then begin add(,); end; sign:=true; add(手機(jī)=:mobile); parambyname(mobile).asstring:=trim(mobile.text); end; if checkmail.checked then begin if sign then begin add(,); end; sign:=true; add(郵箱=:mail); parambyname(mail).asstring:=trim(mail.text); end; if checkremark.checked then begin if sign then begin add(,); end; add(備注=:remark); parambyname(remark).asstring:=trim(remark.text); end; add(where 員工號(hào)=:code); parambyname(code).asstring:=trim(code.text); end; if sign then begin execsql; /如果有更新選項(xiàng)，則執(zhí)行更新語(yǔ)句