中圖分類(lèi)號(hào)：

　密

　級(jí)：

　 UDC：

　本校編號(hào)：

　畢 業(yè) 設(shè) 計(jì) 論 文

　論文題目：

　老干部管理系統(tǒng)

　 小組成員：

　朱麗娟

　李元桃

　周滿(mǎn)紅

　郭統(tǒng)平

　柴志剛

　學(xué)校指導(dǎo)教師姓名：

　 趙傳成

　職稱(chēng)：

　講師

　申請(qǐng)學(xué)位等級(jí)：

　 專(zhuān)業(yè)：網(wǎng)絡(luò)技術(shù)教育 論文提交日期：

　 8 2008 年 年 5 5 月 月 6 16 日

　論文答辯日期：

　獨(dú)創(chuàng)性聲明

　本人聲明所呈交的畢業(yè)設(shè)計(jì)論文是本人在老師指導(dǎo)下進(jìn)行的系統(tǒng)設(shè)計(jì)，除了文中特別加以標(biāo)注和致謝之處外，論文中不包含其他人已經(jīng)發(fā)表或撰寫(xiě)過(guò)的文章，也不包含獲得 蘭州城市學(xué)院 或其他教育機(jī)構(gòu)的學(xué)位或證書(shū)而使用過(guò)的材料。同組同學(xué)對(duì)本所做的任何貢獻(xiàn)均已在論文中作了明確的說(shuō)明并表示了謝意。

　 小組成員簽名：

　簽字日期：

　 年

　 月

　 日

　學(xué)位論文版權(quán)使用授權(quán)書(shū)

　本論文作者完全了解 蘭州城市學(xué)院 有關(guān)保留、使用畢業(yè)論文的規(guī)定。特授權(quán) 蘭州城市學(xué)院 可以將畢業(yè)論文的全部或部分內(nèi)容編入有關(guān)數(shù)據(jù)庫(kù)進(jìn)行檢索，并采用影印、縮印或掃描等復(fù)制手段保存、匯編以供查閱和借閱。同意學(xué)校向國(guó)家有關(guān)部門(mén)或機(jī)構(gòu)送交論文的復(fù)印件和磁盤(pán)。

　 小組成員簽名：

　簽字日期：

　年

　月

　日

　指導(dǎo)教師簽名：

　簽字日期：

　年

　月

　日

　 畢 畢 業(yè) 設(shè) 計(jì) 論 文

　 老干部管理系統(tǒng)

　The

　Manage

　System

　Of

　Retired

　Cadre

　 成 員 姓 名：

　朱麗娟，李元桃，柴志剛

　郭統(tǒng)平，周滿(mǎn)紅

　 學(xué)科、專(zhuān)業(yè) ：

　網(wǎng) 絡(luò) 技 術(shù) 教 育

　指 導(dǎo) 教 師：

　 趙 傳 成

　完 成 日 期：

　2008 年 5 月 16 日

　 蘭 州 城 市 學(xué) 院 Lanzhou City University

　- I - 摘要

　為了對(duì)老干部群體進(jìn)行統(tǒng)計(jì)和管理，基于 Visual Basic6.0 平臺(tái)，開(kāi)發(fā)了老干部管理系統(tǒng)。本系統(tǒng)實(shí)現(xiàn)了信息錄入功能、瀏覽功能、查詢(xún)功能、修改功能、以及數(shù)據(jù)清空等五大模塊。為及時(shí)準(zhǔn)確的更新和管理老干部成員提供了方便。

　關(guān)鍵詞：查詢(xún)功能

　 修改功能

　 高級(jí)可視化語(yǔ)言 Abstract In order to count and manage retired cadre, based on Visual Basic6.0 flat roof, we empolder retired cadre manage system. The system have actualized input communication function 、 brow communication function 、 、 find communication function 、 、 edit communication function and clear communication this five modules. It’s help for you to update and manage retiree exactly and betimes.

　keywords: find communication function ; edit communication function; advanced visual language

　- II - 目

　錄 摘要 .......................................................... I 引

