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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：20 大?。?.23MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩19頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　一、引言　　1.1 選題目的及意義人事管理系統(tǒng)是一個(gè)比較復(fù)雜的工作，管理人事要跟公司的具體情況結(jié)合起來。一般說來，公司都會(huì)分比較多的部門，每一個(gè)員工都屬于一個(gè)部門，擔(dān)任不同的職務(wù)，在人事管理系統(tǒng)時(shí)都要考慮各種情況。在現(xiàn)實(shí)生活中，公司部門的調(diào)整，員工的聘請(qǐng)、辭退、升遷是很平常見，為了了解各種情況，在數(shù)據(jù)庫中不僅要保存員工的基本

2、資料，同時(shí)這些變動(dòng)也要能反映到數(shù)據(jù)庫中。　　作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)人事進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高商場人事管理的效率,也是科學(xué)化、正規(guī)化管理的重要條件。　　1.2 主要內(nèi)容概要　　經(jīng)過簡單的

3、分析,初步確定系統(tǒng)的主要功能：　?。?）友好的用戶界面，操作簡單。　?。?）具有良好的安全措施，能夠保證系統(tǒng)數(shù)據(jù)不被非法使用。　　（3）按照某種條件，查詢、統(tǒng)計(jì)符合條件的員工信息。　?。?）能動(dòng)態(tài)更新部門，人事資料。　　1.3系統(tǒng)

4、功能結(jié)構(gòu)圖及其相關(guān)模塊描述　　功能模塊名：員工資料管理模塊　　模塊功能：作為本系統(tǒng)的核心模塊，為了方便處理，人事變更如調(diào)動(dòng)、離職等操作都放在這個(gè)模塊的修改中，當(dāng)然在實(shí)用系統(tǒng)中，這些功能可能會(huì)獨(dú)立實(shí)現(xiàn)。　　功能模塊名：數(shù)據(jù)庫管理模塊　　模塊功能：主要實(shí)現(xiàn)數(shù)據(jù)庫備份。<

5、/p>　　注：由于篇幅有限，本課程設(shè)計(jì)只實(shí)現(xiàn)了具有代表性和在系統(tǒng)中占核心地位的員工資料管理模塊，同時(shí)也講解了如何實(shí)現(xiàn)數(shù)據(jù)庫備份。　　1.4系統(tǒng)的數(shù)據(jù)字典　　員工基本資料（描述員工的考勤信息，便于查詢、操作）：員工號(hào)，員工名，性別，　　年齡，部門，職務(wù)，合同開始時(shí)間結(jié)束時(shí)間，工作狀態(tài)，住

6、址，聯(lián)系電話，手機(jī)，　　郵箱，備注　　人事更新表（描述員工的人事變動(dòng)信息）：記錄號(hào)、工號(hào)、原部門、新部門、原職務(wù)、新職務(wù)、操作、日期　　部門表（描述員工所在部門）：部門號(hào)、部門名稱、上級(jí)部門　　職務(wù)表（描述員工所屬部門）：職務(wù)<

7、/p>　　二、數(shù)據(jù)庫概念模型設(shè)計(jì)　　2.1數(shù)據(jù)實(shí)體—關(guān)系圖　　系統(tǒng)的概念結(jié)構(gòu)設(shè)計(jì)設(shè)計(jì)就是將需求分析得到的用戶需求抽象為信息結(jié)構(gòu)即概念模型的過程。設(shè)計(jì)概念結(jié)構(gòu)通常有四類方法，它們分別是自頂向下、自底向下、逐步擴(kuò)張、混合策略。在本系統(tǒng)中把需求分析中得到的數(shù)據(jù)圖抽象，通過選擇局部應(yīng)用、逐一設(shè)計(jì)分E-R圖，設(shè)計(jì)出人事管理系統(tǒng)的概念模

