人事管理系統(tǒng)delphi課程設(shè)計(jì)報(bào)告

1、<p>　　《數(shù)據(jù)庫應(yīng)用與開發(fā)》</p><p><b>　　課程設(shè)計(jì)指導(dǎo)</b></p><p><b>　　目 錄</b></p><p>　　第1章 人力資源管理系統(tǒng)概述2</p><p>　　1.1 人力資源管理系統(tǒng)簡介2</p><p>　　1.2

2、人力資源管理系統(tǒng)功能描述2</p><p>　　第2章 需求分析3</p><p>　　2.1 系統(tǒng)目標(biāo)3</p><p>　　2.2 業(yè)務(wù)流程3</p><p>　　2.3 數(shù)據(jù)流程4</p><p>　　2.4 數(shù)據(jù)字典4</p><p>　　第3章 系統(tǒng)設(shè)計(jì)6</p&g

3、t;<p><b>　　3.1系統(tǒng)功能6</b></p><p>　　3.2 系統(tǒng)結(jié)構(gòu)6</p><p>　　第4章 數(shù)據(jù)庫設(shè)計(jì)7</p><p>　　4.1 E-R圖7</p><p>　　第5章 主窗體設(shè)計(jì)8</p><p>　　5.1 主窗體設(shè)計(jì)8</p>

4、;<p>　　5.2 功能導(dǎo)航欄設(shè)計(jì)12</p><p>　　第6章 程序設(shè)計(jì)與編碼13</p><p>　　6.1 系統(tǒng)登陸窗體的設(shè)計(jì)13</p><p>　　6.2 操作員管理窗體的設(shè)計(jì)14</p><p>　　6.3 修改密碼窗體的設(shè)計(jì)14</p><p>　　6.4 人事信息窗體的設(shè)計(jì)

5、15</p><p>　　第7章 系統(tǒng)測試16</p><p>　　7.1 系統(tǒng)測試目的16</p><p>　　7.2 系統(tǒng)測試17</p><p>　　第8章 心得總結(jié)18</p><p><b>　　參考文獻(xiàn)19</b></p><p><b>　

6、　附 錄20</b></p><p>　　第1章 人力資源管理系統(tǒng)概述</p><p>　　1.1 人力資源管理系統(tǒng)簡介</p><p>　　隨著全球?qū)χR和人才的重視，企業(yè)對人力資源管理重要性的認(rèn)識逐漸深化，人才的全球化競爭使企業(yè)的人力資源管理面臨前所未有的挑戰(zhàn)。在新形勢下，人力資源管理系統(tǒng)是一個(gè)企業(yè)單位不可缺少的部分，是適應(yīng)現(xiàn)代企業(yè)制度，推動(dòng)企業(yè)

7、人力資源管理走向科學(xué)化、規(guī)范化、自動(dòng)化的必要條件；是應(yīng)對挑戰(zhàn)、適應(yīng)環(huán)境變化、提高企業(yè)管理效率、提升核心競爭力的關(guān)鍵措施。它所包含內(nèi)容對于企業(yè)的決策者和管理者來說至關(guān)重要。目前市場上的人力資源系統(tǒng)很多，但要找到一款真正稱心、符合公司實(shí)際情況的并不容易。由于存在這樣那樣的不足，使企業(yè)浪費(fèi)了大量的人力、物力等大量資源，難以真正提升企業(yè)人力資源的管理水平，提高工作效率及降低管理成本的效果也不明顯。因此，為了加快公司信息化的步伐，提高公司的管理水

8、平，并在激烈的社會(huì)競爭中立于不敗之地，建立及完善人力資源管理系統(tǒng)已變得十分必要和迫切。</p><p>　　人力資源管理系統(tǒng)主要是管理員工企業(yè)日常事務(wù)中的人事工作，使用人力資源管理系統(tǒng)會(huì)降低了資源管理成本，使管理者能集中精力在企業(yè)戰(zhàn)略目標(biāo)；另一方面，通過軟件及時(shí)收集與整理分析大量的人力資源管理數(shù)據(jù)，為企業(yè)戰(zhàn)略決策的生成與實(shí)施控制提供強(qiáng)有力的支持，以提高組織目標(biāo)實(shí)現(xiàn)的可能性。</p><p>

