專門人才信息管理系統(tǒng)+vf+完版畢業(yè)論文

1、<p>　　專門人才信息管理系統(tǒng)</p><p><b>　　摘 要</b></p><p>　　人事辦公管理系統(tǒng)是典型的住處辦公系統(tǒng)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。</p><p>　

2、　經(jīng)過(guò)分析，我們使用MICROSOFT公司的VISUAL FoxPro開(kāi)發(fā)工具利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具尤其是數(shù)據(jù)窗口這一能方便而乘法操縱數(shù)據(jù)庫(kù)的智能化對(duì)象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對(duì)初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng)。</p><p>　　關(guān)鍵字：人才信息、控件、窗體、域</p><p><b>　　ABSTRACT<

3、;/b></p><p>　　The system of managing teacher file is a typical application of managing information system (kmow as MIS),which mainly includes building up data-base of consistency and integrality and secur

4、ity of data.the later should make the application powerful and easily used.</p><p>　　By looking up lots of datum,we selected Visual FoxPro presented by Microsoft because of its objective tools in Win32. VB o

5、ffered a series of A ctive Xoperating a data-base.It can give you a short–cut to build up a prototype of system application.The prototype could be modified and developed till user s are satisfied with it.</p><

6、p>　　Keywords:ActiveX,Form,Field</p><p><b>　　前 言</b></p><p>　　隨著社會(huì)的發(fā)展、科學(xué)技術(shù)的不斷進(jìn)步，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。</p><p>　　辦公管理系統(tǒng)是教育單位不可缺少的部分應(yīng)用軟件，它的

7、內(nèi)容對(duì)于學(xué)校的決策和管理來(lái)說(shuō)都有至關(guān)重要，所以辦公系統(tǒng)應(yīng)該能夠使學(xué)校的運(yùn)籌天堂。但一直以來(lái)人們使用傳統(tǒng)人工的方式辦公，這種辦公系統(tǒng)存在著許多缺點(diǎn)，如：效率低、保密性差，另外時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都有帶來(lái)了不少的困難。</p><p>　　辦公管理系統(tǒng)作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)辦公系統(tǒng)進(jìn)行管理，具有著傳統(tǒng)辦公系統(tǒng)所無(wú)法比擬的優(yōu)點(diǎn)。例如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量

8、大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)辦公的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。</p><p>　　因此，開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情，在下面的各章中我們將以開(kāi)發(fā)一套整體的辦公系統(tǒng)為例，談?wù)勂溟_(kāi)發(fā)過(guò)程和所涉及到的總是及解決方法。</p><p><b>　　一、系統(tǒng)設(shè)計(jì)</b></p><p>

9、;<b>　　開(kāi)發(fā)設(shè)計(jì)思想</b></p><p>　　本系統(tǒng)開(kāi)發(fā)設(shè)計(jì)思想：</p><p>　　“盡量采用人事現(xiàn)有軟硬件環(huán)境，及先進(jìn)的管理系統(tǒng)開(kāi)發(fā)方案，從而達(dá)到充分利用人事現(xiàn)有資源，提高系統(tǒng)開(kāi)發(fā)水平和應(yīng)用效果的目的。</p><p>　　“系統(tǒng)應(yīng)符合人事檔案管理的規(guī)定，滿足對(duì)人事日常管理的需要，并且應(yīng)具有良好的用戶接口、安全性、通用性、實(shí)用性

10、。</p><p>　　“系統(tǒng)采用模塊化程序設(shè)計(jì)方法，即便于系統(tǒng)功能的擴(kuò)展與修改，有便于未參與開(kāi)發(fā)的技術(shù)維護(hù)人員的補(bǔ)充與維護(hù)。</p><p>　　“系統(tǒng)應(yīng)具有數(shù)據(jù)庫(kù)維護(hù)功能，即使根據(jù)擁護(hù)需求進(jìn)行數(shù)據(jù)的添加、刪除、修改等操作。</p><p><b>　　開(kāi)發(fā)和運(yùn)行環(huán)境</b></p><p>　　開(kāi)發(fā)工具：Ｖisual

11、 FoxPro 6.0;</p><p>　　運(yùn)行環(huán)境：Windows 9X、Windows NT 或Windows 2000操作系統(tǒng)。</p><p><b>　　1.1系統(tǒng)功能分析</b></p><p>　　本系統(tǒng)主要實(shí)用于人事檔案信息管理，主要任務(wù)使用計(jì)算機(jī)對(duì)人才信息進(jìn)行日常管理，如查詢、修改、添加、刪除以及對(duì)查詢結(jié)果進(jìn)行打印等。針對(duì)這

12、些要求，得出該專門人才管理系統(tǒng)的功能如下：該系統(tǒng)主要有輸入、查詢、添加、刪除以及輸出打印五個(gè)模塊組成。</p><p><b>　　輸入模塊</b></p><p>　　該模塊包括建立用戶信息和人才信息輸入。</p><p><b>　　查詢模塊</b></p><p>　　該模塊包括用戶查詢和人才

13、姓名查詢。</p><p><b>　　刪除模塊</b></p><p>　　該模塊主要實(shí)現(xiàn)人才信息的刪除和用戶信息的刪除。</p><p><b>　　輸出打印模塊</b></p><p>　　該模塊主要實(shí)現(xiàn)查詢結(jié)果進(jìn)行輸出打印。</p><p>　　在本系統(tǒng)的編制過(guò)程中，

