中圖分類號：

　密

　級：

　 UDC：

　本校編號：

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

　論文題目：

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

　 小組成員：

　朱麗娟

　李元桃

　周滿紅

　郭統(tǒng)平

　柴志剛

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

　 趙傳成

　職稱：

　講師

　申請學(xué)位等級：

　 專業(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é)對本所做的任何貢獻(xiàn)均已在論文中作了明確的說明并表示了謝意。

　 小組成員簽名：

　簽字日期：

　 年

　 月

　 日

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

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

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

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

　 修改功能

　 高級可視化語言 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ù)庫 ................................................ 2 2.1 數(shù)據(jù)庫需求分析 .......................................... 2 2.2 創(chuàng)建數(shù)據(jù)庫中表的結(jié)構(gòu) .................................... 3 三.設(shè)計(jì)系統(tǒng)結(jié)構(gòu) ............................................... 4 3.1 創(chuàng)建數(shù)據(jù)庫中表的結(jié)構(gòu) .................................... 4 3.2 認(rèn)識系統(tǒng)表單 ............................................ 6 四.各個主要功能模塊的實(shí)現(xiàn) ..................................... 7 4.1 登錄表單 ................................................ 7 4.2 瀏覽表單 ................................................ 8 4.3 增加記錄表單 ........................................... 10 4.4 刪除記錄表單 ........................................... 11 4.5 修改記錄表單 ........................................... 13 4.6 查詢表單 ............................................... 14 五、性能測試與分析 ........................................... 18 六、致謝 ..................................................... 19 七、參考文獻(xiàn) ................................................. 19

　1 引

　言

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

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

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

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

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

　 在確定了本系統(tǒng)的開發(fā)目標(biāo)后，開發(fā)本系統(tǒng)時主要在本系統(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ù)庫維護(hù)功能，能夠及時根據(jù)用戶需求進(jìn)行數(shù)據(jù)添加、刪除和修改等操作。

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

　本系統(tǒng)是用于對老干部成員進(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)老干部的基本信息、老干部參加工作時間、老干部退休時間、老干部退休前職務(wù)、以及老干部政治面貌等信息的錄入。

�。�2）瀏覽功能

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

　（3）查詢功能

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

�。�4）

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

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

　2

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

　 此外，為了保證系統(tǒng)的安全性，在進(jìn)入本系統(tǒng)前必須輸入有效的密碼，以防止他人對數(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ù)庫

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

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

　3

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

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

　 老干部信息表（ lgbxx.xls）

　）

　字段 字段名 數(shù)據(jù)類型 字段大小 1 ID 自動編號 長整型 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 自動編號 長整型 管理員

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

　老干部信息

　 逐個瀏覽 全部瀏覽 單記錄查詢 多記錄查詢

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

　 當(dāng)我們在需求分析、概念結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)上得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)之后，就可以在Microsoft Visual Basic 6.0 中文版 數(shù)據(jù)庫系統(tǒng)中來實(shí)現(xiàn)該邏輯結(jié)構(gòu)了 3.1 1 創(chuàng)建數(shù)據(jù)庫中表的結(jié)構(gòu)

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

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

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

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

　首先打開 Microsoft Access,點(diǎn)擊空數(shù)據(jù)庫，在文件名中輸入數(shù)據(jù)庫名（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ù)庫 Microsoft Access中，user 表的導(dǎo)入與 lgbxx 表完全一致。

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

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

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

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

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

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

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

　7 11 用戶瀏覽 用于瀏覽記錄信息 12 單記錄瀏覽 瀏覽單個記錄信息 13 用戶刪除 刪除所要刪除的用戶信息 14 添加用戶 添加所需用戶信息 15 修改密碼 用于修改登陸密碼

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

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

　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 " 用戶名錯誤！", 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 " 密碼錯誤！", 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 瀏覽表單

　 瀏覽表單分為全部瀏覽表單和逐個瀏覽表單。

　（一）全部瀏覽表單如下圖：

　 MSFlexGrid1

　9

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

�。� 二）逐個瀏覽表單如下：

　 具體實(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("你確定要刪除嗎？", 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 "輸入有誤,請核對", 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("輸入有誤,請核對", 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 " 請輸入查找內(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) = "序號"

　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) = "工作時間" MSFlexGrid1.TextMatrix(i, 8) = "退休時間" MSFlexGrid1.TextMatrix(i, 9) = "退前職務(wù)" MSFlexGrid1.TextMatrix(i, 10) = "身份證號" 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

　五、

　性能測試與分析

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

　19 六、致謝

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

　七、參考文獻(xiàn)

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

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