老干部管理

　中图分类号：

　密

　级：

　 UDC：

　本校编号：

　毕 业 设 计 论 文

　论文题目：

　老干部管理系统

　 小组成员：

　朱丽娟

　李元桃

　周满红

　郭统平

　柴志刚

　学校指导教师姓名：

　 赵传成

　职称：

　讲师

　申请学位等级：

　 专业：网络技术教育 论文提交日期：

　 8 2008 年 年 5 5 月 月 6 16 日

　论文答辩日期：

　独创性声明

　本人声明所呈交的毕业设计论文是本人在老师指导下进行的系统设计，除了文中特别加以标注和致谢之处外，论文中不包含其他人已经发表或撰写过的文章，也不包含获得 兰州城市学院 或其他教育机构的学位或证书而使用过的材料。同组同学对本所做的任何贡献均已在论文中作了明确的说明并表示了谢意。

　 小组成员签名：

　签字日期：

　 年

　 月

　 日

　学位论文版权使用授权书

　本论文作者完全了解 兰州城市学院 有关保留、使用毕业论文的规定。特授权 兰州城市学院 可以将毕业论文的全部或部分内容编入有关数据库进行检索，并采用影印、缩印或扫描等复制手段保存、汇编以供查阅和借阅。同意学校向国家有关部门或机构送交论文的复印件和磁盘。

　 小组成员签名：

　签字日期：

　年

　月

　日

　指导教师签名：

　签字日期：

　年

　月

　日

　 毕 毕 业 设 计 论 文

　 老干部管理系统

　The

　Manage

　System

　Of

　Retired

　Cadre

　 成 员 姓 名：

　朱丽娟，李元桃，柴志刚

　郭统平，周满红

　 学科、专业 ：

　网 络 技 术 教 育

　指 导 教 师：

　 赵 传 成

　完 成 日 期：

　2008 年 5 月 16 日

　 兰 州 城 市 学 院 Lanzhou City University

　- I - 摘要

　为了对老干部群体进行统计和管理，基于 Visual Basic6.0 平台，开发了老干部管理系统。本系统实现了信息录入功能、浏览功能、查询功能、修改功能、以及数据清空等五大模块。为及时准确的更新和管理老干部成员提供了方便。

　关键词：查询功能

　 修改功能

　 高级可视化语言 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 一、系统开发思想及功能分析 .................................... 1 1.1 设计目标 ................................................ 1 1.2 开发设计思想 ............................................ 1 1.3 需要实现的系统功能 ...................................... 1 1.4 系统功能结构 ............................................ 2 二．定义数据库 ................................................ 2 2.1 数据库需求分析 .......................................... 2 2.2 创建数据库中表的结构 .................................... 3 三.设计系统结构 ............................................... 4 3.1 创建数据库中表的结构 .................................... 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 引

　言

　“百善孝为先”，尊敬老人是我们中华民族的传统美德。随着社会的发展和科学的进步，人口老龄化是当今社会发展的一个明显趋势，特别是在我们人口众多的国家，这种现象尤为突出。及时全面的统计老干部的基本情况，然后按照一定的政策法规热心的援助他们，真正做到“老有所养”，这样社会才能和谐发展。

　一、 系统开发思想及功能分析

　 当我们设计一个实用系统时，首先要做的是对其进行需求分析。要明确任务是什么，要完成的功能是什么，以及客户的特殊要求是什么，然后对资料进行研究和分析，为后面的结构设计做好准备。

　1.1 设计目标 本系统设计的主要目标是让管理人员轻松，快捷，准确的对老干部群体的 进行管理和数据的更新。

　1.2 开发设计思想

　 在确定了本系统的开发目标后，开发本系统时主要在本系统中体现了如下 几点开发设计思想：

　（1）

　所开发的老干部管理系统应适合老干部群体的基本情况，满足老干部管理人员的日常管理需求。

　（2）

　达到操作过程中直观、方便、实用、安全等要求。

　（3）

