老干部管理

　中圖分類號(hào)：

　密

　級(jí)：

　 UDC：

　本校編號(hào)：

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

　論文題目：

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

　 小組成員：

　朱麗娟

　李元桃

　周滿紅

　郭統(tǒng)平

　柴志剛

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

　 趙傳成

　職稱：

　講師

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

　 專業(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ā)表或撰寫過的文章，也不包含獲得 蘭州城市學(xué)院 或其他教育機(jī)構(gòu)的學(xué)位或證書而使用過的材料。同組同學(xué)對(duì)本所做的任何貢獻(xiàn)均已在論文中作了明確的說明并表示了謝意。

　 小組成員簽名：

　簽字日期：

　 年

　 月

　 日

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

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

　 小組成員簽名：

　簽字日期：

　年

　月

　日

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

　簽字日期：

　年

　月

　日

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

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

　The

　Manage

　System

　Of

　Retired

　Cadre

　 成 員 姓 名：

　朱麗娟，李元桃，柴志剛

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

　 學(xué)科、專業(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)，開發(fā)了老干部管理系統(tǒng)。本系統(tǒng)實(shí)現(xiàn)了信息錄入功能、瀏覽功能、查詢功能、修改功能、以及數(shù)據(jù)清空等五大模塊。為及時(shí)準(zhǔn)確的更新和管理老干部成員提供了方便。

　關(guā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)開發(fā)思想及功能分析 .................................... 1 1.1 設(shè)計(jì)目標(biāo) ................................................ 1 1.2 開發(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 查詢表單 ............................................... 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)開發(fā)思想及功能分析

　 當(dāng)我們?cè)O(shè)計(jì)一個(gè)實(shí)用系統(tǒng)時(shí)，首先要做的是對(duì)其進(jìn)行需求分析。要明確任務(wù)是什么，要完成的功能是什么，以及客戶的特殊要求是什么，然后對(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 開發(fā)設(shè)計(jì)思想

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

�。�1）

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

　（2）

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

�。�3）

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

�。�4）

　所開發(fā)的系統(tǒng)應(yīng)具備數(shù)據(jù)庫(kù)維護(hù)功能，能夠及時(shí)根據(jù)用戶需求進(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)開發(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）查詢功能

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

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

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

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

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

　3

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

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

　 老干部信息表（ lgbxx.xls）

�。�

　字段 字段名 數(shù)據(jù)類型 字段大小 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 用戶表（ user.xls ）

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

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

　老干部信息

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

　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)中來實(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)是通過 Microsoft Excel 創(chuàng)建表，然后導(dǎo)入到 Microsoft Access,下面是我們具體導(dǎo)入的全過程：

　創(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)入的過程。

　首先打開 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ì)象。而所謂表單，就是指用戶所要接觸的界面，是用戶操作的對(duì)象。用戶對(duì)本系統(tǒng)的使用和管理都是通過表單進(jìn)行的了。因此，我們就可以通過設(shè)置對(duì)象的屬性，編寫程序來處理對(duì)象。表單的設(shè)置和制作在系統(tǒng)中占有重要的地位。

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

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

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

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

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

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

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

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

　4.1 1 登錄表單

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

　 “確定”代碼：

　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 " 用戶名錯(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 查詢表單

　 查詢有單記錄查詢表單和多記錄查詢表單。

�。ㄒ唬�、單記錄查詢表單如下：

　15

　具體實(shí)現(xià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 （二）多記錄查詢表單如下：

　 具體實(shí)現(xià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("沒有找到符合條件的記錄，是否重新查找？", vbYesNo + vbCritical, "查找結(jié)果") If n = vbYes Then Text1.Text = "" Text1.SetFocus Else Unload Me End If End If End Sub

　五、

　性能測(cè)試與分析

　 通過對(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ì)查詢數(shù)據(jù)能夠進(jìn)行嚴(yán)格的驗(yàn)證，數(shù)據(jù)查詢結(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)熱詞搜索：老干部 管理