14、結(jié)合以上實(shí)際要求，將本系統(tǒng)分為用戶管理、檔案登記、檔案管理、檔案檢索四部分。</p><p>　　“用戶管理”主要是對(duì)系統(tǒng)用戶進(jìn)行添加、刪除等常規(guī)管理。</p><p>　　“檔案登記”主要是用來(lái)輸入專門人才的自然情況、專業(yè)特長(zhǎng)和成就成果等數(shù)據(jù)的輸入窗口。</p><p>　　“檔案管理”主要是用來(lái)維護(hù)或顯示與專門人才檔案有關(guān)的全部數(shù)據(jù)的窗口。</p>

15、<p>　　“檔案檢索”主要是為專門人才進(jìn)行檢索的一個(gè)輸入窗口。</p><p><b>　　系統(tǒng)功能模塊設(shè)計(jì)</b></p><p>　　本系統(tǒng)的功能分為如下幾大模塊：</p><p><b>　　主接口模塊</b></p><p>　　該模塊提供本系統(tǒng)的主接口，是本系統(tǒng)唯一的入口和出

16、口。給接口提供用戶選擇并調(diào)用各子模塊。在進(jìn)入本接口以前須核對(duì)用戶名和密碼。</p><p><b>　　人才信息管理模塊</b></p><p>　　該模塊提供對(duì)人事信息的添加、修改、刪除、按人才姓名和人事查詢以及對(duì)查詢結(jié)果的打印。進(jìn)行必要的錯(cuò)誤檢驗(yàn)機(jī)制，并給出相應(yīng)的錯(cuò)誤提示。</p><p><b>　　人事部信息管理模塊</

17、b></p><p>　　該模塊提供對(duì)人事部信息的添加、修改、刪除、人事部信息查詢以及對(duì)查詢結(jié)果的打印。進(jìn)行必要的錯(cuò)誤檢驗(yàn)機(jī)制，并給出相應(yīng)的錯(cuò)誤提示。</p><p><b>　　用戶管理模塊</b></p><p>　　該模塊提供對(duì)本系統(tǒng)用戶的添加、刪除和密碼修改等功能。主要包括添加用戶子模塊、刪除用戶子模塊和修改密碼子模塊組成。對(duì)該模

18、塊進(jìn)行了必要的安全驗(yàn)證。賦予用戶不同的權(quán)限，防止越權(quán)操作，以增強(qiáng)系統(tǒng)的安全性。</p><p>　　采用模塊化設(shè)計(jì)思想，可以大大提高設(shè)計(jì)的效率，并且可以最大限度地減少不必要的錯(cuò)誤。其系統(tǒng)結(jié)構(gòu)框圖１所示。</p><p><b>　　1.2庫(kù)設(shè)計(jì)</b></p><p>　　數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)設(shè)計(jì)的好壞將直接對(duì)系

19、統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率保證數(shù)據(jù)的完整和一致。</p><p>　　同時(shí)，合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。</p><p>　　1.3數(shù)據(jù)庫(kù)需要分析</p><p>　　根據(jù)人事部的需求和約束條件調(diào)查分析</p><p>　　數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)根據(jù)系統(tǒng)數(shù)據(jù)流程圖，用Ｅ—Ｒ圖來(lái)說(shuō)明人才信息

20、管理系統(tǒng)的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)模式。</p><p><b>　　初始關(guān)系模式：</b></p><p>　　數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)將以上數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)換為如下初始關(guān)系模式：</p><p>　　rcda（編號(hào)、姓名、出生日期、性別、黨員否、工資現(xiàn)狀、工作簡(jiǎn)歷、照片）</p><p>　　cjda（編號(hào)、成果名稱、成果類別、成果

21、出處）</p><p>　　zytc（編碼、專業(yè)、專業(yè)年限、職稱、英語(yǔ)水平）</p><p>　　sysmz(SI（編碼）、S2（程序員名稱）、S3（密碼）)</p><p>　　其中，標(biāo)有下劃線的字段表示為該數(shù)據(jù)表的主關(guān)鍵詞。上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上，經(jīng)過(guò)規(guī)范化處理形成數(shù)據(jù)庫(kù)中的表之間的關(guān)系。</p><p>　　專門人才管理系統(tǒng)

22、數(shù)據(jù)庫(kù)中各個(gè)表的設(shè)計(jì)結(jié)果如下面的幾個(gè)表格所示。每個(gè)表格表示數(shù)據(jù)庫(kù)中的一個(gè)表。</p><p>　　Sysmz數(shù)據(jù)表的結(jié)構(gòu)</p><p>　　Cjda數(shù)據(jù)表的結(jié)構(gòu)</p><p>　　Zytc數(shù)據(jù)表的結(jié)構(gòu) </p><p><b>　　數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn)</b></p><p>　　在需求分析

23、、概念結(jié)構(gòu)設(shè)計(jì)的繼承上得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)之后，就可以在VinsualFoxPr 6.0數(shù)據(jù)庫(kù)系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。</p><p><b>　　創(chuàng)建項(xiàng)目</b></p><p>　　在創(chuàng)建數(shù)據(jù)庫(kù)之前，先創(chuàng)建一個(gè)名為“人才檔案”的項(xiàng)目，保存在磁盤中。保存在磁盤中。保存目錄為Ｃ：\人才檔案。</p><p>　　創(chuàng)建rcgl項(xiàng)目的數(shù)據(jù)庫(kù)</

