企業(yè)管理老干部管理

1、中圖分類類號：密密級：UDC： 本本校編號號：畢 業(yè) 設(shè) 計計 論 文論文題目目：老干干部管理理系統(tǒng)小組成員員：朱麗娟娟 李元元桃 周周滿紅 郭統(tǒng)平平 柴志志剛 學(xué)校指導(dǎo)導(dǎo)教師姓姓名： 趙傳傳成 職稱： 講師師申請學(xué)位位等級：專業(yè)：網(wǎng)絡(luò)技技術(shù)教育育論文提交交日期： 20008年年5月116日論論文答辯辯日期：獨創(chuàng)性聲聲明本人聲明明所呈交交的畢業(yè)業(yè)設(shè)計論論文是本本人在老老師指導(dǎo)導(dǎo)下進行行的系統(tǒng)統(tǒng)設(shè)計，除了文文中特別別加以標(biāo)標(biāo)注和致致謝之處處外，論論文中不不包含其其他人已已經(jīng)發(fā)表表或撰寫寫過的文文章，也也不包含含獲得蘭蘭州城市市學(xué)院或或其他教教育機構(gòu)構(gòu)的學(xué)位位或證書書而使用用過的材材料。同同組同學(xué)

2、學(xué)對本所所做的任任何貢獻獻均已在在論文中中作了明明確的說說明并表表示了謝謝意。小組成員員簽名：簽字日期期： 年 月 日學(xué)位論文文版權(quán)使使用授權(quán)權(quán)書本論文作作者完全全了解蘭蘭州城市市學(xué)院有有關(guān)保留留、使用用畢業(yè)論論文的規(guī)規(guī)定。特特授權(quán)蘭蘭州城市市學(xué)院可可以將畢畢業(yè)論文文的全部部或部分分內(nèi)容編編入有關(guān)關(guān)數(shù)據(jù)庫庫進行檢檢索，并并采用影影印、縮縮印或掃掃描等復(fù)復(fù)制手段段保存、匯編以以供查閱閱和借閱閱。同意意學(xué)校向向國家有有關(guān)部門門或機構(gòu)構(gòu)送交論論文的復(fù)復(fù)印件和和磁盤。小組成員員簽名： 簽字日期期： 年年 月 日 指導(dǎo)教師師簽名：簽字日期期： 年年 月 日 畢 業(yè) 設(shè) 計計 論 文老干部管管理系統(tǒng)統(tǒng)Th

3、e Maanagge Sysstemm OOf Rettireed Caddre成 員 姓 名名：朱麗麗娟，李李元桃，柴志剛剛 郭統(tǒng)統(tǒng)平，周周滿紅 學(xué)科、專專業(yè) ： 網(wǎng) 絡(luò) 技技 術(shù) 教 育育 指 導(dǎo) 教 師師： 趙趙 傳 成 完 成 日 期期： 220088 年55月 116日 蘭州城市市學(xué)院LanzzhouuCittyUnniveersiity- PAGE III -摘要為了對老老干部群群體進行行統(tǒng)計和和管理，基于VVisuual Bassic66.0平平臺，開開發(fā)了老老干部管管理系統(tǒng)統(tǒng)。本系系統(tǒng)實現(xiàn)現(xiàn)了信息息錄入功功能、瀏瀏覽功能能、查詢詢功能、修改功功能、以以及數(shù)據(jù)據(jù)清空等等五大模模塊

4、。為為及時準(zhǔn)準(zhǔn)確的更更新和管管理老干干部成員員提供了了方便。關(guān)鍵詞：查詢功功能 修改改功能 高高級可視視化語言言AbsttracctIn oordeer tto ccounnt aand mannagee reetirred caddre, baasedd onn Viisuaal BBasiic6.0 fflatt rooof,we emppoldder rettireed ccadrre mmanaage sysstemm. TThe sysstemm haave acttuallizeed iinpuut ccommmuniicattionn fuuncttionn、broow ccom

5、mmuniicattionn fuuncttionn、fiind commmunnicaatioon ffuncctioon、eeditt coommuuniccatiion funnctiion andd cllearr coommuuniccatiion thiis ffivee moodulles. Its hhelpp foor yyou to upddatee annd mmanaage rettireee eexacctlyy annd bbetiimess.keywwordds:ffindd coommuuniccatiion funnctiion ; eeditt coommu

