中圖分類號：

　密

　級：

　 UDC：

　本校編號：

　畢 業(yè) 設 計 論 文

　論文題目：

　老干部管理系統

　 小組成員：

　朱麗娟

　李元桃

　周滿紅

　郭統平

　柴志剛

　學校指導教師姓名：

　 趙傳成

　職稱：

　講師

　申請學位等級：

　 專業(yè)：網絡技術教育 論文提交日期：

　 8 2008 年 年 5 5 月 月 6 16 日

　論文答辯日期：

　獨創(chuàng)性聲明

　本人聲明所呈交的畢業(yè)設計論文是本人在老師指導下進行的系統設計，除了文中特別加以標注和致謝之處外，論文中不包含其他人已經發(fā)表或撰寫過的文章，也不包含獲得 蘭州城市學院 或其他教育機構的學位或證書而使用過的材料。同組同學對本所做的任何貢獻均已在論文中作了明確的說明并表示了謝意。

　 小組成員簽名：

　簽字日期：

　 年

　 月

　 日

　學位論文版權使用授權書

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

　 小組成員簽名：

　簽字日期：

　年

　月

　日

　指導教師簽名：

　簽字日期：

　年

　月

　日

　 畢 畢 業(yè) 設 計 論 文

　 老干部管理系統

　The

　Manage

　System

　Of

　Retired

　Cadre

　 成 員 姓 名：

　朱麗娟，李元桃，柴志剛

　郭統平，周滿紅

　 學科、專業(yè) ：

　網 絡 技 術 教 育

　指 導 教 師：

　 趙 傳 成

　完 成 日 期：

　2008 年 5 月 16 日

　 蘭 州 城 市 學 院 Lanzhou City University

　- I - 摘要

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

　關鍵詞：查詢功能

　 修改功能

　 高級可視化語言 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 一、系統開發(fā)思想及功能分析 .................................... 1 1.1 設計目標 ................................................ 1 1.2 開發(fā)設計思想 ............................................ 1 1.3 需要實現的系統功能 ...................................... 1 1.4 系統功能結構 ............................................ 2 二．定義數據庫 ................................................ 2 2.1 數據庫需求分析 .......................................... 2 2.2 創(chuàng)建數據庫中表的結構 .................................... 3 三.設計系統結構 ............................................... 4 3.1 創(chuàng)建數據庫中表的結構 .................................... 4 3.2 認識系統表單 ............................................ 6 四.各個主要功能模塊的實現 ..................................... 7 4.1 登錄表單 ................................................ 7 4.2 瀏覽表單 ................................................ 8 4.3 增加記錄表單 ........................................... 10 4.4 刪除記錄表單 ........................................... 11 4.5 修改記錄表單 ........................................... 13 4.6 查詢表單 ............................................... 14 五、性能測試與分析 ........................................... 18 六、致謝 ..................................................... 19 七、參考文獻 ................................................. 19

　1 引

　言

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

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

　 當我們設計一個實用系統時，首先要做的是對其進行需求分析。要明確任務是什么，要完成的功能是什么，以及客戶的特殊要求是什么，然后對資料進行研究和分析，為后面的結構設計做好準備。

　1.1 設計目標 本系統設計的主要目標是讓管理人員輕松，快捷，準確的對老干部群體的 進行管理和數據的更新。

　1.2 開發(fā)設計思想

　 在確定了本系統的開發(fā)目標后，開發(fā)本系統時主要在本系統中體現了如下 幾點開發(fā)設計思想：

�。�1）

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

　（2）

　達到操作過程中直觀、方便、實用、安全等要求。

�。�3）

　所開發(fā)的系統應采用模塊化設計方案，這樣既便于系統功能的組合和修改，又便于未參與開發(fā)的技術維護人員的補充、維護。

�。�4）

　所開發(fā)的系統應具備數據庫維護功能，能夠及時根據用戶需求進行數據添加、刪除和修改等操作。

　1.3 需要實現的系統功能

　本系統是用于對老干部成員進行管理的系統，采用了面向對象的設計思想，以菜單和表單的形式進行各表單的調用，其系統功能分析是在系統開發(fā)的總體任務的基礎上完成的。

　因此，本系統應該主要完成和實現如下功能：

　（1）信息錄入功能

　 本系統應實現老干部的基本信息、老干部參加工作時間、老干部退休時間、老干部退休前職務、以及老干部政治面貌等信息的錄入。

�。�2）瀏覽功能

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

�。�3）查詢功能

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

�。�4）

　統計功能

　該功能包括對老干部人數以及基本信息庫存量的統計。

　2

