老干部管理.doc

中图分类号： 密 级： UDC： 本校编号： 毕 业 设 计 论 文论文题目：老干部管理系统小组成员：朱丽娟 李元桃 周满红 郭统平 柴志刚 学校指导教师姓名： 赵传成 职称： 讲师 申请学位等级： 专业：网络技术教育论文提交日期： 2008年5月16日 论文答辩日期： 独创性声明本人声明所呈交的毕业设计论文是本人在老师指导下进行的系统设计，除了文中特别加以标注和致谢之处外，论文中不包含其他人已经发表或撰写过的文章，也不包含获得 兰州城市学院 或其他教育机构的学位或证书而使用过的材料。同组同学对本所做的任何贡献均已在论文中作了明确的说明并表示了谢意。小组成员签名： 签字日期： 年 月 日学位论文版权使用授权书本论文作者完全了解 兰州城市学院 有关保留、使用毕业论文的规定。特授权 兰州城市学院 可以将毕业论文的全部或部分内容编入有关数据库进行检索，并采用影印、缩印或扫描等复制手段保存、汇编以供查阅和借阅。同意学校向国家有关部门或机构送交论文的复印件和磁盘。小组成员签名： 签字日期： 年 月 日 指导教师签名：签字日期： 年 月 日 毕 业 设 计 论 文老干部管理系统The Manage System Of Retired Cadre成 员 姓 名： 朱丽娟，李元桃，柴志刚 郭统平，周满红 学科、专业 ： 网 络 技 术 教 育 指 导 教 师： 赵 传 成 完 成 日 期： 2008 年5月 16日 兰州城市学院Lanzhou City University摘要 为了对老干部群体进行统计和管理，基于Visual Basic6.0平台，开发了老干部管理系统。本系统实现了信息录入功能、浏览功能、查询功能、修改功能、以及数据清空等五大模块。为及时准确的更新和管理老干部成员提供了方便。关键词：查询功能 修改功能 高级可视化语言AbstractIn 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. Its help for you to update and manage retiree exactly and betimes.keywords: find communication function ; edit communication function; advanced visual language目 录摘要I引 言1一、系统开发思想及功能分析11.1设计目标11.2开发设计思想11.3需要实现的系统功能11.4系统功能结构2二定义数据库22.1数据库需求分析22.2创建数据库中表的结构3三.设计系统结构43.1创建数据库中表的结构43.2认识系统表单6四.各个主要功能模块的实现74.1登录表单74.2浏览表单84.3增加记录表单104.4删除记录表单114.5修改记录表单134.6查询表单14五、性能测试与分析18六、致谢19七、参考文献19引 言“百善孝为先”，尊敬老人是我们中华民族的传统美德。随着社会的发展和科学的进步，人口老龄化是当今社会发展的一个明显趋势，特别是在我们人口众多的国家，这种现象尤为突出。及时全面的统计老干部的基本情况，然后按照一定的政策法规热心的援助他们，真正做到“老有所养”，这样社会才能和谐发展。一、系统开发思想及功能分析 当我们设计一个实用系统时，首先要做的是对其进行需求分析。要明确任务是什么，要完成的功能是什么，以及客户的特殊要求是什么，然后对资料进行研究和分析，为后面的结构设计做好准备。1.1设计目标本系统设计的主要目标是让管理人员轻松，快捷，准确的对老干部群体的进行管理和数据的更新。1.2开发设计思想 在确定了本系统的开发目标后，开发本系统时主要在本系统中体现了如下几点开发设计思想：（1） 所开发的老干部管理系统应适合老干部群体的基本情况，满足老干部管理人员的日常管理需求。（2） 达到操作过程中直观、方便、实用、安全等要求。（3） 所开发的系统应采用模块化设计方案，这样既便于系统功能的组合和修改，又便于未参与开发的技术维护人员的补充、维护。（4） 所开发的系统应具备数据库维护功能，能够及时根据用户需求进行数据添加、删除和修改等操作。1.3需要实现的系统功能 本系统是用于对老干部成员进行管理的系统，采用了面向对象的设计思想，以菜单和表单的形式进行各表单的调用，其系统功能分析是在系统开发的总体任务的基础上完成的。 因此，本系统应该主要完成和实现如下功能： （1）信息录入功能 本系统应实现老干部的基本信息、老干部参加工作时间、老干部退休时间、老干部退休前职务、以及老干部政治面貌等信息的录入。 （2）浏览功能 该功能包括浏览所有老干部登记情况、退休前工资情况、政治面貌，退前职务等，其中又分为逐个浏览和全部浏览。 （3）查询功能 该功能包括单记录查询和多记录查询，其中单记录查询中可以根据姓名和序号字段进行查询，多记录查询可以通过籍贯、退前职务、工作时间、政治面貌、姓名、性别等组合查询。（4） 统计功能 该功能包括对老干部人数以及基本信息库存量的统计。 （5）数据清空功能 此外，为了保证系统的安全性，在进入本系统前必须输入有效的密码，以防止他人对数据的篡改，造成不必要的麻烦和损失。1.4系统功能结构 此系统的运行从登录表单开始，我们可以在这里要求用户输入自己的登录密码，如果密码输入不正确，则无法进如该系统；否则将进入系统并接受用户操作，在操作完毕后可以从系统菜单中退出系统。本系统的功能结构框架图如下所示。开始登陆老 干 部 管 理 系 统信息浏览信息查询数据维护关于系统退出系统逐个浏览全部浏览添加用户删除用户用户密码修改添加记录数据修改与清除系统开发说名对应字段多记录查询单记录查询以退休时间为条件查询以退前职务为条件查询根据序号查询以工作时间为条件查询以姓名为条件查询以政治面貌为条件查询以序号为条件查询根据姓名查询二定义数据库2.1数据库需求分析管理员 老干部管理系统修改密码显示修改信息浏览用户显示添加信息添加用户显示浏览信息删除用户显示删除信息登录信息进入管理系统增加记录显示增加记录信息删除记录显示删除记录信息修改记录显示修改记录信息老干部信息 逐个浏览全部浏览单记录查询多记录查询2.2创建数据库中表的结构由以上分析我们可以知道，本系统共有2个数据表组成，分别为：老干部信息表（lgbxx.xls）、用户表（user.xls）。本系统数据库中的各个表的设计如下图所示 老干部信息表（lgbxx.xls）字段字段名数据类型字段大小1ID自动编号长整型2xh数字双精度型3xm文本2554xb文本2555mz文本2556zzmm文本2557jg文本2558csny文本2559gzsj数字双精度型10txsj数字双精度型11tqzw文本25512sfzh文本255用户表（user.xls）字段字段名数据类型字段大小1ID邮件列表ID自动编号长整型2username文本503pwd文本30三.设计系统结构 当我们在需求分析、概念结构设计的基础上得到数据库的逻辑结构之后，就可以在Microsoft Visual Basic 6.0中文版 数据库系统中来实现该逻辑结构了3.1创建数据库中表的结构 数据库逻辑结构的实现是通过 Microsoft Excel 创建表，然后导入到Microsoft Access,下面是我们具体导入的全过程：创建表格的操作步骤如下：（1）首先，我们需要创建表，名为“lgbxx”、“user”，将其保存在C:Documents and SettingsAdministrator桌面老干部管理系统下。 (2）下面，我们将表lgbxx,user导入Microsoft Access 数据库。下面我们介绍导入的过程。首先打开Microsoft Access,点击空数据库，在文件名中输入数据库名（shujuku）,如下图所示： 点击创建，进入如图所示界面：选择文件获取外部数据导入，选择预先建的Excel表，点击导入，结果如下图所示：勾选第一行列标题（I），按下一步，进入如图所示界面：按系统下一步，显示如图所示界面：修改导入到表（I）名为:lgbxx,点击完成，lgbxx表成功导入到数据库Microsoft Access中，user表的导入与lgbxx表完全一致。3.2认识系统表单我们知道，在Microsoft Visual Basic(设计)中，表单和控件都是应用程序中的对象。而所谓表单，就是指用户所要接触的界面，是用户操作的对象。用户对本系统的使用和管理都是通过表单进行的了。因此，我们就可以通过设置对象的属性，编写程序来处理对象。表单的设置和制作在系统中占有重要的地位。在使用表单设计器的时候我们可以作到：（1）对各控件的属性进行设置；（2）向表单中添加控件对象和类；（3）编写程序来处理对象。根据系统要求按其功能模块确定所需设计的表单，每项功能都对应由一个表单或多个表单来实现。下表列出了本系统中所涉及到的表单及其功能。序号文件名称功能含义1主表单系统主界面2登录管理员进行系统登录3添加记录添加所需的记录信息4删除记录删除不必要的记录信息5全部浏览浏览所有记录信息6单记录查询用于查询单个记录信息7多记录查询用于查询多个记录信息8修改记录用于修改记录信息9字段对照表核对字段名10frmSplash介绍开发环境和其他信息11用户浏览用于浏览记录信息12单记录浏览浏览单个记录信息13用户删除删除所要删除的用户信息14添加用户添加所需用户信息15修改密码用于修改登陆密码四.各个主要功能模块的实现采用模块化思想可以大大提高设计的效率，并且可以最大限度的减少系统不必要的错误。4.1登录表单 登录表单的具体实现过程如下： “确定”代码：Private Sub cmdOK_Click()Dim username As StringDim mrc As ADODB.Recordsettxtsql = select username from user where username= & Trim(txtUserName.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True ThenMsgBox 用户名错误！, vbExclamation + vbOKOnly, 警告txtUserName.SetFocustxtUserName.SelStart = 0txtUserName.SelLength = Len(Me.txtUserName.Text)Exit SubEnd Ifusername = mrc.Fields(0)txtsql = select username from user where pwd= & Trim(txtPassword.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True ThenMsgBox 密码错误！, vbExclamation + vbOKOnly, 警告txtPassword.SetFocustxtPassword.SelStart = 0txtPassword.SelLength = Len(Me.txtPassword.Text)Exit SubEnd If main.Show Unload MeEnd Sub4.2浏览表单 浏览表单分为全部浏览表单和逐个浏览表单。（一）全部浏览表单如下图：MSFlexGrid1 运行结果如下：（二）逐个浏览表单如下：Data1具体实现代码如下： “上一条”代码： Private Sub Command1_Click()Command2.Enabled = True Data1.Recordset.MovePrevious If Data1.Recordset.BOF ThenCommand1.Enabled = FalseData1.Recordset.MoveFirstEnd IfShow DataEnd Sub“下一条”代码： Private Sub Command2_Click()Command1.Enabled = True Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then Command2.Enabled = FalseData1.Recordset.MoveLastEnd IfShow DataEnd Sub“第一条”代码：Private Sub Command4_Click()Data1.Recordset.MoveFirstShow DataEnd Sub “最后一条”代码： Private Sub Command5_Click()Data1.Recordset.MoveLastShow DataEnd Sub 4.3增加记录表单表单设计如下：具体实现代码如下： “ 添加”代码： Private Sub Command1_Click()Command2.Enabled = TrueData1.Recordset.AddNewFor i = 1 To 9Text1(i).Enabled = TrueText1(i).Text = Next iCombo1.Enabled = TrueText1(1).SetFocusCommand1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = TrueEnd Sub “完成”代码： Private Sub Command2_Click()Data1.Recordset.UpdateMsgBox 你已成功填加记录, vbOKOnly, 祝贺你For i = 0 To 9Text1(i).Enabled = FalseText1(i).Text = Next iCommand1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = FalseEnd Sub “取消”代码： Private Sub Command3_Click()Data1.UpdateControlsFor i = 1 To 9Text1(i).Enabled = FalseText1(i).Text = Next iCommand1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = FalseEnd Sub 4.4删除记录表单 表单设计如下： 具体实现代码如下：“删除”代码： Private Sub Command4_Click()on error goto tsDim ans As Integerans = MsgBox(你确定要删除吗？, vbYesNo, 警告)If ans = vbYes ThenData1.Recordset.DeleteIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd IfEnd IfData1.RefreshEnd Sub“上一条”代码： Private Sub Command1_Click()Command2.Enabled = TrueData1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenCommand1.Enabled = FalseData1.Recordset.MoveFirstEnd IfShow DataEnd Sub “下一条”代码： Private Sub Command2_Click()Command1.Enabled = TrueData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenCommand2.Enabled = FalseData1.Recordset.MoveLastEnd IfShow DataEnd Sub4.5修改记录表单 表单设计如下：具体实现代码如下：“ 修改”代码： Private Sub Command4_Click()If Text12.Text = ThenMsgBox 先输入要修改记录的姓名!, vbOKOnly, 提示Text12.SetFocusElseText1.SetFocusData1.Recordset.editData1.Recordset.UpdateEnd IfEnd Sub“取消”代码： Private Sub Command2_Click()Data1.UpdateControlsEnd Sub“定位”代码：Private Sub Command5_Click()If Text12.Text = ThenMsgBox 先输入要修改记录的姓名!, vbOKOnly, 提示Text12.SetFocusExit SubEnd IfData1.Recordset.FindFirst xm= & Text12.Text & If Data1.Recordset.NoMatch ThenMsgBox 输入有误,请核对, vbOKOnly, 查找结果Text12.Text = Text12.SetFocusExit SubEnd IfText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueText10.Enabled = TrueCombo1.Enabled = TrueCommand2.Enabled = True End Sub4.6查询表单 查询有单记录查询表单和多记录查询表单。 （一）、单记录查询表单如下：具体实现代码如下：“查询”代码：Private Sub Commanddan_Click()If Text12.Text = Thenm = MsgBox(先输入要查找的信息!, vbOKOnly, 提示)Text12.SetFocusExit SubEnd IfSelect Case Combo1.ListIndexCase Is = 0Data1.Recordset.FindFirst xm= & Text12.Text & Case Is = 1Data1.Recordset.FindFirst xh= & Text12.Text & End SelectText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText5.Enabled = TrueText6.Enabled = TrueText7.Enabled = TrueText8.Enabled = TrueText9.Enabled = TrueText10.Enabled = TrueText11.Enabled = TrueIf Data1.Recordset.NoMatch Thenm = MsgBox(输入有误,请核对, vbOKOnly, 查找结果)Text12.Text = Text12.SetFocusText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseText5.Enabled = FalseText6.Enabled = FalseText7.Enabled = FalseText8.Enabled = FalseText9.Enabled = FalseText10.Enabled = FalseText11.Enabled = FalseEnd IfEnd Sub（二）多记录查询表单如下：具体实现代码如下： “查询”代码： Private Sub Commandduo_Click()Dim str As StringDim i, n As IntegerMSFlexGrid1.ClearSelect Case Combo1.ListIndexCase Is = 0Set mrc = Nothingmrc.Open select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where xb= & Text1.Text & , adocon, adOpenDynamic, adLockOptimisticCase Is = 1Set mrc = Nothingmrc.Open select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where mz= & Text1.Text & , adocon, adOpenDynamic, adLockOptimisticCase Is = 2Set mrc = Nothingmrc.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, adLockOptimisticCase Is = 4Set mrc = Nothingmrc.Open select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where txsj= & Text1.Text & , adocon, adOpenDynamic, adLockOptimisticCase Is = 5Set mrc = Nothingmrc.Open select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where tqzw= & Text1.Text & , adocon, adOpenDynamic, adLockOptimisticCase Is = 6Set mrc = Nothingmrc.Open select xh,xm,xb,mz,zzmm,jg,csny,gzsj,txsj,tqzw,sfzh from lgbxx where jg= & Text1.Text & , adocon, adOpenDynamic, adLockOptimisticEnd SelectIf Text1.Text = ThenMsgBox 请输入查找内容！, vbExclamation + vbOKOnly, 警告Text1.SetFocusExit SubEnd IfIf Not mrc.EOF ThenMSFlexGrid1.Col = 1MSFlexGrid1.Sort = flexSortStringAscendingMSFlexGrid1.TextMatrix(0, 0) = 序号i = 0MSFlexGrid1.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.TextM