6、uniccatiion funnctiion; addvanncedd viisuaal llangguagge目 錄TOC o 1-3 h z u HYPERLINK l _Toc199993244 摘要 PAGEREF _Toc199993244 h I HYPERLINK l _Toc199993245 引言 PAGEREF _Toc199993245 h1 HYPERLINK l _Toc199993246 一、系統(tǒng)統(tǒng)開發(fā)思思想及功功能分析析 PAGEREF _Toc199993246 h 1 HYPERLINK l _Toc199993247 1.1設(shè)設(shè)計目標(biāo)標(biāo) PAGEREF _T

7、oc199993247 h 1 HYPERLINK l _Toc199993248 1.2開開發(fā)設(shè)計計思想 PAGEREF _Toc199993248 h 11 HYPERLINK l _Toc199993249 1.3需需要實現(xiàn)現(xiàn)的系統(tǒng)統(tǒng)功能 PAGEREF _Toc199993249 h 11 HYPERLINK l _Toc199993250 1.4系系統(tǒng)功能能結(jié)構(gòu) PAGEREF _Toc199993250 h 22 HYPERLINK l _Toc199993251 二定義義數(shù)據(jù)庫庫 PAGEREF _Toc199993251 h 2 HYPERLINK l _Toc19999325

8、2 2.1數(shù)數(shù)據(jù)庫需需求分析析PAGEREF _Toc199993252 h 2 HYPERLINK l _Toc199993253 2.2創(chuàng)創(chuàng)建數(shù)據(jù)據(jù)庫中表表的結(jié)構(gòu)構(gòu) PAGEREF _Toc199993253 h 3 HYPERLINK l _Toc199993254 三.設(shè)計計系統(tǒng)結(jié)結(jié)構(gòu) PAGEREF _Toc199993254 h 4 HYPERLINK l _Toc199993255 3.1創(chuàng)創(chuàng)建數(shù)據(jù)據(jù)庫中表表的結(jié)構(gòu)構(gòu) PAGEREF _Toc199993255 h 4 HYPERLINK l _Toc199993256 3.2認(rèn)認(rèn)識系統(tǒng)統(tǒng)表單 PAGEREF _Toc199993

9、256 h 66 HYPERLINK l _Toc199993257 四.各個個主要功功能模塊塊的實現(xiàn)現(xiàn) PAGEREF _Toc199993257 h 7 HYPERLINK l _Toc199993258 4.1登登錄表單單 PAGEREF _Toc199993258 h 7 HYPERLINK l _Toc199993259 4.2瀏瀏覽表單單 PAGEREF _Toc199993259 h 8 HYPERLINK l _Toc199993260 4.3增增加記錄錄表單 PAGEREF _Toc199993260 h 110 HYPERLINK l _Toc199993261 4.4刪刪

10、除記錄錄表單 PAGEREF _Toc199993261 h 111 HYPERLINK l _Toc199993262 4.5修修改記錄錄表單 PAGEREF _Toc199993262 h 113 HYPERLINK l _Toc199993263 4.6查查詢表單單 PAGEREF _Toc199993263 h 14 HYPERLINK l _Toc199993264 五、性能能測試與與分析 PAGEREF _Toc199993264 h 118 HYPERLINK l _Toc199993265 六、致謝謝 PAGEREF _Toc199993265 h 19 HYPERLINK l

11、 _Toc199993266 七、參考考文獻 PAGEREF _Toc199993266 h 119PAGE PAGE 23引言“百善孝孝為先”，尊敬敬老人是是我們中中華民族族的傳統(tǒng)統(tǒng)美德。隨著社社會的發(fā)發(fā)展和科科學(xué)的進進步，人人口老齡齡化是當(dāng)當(dāng)今社會會發(fā)展的的一個明明顯趨勢勢，特別別是在我我們?nèi)丝诳诒姸嗟牡膰遥@種現(xiàn)現(xiàn)象尤為為突出。及時全全面的統(tǒng)統(tǒng)計老干干部的基基本情況況，然后后按照一一定的政政策法規(guī)規(guī)熱心的的援助他他們，真真正做到到“老有所所養(yǎng)”，這樣樣社會才才能和諧諧發(fā)展。一、系統(tǒng)統(tǒng)開發(fā)思思想及功功能分析析當(dāng)我們設(shè)設(shè)計一個個實用系系統(tǒng)時，首先要要做的是是對其進進行需求求分析。要明確確任