24、p><p><b>　　創(chuàng)建數(shù)據(jù)庫(kù)</b></p><p>　　打開(kāi)“人才檔案”項(xiàng)目后，在項(xiàng)目管理器中展開(kāi)數(shù)據(jù)文件夾，選中數(shù)據(jù)庫(kù)，單擊右側(cè)的“新建”按鈕，將數(shù)據(jù)庫(kù)的名稱設(shè)為“rcgl”并將其存儲(chǔ)在Ｃ：\人才檔案 \rc\rcgl.dbc。</p><p>　　2、為名稱為“rcgl”的數(shù)據(jù)庫(kù)添加數(shù)據(jù)表</p><p>　　（

25、1） 在數(shù)據(jù)庫(kù)設(shè)計(jì)器中單擊鼠標(biāo)右鍵，選擇“新建表”，并將新建表存儲(chǔ)為Ｃ：\人才檔案\rc\cjda.dbf。在彈出的表設(shè)計(jì)器中填寫(xiě)表的內(nèi)容。</p><p>　?。?） 根據(jù)圖4所示表格給出的數(shù)據(jù)，設(shè)置表中字段。</p><p>　?。?） 字段設(shè)置完成后，單擊“確定”按鈕后為表“cjda”輸入數(shù)據(jù)。</p><p>　?。?） 數(shù)據(jù)輸入完成后，就完成了對(duì)系統(tǒng)用戶記

26、錄表的設(shè)置。接下來(lái)繼續(xù)建交其它表。</p><p>　?。?） 依據(jù)同樣的步驟建立表“rcda”，將其保存在Ｃ：\人才檔案\rc\rcda.dbf。然后輸入數(shù)據(jù)，完成對(duì)人事部記錄表的建立。</p><p>　?。ǎ叮┧颈砀裢瓿蓪?duì)人才記錄表的建立，將其保存在Ｃ：\人才檔案\rc\zytc.dbf三個(gè)表創(chuàng)建完畢后，數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)就實(shí)現(xiàn)了。</p><p><b

27、>　　二、應(yīng)用程序的設(shè)計(jì)</b></p><p>　　采用模塊化設(shè)計(jì)思想，根據(jù)本系統(tǒng)的實(shí)際情況，經(jīng)過(guò)多次改進(jìn)，得出本系統(tǒng)的完整結(jié)構(gòu)框圖。</p><p>　　2.1附屬窗體的設(shè)計(jì)</p><p>　?。ㄒ唬g迎界面的設(shè)計(jì)</p><p>　　歡迎接口是用戶進(jìn)入本系統(tǒng)所接觸的第一個(gè)程序接口。該部分的設(shè)計(jì)類似計(jì)算機(jī)的啟動(dòng)。當(dāng)程

28、序開(kāi)始載面運(yùn)行后按下任意鍵或者單擊鼠標(biāo)既可進(jìn)入身份驗(yàn)證窗體，如果沒(méi)有任何動(dòng)作，設(shè)定時(shí)間后，自動(dòng)進(jìn)入身份驗(yàn)證窗體。</p><p>　　1．新建一表單，將其保存在C:\人才檔案\welcome.scx設(shè)置窗體的Picture屬性為：c:\人才檔案\1.jpg;</p><p>　　caption 屬性為“人才檔案”</p><p>　　Autocenter 屬性為“.

29、T.真”；</p><p>　　Alwaysontop 屬性設(shè)為“.T.真”；</p><p>　　Borderstyle屬性為“0-無(wú)邊框”；</p><p>　　Controlbox屬性為“.F.-假”;</p><p>　　Movable屬性為“.F.-假”; </p><p>　　Showwindow 屬性為

30、“2-作為頂層窗體”；</p><p>　　sizebox屬性為“.F.-假”;</p><p>　　titlebar屬性為“.F.-假”;</p><p>　　2.在該窗體上新建2個(gè)label控件：</p><p>　　控件label1：屬性Caption為“歡迎使用”</p><p>　　屬性Backstyle為“

31、o-透明”</p><p>　　屬性FontName 為“隸書(shū)”</p><p>　　屬性FontSize為“24”</p><p>　　屬性Height為“49”</p><p>　　屬性Left為“96”</p><p>　　控件Lable2:ntk 屬性Caption為“專門人才管理系統(tǒng)”</p>

32、<p>　　屬性Backstyle為“0-透明”</p><p>　　屬性FontName為“隸書(shū)”</p><p>　　屬性FontSize為“24”</p><p>　　屬性Height為“61”</p><p>　　屬性Left為“48”</p><p>　　2.在該窗體上添加控件Timer.</

33、p><p>　　設(shè)置控件Timer的 Inerval屬性為“5000”，其含義為每隔5000ms觸發(fā)一次Timer Event事件。</p><p>　　2.代碼設(shè)計(jì)在窗體的KeyPress事件中添加代碼：</p><p>　　do form student\forms\yz</p><p>　　thisform.release</p>

34、;<p><b>　　代碼說(shuō)明：</b></p><p>　　這一段代碼實(shí)現(xiàn)了當(dāng)按下任意鍵時(shí)程序自動(dòng)進(jìn)入身份驗(yàn)證窗體的功能。</p><p>　　在窗體的MouseDown事件中添加代碼：</p><p>　　do form student\forms\yz</p><p>　　thisform.relea