8、型，用E-R模型來描述概念結(jié)構(gòu)。人事管理系統(tǒng)實(shí)體關(guān)系E-R圖：　　2.2數(shù)據(jù)實(shí)體描述　　用戶密碼表（用戶名、用戶密碼、用戶權(quán)限）　　員工資料表（員工號(hào)，員工名，性別，年齡，部門，職務(wù)，合同開始時(shí)間結(jié)束時(shí)間，工作狀態(tài)，住址，聯(lián)系電話，手機(jī)，郵箱，備注）</p&g

9、t;　　人事更新表（記錄號(hào)、工號(hào)、原部門、新部門、原職務(wù)、新職務(wù)、操作、日期）　　部門表（部門號(hào)、部門名稱、上級(jí)部門）　　職務(wù)表（職務(wù)）　　三、數(shù)據(jù)庫邏輯模型設(shè)計(jì)　　邏輯結(jié)構(gòu)設(shè)計(jì)是獨(dú)立于任何一種數(shù)據(jù)模型的信息結(jié)

10、構(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)。　　根據(jù)前面的概念結(jié)構(gòu)設(shè)計(jì)出來的E-R圖，將實(shí)體間的聯(lián)系轉(zhuǎn)換為關(guān)系模式，本系統(tǒng)通過E-R圖轉(zhuǎn)換成的關(guān)系模式如下：　　用戶密碼表用戶名 char 30　　用戶密碼

11、 char 30　　用戶權(quán)限 char 30　　四、系統(tǒng)的實(shí)現(xiàn)　　4.1設(shè)計(jì)封面　　封面窗體是用戶在登錄系統(tǒng)之前，為減緩用戶等待產(chǎn)生的煩躁情緒，設(shè)計(jì)的漂

12、亮畫面，當(dāng)程序啟動(dòng)完成后。此畫面自動(dòng)消失。要完成此封面，需要在application項(xiàng)目文件編寫如下代碼：　　form2.Show;　　form2.Update;　　sleep(1000);　　form2.Free;　　form1

13、.Show ;　　Application.Run;　　且將project—>options的選項(xiàng)中將from1設(shè)成main from。　　在項(xiàng)目中新建一個(gè)DataModule設(shè)計(jì)器，更改其名Mydata，添加Database組件，datasoure組件，Query組件進(jìn)行數(shù)據(jù)庫連接完成前后臺(tái)的連接操作。&l

14、t;/p>　　4.2 設(shè)計(jì)登錄模塊　　設(shè)置登錄界面是保障系統(tǒng)安全的一種手段，一般的數(shù)據(jù)應(yīng)用系統(tǒng)都需要進(jìn)行登錄才能進(jìn)入系統(tǒng)。在這個(gè)模塊里，主要處理的是輸入的用戶名和密碼，程序根據(jù)用戶名和密碼編寫SQL語句，然后執(zhí)行，查詢?cè)撚脩裘兔艽a是否與用戶密碼表的某條記錄相符。　　新建一個(gè)工程，在窗體中添加控件，然后調(diào)整界面,如圖：<

15、/p>　　雙擊登錄按鈕編寫代碼如下：　　with mydata.Query1 do　　begin　　close;　　with SQL do<

16、;p>　　begin　　clear;　　//添加SQL代碼,使用參數(shù)化方法，注意在參數(shù)前面一定要用:號(hào)　　Add('select *from 用戶密碼表 where 用戶名=:uname and 用戶密碼=:upasswor

17、d');　　//給各參數(shù)賦值　　ParamByname('uname').AsString:=trim(Edit1.Text);　　ParamByname('upassword').AsString:=trim(Edit2.Text);

18、　　end;　　open; //執(zhí)行SQL語句　　if(mydata.Query1.FindLast)then //判斷查詢結(jié)果是否為空　　begin&l

19、t;/b>　　form3.Show();　　form1.Hide;　　end　　else　　begin<

20、/p>　　showmessage('用戶名或密碼錯(cuò)誤,請(qǐng)重新輸入');　　x:=x+1;　　if x=3 then　　begin　　showmessag