12、務(wù)是是什么，要完成成的功能能是什么么，以及及客戶的的特殊要要求是什什么，然然后對資資料進行行研究和和分析，為后面面的結(jié)構(gòu)構(gòu)設(shè)計做做好準(zhǔn)備備。1.1設(shè)設(shè)計目標(biāo)標(biāo)本系統(tǒng)設(shè)設(shè)計的主主要目標(biāo)標(biāo)是讓管管理人員員輕松，快捷，準(zhǔn)確的的對老干干部群體體的進行管理理和數(shù)據(jù)據(jù)的更新新。1.2開開發(fā)設(shè)計計思想 在確確定了本本系統(tǒng)的的開發(fā)目目標(biāo)后，開發(fā)本本系統(tǒng)時時主要在在本系統(tǒng)統(tǒng)中體現(xiàn)現(xiàn)了如下下幾點開發(fā)發(fā)設(shè)計思思想：所開發(fā)的的老干部部管理系系統(tǒng)應(yīng)適適合老干干部群體體的基本本情況，滿足老老干部管管理人員員的日常常管理需需求。達到操作作過程中中直觀、方便、實用、安全等等要求。所開發(fā)的的系統(tǒng)應(yīng)應(yīng)采用模模塊化設(shè)設(shè)計方案案，這

13、樣樣既便于于系統(tǒng)功功能的組組合和修修改，又又便于未未參與開開發(fā)的技技術(shù)維護護人員的的補充、維護。所開發(fā)的的系統(tǒng)應(yīng)應(yīng)具備數(shù)數(shù)據(jù)庫維維護功能能，能夠夠及時根根據(jù)用戶戶需求進進行數(shù)據(jù)據(jù)添加、刪除和和修改等等操作。1.3需需要實現(xiàn)現(xiàn)的系統(tǒng)統(tǒng)功能本系統(tǒng)是是用于對對老干部部成員進進行管理理的系統(tǒng)統(tǒng)，采用用了面向向?qū)ο蟮牡脑O(shè)計思思想，以以菜單和和表單的的形式進進行各表表單的調(diào)調(diào)用，其其系統(tǒng)功功能分析析是在系系統(tǒng)開發(fā)發(fā)的總體體任務(wù)的的基礎(chǔ)上上完成的的。 因此此，本系系統(tǒng)應(yīng)該該主要完完成和實實現(xiàn)如下下功能： （11）信息息錄入功功能 本本系統(tǒng)應(yīng)應(yīng)實現(xiàn)老老干部的的基本信信息、老老干部參參加工作作時間、老干部部退休

14、時時間、老老干部退退休前職職務(wù)、以以及老干干部政治治面貌等等信息的的錄入。 （22）瀏覽覽功能 該該功能包包括瀏覽覽所有老老干部登登記情況況、退休休前工資資情況、政治面面貌，退退前職務(wù)務(wù)等，其其中又分分為逐個個瀏覽和和全部瀏瀏覽。 （33）查詢詢功能 該該功能包包括單記記錄查詢詢和多記記錄查詢詢，其中中單記錄錄查詢中中可以根根據(jù)姓名名和序號號字段進進行查詢詢，多記記錄查詢詢可以通通過籍貫貫、退前前職務(wù)、工作時時間、政政治面貌貌、姓名名、性別別等組合合查詢。（4） 統(tǒng)計功功能 該功功能包括括對老干干部人數(shù)數(shù)以及基基本信息息庫存量量的統(tǒng)計計。 （5）數(shù)數(shù)據(jù)清空空功能此外，為為了保證證系統(tǒng)的的安全性