35、se</p><p><b>　　代碼說(shuō)明：</b></p><p>　　這一段代碼實(shí)現(xiàn)了當(dāng)單擊鼠標(biāo)時(shí)程序自動(dòng)進(jìn)入身份驗(yàn)證窗體的功能。</p><p>　　在Timer的Timer Event事件中添加代碼：</p><p>　　do form student\forms\yz</p><p>　

36、　thisform.release</p><p><b>　　代碼說(shuō)明：</b></p><p>　　這一段代碼實(shí)現(xiàn)了在鼠標(biāo)和鍵盤無(wú)動(dòng)作發(fā)生時(shí)，程序在規(guī)定時(shí)間后自動(dòng)進(jìn)入身份驗(yàn)證窗體。</p><p>　　這樣，這一部分的工作就完成了，進(jìn)行測(cè)試運(yùn)行，沒(méi)有錯(cuò)誤。</p><p>　　2.2身份驗(yàn)證窗體的設(shè)計(jì)</p&g

37、t;<p>　　身份驗(yàn)證窗體的設(shè)計(jì)主要是為了系統(tǒng)的安全性考慮。用戶只有輸入正確的用戶名和口令，才能進(jìn)入系統(tǒng)。同時(shí)設(shè)置了錯(cuò)誤檢測(cè)機(jī)制，能夠根據(jù)不同的情況，給出相應(yīng)的錯(cuò)誤提示。</p><p><b>　　具體實(shí)現(xiàn)步驟如下：</b></p><p>　　新建一表單，將其保存為C:\人才檔案\yz.scx設(shè)Caption屬性為“身份驗(yàn)證”，</p>

38、<p>　　為該窗體添加4個(gè)Label控件，其屬性設(shè)置分別為：</p><p>　　Label1: 屬性Caption為“專門人才檔案”；</p><p>　　屬性 Backstyle為“0-透明”；</p><p>　　屬性 FontName為“宋體”；</p><p>　　屬性 FontBold 為“ T-真”；</p

39、><p>　　屬性FontSize為“24”；</p><p>　　屬性 Height為“36”；</p><p>　　屬性 Left為“71”；</p><p>　　屬性 Top為“24”；</p><p>　　屬性 Width為“233”；</p><p>　　Label2:屬性Caption為

40、“檔案管理系統(tǒng)V1.0”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性 FontName為“宋體”；</p><p>　　屬性FontSize為“16”；</p><p>　　屬性 Left為“91”；</p><p>　　屬性 Height為“24”；</p>

41、<p>　　屬性 Top為“69”；</p><p>　　屬性 Width為“192”;</p><p>　　3. Label3: 屬性Caption為“請(qǐng)輸入用戶名”；</p><p>　　屬性 Backstyle為“0-透明”；</p><p>　　屬性 FontName為“宋體”；</p><p>　　

42、屬性 FontSize為“14”；</p><p>　　屬性 Height為“24”；</p><p>　　屬性 Left為“25”；</p><p>　　屬性 Top為“115”；</p><p>　　屬性 Width為“116”；</p><p><b>　　4．Label4:</b><

43、/p><p>　　屬性Caption為“請(qǐng)輸入密碼”；</p><p>　　屬性 Backstyle為“0-透明”；</p><p>　　屬性 FontName為“宋體”；</p><p>　　屬性 FontSize為“14”；</p><p>　　屬性 Height為“24”；</p><p

44、>　　屬性 Left為“44”；</p><p>　　屬性 Top為“157”；</p><p>　　屬性 Width為“97”；</p><p>　　為該窗體添加2個(gè)Text控件。其中Text1用來(lái)輸入用戶名，Text2用來(lái)輸入用戶密碼，其屬性設(shè)置分別為：</p><p>　　Text1: 屬性FontSize為“11”；&l

45、t;/p><p>　　屬性Height為“25”；</p><p>　　屬性Left為“153”；</p><p>　　屬性Top為“114”；</p><p>　　屬性Width為“145”；</p><p>　　Text2: 屬性PasswordChar為“*”；</p><p>　　屬性Fon

46、tSize為“11”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Left為“153”；</p><p>　　屬性Top為“157”；</p><p>　　屬性 Width為“145”；</p><p>　　4.為該窗體添加3個(gè)Command控件，其屬性設(shè)置分別為：</p>

47、<p>　　Command1: 屬性Caption為“確定”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Left為“44”；</p><p>　　屬性Top為“204”；</p><p>　　屬性Width為“60”；&

48、lt;/p><p>　　Command2: 屬性Caption為“取消”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Left為“144”；</p><p>　　屬性Top為“204”；</p><p>　　屬性

49、Width為“60”；</p><p>　　Command3: 屬性Caption為“退出”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Left為“276”；</p><p>　　屬性Top為“204”；</p>&l

50、t;p>　　屬性Width為“60”；</p><p><b>　　代碼設(shè)計(jì)</b></p><p>　?。?）在窗體的Init事件中添加代碼：</p><p>　　public rank</p><p><b>　　public cn</b></p><p><