　 言 ....................................................... 1 一、系統(tǒng)開(kāi)發(fā)思想及功能分析 .................................... 1 1.1 設(shè)計(jì)目標(biāo) ................................................ 1 1.2 開(kāi)發(fā)設(shè)計(jì)思想 ............................................ 1 1.3 需要實(shí)現(xiàn)的系統(tǒng)功能 ...................................... 1 1.4 系統(tǒng)功能結(jié)構(gòu) ............................................ 2 二．定義數(shù)據(jù)庫(kù) ................................................ 2 2.1 數(shù)據(jù)庫(kù)需求分析 .......................................... 2 2.2 創(chuàng)建數(shù)據(jù)庫(kù)中表的結(jié)構(gòu) .................................... 3 三.設(shè)計(jì)系統(tǒng)結(jié)構(gòu) ............................................... 4 3.1 創(chuàng)建數(shù)據(jù)庫(kù)中表的結(jié)構(gòu) .................................... 4 3.2 認(rèn)識(shí)系統(tǒng)表單 ............................................ 6 四.各個(gè)主要功能模塊的實(shí)現(xiàn) ..................................... 7 4.1 登錄表單 ................................................ 7 4.2 瀏覽表單 ................................................ 8 4.3 增加記錄表單 ........................................... 10 4.4 刪除記錄表單 ........................................... 11 4.5 修改記錄表單 ........................................... 13 4.6 查詢(xún)表單 ............................................... 14 五、性能測(cè)試與分析 ........................................... 18 六、致謝 ..................................................... 19 七、參考文獻(xiàn) ................................................. 19

　1 引

　言

　“百善孝為先”，尊敬老人是我們中華民族的傳統(tǒng)美德。隨著社會(huì)的發(fā)展和科學(xué)的進(jìn)步，人口老齡化是當(dāng)今社會(huì)發(fā)展的一個(gè)明顯趨勢(shì)，特別是在我們?nèi)丝诒姸嗟膰?guó)家，這種現(xiàn)象尤為突出。及時(shí)全面的統(tǒng)計(jì)老干部的基本情況，然后按照一定的政策法規(guī)熱心的援助他們，真正做到“老有所養(yǎng)”，這樣社會(huì)才能和諧發(fā)展。

　一、 系統(tǒng)開(kāi)發(fā)思想及功能分析

　 當(dāng)我們?cè)O(shè)計(jì)一個(gè)實(shí)用系統(tǒng)時(shí)，首先要做的是對(duì)其進(jìn)行需求分析。要明確任務(wù)是什么，要完成的功能是什么，以及客戶(hù)的特殊要求是什么，然后對(duì)資料進(jìn)行研究和分析，為后面的結(jié)構(gòu)設(shè)計(jì)做好準(zhǔn)備。

　1.1 設(shè)計(jì)目標(biāo) 本系統(tǒng)設(shè)計(jì)的主要目標(biāo)是讓管理人員輕松，快捷，準(zhǔn)確的對(duì)老干部群體的 進(jìn)行管理和數(shù)據(jù)的更新。

　1.2 開(kāi)發(fā)設(shè)計(jì)思想

　 在確定了本系統(tǒng)的開(kāi)發(fā)目標(biāo)后，開(kāi)發(fā)本系統(tǒng)時(shí)主要在本系統(tǒng)中體現(xiàn)了如下 幾點(diǎn)開(kāi)發(fā)設(shè)計(jì)思想：

　（1）

　所開(kāi)發(fā)的老干部管理系統(tǒng)應(yīng)適合老干部群體的基本情況，滿(mǎn)足老干部管理人員的日常管理需求。

�。�2）

　達(dá)到操作過(guò)程中直觀、方便、實(shí)用、安全等要求。

　（3）

　所開(kāi)發(fā)的系統(tǒng)應(yīng)采用模塊化設(shè)計(jì)方案，這樣既便于系統(tǒng)功能的組合和修改，又便于未參與開(kāi)發(fā)的技術(shù)維護(hù)人員的補(bǔ)充、維護(hù)。

�。�4）

　所開(kāi)發(fā)的系統(tǒng)應(yīng)具備數(shù)據(jù)庫(kù)維護(hù)功能，能夠及時(shí)根據(jù)用戶(hù)需求進(jìn)行數(shù)據(jù)添加、刪除和修改等操作。

　1.3 需要實(shí)現(xiàn)的系統(tǒng)功能