9、;　　1.2 人力資源管理系統(tǒng)功能描述</p><p>　　人事管理系統(tǒng)就是要實(shí)現(xiàn)對某單位的職工進(jìn)行管理，整個(gè)系統(tǒng)包括人事資料的錄入、資料查詢和資料刪除等功能。</p><p>　　人力資源管理系統(tǒng)應(yīng)該能夠靈活有效的管理，體現(xiàn)多角色、多層次特色。不同的企業(yè)其人力資源管理業(yè)務(wù)與流程各不相同，隨著管理要求的提高，人力資源管理軟件需要具備人事業(yè)務(wù)流程的制訂、修改、控制等操作。通過人力資源管理系統(tǒng)

10、使得管理者快速高效地完成企業(yè)日常事務(wù)中的人事工作，降低了人力資源管理成本，使管理者能集中精力在企業(yè)戰(zhàn)略目標(biāo)；另一方面，通過軟件及時(shí)收集與整理分析大量的人力資源管理數(shù)據(jù)，為企業(yè)戰(zhàn)略決策的生成與實(shí)施控制提供強(qiáng)有力的支持，以提高組織目標(biāo)實(shí)現(xiàn)的可能性。</p><p><b>　　第2章 需求分析</b></p><p><b>　　2.1 系統(tǒng)目標(biāo)</b&g

11、t;</p><p>　　人事管理系統(tǒng)就是要實(shí)現(xiàn)對某單位的職工進(jìn)行管理，整個(gè)系統(tǒng)主要實(shí)現(xiàn)包括人事資料的錄入、資料查詢和資料刪除等功能。</p><p>　　在應(yīng)用系統(tǒng)使用中，為保證系統(tǒng)的安全，必須設(shè)置用戶檢測程序。合法用戶可進(jìn)入，非合法用戶拒絕登陸。同時(shí)要能夠設(shè)置用戶的使用權(quán)限，用戶登錄后只能進(jìn)行其權(quán)限所允許的操作。用戶可以修改本人的密碼，系統(tǒng)管理員可以修改、凍結(jié)或刪除普通用戶。</

12、p><p><b>　　2.2 業(yè)務(wù)流程圖</b></p><p>　　操作員管理業(yè)務(wù)流程圖</p><p><b>　　2.3 數(shù)據(jù)流程圖</b></p><p><b>　　2.4 數(shù)據(jù)字典</b></p><p>　　數(shù)據(jù)字典就是將數(shù)據(jù)元素、數(shù)據(jù)流、數(shù)

13、據(jù)存儲、處理功能和外部實(shí)體等的詳細(xì)情況加以記錄，并按照一定方式進(jìn)行排列所形成的一部關(guān)于數(shù)據(jù)的字典。</p><p>　　數(shù)據(jù)字典是有關(guān)數(shù)據(jù)的信息的收集、維護(hù)和發(fā)布的機(jī)制，是有關(guān)數(shù)據(jù)的數(shù)據(jù)即元數(shù)據(jù)的中心倉庫，數(shù)據(jù)字典是提供關(guān)于數(shù)據(jù)元素、元素組、記錄信息的定義和使用機(jī)制，以及數(shù)據(jù)實(shí)體之間的聯(lián)系。</p><p>　　2.4.1建立數(shù)據(jù)元素</p><p>　　表-1

14、操作員數(shù)據(jù)結(jié)構(gòu)</p><p>　　表-2 人事信息數(shù)據(jù)結(jié)構(gòu)</p><p>　　2.4.2建立數(shù)據(jù)流</p><p>　　數(shù)據(jù)流表明了數(shù)據(jù)的流動(dòng)方向及其名稱，是數(shù)據(jù)載體的表現(xiàn)形式之一。在數(shù)據(jù)字典中所定義的數(shù)據(jù)流有兩類：一類是從外部實(shí)體輸入到系統(tǒng)中的數(shù)據(jù)流，二是從系統(tǒng)輸出到外部實(shí)體的數(shù)據(jù)流。</p><p><b>　　定義數(shù)據(jù)流

15、表如下</b></p><p><b>　　表-3 數(shù)據(jù)流表</b></p><p><b>　　第3章 系統(tǒng)設(shè)計(jì)</b></p><p><b>　　3.1系統(tǒng)功能</b></p><p>　　1、用戶管理模塊。主要是實(shí)現(xiàn)操作用戶的增加、刪除、修改。</p&