51、b>　　cn=0</b></p><p><b>　　rank=0</b></p><p><b>　　代碼說(shuō)明：</b></p><p>　　設(shè)置兩個(gè)全局變量cn和rank,其中rank用來(lái)存放用戶權(quán)限，以區(qū)別不同權(quán)限用戶的不同操作；cn用來(lái)存放輸入次數(shù)，當(dāng)輸入超大型過(guò)三次時(shí)，自動(dòng)退出窗體，以維護(hù)系統(tǒng)安

52、全。</p><p>　?。?）在Command1 的Click事件中添加代碼：</p><p>　　use data\userinfo</p><p>　　inname=alltrim(thisform.text1.value)</p><p>　　inpswd=alltrim(thisforn,text2.value)</

53、p><p>　　set order to user-id</p><p>　　seek inname</p><p>　　if!found()</p><p><b>　　cn=cn+1</b></p><p>　　cMessageTiter=‘專門人才系統(tǒng)’</p><p>

54、　　CMessageText=‘用戶名錯(cuò)誤，請(qǐng)重新輸入’</p><p>　　nDialogType=4+32</p><p>　　nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)</p><p><b>　　do case</b></p><p>　　

55、case nAnswer=6</p><p>　　thisform.text1.value=“</p><p>　　thisform.text1.setfocus</p><p>　　case nAnswer=7</p><p>　　messagebox(“請(qǐng)勿非法進(jìn)入”，48“警告”)</p><p>　　thisf

56、orm,release</p><p><b>　　endcase</b></p><p><b>　　if cn=3</b></p><p>　　thisform.release</p><p><b>　　endif</b></p><p><

57、b>　　else</b></p><p>　　if user-pwd!=inpswd</p><p><b>　　cn=cn+1</b></p><p>　　cMessageTitle=‘專門人才系統(tǒng)’</p><p>　　cMessageText=‘密碼錯(cuò)誤，請(qǐng)重新輸入’</p><

58、;p>　　nDialogType=4+32</p><p>　　nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)</p><p><b>　　do case</b></p><p>　　case nAnswer=6</p><p>　　thisfo

59、rm.text2.value=“</p><p>　　thisform.text2.setfocus</p><p>　　case nAnswer=7</p><p>　　messagebox(“請(qǐng)勿非法進(jìn)入”，48“警告”)</p><p>　　thisform,release</p><p><b>　　

60、endcase</b></p><p><b>　　if cn=3</b></p><p>　　thisform.release</p><p><b>　　endif</b></p><p><b>　　else</b></p><p>　

61、　rank=userinfo.user-rank</p><p>　　do form forms\main</p><p>　　thisform.release</p><p><b>　　endif </b></p><p><b>　　endif</b></p><p>

62、<b>　　代碼說(shuō)明：</b></p><p>　　當(dāng)用戶名和密碼完全與userinfo表中的記錄一致時(shí)，將表中該用戶名的權(quán)限賦值給全局變量rank，同時(shí)釋放本窗體并進(jìn)入下一窗體操作；當(dāng)用戶名或密碼與記錄不一致時(shí)，彈出系統(tǒng)住處對(duì)話框予以警告。當(dāng)輸入操作超過(guò)3次時(shí)，自動(dòng)退出該窗體，以維護(hù)系統(tǒng)安全。</p><p>　　在Command2的Click事件中添加代碼：<

63、;/p><p>　　thisform.text1.value=”</p><p>　　thisform.text,value=”</p><p>　　thisrorm.text1.setfocus</p><p><b>　　代碼說(shuō)明：</b></p><p>　　將兩個(gè)文本框的內(nèi)容清空，等待下次輸入

64、。</p><p>　　在Command3 的 Click事件中添加代碼：</p><p>　　thisform.release</p><p>　　至此，身份驗(yàn)證窗體的設(shè)計(jì)已經(jīng)完成。進(jìn)行代碼測(cè)試，正常。</p><p>　　系統(tǒng)主窗體的設(shè)計(jì)系統(tǒng)主窗體的主要功能是引導(dǎo)用戶進(jìn)入各功能模塊以及退出系統(tǒng)。具體的操作步驟如下：</p>

65、<p>　　新建一表單，將其保存為C:\人才檔案\main,scx設(shè)置窗體的Picture</p><p>　　屬性為：c:\人才檔案pic\未標(biāo)題1.jpg;</p><p>　　caption屬性為“專門人才管理系統(tǒng)”</p><p>　　Autocenter屬性為“T-真”</p><p>　　Alwaysontop屬性設(shè)為“

66、T-真”</p><p>　　Showwindow 屬性為“2-作為頂層窗體”；</p><p>　　2.為該表單添加5個(gè)Command 控件，其屬性設(shè)置為：</p><p>　　Command1:屬性Caption 為“檔案管理”；</p><p>　　屬性FontSize為“12”</p><p>　　屬性Le

67、ft為“48”</p><p>　　屬性Height為“32”</p><p>　　屬性Top為“101”</p><p>　　屬性Width為“96”</p><p>　　Command2:屬性Caption 為“檔案登記”；</p><p>　　屬性FontSize為“12”</p><p>

68、;　　屬性Left為“48”</p><p>　　屬性Height為“32”</p><p>　　屬性Top為“143”</p><p>　　屬性Width為“96”</p><p>　　Command3:屬性Caption 為“用戶管理”；</p><p>　　屬性FontSize為“12”</p>&