　本系統(tǒng)是用于對(duì)老干部成員進(jìn)行管理的系統(tǒng)，采用了面向?qū)ο蟮脑O(shè)計(jì)思想，以菜單和表單的形式進(jìn)行各表單的調(diào)用，其系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成的。

　因此，本系統(tǒng)應(yīng)該主要完成和實(shí)現(xiàn)如下功能：

�。�1）信息錄入功能

　 本系統(tǒng)應(yīng)實(shí)現(xiàn)老干部的基本信息、老干部參加工作時(shí)間、老干部退休時(shí)間、老干部退休前職務(wù)、以及老干部政治面貌等信息的錄入。

�。�2）瀏覽功能

　 該功能包括瀏覽所有老干部登記情況、退休前工資情況、政治面貌，退前職務(wù)等，其中又分為逐個(gè)瀏覽和全部瀏覽。

　（3）查詢(xún)功能

　 該功能包括單記錄查詢(xún)和多記錄查詢(xún)，其中單記錄查詢(xún)中可以根據(jù)姓名和序號(hào)字段進(jìn)行查詢(xún)，多記錄查詢(xún)可以通過(guò)籍貫、退前職務(wù)、工作時(shí)間、政治面貌、姓名、性別等組合查詢(xún)。

　（4）

　統(tǒng)計(jì)功能

　該功能包括對(duì)老干部人數(shù)以及基本信息庫(kù)存量的統(tǒng)計(jì)。

　2

　（5）數(shù)據(jù)清空功能

　 此外，為了保證系統(tǒng)的安全性，在進(jìn)入本系統(tǒng)前必須輸入有效的密碼，以防止他人對(duì)數(shù)據(jù)的篡改，造成不必要的麻煩和損失。

　1.4 系統(tǒng)功能結(jié)構(gòu)

　此系統(tǒng)的運(yùn)行從登錄表單開(kāi)始，我們可以在這里要求用戶(hù)輸入自己的登錄密碼，如果密碼輸入不正確，則無(wú)法進(jìn)如該系統(tǒng)；否則將進(jìn)入系統(tǒng)并接受用戶(hù)操作，在操作完畢后可以從系統(tǒng)菜單中退出系統(tǒng)。本系統(tǒng)的功能結(jié)構(gòu)框架圖如下所示。

　 二． 定義數(shù)據(jù)庫(kù)

　2.1 數(shù)據(jù)庫(kù)需求分析 開(kāi)始登陸 老 老 干 部 管 理 系 統(tǒng) 統(tǒng)

　信息瀏覽 信息查詢(xún) 數(shù)據(jù)維護(hù) 關(guān)于系統(tǒng) 退出系統(tǒng) 逐個(gè)瀏覽 全部瀏覽 添加用戶(hù) 刪除用戶(hù) 用戶(hù)密碼修改 添加記錄 數(shù)據(jù)修改與清除 系統(tǒng)開(kāi)發(fā)說(shuō)名 對(duì)應(yīng)字段 多記錄查詢(xún) 單記錄查詢(xún) 以退休時(shí)間為條件查詢(xún) 以退前職務(wù)為條件查詢(xún) 根據(jù)序號(hào)查詢(xún) 以工作時(shí)間為條件查詢(xún) 以姓名為條件查詢(xún) 以政治面貌為條件查詢(xún) 以序號(hào)為條件查詢(xún) 根據(jù)姓名查詢(xún)

　3

　2.2 創(chuàng)建數(shù)據(jù)庫(kù)中表的結(jié)構(gòu) 由以上分析我們可以知道，本系統(tǒng)共有 2 個(gè)數(shù)據(jù)表組成，分別為：老干部信息表（lgbxx.xls）、用戶(hù)表（user.xls）。

　本系統(tǒng)數(shù)據(jù)庫(kù)中的各個(gè)表的設(shè)計(jì)如下圖所示

　 老干部信息表（ lgbxx.xls）

　）

　字段 字段名 數(shù)據(jù)類(lèi)型 字段大小 1 ID 自動(dòng)編號(hào) 長(zhǎng)整型 2 xh 數(shù)字 雙精度型 3 xm 文本 255 4 xb 文本 255 5 mz 文本 255 6 zzmm 文本 255 7 jg 文本 255 8 csny 文本 255 9 gzsj 數(shù)字 雙精度型 10 txsj 數(shù)字 雙精度型 11 tqzw 文本 255 12 sfzh 文本 255 用戶(hù)表（ user.xls ）