16、gt;<p>　　2、密碼修改模塊。該模塊主要實(shí)現(xiàn)各操作用戶修改自己的操作密碼，系統(tǒng)管理用戶可以修改其他用戶的密碼。</p><p>　　3、系統(tǒng)初始化模塊。主要用來實(shí)現(xiàn)初始化功能，即清除所有數(shù)據(jù)表中的信息，只在operator.db數(shù)據(jù)表中保留一條默認(rèn)的管理員信息。</p><p>　　4、退出模塊。就是退出系統(tǒng)。</p><p><b>

17、　　3.2 系統(tǒng)結(jié)構(gòu)</b></p><p><b>　　第4章 數(shù)據(jù)庫設(shè)計(jì)</b></p><p><b>　　4.1 E-R圖</b></p><p><b>　　實(shí)體屬性一覽表：</b></p><p>　　管理員（用戶名，密碼，部門，聯(lián)系電話，工資，職務(wù)，操

18、作權(quán)限，查詢權(quán)限，管理權(quán)限，最后操作時(shí)間）</p><p>　　職員（職工編號，職工姓名，性別，出生年月，身份證號，地址，聯(lián)系電話，單位，工資，職務(wù)，專業(yè)，參加工作時(shí)間，離職時(shí)間）</p><p>　　部門（部門編號，部門名稱，主管）</p><p><b>　　第5章 主窗體設(shè)計(jì)</b></p><p><b&g

19、t;　　5.1 主窗體設(shè)計(jì)</b></p><p><b>　　5.1.1界面設(shè)計(jì)</b></p><p>　　創(chuàng)建一個(gè)新的工程文件，保存源程序文件名為main.pas，工程文件名為rlzygl.dpr，在窗體中添加一個(gè)mainmenu組件，一個(gè)toolbar組件，在toolbar組件中添加6個(gè)toolbutton組件，一個(gè)imagelist組件，雙擊im

20、agelist組件打開對話框添加6個(gè)圖片程序設(shè)計(jì)界面如下圖5-1所示。</p><p>　　圖5-1 程序的主窗體</p><p><b>　　5.1.2屬性設(shè)置</b></p><p>　　窗體所涉及的組件有mainmenu，toolbutton，toolbar等。其屬性設(shè)置具體如下</p><p>　　表5-1

21、窗體及組建的屬性設(shè)置</p><p>　　5.1.3 程序設(shè)計(jì)</p><p><b>　　代碼如下：</b></p><p><b>　　var</b></p><p>　　main_Form:Tmain_Form;</p><p>　　username:string;&l

22、t;/p><p>　　password:string;</p><p>　　R1,R2,R3:boolean;</p><p>　　implementation</p><p>　　uses login, Unit3, Unit4, Unit5, Unit6;</p><p>　　{$R *.dfm}</p>

23、<p>　　procedure Tmain_Form.FormActivate(Sender: TObject);</p><p><b>　　begin</b></p><p>　　username:='';</p><p>　　password:='';</p><p>　

24、　R1:=false;</p><p>　　R2:=false;</p><p>　　R3:=false;</p><p>　　F_login.showModal();</p><p>　　if username<>'' then</p><p><b>　　begin</b

25、></p><p>　　if R1=true then</p><p><b>　　begin</b></p><p>　　n4.Enabled:=true;</p><p>　　n6.Enabled:=true;</p><p>　　toolbutton1.Enabled:=true;&l

26、t;/p><p>　　toolbutton3.Enabled:=true;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　n4.Enabled:=

27、false;</p><p>　　n6.Enabled:=false;</p><p>　　toolbutton1.Enabled:=false;</p><p>　　toolbutton3.Enabled:=false;</p><p><b>　　end;</b></p><p>　　if R

28、2=true then</p><p><b>　　begin</b></p><p>　　n2.Enabled:=true;</p><p>　　toolbutton4.Enabled:=true;</p><p><b>　　end</b></p><p><b&g

29、t;　　else</b></p><p><b>　　begin</b></p><p>　　n3.Enabled:=false;</p><p>　　toolbutton4.Enabled:=false;</p><p><b>　　end;</b></p><p&

30、gt;　　if R3=true then</p><p><b>　　begin</b></p><p>　　n3.Enabled:=true;</p><p>　　toolbutton5.Enabled:=true;</p><p><b>　　end</b></p><p&g

31、t;<b>　　else</b></p><p><b>　　begin</b></p><p>　　n3.Enabled:=false;</p><p>　　toolbutton5.Enabled:=false;</p><p><b>　　end;</b></p>

32、;<p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　close;</b></p><p><b>　　end;</b></p><p>　　procedure Tmain_Form.