21、e('密碼輸入錯(cuò)誤三次，程序退出');　　application.terminate;　　有時(shí)用戶在登錄系統(tǒng)時(shí)會(huì)忘記自己的密碼這時(shí)就需要修改以前使用的密碼，建立新密碼，所以設(shè)計(jì)了密碼修改窗體如圖　　雙擊修改密碼按鈕添加如下代碼　　with mydata.Q

22、uery1 do　　begin　　close;　　with SQL do　　begin　　clea

23、r;　　Add('select *from 用戶密碼表 where 用戶名=:uname ');　　ParamByname('uname').AsString:=trim(user.Text);　　open;</p&g

24、t;　　end; //執(zhí)行SQL語句　　if(mydata.Query1.FindLast)then　　with sql do　　begin

25、　close;　　clear;　　add('update 用戶密碼表 set 用戶名='''+user.text+''',用戶密碼='''+pass.text+''',用戶權(quán)限='&#

26、39;guest'' where 用戶名='''+user.text+'''');　　mydata.Query1.ExecSQL;　　showmessage('密碼修改成功！');　　form11.close;</p&g

27、t;　　form1.show;　　end else　　showmessage('服務(wù)器忙，請(qǐng)重試！');　　end;　　如有其它外來用戶需要訪問系統(tǒng)就需要進(jìn)行

28、注冊(cè)，建立注冊(cè)新用戶窗體如下　　雙擊提交按鈕建立如下響應(yīng)事件　　with mydata.Query1 do　　begin　　close;　　with SQ

29、L do　　begin　　clear;　　//添加SQL代碼,使用參數(shù)化方法，注意在參數(shù)前面一定要用:號(hào)　　Add('select *from 用戶密碼表 where 用戶名=:uname

30、 ');　　//給各參數(shù)賦值　　ParamByname('uname').AsString:=trim(user.Text);　　end;　　open;

31、 //執(zhí)行SQL語句　　if(mydata.Query1.FindLast)then //判斷查詢結(jié)果是否為空　　begin　　showmessage('該用戶已存在，請(qǐng)重新輸入')<p

32、>　　end　　{ else　　if (trim(user.text=' ') or trim(pass.text=' ') or trim(privilege.text=' ')) then<p

33、>　　showmessage('請(qǐng)輸入完整信息') }　　else　　begin　　with mydata.Query1 do　　begin</b&g

34、t;　　close;　　with sql do　　begin　　clear;　　add('insert in

35、to 用戶密碼表 values(:user,:pass,:privilege)');　　ParamByName('user').AsString:=trim(user.Text);　　ParamByName('pass').AsString:=trim(pass.Text);

36、;　　ParamByName('privilege').AsString:=trim(privilege.Text);　　try　　ExecSQL;　　showmessage('注冊(cè)成功');</p&

37、gt;　　form1.Show;　　form7.Hide ;　　except　　showmessage('unsuccess');　　end;</p&g

38、t;　　close;　　4.3設(shè)計(jì)主窗體　　當(dāng)?shù)卿洺晒?，進(jìn)入主窗口。新建一個(gè)form3。窗體如圖: 　　單擊用戶資料模塊進(jìn)入員工資料管理模塊。建立它的響應(yīng)函數(shù)，添加代碼如下：

39、;　　if not assigned(form4) then　　form4:=tform4.create(self);　　form4.show;　　4.4設(shè)計(jì)員工資料管理模塊　　在該窗體中設(shè)計(jì)了員工資料表和員工狀態(tài)表的主細(xì)表主要是為了在員工資料表中選擇某一條記錄</

40、p>　　時(shí)，員工狀態(tài)表能夠相應(yīng)顯示該員工的其他信息，方便用戶進(jìn)行對(duì)員工的了解管理。窗體中其他按鈕則是為了進(jìn)入相應(yīng)員工管理模塊。　　單擊添加用戶子模塊　　由于這個(gè)模塊的數(shù)據(jù)結(jié)構(gòu)比較復(fù)雜，先來構(gòu)建員工子模塊。　　新建一個(gè)form對(duì)象，添加需要的組件,窗

41、口如圖:　　圖中的數(shù)據(jù)輸入框有文本框，單選框，組合框等，Delphi中的組件相對(duì)容易控制，可以方便的將各控件的內(nèi)容讀取出來。各控件的屬性及類型，如表格:　　部門和職務(wù)對(duì)應(yīng)的組合框的內(nèi)容都是通過數(shù)據(jù)表的內(nèi)容動(dòng)態(tài)更新，添加員工資料時(shí)可以直接在組合框里選擇。工作狀態(tài)輸入框雖然也是組合框，但它的內(nèi)容是在程序中設(shè)定，主要是在職，離職等一些相對(duì)固定的狀態(tài)。</

42、p>　　合同開始時(shí)間和合同結(jié)束時(shí)間的輸入框是時(shí)間日期拾取器，DataTimePicker，使用這個(gè)控件的Date屬性可以獲取的日期，然后調(diào)用Datetostr函數(shù)把他轉(zhuǎn)化成字符串。　　備注對(duì)應(yīng)的輸入框是一個(gè)多行文本輸入框memo控件，它與一般的文本輸入框的區(qū)別是可以多行輸入　　實(shí)現(xiàn)“添加用戶”按鈕的響應(yīng)函數(shù)，程序如下：<

43、/p>　　procedure TForm5.AddstuffClick(Sender: TObject);　　var　　temp:string;　　begin　　//判

44、斷輸入內(nèi)容是否完整，如果不完整則要求用戶輸入完整后在執(zhí)行下一步操作　　if ((trim(code.Text)=' ')or(trim(stuffname.Text)=' ')or(trim(age.Text)=' ')or　　(trim(partment.Text)=' ')or(trim

45、(job.Text)=' ')or(trim(address.Text)=' ')or　　(trim(telephone.Text)=' ')or(trim(mobile.Text)=' ')or(trim(mail.Text)=' ')or　　(trim(jobstate.

46、Text)=' ')) then　　begin　　showmessage('請(qǐng)輸入完整資料');　　end else　　begin</b&g

47、t;　　with mydata.query_stuff do　　begin　　close;　　with SQL do　　begin<

48、;/b>　　clear;　　add ('select * from 員工資料表 where 員工號(hào)=:stuffcode');　　ParamByName ('stuffcode').AsString:=trim(code.Text);&

49、lt;/p>　　end;　　open;　　if(findlast()) then　　begin　　showmessage('

50、;該工號(hào)已經(jīng)有人使用，請(qǐng)重新輸入工號(hào)');　　with sql do　　begin　　clear;　　add ('select * from 員工資料表');</p&

51、gt;　　end;　　open;　　end else　　begin　　close

52、;　　with SQL do　　begin　　clear;　　Add('insert into 員工資料表 values　　(

53、:code,:name,:sex,:age,:partment,:job,:start,:end,:state,:address,:telephone,:mobile,:email,:remark)');　　ParamByName('code').AsString:=trim(code.Text);　　ParamByName(&#

54、39;name').AsString:=trim(stuffname.Text);　　if man.Checked then　　begin　　paramByName('sex').AsInteger:=1;

55、end else begin　　paramByName('sex').AsInteger:=0;　　end;　　ParamByName('age').AsInteger:=strtoint(trim(age.Text));

56、　　ParamByName('partment').AsString:=trim(partment.Text) ;　　ParamByName('job').AsString:=trim(job.Text);　　ParamByName('start').AsString:=datetost

57、r(starttime.Date);　　ParamByName('end').AsString:=datetostr(endtime.Date);　　ParamByName('address').AsString:=trim (address.Text);　　ParamByName

58、('telephone').AsString:=trim (telephone.Text);　　ParamByName('mobile').AsString:=trim (mobile.Text);　　ParamByName('email').AsString:=trim (mail.Text);</

59、p>　　ParamByName('state').AsString:=trim (jobstate.Text);　　ParamByName('remark').AsString:=trim (remark.Text);　　end;&l

60、t;p>　　try　　ExecSQL;　　except　　showmessage('unsuccess');　　end

61、;　　close;　　with sql do　　begin　　clear;　　add('

62、select * from 員工資料表');　　end;　　open;　　end;　　end;

63、;　　end;　　end;　　清除輸入的函數(shù)代碼如下：　　procedure TForm5.ClearClick(Sender: TObject);　　var temp:st

64、ring;　　begin　　code.Text:='';　　stuffname.Text:='';　　man.Checked:=true;　　age.Text:

65、='0';　　address.Text:='';　　telephone.Text:='';　　mobile.Text:='';　　mail.Text:='';<p

66、>　　jobstate.Text:='';　　remark.Text:='';　　end;　　4.5查詢員工子模塊　　查詢員工并不需要根據(jù)所有字段進(jìn)行查詢，有時(shí)可能是查詢所有，有時(shí)可能只需要對(duì)某幾

67、個(gè)字段條件進(jìn)行查詢，這就是需要對(duì)SQL語句進(jìn)行合適的處理。在條件選擇上，可以使用Cleck Box組件進(jìn)行選擇判斷，每選擇一項(xiàng)，則在SQL語句中添加一個(gè)條件，查詢子模塊的窗體，如圖：　　在查詢子模塊窗體內(nèi)容與添加員工子模塊類似，只是在添加員工子模塊中的Label組件改為Check Box組件。　　雙擊查詢按鈕建立它的響應(yīng)函數(shù)，如下：

68、　　procedure TForm6.SearchstuffClick(Sender: TObject);　　var sign:boolean;　　value:Integer;　　begin　　sign:=fals

69、e; //標(biāo)準(zhǔn)前面是否選擇查詢條件　　with mydata.query_stuff do　　begin　　close;　　with sql do<

70、;/p>　　begin　　clear;　　add('select * from 員工資料表');　　if (checkcode.Checked ) then //如果選擇查詢工號(hào)</p

71、>　　begin　　add('where 員工號(hào)=:code'); //添加查詢條件　　ParamByName('code').AsString:=trim(code.text);　　sign:=true;<

72、;/p>　　end;　　if checkname.Checked then //判斷是否選擇名字查詢　　begin　　if sign then //如果已經(jīng)有其他條件查詢

73、，則用and還是where　　begin　　add('and 員工名=:name');　　end else　　begin

74、　　add('where 員工名=:name');　　sign:=true;　　end;　　ParamByName('name').AsString:=trim(stuffname.text);<

75、;p>　　end;　　if checksex.Checked then　　begin　　if man.Checked then　　begin</

76、p>　　value:=1;　　end else　　begin　　value:=0;<b

77、>　　end;　　if sign then　　begin　　add('and 性別=:sex');　　end else<p&

78、gt;　　begin　　add('where 性別=:sex');　　sign:=true;　　end;　　ParamByName('sex').AsInteger

79、:=value;　　end;　　if checkage.Checked then　　begin　　if sign then　　begin

80、　　add('and 年齡=:age');　　end else　　begin　　add('where 年齡=:age');

81、　　sign:=true;　　end;　　ParamByName('age').AsString:=trim(age.text);　　end;　　if chec

82、ktime.Checked then　　begin　　if endtime.Date<starttime.Date then　　begin 　　showmessage('結(jié)束時(shí)間不能

83、小于開始時(shí)間');　　end else　　begin　　if sign then　　begin　　add(&

84、#39;and');　　end else　　begin　　add('where');　　sign:=true;

85、　end;　　add('合同開始時(shí)間>=:sdata and 合同結(jié)束時(shí)間<=:edate');　　ParamByName('sdate').AsString:=datetostr(starttime.Date);　　ParamByName('

86、;edate').AsString:=datetostr(endtime.Date);　　end;　　end;　　if checkstate.Checked then

87、begin　　if sign then　　begin　　add('and 工作狀態(tài)=:state');　　end else<p&g

88、t;　　begin　　add('where 工作狀態(tài)=:state');　　sign:=true;　　end;　　ParamByName('state').AsSt

89、ring:=trim(jobstate.Text);　　end;　　if checkaddress.Checked then　　begin　　if sign then<

90、;p>　　begin　　add('and 住址=:address');　　end else　　begin　　add('where

91、住址=:address');　　sign:=true;　　end;　　ParamByName('address').AsString:=trim(address.Text);　　end;&l

92、t;/b>　　if checktel.Checked then　　begin　　if sign then　　begin　　add('and

93、聯(lián)系電話=:telephone');　　end else　　begin　　add('where 聯(lián)系電話=:telephone');　　sign:=true;</p&

94、gt;　　end;　　ParamByName('telephone').AsString:=trim(telephone.Text);　　end;　　if checkmobile.Checked th

95、en　　begin　　if sign then　　begin　　add('and 手機(jī)=:mobile');　　end

96、else　　begin　　add('where 手機(jī)=:mobile');　　sign:=true;　　end;　　P

97、aramByName('mobile').AsString:=trim(mobile.Text);　　end;　　if checkmail.Checked then　　begin

98、　if sign then　　begin　　add('and 郵箱=:mail');　　end else　　begin

99、　　add('where 郵箱=:mail');　　sign:=true;　　end;　　ParamByName('mail').AsString:=trim(mail.Text);&

100、lt;b>　　end;　　if checkremark.Checked then　　begin　　if sign then　　begin<p

101、>　　add('and 備注 like :remark ');　　end else　　begin　　add('where 備注 like :remark');

102、　　end;　　ParamByName('remark').AsString:=trim('%'+remark.Text+ '%');　　end;　　end;</b&

103、gt;　　open;　　end;　　end;　　4.6更新員工資料子模塊　　在人事管理系統(tǒng)中更新資料相對(duì)比較頻繁，在

104、實(shí)際使用中，人事更新的操作類型有許多種，但在數(shù)據(jù)庫操作方面來說，只是更新員工資料表，同時(shí)插入相應(yīng)的記錄。因而人事更新操作其實(shí)可以集中在一個(gè)資料更新模塊中，當(dāng)執(zhí)行一些特定的操作，如更改部門職務(wù)，則需要在人事調(diào)動(dòng)表添加一條記錄，表明人事結(jié)構(gòu)發(fā)生變化。　　在執(zhí)行更新操作之前，要先輸入工號(hào)，然后判斷該工號(hào)是否存在于數(shù)據(jù)庫中，如果存在，則讀取數(shù)據(jù)庫中的相關(guān)數(shù)據(jù)，并將它們顯示在各組件中。

105、;　　窗體如圖　　輸入工號(hào)按鈕對(duì)應(yīng)的函數(shù)，如下：　　procedure TForm7.BitBtn1Click(Sender: TObject);　　var sign:boolean;　　beg

106、in　　sign:=false;　　with mydata.Query1 do　　begin　　close;　　with sql do

107、　　begin　　clear;　　add('select * from 員工資料表 where 員工號(hào)=:code');　　ParamByName('code').

108、AsString:=trim(code.text);　　end;　　open;　　if findlast() then //判斷工號(hào)是否存在與數(shù)據(jù)庫中&l

109、t;b>　　begin　　stuffname.Text:=FieldByName('員工號(hào)').AsString;　　if (FieldByName('性別').AsInteger=1) then　　begin<

110、/p>　　man.Checked:=true;　　end else　　begin　　man.Checked:=false;　　end;</b&g

111、t;　　age.Text:=FieldByName('年齡').AsString;　　partment.Text:=FieldByName('部門').AsString;　　job.Text:=FieldByName('職務(wù)').AsString;

112、;　　starttime.DateTime:=FieldByName('合同開始時(shí)間').AsDateTime;　　endtime.DateTime:=FieldByName('合同結(jié)束時(shí)間').AsDateTime;　　address.Text:=FieldByName('住址').

113、AsString;　　telephone.Text:=FieldByName('聯(lián)系電話').AsString;　　mobile.Text:=FieldByName('手機(jī)').AsString;　　mail.Text:=FieldByName('郵箱').AsSt

114、ring;　　jobstate.Text:=FieldByName('工作狀態(tài)').AsString;　　remark.Text:=FieldByName('備注').AsString;　　end else<p&g

115、t;　　begin　　showmessage('員工號(hào)不正確');　　end;　　end;　　end;&

116、lt;/p>　　輸入工號(hào)后，可以選擇任意項(xiàng)進(jìn)行更新，如果沒有任何選項(xiàng)中，則給出提示信息，不做數(shù)據(jù)庫更新操作，更新按鈕的響應(yīng)函數(shù)及其代碼如下：　　procedure TForm7.UpdatestuffClick(Sender: TObject);　　var sign:boolean;&

117、lt;b>　　begin　　sign:=false; //開始無更新選項(xiàng)　　with mydata.Query1 do //使用Query1　　begin</p&

118、gt;　　close;　　with sql do //設(shè)置SQL屬性　　begin　　clear;<

119、;p>　　add('update 員工資料表 set'); //開始添加更新資料的SQL語句　　if checkname.Checked then　　begin　　add('員工名=:name');<

120、;p>　　ParamByName('name').AsString:=trim(stuffname.Text);　　sign:=true;　　end;　　if Checksex.Checked then<b

121、>　　begin　　if sign then　　begin //如果前面已經(jīng)有其他字段更新，則需要在賦值語句前加上“，”號(hào)　　add(',');<b

122、>　　end;　　sign:=true;　　add('性別=:sex');　　if man.Checked then　　begin　　ParamByN

123、ame('sex').AsInteger:=1;　　end else　　begin　　ParamByName('sex').AsInteger:=0;<b&g

124、t;　　end;　　end;　　if checkage.Checked then　　begin　　if sign then<b&

125、gt;　　begin　　add(',');　　end;　　add('年齡=:age');　　sign:=true;<

126、;p>　　ParamByName('age').AsString:=trim(age.Text);　　end;　　if checkdepart.Checked then　　begin<p

127、>　　if sign then　　begin　　add(',');　　end;　　sign:=true;<

128、p>　　add('部門=:depart');　　ParamByName('depart').AsString:=trim(partment.Text);　　end;　　if checkjob.Checked then

129、　　begin　　if sign then　　begin　　add(',');　　end;</b&

130、gt;　　sign:=true;　　add('職務(wù)=:job');　　ParamByName('job').AsString:=trim(job.Text);　　end;<

131、p>　　if checkstart.Checked then　　begin　　if sign then　　begin　　add(',');

132、;　　end;　　sign:=true;　　add('合同開始時(shí)間=:startdate');　　ParamByName('startdate').AsString:=datetostr(startti

133、me.Date);　　end;　　if checkend.Checked then　　begin　　if sign then　　begi

134、n　　add(',');　　end;　　sign:=true;　　add('合同結(jié)束時(shí)間=:endtime');<

135、p>　　ParamByName('endtime').AsString:=datetostr(endtime.Date);　　end;　　if checkstate.Checked then　　begin</p

136、>　　if sign then　　begin　　add(',');　　end;　　sign:=true;</

137、p>　　add('工作狀態(tài)=:state');　　ParamByName('state').AsString:=trim(jobstate.Text);　　end;　　if checkaddress.Checked

138、then　　begin　　if sign then　　begin　　add(',');<b&g

139、t;　　end;　　sign:=true;　　add('住址=:address');　　ParamByName('address').AsString:=trim(address.Text);　　end

140、;　　if checktel.Checked then　　begin　　if sign then　　begin　　a

141、dd(',');　　end;　　sign:=true;　　add('聯(lián)系電話=:telephone');　　ParamByName('telephone').AsSt

142、ring:=trim(telephone.Text);　　end;　　if checkmobile.Checked then　　begin　　if sign then<

143、;p>　　begin　　add(',');　　end;　　sign:=true;　　add('手機(jī)=:mobile');

144、　　ParamByName('mobile').AsString:=trim(mobile.Text);　　end;　　if checkmail.Checked then　　begin</b&g

145、t;　　if sign then　　begin　　add(',');　　end;　　sign:=tr

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評(píng)論

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

文檔簡介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載