　字段 字段名 數(shù)據(jù)類(lèi)型 字段大小 1 ID 郵件列表 ID 自動(dòng)編號(hào) 長(zhǎng)整型 管理員

　老干部管理系統(tǒng) 修改密碼 顯示修改信息 瀏覽用戶(hù) 顯示添加信息 添加用戶(hù) 顯示瀏覽信息 刪除用戶(hù) 顯示刪除信息 登錄信息 進(jìn)入管理系統(tǒng) 增加記錄 顯示增加記錄信息 刪除記錄 顯示刪除記錄信息 修改記錄 顯示修改記錄信息

　老干部信息

　 逐個(gè)瀏覽 全部瀏覽 單記錄查詢(xún) 多記錄查詢(xún)

　4 2 username 文本 50 3 pwd 文本 30 三 . . 設(shè)計(jì)系統(tǒng)結(jié)構(gòu)

　 當(dāng)我們?cè)谛枨蠓治觥⒏拍罱Y(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)上得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)之后，就可以在Microsoft Visual Basic 6.0 中文版 數(shù)據(jù)庫(kù)系統(tǒng)中來(lái)實(shí)現(xiàn)該邏輯結(jié)構(gòu)了 3.1 1 創(chuàng)建數(shù)據(jù)庫(kù)中表的結(jié)構(gòu)

　 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)的實(shí)現(xiàn)是通過(guò) Microsoft Excel 創(chuàng)建表，然后導(dǎo)入到 Microsoft Access,下面是我們具體導(dǎo)入的全過(guò)程：

　創(chuàng)建表格的操作步驟如下：

　（1）首先，我們需要?jiǎng)?chuàng)建表，名為“lgbxx”、“user”，將其保存在 C:\Documents and Settings\Administrator\桌面\老干部管理系統(tǒng)下。

　(2）下面，我們將表 lgbxx,user 導(dǎo)入 Microsoft Access 數(shù)據(jù)庫(kù)。下面我們介紹導(dǎo)入的過(guò)程。

　首先打開(kāi) Microsoft Access,點(diǎn)擊空數(shù)據(jù)庫(kù)，在文件名中輸入數(shù)據(jù)庫(kù)名（shujuku）,如下圖所示：

　 點(diǎn)擊創(chuàng)建，進(jìn)入如圖所示界面：

　選擇文件—獲取外部數(shù)據(jù)—導(dǎo)入，選擇預(yù)先建的 Excel 表，點(diǎn)擊導(dǎo)入，結(jié)果如下圖所示：

　5

　勾選第一行列標(biāo)題（I），按下一步，進(jìn)入如圖所示界面：

　 按系統(tǒng)下一步，顯示如圖所示界面：

　6 修改導(dǎo)入到表（I）名為:lgbxx,點(diǎn)擊完成，lgbxx 表成功導(dǎo)入到數(shù)據(jù)庫(kù) Microsoft Access中，user 表的導(dǎo)入與 lgbxx 表完全一致。

　3.2 2 認(rèn)識(shí)系統(tǒng)表單

　我們知道，在 Microsoft Visual Basic(設(shè)計(jì))中，表單和控件都是應(yīng)用程序中的對(duì)象。而所謂表單，就是指用戶(hù)所要接觸的界面，是用戶(hù)操作的對(duì)象。用戶(hù)對(duì)本系統(tǒng)的使用和管理都是通過(guò)表單進(jìn)行的了。因此，我們就可以通過(guò)設(shè)置對(duì)象的屬性，編寫(xiě)程序來(lái)處理對(duì)象。表單的設(shè)置和制作在系統(tǒng)中占有重要的地位。

　在使用表單設(shè)計(jì)器的時(shí)候我們可以作到：

　（1）對(duì)各控件的屬性進(jìn)行設(shè)置； （2）向表單中添加控件對(duì)象和類(lèi)； （3）編寫(xiě)程序來(lái)處理對(duì)象。

　根據(jù)系統(tǒng)要求按其功能模塊確定所需設(shè)計(jì)的表單，每項(xiàng)功能都對(duì)應(yīng)由一個(gè)表單或多個(gè)表單來(lái)實(shí)現(xiàn)。

　下表列出了本系統(tǒng)中所涉及到的表單及其功能。

　序號(hào) 文件名稱(chēng) 功能含義 1 主表單 系統(tǒng)主界面 2 登錄 管理員進(jìn)行系統(tǒng)登錄 3 添加記錄 添加所需的記錄信息 4 刪除記錄 刪除不必要的記錄信息 5 全部瀏覽 瀏覽所有記錄信息 6 單記錄查詢(xún) 用于查詢(xún)單個(gè)記錄信息 7 多記錄查詢(xún) 用于查詢(xún)多個(gè)記錄信息 8 修改記錄 用于修改記錄信息 9 字段對(duì)照表 核對(duì)字段名 10 frmSplash 介紹開(kāi)發(fā)環(huán)境和其他信息

　7 11 用戶(hù)瀏覽 用于瀏覽記錄信息 12 單記錄瀏覽 瀏覽單個(gè)記錄信息 13 用戶(hù)刪除 刪除所要?jiǎng)h除的用戶(hù)信息 14 添加用戶(hù) 添加所需用戶(hù)信息 15 修改密碼 用于修改登陸密碼