33、N3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　F_check.showModal();</p><p><b>　　end;</b></p><p>　　procedure Tmain_Form.N8Click(Sender:

34、 TObject);</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p><b>　　end;</b></p><p>　　procedure Tmain_Form.N2Click(Sender: TObject);

35、</p><p><b>　　begin</b></p><p>　　F_rsInfo.showModal();</p><p><b>　　end;</b></p><p>　　procedure Tmain_Form.N5Click(Sender: TObject);</p>&l

36、t;p><b>　　begin</b></p><p>　　F_changepw.showmodal();</p><p><b>　　end;</b></p><p>　　procedure Tmain_Form.N4Click(Sender: TObject);</p><p><b

37、>　　begin</b></p><p>　　F_operator.showmodal();</p><p><b>　　end;</b></p><p>　　procedure Tmain_Form.N6Click(Sender: TObject);</p><p><b>　　var<

38、;/b></p><p>　　Tabel1:TTable;</p><p><b>　　begin</b></p><p>　　Table1:=TTable.create(self);</p><p>　　Table1.DatabaseName:='RLZYGL';</p><p

39、>　　Table1.TableName:='opertaor.db';</p><p>　　Table1.EmptyTable;</p><p>　　Table1.open;</p><p>　　Table1.Append;</p><p>　　Table1.fieldbyname('username')

40、.asstring:='admin';</p><p>　　Table1.fieldbyname('password').asstring:='admin';</p><p>　　Table1.fieldbyname('department').asstring:='計(jì)算機(jī)系';</p><

41、p>　　Table1.fieldbyname('stamp').asdatetime:=date();</p><p>　　Table1.fieldbyname('right1').asboolean:=true;</p><p>　　Table1.fieldbyname('right2').asboolean:=true;</p

42、><p>　　Table1.fieldbyname('right3').asboolean:=true;</p><p>　　Table1.post;</p><p>　　Table1.close;</p><p>　　Table1.Tablename:='info.db';</p><p>

43、;　　Table1.emptytable;</p><p>　　Application.MessageBox('初始化結(jié)束！','提示信息',mb_ok);</p><p><b>　　end;</b></p><p>　　procedure Tmain_Form.Button1Click(Sender: TOb

44、ject);</p><p><b>　　begin</b></p><p>　　F_login.show;</p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　第6章 程序設(shè)計(jì)與編碼</

45、p><p>　　6.1 系統(tǒng)登陸窗體的設(shè)計(jì)</p><p><b>　　圖6-1 登陸窗口</b></p><p>　　用戶名為：admin，密碼為：admin進(jìn)入人力資源管理系統(tǒng)，非法用戶不可以進(jìn)入系統(tǒng)。程序代碼在附錄里顯示。</p><p>　　6.2 操作員管理窗體的設(shè)計(jì)</p><p>　　圖

46、6-2 操作員管理窗口</p><p>　　6.3 修改密碼窗體的設(shè)計(jì)</p><p>　　圖6-3 修改密碼窗口</p><p>　　6.4 人事信息窗體的設(shè)計(jì)</p><p>　　圖6-4 人事信息窗口</p><p><b>　　第7章 系統(tǒng)測試</b></p><p&g

47、t;　　7.1 系統(tǒng)測試目的</p><p>　　對程序設(shè)計(jì)工作的檢驗(yàn)是進(jìn)行系統(tǒng)測試，是保證系統(tǒng)質(zhì)量和可靠性的關(guān)鍵步驟?？傊?，測試的目的是發(fā)現(xiàn)軟件中的錯(cuò)誤，應(yīng)該把查出新錯(cuò)誤的測試看做是成功的測試，沒有發(fā)現(xiàn)新錯(cuò)誤的測試是失敗的測試。但發(fā)現(xiàn)錯(cuò)誤不是目的，目的是開發(fā)出高質(zhì)量的完全符合用戶需要的軟件。</p><p><b>　　7.2 系統(tǒng)測試</b></p>

48、<p>　　系統(tǒng)測試是把經(jīng)過測試的子系統(tǒng)裝配成一個(gè)完整的系統(tǒng)然后進(jìn)行測試。在這個(gè)過程中不僅能發(fā)現(xiàn)設(shè)計(jì)和編碼的錯(cuò)誤還能驗(yàn)證系統(tǒng)是否提供需求說明中指定的功能，而且能驗(yàn)證系統(tǒng)的動(dòng)態(tài)特性是否預(yù)訂要求。人力資源管理系統(tǒng)連接數(shù)據(jù)庫正確，但是無法正常運(yùn)行，也沒有辦法進(jìn)行驗(yàn)證測試，功能沒有實(shí)現(xiàn)。</p><p><b>　　第8章 心得總結(jié)</b></p><p>　　通