15、性，在進進入本系系統(tǒng)前必必須輸入入有效的的密碼，以防止止他人對對數(shù)據(jù)的的篡改，造成不不必要的的麻煩和和損失。1.4系系統(tǒng)功能能結(jié)構(gòu)此系統(tǒng)的的運行從從登錄表表單開始始，我們們可以在在這里要要求用戶戶輸入自自己的登登錄密碼碼，如果果密碼輸輸入不正正確，則則無法進進如該系系統(tǒng)；否否則將進進入系統(tǒng)統(tǒng)并接受受用戶操操作，在在操作完完畢后可可以從系系統(tǒng)菜單單中退出出系統(tǒng)。本系統(tǒng)統(tǒng)的功能能結(jié)構(gòu)框框架圖如如下所示示。開始登陸老 干 部 管 理 系 統(tǒng)信息瀏覽信息查詢數(shù)據(jù)維護關(guān)于系統(tǒng)退出系統(tǒng)逐個瀏覽全部瀏覽添加用戶刪除用戶用戶密碼修改添加記錄數(shù)據(jù)修改與清除系統(tǒng)開發(fā)說名對應(yīng)字段多記錄查詢單記錄查詢以退休時間為條件

16、查詢以退前職務(wù)為條件查詢根據(jù)序號查詢以工作時間為條件查詢以姓名為條件查詢以政治面貌為條件查詢以序號為條件查詢根據(jù)姓名查詢二定義義數(shù)據(jù)庫庫2.1數(shù)數(shù)據(jù)庫需需求分析析管理員 老干部管理系統(tǒng)修改密碼顯示修改信息瀏覽用戶顯示添加信息添加用戶顯示瀏覽信息刪除用戶顯示刪除信息登錄信息進入管理系統(tǒng)增加記錄顯示增加記錄信息刪除記錄顯示刪除記錄信息修改記錄顯示修改記錄信息老干部信息 逐個瀏覽全部瀏覽單記錄查詢多記錄查詢2.2創(chuàng)創(chuàng)建數(shù)據(jù)據(jù)庫中表表的結(jié)構(gòu)構(gòu)由以上分分析我們們可以知知道，本本系統(tǒng)共共有2個數(shù)據(jù)據(jù)表組成成，分別別為：老老干部信信息表（lgbbxx.xlss）、用用戶表（useer.xxls）。本系統(tǒng)數(shù)數(shù)

17、據(jù)庫中中的各個個表的設(shè)設(shè)計如下下圖所示示老干部信信息表（lgbbxx.xlss）字段字段名數(shù)據(jù)類型型字段大小小1ID自動編號號長整型2xh數(shù)字雙精度型型3xm文本2554xb文本2555mz文本2556zzmmm文本2557jg文本2558csnyy文本2559gzsjj數(shù)字雙精度型型10txsjj數(shù)字雙精度型型11tqzww文本25512sfzhh文本255用戶表（useer.xxls）字段字段名數(shù)據(jù)類型型字段大小小1ID郵件件列表IID自動編號號長整型2userrnamme文本503pwd文本30三.設(shè)計計系統(tǒng)結(jié)結(jié)構(gòu)當(dāng)我們在在需求分分析、概概念結(jié)構(gòu)構(gòu)設(shè)計的的基礎(chǔ)上上得到數(shù)數(shù)據(jù)庫的的邏輯結(jié)結(jié)

18、構(gòu)之后后，就可可以在MMicrrosooft Vissuall Baasicc 6.0中文文版 數(shù)數(shù)據(jù)庫系系統(tǒng)中來來實現(xiàn)該該邏輯結(jié)結(jié)構(gòu)了3.1創(chuàng)創(chuàng)建數(shù)據(jù)據(jù)庫中表表的結(jié)構(gòu)構(gòu)數(shù)據(jù)庫邏邏輯結(jié)構(gòu)構(gòu)的實現(xiàn)現(xiàn)是通過過 Miicroosofft EExceel 創(chuàng)創(chuàng)建表，然后導(dǎo)導(dǎo)入到MMicrrosooft Acccesss,下面面是我們們具體導(dǎo)導(dǎo)入的全全過程：創(chuàng)建表格格的操作作步驟如如下：（1）首首先，我我們需要要創(chuàng)建表表，名為為“l(fā)gbbxx”、“useer”，將其其保存在在C:Doccumeentss annd SSetttinggsAAdmiinisstraatorr桌面面老干干部管理理系統(tǒng)下下。