69、lt;p>　　屬性Left為“48”</p><p>　　屬性Height為“32”</p><p>　　屬性Top為“185”</p><p>　　屬性Width為“96”</p><p>　　Command4:屬性Caption 為“退出”；</p><p>　　屬性FontSize為“12”</p&g

70、t;<p>　　屬性Left為“48”</p><p>　　屬性Height為“32”</p><p>　　屬性Top為“101”</p><p>　　屬性Width為“96”</p><p>　　Command5:屬性Caption 為“關(guān)于”；</p><p>　　屬性FontSize為“12”<

71、;/p><p>　　屬性Left為“12”</p><p>　　屬性Height為“25”</p><p>　　屬性Top為“12”</p><p>　　屬性Width為“36”</p><p><b>　　代碼設(shè)計(jì)：</b></p><p>　　在command1的click

72、 事件中添加代碼：</p><p>　　do form forms\xig1</p><p>　　thisform.release</p><p>　　在command2的click 事件中添加代碼：</p><p>　　do form forms\jxbgl</p><p>　　thisform.release<

73、;/p><p>　　在command3的click 事件中添加代碼：</p><p>　　do form forms\yhgl</p><p>　　thisform.release</p><p>　　在command4的click 事件中添加代碼：</p><p>　　thisform.release</p>

74、<p>　　在command5的click 事件中添加代碼：</p><p>　　do form forms\gy</p><p>　　thisform.release</p><p>　　至此，系統(tǒng)主窗體創(chuàng)建完畢。</p><p>　　2.3系統(tǒng)版權(quán)窗口的設(shè)計(jì)</p><p>　　本表單主要是說(shuō)明系統(tǒng)的

75、版權(quán)信息，在單擊鼠標(biāo)或發(fā)生按鍵動(dòng)作的關(guān)閉。</p><p>　　新建一表單，將其保存為 C:\人才檔案\gy.scx，</p><p>　　屬性caption為“專門人才管理系統(tǒng)”；</p><p>　　Autocenter屬性為“T-真”；</p><p>　　Alwaysontop屬性設(shè)為“T-真”；</p><p&g

76、t;　　Controlbox屬性為“F-假”;</p><p>　　Sizebox屬性為“F-假”；</p><p>　　屬性Left為“72”；</p><p>　　屬性Height為“170”;</p><p>　　屬性Top為“14”；</p><p>　　屬性Width為“375”；</p>&l

77、t;p>　　為該表單添加4個(gè)Label控件，其屬性設(shè)置如下：</p><p>　　Label1:屬性Caption為“三門峽職業(yè)技術(shù)學(xué)院”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontName為“華文彩云”;</p><p>　　屬性Height為“33”；</p><

78、;p>　　屬性Left為“60”；</p><p>　　屬性Top為“33”；</p><p>　　屬性Width為“254”；</p><p>　　Label2：屬性Caption為“專門人才管理系統(tǒng)V1.0”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontNam

79、e為“楷體_GB2312”;</p><p>　　屬性FontSize為“18”；</p><p>　　屬性Left為“24”；</p><p>　　屬性Height為“29”；</p><p>　　屬性Top為“65”；</p><p>　　屬性Width為“326”；</p><p>　　L

80、abel3：屬性Caption為“版權(quán)所有”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontName為“隸書(shū)”;</p><p>　　屬性FontSize為“15”；</p><p>　　屬性Left為“68”；</p><p>　　屬性Height為“25”；</

81、p><p>　　屬性Top為“120”；</p><p>　　屬性Width為“82”；</p><p>　　Label4：屬性Caption為“歡迎使用”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontName為“隸書(shū)”;</p><p>　　屬性F

82、ontSize為“15”；</p><p>　　屬性Left為“224”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Top為“120”；</p><p>　　屬性Width為“82”；</p><p><b>　　代碼設(shè)計(jì)：</b></p><

83、p>　　在窗體的KeyPress事件中添加代碼：</p><p>　　thisform.release</p><p>　　在窗體的MouseDown事件中添加代碼：</p><p>　　thisform.release</p><p>　　這樣，系統(tǒng)版權(quán)窗口的設(shè)計(jì)就完成了。</p><p>　　到這里，系統(tǒng)的一

84、些相關(guān)窗體已經(jīng)設(shè)計(jì)完畢。接下來(lái)，便要設(shè)計(jì)各個(gè)功能模塊。</p><p>　　三、用戶管理模塊的設(shè)計(jì)</p><p>　　該模塊提供對(duì)本系統(tǒng)用戶的添加、刪除和密碼修改等功能。主要包括修改密碼窗體、刪除用戶窗體和添加用戶窗體組成。具體設(shè)計(jì)步驟如下：</p><p>　　3.1用戶管理主窗體的設(shè)計(jì)</p><p>　　新建一表單，將其保存為C:\人

85、才檔案\yhg1.scx設(shè)置窗體的Picture屬性為c:\人才檔案pic\未標(biāo)題2.jpg;</p><p>　　caption屬性為“專門人才管理系統(tǒng)用戶管理”</p><p>　　Autocenter屬性為“T-真“；</p><p>　　Alwaysontop屬性設(shè)為“T-真“；</p><p>　　為該表單添加5個(gè)Command控件

86、，其屬性設(shè)置為</p><p>　　Command1：屬性Caption為“修改密碼”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“48”；</p><p>　　屬性Height為“32”；</p><p>　　屬性Top為“101”；</p><p&