49、過本次的課程設(shè)計(jì)，學(xué)到了很多關(guān)于Delphi的知識。程序主要是利用delphi來實(shí)現(xiàn)對學(xué)校的人事管理。 經(jīng)過此次數(shù)據(jù)庫課程設(shè)計(jì)我對的delphi語言有了一定的了解，delphi編程很類似，界面設(shè)計(jì)較簡單和代碼編譯速度相對也較快。在編程的過程中遇到了些問題，通過我自己翻書，上網(wǎng)查資料及向老師同學(xué)們請教，這些問題也得到了解決。經(jīng)歷了這次課程設(shè)計(jì)，不僅對我的學(xué)習(xí)提供了幫助，而且在各方面也得到了鍛煉。沒有足夠的耐力和信心就很難堅(jiān)持對課程設(shè)計(jì)每一

50、步的順利進(jìn)行。同時(shí)我還要非常感謝我的任課老師向老師對此次課程設(shè)計(jì)的精心安排和耐心指導(dǎo)。在課程設(shè)計(jì)過程中，向老師無論是在理論上還是在實(shí)踐中，都給了我很大的幫助。使我在程序的開發(fā)等各個(gè)方面得到了很大的提高。向老師治學(xué)態(tài)度嚴(yán)謹(jǐn)，工作態(tài)度認(rèn)真負(fù)責(zé)，為人親切和藹，學(xué)術(shù)理論和實(shí)踐經(jīng)驗(yàn)豐富，是我們學(xué)習(xí)的好榜樣。同時(shí)感謝和我合作的本小組成員。在開發(fā)系統(tǒng)的過程中，我們團(tuán)結(jié)合作，充分發(fā)揮了集體的力量，很好的完成了此次的課程設(shè)計(jì)。 </p>&

51、lt;p><b>　　參考文獻(xiàn)</b></p><p>　　楊長春，劉俊，石林．高等學(xué)校教材計(jì)算機(jī)科學(xué)與技術(shù)．Delphi程序設(shè)計(jì)教程，2008，</p><p>　　梁水，賽奎春． Delphi開發(fā)典型模塊大全，人民郵電出版社，2010，</p><p>　　陳紫紅，賽奎春．Delphi程數(shù)據(jù)庫開發(fā)實(shí)例解析，機(jī)械工程出版社，2006，&

52、lt;/p><p>　　趙應(yīng)?。?Delphi課程設(shè)計(jì)案例精編，中國水利水電出版社．2003，</p><p>　　錢辰，王曉龍．．Delphi必做練習(xí)題，北京大學(xué)出版社，2008，</p><p><b>　　附 錄</b></p><p>　　附錄1操作員管理代碼</p><p>　　proce

53、dure TF_operator.SpeedButton1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　Table1:=TTable.creat(self);</p><p>　　Table1.DatabaseName:='1220';</p>

54、<p>　　Table1.TableName:='opertaor.db';</p><p>　　Table1.open;</p><p>　　Table1.setkey;</p><p>　　Table1.Fieldbyname('name').asstring:=edit1.text;</p><p&