　四 . . 各個(gè)主要功能模塊的實(shí)現(xiàn)

　 采用模塊化思想可以大大提高設(shè)計(jì)的效率，并且可以最大限度的減少系統(tǒng)不必要的錯(cuò)誤。

　4.1 1 登錄表單

　登錄表單的具體實(shí)現(xiàn)過(guò)程如下：

　 “確定”代碼：

　Private Sub cmdOK_Click() Dim username As String Dim mrc As ADODB.Recordset txtsql = "select username from user where username="" & Trim(txtUserName.Text) & """ Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox " 用戶(hù)名錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" txtUserName.SetFocus txtUserName.SelStart = 0 txtUserName.SelLength = Len(Me.txtUserName.Text) Exit Sub End If

　8 username = mrc.Fields(0) txtsql = "select username from user where pwd="" & Trim(txtPassword.Text) & """ Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox " 密碼錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(Me.txtPassword.Text) Exit Sub End If

　main.Show

　Unload Me End Sub 4.2 2 瀏覽表單

　 瀏覽表單分為全部瀏覽表單和逐個(gè)瀏覽表單。

�。ㄒ唬┤�部瀏覽表單如下圖：

　 MSFlexGrid1

　9

　運(yùn)行結(jié)果如下 ：

　（ 二）逐個(gè)瀏覽表單如下：

　 具體實(shí)現(xiàn)代碼如下：

　“上一條”代碼：

　Private Sub Command1_Click() Command2.Enabled = True

　Data1.Recordset.MovePrevious

　If Data1.Recordset.BOF Then Command1.Enabled = False Data1.Recordset.MoveFirst End If Show Data Data1

　10 End Sub “下一條”代碼：

　 Private Sub Command2_Click() Command1.Enabled = True

　Data1.Recordset.MoveNext If Data1.Recordset.EOF Then

　Command2.Enabled = False Data1.Recordset.MoveLast End If Show Data End Sub “第一條”代碼：

　Private Sub Command4_Click() Data1.Recordset.MoveFirst Show Data End Sub

　 “最后一條”代碼：

　Private Sub Command5_Click() Data1.Recordset.MoveLast Show Data End Sub

　4.3 3 增加記錄表單 表單設(shè)計(jì)如下：

　具體實(shí)現(xiàn)代碼如下：

　 “ 添加”代碼：

　11

　Private Sub Command1_Click() Command2.Enabled = True Data1.Recordset.AddNew For i = 1 To 9 Text1(i).Enabled = True Text1(i).Text = "" Next i

　Combo1.Enabled = True Text1(1).SetFocus Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True End Sub

　“完成”代碼：

　 Private Sub Command2_Click() Data1.Recordset.Update MsgBox "你已成功填加記錄", vbOKOnly, "祝賀你" For i = 0 To 9 Text1(i).Enabled = False Text1(i).Text = "" Next i Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False End Sub

　“取消”代碼：

　Private Sub Command3_Click() Data1.UpdateControls For i = 1 To 9 Text1(i).Enabled = False Text1(i).Text = "" Next i Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False End Sub

　4 4.4 刪除記錄表單

　 表單設(shè)計(jì)如下：