　所开发的系统应采用模块化设计方案，这样既便于系统功能的组合和修改，又便于未参与开发的技术维护人员的补充、维护。

　（4）

　所开发的系统应具备数据库维护功能，能够及时根据用户需求进行数据添加、删除和修改等操作。

　1.3 需要实现的系统功能

　本系统是用于对老干部成员进行管理的系统，采用了面向对象的设计思想，以菜单和表单的形式进行各表单的调用，其系统功能分析是在系统开发的总体任务的基础上完成的。

　因此，本系统应该主要完成和实现如下功能：

　（1）信息录入功能

　 本系统应实现老干部的基本信息、老干部参加工作时间、老干部退休时间、老干部退休前职务、以及老干部政治面貌等信息的录入。

　（2）浏览功能

　 该功能包括浏览所有老干部登记情况、退休前工资情况、政治面貌，退前职务等，其中又分为逐个浏览和全部浏览。

　（3）查询功能

　 该功能包括单记录查询和多记录查询，其中单记录查询中可以根据姓名和序号字段进行查询，多记录查询可以通过籍贯、退前职务、工作时间、政治面貌、姓名、性别等组合查询。

　（4）

　统计功能

　该功能包括对老干部人数以及基本信息库存量的统计。

　2

　（5）数据清空功能

　 此外，为了保证系统的安全性，在进入本系统前必须输入有效的密码，以防止他人对数据的篡改，造成不必要的麻烦和损失。

　1.4 系统功能结构

　此系统的运行从登录表单开始，我们可以在这里要求用户输入自己的登录密码，如果密码输入不正确，则无法进如该系统；否则将进入系统并接受用户操作，在操作完毕后可以从系统菜单中退出系统。本系统的功能结构框架图如下所示。

　 二． 定义数据库

　2.1 数据库需求分析 开始登陆 老 老 干 部 管 理 系 统 统

　信息浏览 信息查询 数据维护 关于系统 退出系统 逐个浏览 全部浏览 添加用户 删除用户 用户密码修改 添加记录 数据修改与清除 系统开发说名 对应字段 多记录查询 单记录查询 以退休时间为条件查询 以退前职务为条件查询 根据序号查询 以工作时间为条件查询 以姓名为条件查询 以政治面貌为条件查询 以序号为条件查询 根据姓名查询

　3

　2.2 创建数据库中表的结构 由以上分析我们可以知道，本系统共有 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 创建数据库中表的结构

　 数据库逻辑结构的实现是通过 Microsoft Excel 创建表，然后导入到 Microsoft Access,下面是我们具体导入的全过程：

　创建表格的操作步骤如下：

　（1）首先，我们需要创建表，名为“lgbxx”、“user”，将其保存在 C:\Documents and Settings\Administrator\桌面\老干部管理系统下。

　(2）下面，我们将表 lgbxx,user 导入 Microsoft Access 数据库。下面我们介绍导入的过程。

　首先打开 Microsoft Access,点击空数据库，在文件名中输入数据库名（shujuku）,如下图所示：

　 点击创建，进入如图所示界面：

　选择文件—获取外部数据—导入，选择预先建的 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 介绍开发环境和其他信息

　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

　五、

　性能测试与分析

　 通过对各个模块的测试，按照自顶向下、逐步求精的理论进行系统测试，对各个模块的功能进行非法操作的调试与纠错，保证了各个功能模块尽可能多的排错，为整个系统的稳定性奠定了坚实的基础。经整体的系统测试，该系统运行稳定，使用方便，对查询数据能够进行严格的验证，数据查询结果准确，有实际意义。

　19 六、致谢

　本系统是在赵传成老师的精心指导下完成的，同时，得到了计算机科学教育系各位领导和老师的大力支持，使本系统能够顺利完成。在此，谨向他们一并表示诚挚的谢意！

　七、参考文献

　1.曾强聪.Visual Basic 6.0 程序设计教程.北京：中国水利水电出版社.2003 2.梁文健. Visual Basic 6.0 程序设计实训教程.北京：冶金工业出版社.2006

相关热词搜索：老干部 管理