55、gt;　　if table1.gotokey then</p><p><b>　　begin</b></p><p>　　if Radiobutton1.Checked then</p><p><b>　　begin</b></p><p>　　Application.MessageBox(&#

56、39;用戶名相同，請檢查！','提示信息',mb_ok)；</p><p>　　edit1.Text:='';</p><p>　　edit2.Text:='';</p><p>　　edit3.Text:='';</p><p>　　edit1.SetFocus;<

57、;/p><p><b>　　end</b></p><p><b>　　else</b></p><p>　　if Radio2.checked then</p><p><b>　　begin</b></p><p>　　Table1.edit;</

58、p><p>　　savetotable;</p><p>　　table1.post;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p

59、>　　Table1.edit;</p><p>　　table1.Delete;</p><p>　　table1.first;</p><p>　　loadfromtable;</p><p><b>　　end;</b></p><p><b>　　end</b>&

60、lt;/p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　if Radiobutton1.Checked then</p><p><b>　　begin</b></p><p>　　Table1.

61、Append;</p><p>　　table1.edit;</p><p>　　savetotable;</p><p>　　table1.post;</p><p><b>　　end</b></p><p><b>　　else</b></p><p

62、><b>　　begin</b></p><p>　　Application.MessageBox('沒有該用戶，請檢查！','提示信息',mb_ok)；</p><p>　　edit1.Text:='';</p><p>　　edit2.Text:='';</p>

63、;<p>　　edit3.Text:='';</p><p>　　edit1.SetFocus;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　table1.close;</p><p

64、><b>　　end;</b></p><p>　　procedure TF_operator.FormActivate(Sender: TObject);</p><p><b>　　begin</b></p><p>　　edit1.Text:='';</p><p>　　

65、edit2.Text:='';</p><p>　　edit3.Text:='';</p><p>　　edit4.Text:='';</p><p>　　edit4.Readonly:=true;</p><p>　　edit4.Tabstop:=false;</p><p

66、>　　checkbox1.Checked:=false;</p><p>　　checkbox2.Checked:=false;</p><p>　　checkbox3.Checked:=false;</p><p>　　edit4.Text:=datetostr(date());</p><p>　　Table1:=TTable.cr

67、eat(self);</p><p>　　Table1.DatabaseName:='1220';</p><p>　　Table1.TableName:='opertaor.db';</p><p>　　Table1.open;</p><p>　　if not Table1.Eof then</p&g

68、t;<p>　　LoadFormTable;</p><p>　　Table1.Close;</p><p>　　Radiobutton2.Checked:=true;</p><p><b>　　end;</b></p><p>　　procedure TF_operator.loadFormtable;

69、</p><p><b>　　begin</b></p><p>　　edit1.text:=table1.fieldbyname('username').asstring;</p><p>　　edit2.text:=table1.fieldbyname('password').asstring;</p&

70、gt;<p>　　edit3.text:=table1.fieldbyname('department').asstring;</p><p>　　edit4.text:=datetostr(table1.fieldbyname('stamp').asdatetime);</p><p>　　checkbox1.checked:=table1.

71、fieldbyname('right1').asboolean;</p><p>　　checkbox2.checked:=table1.fieldbyname('right2').asboolean;</p><p>　　checkbox3.checked:=table1.fieldbyname('right3').asboolean;&l

72、t;/p><p><b>　　end;</b></p><p>　　procedure TF_operator.savetotable;</p><p><b>　　begin</b></p><p>　　table1.fieldbyname('username').asstring:=

73、edit1.text;</p><p>　　table1.fieldbyname('password').asstring:=edit2.text;</p><p>　　table1.fieldbyname('department').asstring:=edit3.text;</p><p>　　table1.fieldbyname

74、('stamp').asdatetime:=strtodate(edit4.text);</p><p>　　table1.fieldbyname('right1').asboolean:=checkbox1.checked;</p><p>　　table1.fieldbyname('right2').asboolean:=checkbox

75、2.checked;</p><p>　　table1.fieldbyname('right3').asboolean:=checkbox3.checked;</p><p><b>　　end;</b></p><p>　　procedure TF_operator.SpeedButton2Click(Sender: TObj

76、ect);</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p><b>　　end;</b></p><p>　　procedure TF_operator.RadioButton1Click(Sender: TOb

77、ject);</p><p><b>　　begin</b></p><p>　　edit1.Text:='';</p><p>　　edit2.Text:='';</p><p>　　edit3.Text:='';</p><p>　　edit4.

78、Text:=datetostr(date());</p><p>　　checkbox1.Checked:=false;</p><p>　　checkbox2.Checked:=false;</p><p>　　checkbox3.Checked:=false;</p><p>　　edit1.setfocus;</p>&l

79、t;p><b>　　end;</b></p><p>　　procedure TF_operator.Edit1Exit(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if not Radiobutton1.checked then</p>&l

80、t;p><b>　　begin</b></p><p>　　table1.open;</p><p>　　table1.setkey;</p><p>　　table1.Fieldbyname('name').asstring:=edit1.text;</p><p>　　if not table1

81、.gotokey then</p><p><b>　　begin</b></p><p>　　Application.MessageBox('沒有該用戶，請檢查！','提示信息',mb_ok)；</p><p>　　edit1.SetFocus;</p><p><b>　　e

82、nd</b></p><p><b>　　else</b></p><p>　　loadformtable;</p><p><b>　　end;</b></p><p>　　table1.close;</p><p><b>　　end;</b&