　12

　具體實(shí)現(xiàn)代碼如下：

　“刪除”代碼：

　Private Sub Command4_Click() "on error goto ts Dim ans As Integer ans = MsgBox("你確定要?jiǎng)h除嗎？", vbYesNo, "警告") If ans = vbYes Then Data1.Recordset.Delete If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If End If Data1.Refresh End Sub “上一條”代碼：

　 Private Sub Command1_Click() Command2.Enabled = True Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Command1.Enabled = False Data1.Recordset.MoveFirst End If Show Data End Sub

　“下一條”代碼：

　13

　Private Sub Command2_Click() Command1.Enabled = True Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Command2.Enabled = False Data1.Recordset.MoveLast End If Show Data End Sub 5 4.5 修改記錄表單

　表單設(shè)計(jì)如下：

　具體實(shí)現(xiàn)代碼如下：

　“ 修改”代碼：

　Private Sub Command4_Click() If Text12.Text = "" Then MsgBox "先輸入要修改記錄的姓名!", vbOKOnly, "提示" Text12.SetFocus Else Text1.SetFocus Data1.Recordset.edit Data1.Recordset.Update End If End Sub “取消”代碼：

　Private Sub Command2_Click()

　14 Data1.UpdateControls End Sub “定位”代碼：

　Private Sub Command5_Click() If Text12.Text = "" Then MsgBox "先輸入要修改記錄的姓名!", vbOKOnly, "提示" Text12.SetFocus Exit Sub End If Data1.Recordset.FindFirst "xm="" & Text12.Text & """ If Data1.Recordset.NoMatch Then MsgBox "輸入有誤,請(qǐng)核對(duì)", vbOKOnly, "查找結(jié)果" Text12.Text = "" Text12.SetFocus Exit Sub End If Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Text10.Enabled = True Combo1.Enabled = True Command2.Enabled = True

　End Sub 4.6 6 查詢(xún)表單

　 查詢(xún)有單記錄查詢(xún)表單和多記錄查詢(xún)表單。

�。ㄒ唬�、單記錄查詢(xún)表單如下：

　15

　具體實(shí)現(xiàn)代碼如下：

　“查詢(xún)”代碼：

　Private Sub Commanddan_Click() If Text12.Text = "" Then m = MsgBox("先輸入要查找的信息!", vbOKOnly, "提示") Text12.SetFocus Exit Sub End If Select Case Combo1.ListIndex Case Is = 0 Data1.Recordset.FindFirst "xm="" & Text12.Text & " "" Case Is = 1 Data1.Recordset.FindFirst "xh="" & Text12.Text & " "" End Select Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Text10.Enabled = True Text11.Enabled = True

　16 If Data1.Recordset.NoMatch Then m = MsgBox("輸入有誤,請(qǐng)核對(duì)", vbOKOnly, "查找結(jié)果") Text12.Text = "" Text12.SetFocus Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False End If End Sub （二）多記錄查詢(xún)表單如下：

　 具體實(shí)現(xiàn)代碼如下：

　 “查詢(xún)”代碼：

　 Private Sub Commandduo_Click() Dim str As String Dim i, n As Integer MSFlexGrid1.Clear

　17 Select Case Combo1.ListIndex Case Is = 0

　Set mrc = Nothing mrc.Open "select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where xb= "" & Text1.Text & """, adocon, adOpenDynamic, adLockOptimistic Case Is = 1

　Set mrc = Nothing mrc.Open "select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where mz= "" & Text1.Text & """, adocon, adOpenDynamic, adLockOptimistic Case Is = 2

　Set mrc = Nothing mrc.Open "select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where zzmm= "" & Text1.Text & """, adocon, adOpenDynamic, adLockOptimistic

　Case Is = 3

　Set mrc = Nothing

　mrc.Open "select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where gzsj= "" & Text1.Text & """, adocon, adOpenDynamic, adLockOptimistic Case Is = 4 Set mrc = Nothing mrc.Open "select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where txsj= "" & Text1.Text & """, adocon, adOpenDynamic, adLockOptimistic Case Is = 5 Set mrc = Nothing mrc.Open "select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where tqzw= "" & Text1.Text & """, adocon, adOpenDynamic, adLockOptimistic Case Is = 6 Set mrc = Nothing mrc.Open "select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where jg= "" & Text1.Text & """, adocon, adOpenDynamic, adLockOptimistic End Select If Text1.Text = "" Then MsgBox " 請(qǐng)輸入查找內(nèi)容！", vbExclamation + vbOKOnly, "警告" Text1.SetFocus Exit Sub End If