19、(2）下下面，我我們將表表lgbbxx,useer導(dǎo)入入Miccrossoftt Acccesss 數(shù)數(shù)據(jù)庫。下面我我們介紹紹導(dǎo)入的的過程。首先打開開Miccrossoftt Acccesss,點點擊空數(shù)數(shù)據(jù)庫，在文件件名中輸輸入數(shù)據(jù)據(jù)庫名（shuujukku）,如下圖圖所示： 點擊創(chuàng)建建，進入入如圖所所示界面面：選擇文件件獲取外外部數(shù)據(jù)據(jù)導(dǎo)入，選擇預(yù)預(yù)先建的的Exccel表表，點擊擊導(dǎo)入，結(jié)果如如下圖所所示：勾選第一一行列標(biāo)標(biāo)題（= 1 * ROMANII），按按下一步步，進入入如圖所所示界面面：按系統(tǒng)下下一步，顯示如如圖所示示界面：修改導(dǎo)入入到表（= 1 * ROMANI）名為為:lggb

20、xxx,點擊擊完成，lgbbxx表表成功導(dǎo)導(dǎo)入到數(shù)數(shù)據(jù)庫MMicrrosooft Acccesss中，uuserr表的導(dǎo)導(dǎo)入與llgbxxx表完完全一致致。3.2認(rèn)認(rèn)識系統(tǒng)統(tǒng)表單我們知道道，在MMicrrosooft Vissuall Baasicc(設(shè)計計)中，表單和和控件都都是應(yīng)用用程序中中的對象象。而所所謂表單單，就是是指用戶戶所要接接觸的界界面，是是用戶操作作的對象象。用戶戶對本系系統(tǒng)的使使用和管管理都是是通過表表單進行行的了。因此，我們就就可以通通過設(shè)置置對象的的屬性，編寫程程序來處處理對象象。表單單的設(shè)置置和制作作在系統(tǒng)統(tǒng)中占有有重要的的地位。在使用表表單設(shè)計計器的時時候我們們可以

21、作作到：（1）對對各控件件的屬性性進行設(shè)設(shè)置；（2）向向表單中中添加控控件對象象和類；（3）編編寫程序序來處理理對象。根據(jù)系統(tǒng)統(tǒng)要求按按其功能能模塊確確定所需需設(shè)計的的表單，每項功功能都對對應(yīng)由一一個表單單或多個個表單來來實現(xiàn)。下表列出出了本系系統(tǒng)中所所涉及到到的表單單及其功功能。序號文件名稱稱功能含義義1主表單系統(tǒng)主界界面2登錄管理員進進行系統(tǒng)統(tǒng)登錄3添加記錄錄添加所需需的記錄錄信息4刪除記錄錄刪除不必必要的記記錄信息息5全部瀏覽覽瀏覽所有有記錄信信息6單記錄查查詢用于查詢詢單個記記錄信息息7多記錄查查詢用于查詢詢多個記記錄信息息8修改記錄錄用于修改改記錄信信息9字段對照照表核對字段段名10

22、frmSSplaash介紹開發(fā)發(fā)環(huán)境和和其他信信息11用戶瀏覽覽用于瀏覽覽記錄信信息12單記錄瀏瀏覽瀏覽單個個記錄信信息13用戶刪除除刪除所要要刪除的的用戶信信息14添加用戶戶添加所需需用戶信信息15修改密碼碼用于修改改登陸密密碼四.各個個主要功功能模塊塊的實現(xiàn)現(xiàn)采用模塊塊化思想想可以大大大提高高設(shè)計的的效率，并且可可以最大大限度的的減少系系統(tǒng)不必必要的錯錯誤。4.1登登錄表單單登錄表單單的具體體實現(xiàn)過過程如下下：“確定”代碼：Privvatee Suub ccmdOOK_CClicck()Dim useernaame As StrringgDim mrcc Ass ADDODBB.Reeco

23、rrdseettxtssql = sellectt ussernnamee frrom useer wwherre uuserrnamme= & Trrim(txttUseerNaame.Texxt) & Set mrcc = ExeecutteSQQL(ttxtssql)If mmrc.EOFF = Truue TThennMsgBBox 用用戶名錯錯誤！, vvbExxclaamattionn + vbOOKOnnly, 警警告txtUUserrNamme.SSetFFocuustxtUUserrNamme.SSelSStarrt = 0txtUUserrNamme.SSelLLenggt

24、h = LLen(Me.txttUseerNaame.Texxt)Exitt SuubEnd Ifuserrnamme = mrrc.FFiellds(0)txtssql = sellectt ussernnamee frrom useer wwherre ppwd= & TTrimm(txxtPaasswwordd.Teext) & Set mrcc = ExeecutteSQQL(ttxtssql)If mmrc.EOFF = Truue TThennMsgBBox 密密碼錯誤誤！, vbbExcclammatiion + vvbOKKOnlly, 警告告txtPPasssworrd.SS

25、etFFocuustxtPPasssworrd.SSelSStarrt = 0txtPPasssworrd.SSelLLenggth = LLen(Me.txttPassswoord.Texxt)Exitt SuubEnd If maiin.SShoww UUnlooad MeEnd Subb4.2瀏瀏覽表單單 瀏瀏覽表單單分為全全部瀏覽覽表單和和逐個瀏瀏覽表單單。（一）全全部瀏覽覽表單如如下圖：MSFlexGrid1運行結(jié)果果如下：（二）逐逐個瀏覽覽表單如如下：Data1具體實現(xiàn)現(xiàn)代碼如如下：“上一條條”代碼： Privvatee Suub CCommmandd1_CClicck()Comm

26、mandd2.EEnabbledd = TruueDataa1.RRecoordsset.MovvePrreviioussIf DDataa1.RRecoordsset.BOFF ThhenCommmandd1.EEnabbledd = FallseDataa1.RRecoordsset.MovveFiirsttEnd IfShoww DaataEnd Subb“下一條條”代碼： Privvatee Suub CCommmandd2_CClicck()Commmandd1.EEnabbledd = TruueDataa1.RRecoordsset.MovveNeextIf DDataa1.RR

27、ecoordsset.EOFF ThhenCommmandd2.EEnabbledd = FallseDataa1.RRecoordsset.MovveLaastEnd IfShoww DaataEnd Subb“第一條條”代碼：Privvatee Suub CCommmandd4_CClicck()Dataa1.RRecoordsset.MovveFiirsttShoww DaataEnd Subb“最后一一條”代碼：Privvatee Suub CCommmandd5_CClicck()Dataa1.RRecoordsset.MovveLaastShoww DaataEnd Subb4.3

28、增增加記錄錄表單表單設(shè)計計如下：具體實現(xiàn)現(xiàn)代碼如如下：“ 添加加”代碼：Privvatee Suub CCommmandd1_CClicck()Commmandd2.EEnabbledd = TruueDataa1.RRecoordsset.AdddNewwFor i = 1 To 9Textt1(ii).EEnabbledd = TruueTextt1(ii).TTextt = Nextt iCombbo1.Enaableed = TrrueTextt1(11).SSetFFocuusCommmandd1.EEnabbledd = FallseCommmandd2.EEnabbledd =

29、TruueCommmandd3.EEnabbledd = TruueEnd Subb“完成”代碼：Privvatee Suub CCommmandd2_CClicck()Dataa1.RRecoordsset.UpddateeMsgBBox 你已已成功填填加記錄錄, vbOOKOnnly, 祝祝賀你For i = 0 To 9Textt1(ii).EEnabbledd = FallseTextt1(ii).TTextt = Nextt iCommmandd1.EEnabbledd = TruueCommmandd2.EEnabbledd = FallseCommmandd3.EEnabbled

30、d = FallseEnd Subb“取消”代碼：Privvatee Suub CCommmandd3_CClicck()Dataa1.UUpdaateCConttrollsFor i = 1 To 9Textt1(ii).EEnabbledd = FallseTextt1(ii).TTextt = Nextt iCommmandd1.EEnabbledd = TruueCommmandd2.EEnabbledd = FallseCommmandd3.EEnabbledd = FallseEnd Subb4.4刪刪除記錄錄表單 表單單設(shè)計如如下：具體實現(xiàn)現(xiàn)代碼如如下：“刪除”代碼：Privva

31、tee Suub CCommmandd4_CClicck()on errror gotto ttsDim anss Ass Innteggerans = MMsgBBox(你確確定要刪刪除嗎？, vbYYesNNo, 警告告)If aans = vvbYees TThennDataa1.RRecoordsset.DelleteeIf DDataa1.RRecoordsset.EOFF ThhenDataa1.RRecoordsset.MovveLaastEnd IfEnd IfDataa1.RRefrreshhEnd Subb“上一條條”代碼：Privvatee Suub CCommmandd

32、1_CClicck()Commmandd2.EEnabbledd = TruueDataa1.RRecoordsset.MovvePrreviioussIf DDataa1.RRecoordsset.BOFF ThhenCommmandd1.EEnabbledd = FallseDataa1.RRecoordsset.MovveFiirsttEnd IfShoww DaataEnd Subb“下一條條”代碼：Privvatee Suub CCommmandd2_CClicck()Commmandd1.EEnabbledd = TruueDataa1.RRecoordsset.MovveNeex

33、tIf DDataa1.RRecoordsset.EOFF ThhenCommmandd2.EEnabbledd = FallseDataa1.RRecoordsset.MovveLaastEnd IfShoww DaataEnd Subb4.5修修改記錄錄表單 表表單設(shè)計計如下：具體實現(xiàn)現(xiàn)代碼如如下：“ 修改改”代碼：Privvatee Suub CCommmandd4_CClicck()If TTextt12.Texxt = ThhenMsgBBox 先輸輸入要修修改記錄錄的姓名名!, vbbOKOOnlyy, 提示Textt12.SettFoccusElseeTextt1.SSetFFo

34、cuusDataa1.RRecoordsset.ediitDataa1.RRecoordsset.UpddateeEnd IfEnd Subb“取消”代碼：Privvatee Suub CCommmandd2_CClicck()Dataa1.UUpdaateCConttrollsEnd Subb“定位”代碼：Privvatee Suub CCommmandd5_CClicck()If TTextt12.Texxt = ThhenMsgBBox 先輸輸入要修修改記錄錄的姓名名!, vbbOKOOnlyy, 提示Textt12.SettFoccusExitt SuubEnd IfDataa1.RR

35、ecoordsset.FinndFiirstt xxm= & Teext112.TTextt & If DDataa1.RRecoordsset.NoMMatcch TThennMsgBBox 輸入入有誤,請核對對, vbOOKOnnly, 查查找結(jié)果果Textt12.Texxt = Textt12.SettFoccusExitt SuubEnd IfTextt1.EEnabbledd = TruueTextt2.EEnabbledd = TruueTextt3.EEnabbledd = TruueTextt4.EEnabbledd = TruueTextt5.EEnabbledd = Tru

36、ueTextt6.EEnabbledd = TruueTextt7.EEnabbledd = TruueTextt8.EEnabbledd = TruueTextt9.EEnabbledd = TruueTextt10.Enaableed = TrrueCombbo1.Enaableed = TrrueCommmandd2.EEnabbledd = Truue Endd Suub4.6查查詢表單單查詢有單單記錄查查詢表單單和多記記錄查詢詢表單。 （一）、單記記錄查詢詢表單如如下：具體實現(xiàn)現(xiàn)代碼如如下：“查詢”代碼：Privvatee Suub CCommmandddann_Cllickk()I

37、f TTextt12.Texxt = Thhenm = MsggBoxx(先先輸入要要查找的的信息!, vbOOKOnnly, 提提示)Textt12.SettFoccusExitt SuubEnd IfSeleect Casse CCombbo1.LisstInndexxCasee Iss = 0Dataa1.RRecoordsset.FinndFiirstt xxm= & Teext112.TTextt & Casee Iss = 1Dataa1.RRecoordsset.FinndFiirstt xxh= & Teext112.TTextt & End SellecttTextt1.EE

38、nabbledd = TruueTextt2.EEnabbledd = TruueTextt3.EEnabbledd = TruueTextt4.EEnabbledd = TruueTextt5.EEnabbledd = TruueTextt6.EEnabbledd = TruueTextt7.EEnabbledd = TruueTextt8.EEnabbledd = TruueTextt9.EEnabbledd = TruueTextt10.Enaableed = TrrueTextt11.Enaableed = TrrueIf DDataa1.RRecoordsset.NoMMatcch

39、TThennm = MsggBoxx(輸輸入有誤誤,請核核對, vbbOKOOnlyy, 查找結(jié)結(jié)果)Textt12.Texxt = Textt12.SettFoccusTextt1.EEnabbledd = FallseTextt2.EEnabbledd = FallseTextt3.EEnabbledd = FallseTextt4.EEnabbledd = FallseTextt5.EEnabbledd = FallseTextt6.EEnabbledd = FallseTextt7.EEnabbledd = FallseTextt8.EEnabbledd = FallseTextt9.

40、EEnabbledd = FallseTextt10.Enaableed = FaalseeTextt11.Enaableed = FaalseeEnd IfEnd Subb（二）多多記錄查查詢表單單如下：具體實現(xiàn)現(xiàn)代碼如如下：“查詢”代碼：Privvatee Suub CCommmanddduoo_Cllickk()Dim strr Ass SttrinngDim i, n AAs IInteegerrMSFllexGGridd1.CCleaarSeleect Casse CCombbo1.LisstInndexxCasee Iss = 0Set mrcc = Notthinngmrc.Op

41、een sellectt xhh,xmm,xbb,mzz,zzzmm,jg,csnny,ggzsjj,txxsj,tqzzw,ssfzhh frrom lgbbxx wheere xb= & Texxt1.Texxt & , adooconn, aadOppenDDynaamicc, aadLoockOOptiimissticcCasee Iss = 1Set mrcc = Notthinngmrc.Opeen sellectt xhh,xmm,xbb,mzz,zzzmm,jg,csnny,ggzsjj,txxsj,tqzzw,ssfzhh frrom lgbbxx wheere mz= &

42、Texxt1.Texxt & , adooconn, aadOppenDDynaamicc, aadLoockOOptiimissticcCasee Iss = 2Set mrcc = Notthinngmrc.Opeen sellectt xhh,xmm,xbb,mzz,zzzmm,jg,csnny,ggzsjj,txxsj,tqzzw,ssfzhh frrom lgbbxx wheere zzmmm= & TTextt1.TTextt & , aadoccon, addOpeenDyynammic, addLocckOpptimmisttic Casse IIs = 3 Sett mrrc

43、 = Noothiing mrcc.Oppen seelecct xxh,xxm,xxb,mmz,zzzmmm,jgg,cssny,gzssj,ttxsjj,tqqzw,sfzzh ffromm lggbxxx whheree gzzsj= & Texxt1.Texxt & , adooconn, aadOppenDDynaamicc, aadLoockOOptiimissticcCasee Iss = 4Set mrcc = Notthinngmrc.Opeen sellectt xhh,xmm,xbb,mzz,zzzmm,jg,csnny,ggzsjj,txxsj,tqzzw,ssfzhh

44、 frrom lgbbxx wheere txssj= & TTextt1.TTextt & , aadoccon, addOpeenDyynammic, addLocckOpptimmistticCasee Iss = 5Set mrcc = Notthinngmrc.Opeen sellectt xhh,xmm,xbb,mzz,zzzmm,jg,csnny,ggzsjj,txxsj,tqzzw,ssfzhh frrom lgbbxx wheere tqzzw= & TTextt1.TTextt & , aadoccon, addOpeenDyynammic, addLocckOpptimm

45、istticCasee Iss = 6Set mrcc = Notthinngmrc.Opeen sellectt xhh,xmm,xbb,mzz,zzzmm,jg,csnny,ggzsjj,txxsj,tqzzw,ssfzhh frrom lgbbxx wheere jg= & Texxt1.Texxt & , adooconn, aadOppenDDynaamicc, aadLoockOOptiimissticcEnd SellecttIf TTextt1.TTextt = TheenMsgBBox 請請輸入查查找內(nèi)容容！, vbbExcclammatiion + vvbOKKOnlly,

46、 警告告Textt1.SSetFFocuusExitt SuubEnd IfIf NNot mrcc.EOOF TThennMSFllexGGridd1.CCol = 11MSFllexGGridd1.SSortt = fleexSoortSStriingAAsceendiingMSFllexGGridd1.TTexttMattrixx(0, 0) = 序號號i = 0MSFllexGGridd1.TTexttMattrixx(i, 1) = 姓名名MSFllexGGridd1.TTexttMattrixx(i, 2) = 性別別MSFllexGGridd1.TTexttMattrixx(i, 3) = 民族族MSFllexGGridd1.TTexttMattrixx(i, 4) = 政治治面貌MSFllexGGridd1.TTexttMattrixx(i, 5) = 籍貫貫MSFllexGG