87、gt;　　屬性Width為“96”；</p><p>　　Command2：屬性Caption為“添加用戶”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“48”；</p><p>　　屬性Height為“32”；</p><p>　　屬性Top為“143”；</p&

88、gt;<p>　　屬性Width為“96”；</p><p>　　Command3：屬性Caption為“刪除用戶”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“48”；</p><p>　　屬性Height為“32”；</p><p>　　屬性Top為“1

89、85”；</p><p>　　屬性Width為“96”；</p><p>　　Command4：屬性Caption為“退出”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“324”；</p><p>　　屬性Height為“32”；</p><p>

90、　　屬性Top為“216”；</p><p>　　屬性Width為“48”；</p><p>　　Command5：屬性Caption為“關(guān)于”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“12”；</p><p>　　屬性Height為“25”；</p>

91、<p>　　屬性Top為“12”；</p><p>　　屬性Width為“36”；</p><p><b>　　代碼設(shè)計(jì)：</b></p><p>　　在窗體的Init事件中添加代碼：</p><p><b>　　if rank=2</b></p><p>　　co

92、mmand2.enabled=“F-假”</p><p>　　command3.enabled=“F-假”</p><p><b>　　endif</b></p><p>　　在command1的click事件中添加代碼：</p><p>　　do form forms\xgmima</p><p&g

93、t;　　thisform.release</p><p>　　在command2的click事件中添加代碼：</p><p>　　do form forms\tjuser</p><p>　　thisform.release</p><p>　　在command3的click事件中添加代碼：</p><p>　　do

94、form forms\scuser</p><p>　　thisform.release</p><p>　　在command4的click事件中添加代碼：</p><p>　　thisform.release</p><p>　　（6）在command1的click事件中添加代碼：</p><p>　　do form

95、 forms\gy</p><p>　　thisform.release</p><p>　　至此，用戶管理主窗體創(chuàng)建完畢。</p><p>　　3.2修改密碼窗體的設(shè)計(jì)</p><p>　　密碼修改窗體的設(shè)計(jì)主要是為了系統(tǒng)的安全性考慮。在用戶輸入正確的用戶名和口令后，修改本用戶密碼。同時(shí)設(shè)置了錯(cuò)誤檢測(cè)機(jī)制，能夠根據(jù)不同的情況，給出相應(yīng)的錯(cuò)誤

96、提示。</p><p><b>　　具體實(shí)現(xiàn)步驟如下：</b></p><p>　　1．新建一表單，將其保存為C:\人才檔案\xgmima.scx設(shè)</p><p>　　Caption屬性為“修改密碼”。屬性Caption為“修該密碼”；</p><p>　　Autocenter 屬性為“T-真”；</p>

97、<p>　　Alwaysontop屬性為“T-真”；</p><p>　　屬性Left為“164”；</p><p>　　屬性Height為“285”；</p><p>　　屬性Top為“30”；</p><p>　　屬性Width為“334”；</p><p>　　2．為該窗體添加6個(gè)Labe1控件，其屬

98、性設(shè)置分別為：</p><p>　　Label1：屬性Caption為“專門人才檔案”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontName為“宋體”;</p><p>　　屬性Fontbold為“T-真”；</p><p>　　屬性FontSize為“24”；<

99、/p><p>　　屬性Height為“36”；</p><p>　　屬性Left為“51”；</p><p>　　屬性Top為“13”；</p><p>　　屬性Width為“233”；</p><p>　　Label2：屬性Caption為“檔案管理系統(tǒng)V1.0”；</p><p>　　屬性Bac

100、kstyle為“0-透明”；</p><p>　　屬性FontName為“宋體”;</p><p>　　屬性FontSize為“16”；</p><p>　　屬性Left為“71”；</p><p>　　屬性Height為“24”；</p><p>　　屬性Top為“58”；</p><p>　

101、　屬性Width為“192”；</p><p>　　Label3：屬性Caption為“請(qǐng)輸入用戶名”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontName為“宋體”;</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“38”；&

102、lt;/p><p>　　屬性Height為“20”；</p><p>　　屬性Top為“100”；</p><p>　　屬性Width為“98”；</p><p>　　Label4：屬性Caption為“請(qǐng)輸入密碼”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　

103、屬性FontName為“宋體”;</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“37”；</p><p>　　屬性Height為“20”；</p><p>　　屬性Top為“136”；</p><p>　　屬性Width為“98”；</p><p>　

104、　Label5：屬性Caption為“請(qǐng)輸入新密碼”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontName為“宋體”;</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Left為“37”；</p><p>　　屬性Height為“20”；&

105、lt;/p><p>　　屬性Top為“168”；</p><p>　　屬性Width為“98”；</p><p>　　Label6：屬性Caption為“請(qǐng)確認(rèn)新密碼”；</p><p>　　屬性Backstyle為“0-透明”；</p><p>　　屬性FontName為“宋體”;</p><p>

106、;　　屬性FontSize為“12”；</p><p>　　屬性Left為“42”；</p><p>　　屬性Height為“20”；</p><p>　　屬性Top為“201”；</p><p>　　屬性Width為“82”；</p><p>　　為該窗體添加4個(gè)Text控件。其中Text1用來(lái)輸入用戶名，Text2