　If Not mrc.EOF Then MSFlexGrid1.Col = 1 MSFlexGrid1.Sort = flexSortStringAscending MSFlexGrid1.TextMatrix(0, 0) = "序號(hào)"

　18 i = 0 MSFlexGrid1.TextMatrix(i, 1) = "姓名" MSFlexGrid1.TextMatrix(i, 2) = "性別" MSFlexGrid1.TextMatrix(i, 3) = "民族" MSFlexGrid1.TextMatrix(i, 4) = "政治面貌" MSFlexGrid1.TextMatrix(i, 5) = "籍貫" MSFlexGrid1.TextMatrix(i, 6) = "出生年月" MSFlexGrid1.TextMatrix(i, 7) = "工作時(shí)間" MSFlexGrid1.TextMatrix(i, 8) = "退休時(shí)間" MSFlexGrid1.TextMatrix(i, 9) = "退前職務(wù)" MSFlexGrid1.TextMatrix(i, 10) = "身份證號(hào)" While Not mrc.EOF i = i + 1 MSFlexGrid1.TextMatrix(i, 0) = mrc.Fields(0).Value MSFlexGrid1.TextMatrix(i, 1) = mrc.Fields(1).Value MSFlexGrid1.TextMatrix(i, 2) = mrc.Fields(2).Value MSFlexGrid1.TextMatrix(i, 3) = mrc.Fields(3).Value MSFlexGrid1.TextMatrix(i, 4) = mrc.Fields(4).Value MSFlexGrid1.TextMatrix(i, 5) = mrc.Fields(5).Value MSFlexGrid1.TextMatrix(i, 6) = mrc.Fields(6).Value MSFlexGrid1.TextMatrix(i, 7) = mrc.Fields(7).Value MSFlexGrid1.TextMatrix(i, 8) = mrc.Fields(8).Value MSFlexGrid1.TextMatrix(i, 9) = mrc.Fields(9).Value MSFlexGrid1.TextMatrix(i, 10) = mrc.Fields(10).Value mrc.MoveNext Wend Else n = MsgBox("沒(méi)有找到符合條件的記錄，是否重新查找？", vbYesNo + vbCritical, "查找結(jié)果") If n = vbYes Then Text1.Text = "" Text1.SetFocus Else Unload Me End If End If End Sub

　五、

　性能測(cè)試與分析

　 通過(guò)對(duì)各個(gè)模塊的測(cè)試，按照自頂向下、逐步求精的理論進(jìn)行系統(tǒng)測(cè)試，對(duì)各個(gè)模塊的功能進(jìn)行非法操作的調(diào)試與糾錯(cuò)，保證了各個(gè)功能模塊盡可能多的排錯(cuò)，為整個(gè)系統(tǒng)的穩(wěn)定性奠定了堅(jiān)實(shí)的基礎(chǔ)。經(jīng)整體的系統(tǒng)測(cè)試，該系統(tǒng)運(yùn)行穩(wěn)定，使用方便，對(duì)查詢(xún)數(shù)據(jù)能夠進(jìn)行嚴(yán)格的驗(yàn)證，數(shù)據(jù)查詢(xún)結(jié)果準(zhǔn)確，有實(shí)際意義。

　19 六、致謝

　本系統(tǒng)是在趙傳成老師的精心指導(dǎo)下完成的，同時(shí)，得到了計(jì)算機(jī)科學(xué)教育系各位領(lǐng)導(dǎo)和老師的大力支持，使本系統(tǒng)能夠順利完成。在此，謹(jǐn)向他們一并表示誠(chéng)摯的謝意！

　七、參考文獻(xiàn)

　1.曾強(qiáng)聰.Visual Basic 6.0 程序設(shè)計(jì)教程.北京：中國(guó)水利水電出版社.2003 2.梁文健. Visual Basic 6.0 程序設(shè)計(jì)實(shí)訓(xùn)教程.北京：冶金工業(yè)出版社.2006

相關(guān)熱詞搜索：老干部 管理