�。�5）數據清空功能

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

　1.4 系統功能結構

　此系統的運行從登錄表單開始，我們可以在這里要求用戶輸入自己的登錄密碼，如果密碼輸入不正確，則無法進如該系統；否則將進入系統并接受用戶操作，在操作完畢后可以從系統菜單中退出系統。本系統的功能結構框架圖如下所示。

　 二． 定義數據庫

　2.1 數據庫需求分析 開始登陸 老 老 干 部 管 理 系 統 統

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

　3

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

　本系統數據庫中的各個表的設計如下圖所示

　 老干部信息表（ lgbxx.xls）

�。�

　字段 字段名 數據類型 字段大小 1 ID 自動編號 長整型 2 xh 數字 雙精度型 3 xm 文本 255 4 xb 文本 255 5 mz 文本 255 6 zzmm 文本 255 7 jg 文本 255 8 csny 文本 255 9 gzsj 數字 雙精度型 10 txsj 數字 雙精度型 11 tqzw 文本 255 12 sfzh 文本 255 用戶表（ user.xls ）

　字段 字段名 數據類型 字段大小 1 ID 郵件列表 ID 自動編號 長整型 管理員

　老干部管理系統 修改密碼 顯示修改信息 瀏覽用戶 顯示添加信息 添加用戶 顯示瀏覽信息 刪除用戶 顯示刪除信息 登錄信息 進入管理系統 增加記錄 顯示增加記錄信息 刪除記錄 顯示刪除記錄信息 修改記錄 顯示修改記錄信息

　老干部信息

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

　4 2 username 文本 50 3 pwd 文本 30 三 . . 設計系統結構

　 當我們在需求分析、概念結構設計的基礎上得到數據庫的邏輯結構之后，就可以在Microsoft Visual Basic 6.0 中文版 數據庫系統中來實現該邏輯結構了 3.1 1 創(chuàng)建數據庫中表的結構

　 數據庫邏輯結構的實現是通過 Microsoft Excel 創(chuàng)建表，然后導入到 Microsoft Access,下面是我們具體導入的全過程：

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

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

　(2）下面，我們將表 lgbxx,user 導入 Microsoft Access 數據庫。下面我們介紹導入的過程。

　首先打開 Microsoft Access,點擊空數據庫，在文件名中輸入數據庫名（shujuku）,如下圖所示：

　 點擊創(chuàng)建，進入如圖所示界面：

　選擇文件—獲取外部數據—導入，選擇預先建的 Excel 表，點擊導入，結果如下圖所示：

　5

　勾選第一行列標題（I），按下一步，進入如圖所示界面：

　 按系統下一步，顯示如圖所示界面：

　6 修改導入到表（I）名為:lgbxx,點擊完成，lgbxx 表成功導入到數據庫 Microsoft Access中，user 表的導入與 lgbxx 表完全一致。

　3.2 2 認識系統表單

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

　在使用表單設計器的時候我們可以作到：

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

　根據系統要求按其功能模塊確定所需設計的表單，每項功能都對應由一個表單或多個表單來實現。

　下表列出了本系統中所涉及到的表單及其功能。

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

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

　四 . . 各個主要功能模塊的實現

　 采用模塊化思想可以大大提高設計的效率，并且可以最大限度的減少系統不必要的錯誤。

　4.1 1 登錄表單

　登錄表單的具體實現過程如下：

　 “確定”代碼：

　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

　運行結果如下 ：

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

　 具體實現代碼如下：

　“上一條”代碼：

　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 增加記錄表單 表單設計如下：

　具體實現代碼如下：

　 “ 添加”代碼：

　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 刪除記錄表單

　 表單設計如下：

　12

　具體實現代碼如下：

　“刪除”代碼：

　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 修改記錄表單

　表單設計如下：

　具體實現代碼如下：

　“ 修改”代碼：

　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, "查找結果" 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

　具體實現代碼如下：

　“查詢”代碼：

　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, "查找結果") 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 （二）多記錄查詢表單如下：

　 具體實現代碼如下：

　 “查詢”代碼：

　 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 " 請輸入查找內容！", 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) = "退前職務" 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, "查找結果") If n = vbYes Then Text1.Text = "" Text1.SetFocus Else Unload Me End If End If End Sub

　五、

　性能測試與分析

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

　19 六、致謝

　本系統是在趙傳成老師的精心指導下完成的，同時，得到了計算機科學教育系各位領導和老師的大力支持，使本系統能夠順利完成。在此，謹向他們一并表示誠摯的謝意！

　七、參考文獻

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

相關熱詞搜索：老干部 管理