107、用來(lái)輸入用戶的原密碼，Text3用來(lái)輸入用戶的新密碼Text4用來(lái)確認(rèn)用戶輸入的新密碼其屬性設(shè)置分別為：</p><p>　　Text1：屬性FontSize為“11”；</p><p>　　屬性Left為“153”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Top為“92”；</p><

108、p>　　屬性Width為“145”；</p><p>　　Text2：屬性PasswordChar為“*”；</p><p>　　屬性FontSize為“11”；</p><p>　　屬性Left為“153”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Top為“128”；<

109、/p><p>　　屬性Width為“145”；</p><p>　　Text3：屬性PasswordChar為“*”；</p><p>　　屬性FontSize為“11”；</p><p>　　屬性Left為“153”；</p><p>　　屬性Height為“25”；</p><p>　　屬性To

110、p為“163”；</p><p>　　屬性Width為“145”；</p><p>　　Text4：屬性PasswordChar為“*”；</p><p>　　屬性FontSize為“11”；</p><p>　　屬性Left為“153”；</p><p>　　屬性Height為“25”；</p><

111、;p>　　屬性Top為“198”；</p><p>　　屬性Width為“145”；</p><p>　　為該窗體添加3個(gè)Command控件，其屬性設(shè)置分別為：</p><p>　　Command1：屬性Caption“確定”；</p><p>　　屬性FontSize為“12”；</p><p>　　屬性Lef

112、t為“49”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Top為“250”；</p><p>　　屬性Width為“60”；</p><p>　　Command2：屬性Caption“取消”；</p><p>　　屬性FontSize為“12”；</p><p>

113、;　　屬性Left為“136”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Top為“250”；</p><p>　　屬性Width為“60”；</p><p>　　Command3：屬性Caption“退出”；</p><p>　　屬性FontSize為“12”；</p>

114、<p>　　屬性Left為“229”；</p><p>　　屬性Height為“25”；</p><p>　　屬性Top為“250”；</p><p>　　屬性Width為“60”；</p><p><b>　　代碼設(shè)計(jì)</b></p><p>　　在Command1的Click事件中

115、添加代碼：</p><p>　　use student\data\userinfo</p><p>　　cx=alltrim(thisform.text1.value)</p><p>　　cy=alltrim(thisform.text2.value)</p><p>　　pwd=alltrim(thisform.text3.value)&

116、lt;/p><p>　　ppp=alltrim(thisform.text4.value)</p><p>　　set order to user_id</p><p><b>　　seek cx</b></p><p>　　if len(cx)=0</p><p>　　cMessageTitle=’

117、專門人才系統(tǒng)’</p><p>　　cMessageText=’請(qǐng)輸入用戶名’</p><p>　　nDialogType=4+32</p><p>　　nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)</p><p><b>　　do case</b>

118、</p><p>　　case nAnswer=6</p><p>　　thisform.text1.value=’’</p><p>　　thisform.text1.setfocus</p><p>　　case nAnswer=7</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p>

119、;<p>　　cMessageText=’不要亂來(lái)’</p><p>　　messagebox(cMessageText,nDialogType,cMessageTitle)</p><p>　　thisform.release</p><p><b>　　endcase</b></p><p><b

120、>　　else</b></p><p>　　if len(cy)=0</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p><p>　　cMessageText=’請(qǐng)輸入密碼’</p><p>　　nDialogType=4+32</p><p>　　nanswer=message

121、box(cMessageText,nDialogType,cMessageTitle)</p><p><b>　　do case</b></p><p>　　case nAnswer=6</p><p>　　thisform.text2.value=’’</p><p>　　thisform.text2.setfocu

122、s</p><p>　　case nAnswer=7</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p><p>　　cMessageText=’不要亂來(lái)’</p><p>　　messagebox(cMessageText,nDialogType,cMessageTitle)</p><p>　

123、　thisform.release</p><p><b>　　endcase</b></p><p><b>　　else</b></p><p>　　if len(pwd)=0</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p><p>　　cMes

124、sageText=’請(qǐng)輸入新密碼’</p><p>　　nDialogType=4+32</p><p>　　nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)</p><p><b>　　do case</b></p><p>　　case nAnswe

125、r=6</p><p>　　thisform.text3.value=’’</p><p>　　thisform.text3.setfocus</p><p>　　case nAnswer=7</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p><p>　　cMessageText=’不要亂來(lái)’&

126、lt;/p><p>　　messagebox(cMessageText,nDialogType,cMessageTitle)</p><p>　　thisform.release</p><p><b>　　endcase</b></p><p><b>　　else</b></p>&l

127、t;p>　　if len(ppp)=0</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p><p>　　cMessageText=’請(qǐng)輸入密碼’</p><p>　　nDialogType=4+32</p><p>　　nanswer=messagebox(cMessageText,nDialogType,cMes

128、sageTitle)</p><p><b>　　do case</b></p><p>　　case nAnswer=6</p><p>　　thisform.text4.value=’’</p><p>　　thisform.text4.setfocus</p><p>　　case nAns

129、wer=7</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p><p>　　cMessageText=’不要亂來(lái)’</p><p>　　messagebox(cMessageText,nDialogType,cMessageTitle)</p><p>　　thisform.release</p><

130、p><b>　　endcase</b></p><p><b>　　else</b></p><p>　　if alltrim(userinfo.user_id)!=cx</p><p>　　cMessageTitle=’專門人才系統(tǒng)’</p><p>　　cMessageText=’用戶名錯(cuò)