个人信息管理开发系统word格式.doc

平顶山工业职业技术学院毕业设计毕 业 设 计（说 明 书）题 目： 个人信息管理开发系统 姓 名： 李培根 编 号： ( )字 号平顶山工业职业技术学院 年 月 日第 III 页平顶山工业职业技术学院毕 业 设 计 （论 文） 任 务 书姓名 李培根 专业 网络技术 任务下达日期 _年_月_日设计（论文）开始日期 _年_月_日设计（论文）完成日期 _年_月_日设计论文题目 _A.编制设计 _ _B.设计专题（毕业论文）_ _指 导 教 师 系(部)主任 _年_月_日平顶山工业职业技术学院毕业设计（论文）评语第_页共_页 学生姓名： 李培根 ，专业 网络技术 年级 2009级 毕业设计(论文)题目： 个人信息管理开发系统 评 阅 人：_ 指导教师：_（签字） 年 月 日 成 绩：_ 系(部)主任：_（签字） 年 月 日毕业设计（论文）及答辩评语： 平顶山工业职业技术学院毕业设计（论文）答辩委员会记录 系 专业，学生 于 年 月 日进行了毕业设计（论文）答辩。设计题目： 专题（论文）题目： 指导教师： 答辩委员会根据学生提交的毕业设计（论文）材料，根据学生答辩情况，经答辩委员会讨论评定，给予学生 毕业设计（论文）成绩为 。答辩委员会 人，出席 人。答辩委员会主任（签字）： 答辩委员会副主任（签字）： 答辩委员会委员： ， ， ， ， ， 。摘 要个人信息管理是日常生活中人们常常遇到的一个问题。我们需要在正确的时间，正确的地点，获得正确的信息。同时这个信息还需要是完整无误的。我们需要花费尽可能少的时间去管理个人信息。因为我们更多的时间要用于创造，而不是去管理信息。个人信息管理系统就是为了这个目的而诞生的。从某种意义上来说，个人信息管理就是记忆与提取个人信息的问题。长时记忆、短时记忆、工作记忆、前瞻性记忆、步骤记忆在个人信息管理中的角色各有不同。而目前对这一领域的研究不充分。以现有的研究成果来看，对个人信息管理工具设计的指导意义不大。因此就需要通过对日常生活中的记忆缺失的调查和分析，得出个人信息管理中的记忆特点；通过对和计算机使用者对数字信息保存策略的调查，得出个人信息管理工具设计的指导思想。信息管理系统是对信息进行收集加工，并利用。对于个人信息管理范围不是很大，主要运用于家庭和个人。现代社会信息产业发展迅猛，对于个人而言个人信息管理已经引起关注。个人信息管理对个人的意义非凡，它能够很好的规划个人的日产生活，对自己未来能做一个很好的规划关键字；数据库管理系统 目 录前言I第一章 需求分析I11问题定义11. 2可行性研究11. 3 系统功能概述。第二章 概念设计32.1 模型图3第三章 逻辑设计123.1 信息表123.2 用户表12第四章 界面设计及概念264.1 登录窗体的制作264.2系统主窗口的制作274.3 个人信息更新实现274.4 个人信息查询实现28第五章 源程序315.1 登录界面程序315.2 主界面程序315.2软件工程操作31第六章 总结37参考文献38致 谢39 III 平顶山工业职业技术学院毕业设计第1章需求分析1.1 问题定义1要解决的问题 随着办公自动化水平的不断提高，个人信息管理已经从手工模式逐步转换为自动化，设计一个功能完整、操作简单、界面清晰的个人信息管理系统已经势在必行。2开发的目的全球信息网的出现和信息化社会的来临，使得社会的生产方式发生深刻的变化。面对着激烈的市场竞争，个人对信息的收集、传输、加工、存贮、查询以及预测决策等工作量越来越大，原来的电脑只是停留在单机工作的模式，纯粹手工管理方式和手段已不能适应需求，这将严重妨碍个人的生存和发展。社会进步要求个人必须改变现有的落后管理体制、管理方法和手段，建立现代个人信息的新形象，建立个人信息的自动化管理信息系统，以提高管理水平，增加经济和社会效益。1.2可行性研究1.技术可行性 根据上述系统功能的分析下面将进行具体的实现。从技术角度分析这项开发工作所涉及的专业技术如下 1.技术平台Operating System操作系统Windows系列。虽然理论上对操作系统没作更具体的规定但由于开发中涉及Microsoft Access2000 的应用所以建议最好使用Windows 2000以上的版本或相应的WindowsNT的版本。 2.开发工具Microsoft Visual Basic 6.0 3.数据库管理系统DBMSMicrosoft Access2000 具体实现阶段主要分两大部分进行数据库的实现和各种功能模块及窗体的实现。从运用的技术角度分析即Microsoft Access 部分的实现和VB部分的实现。 2.经济可行性 因为采用计算机管理不但可以提高工作效率而且还可以节省人力、物力、财力。这样原来几个一干的活一个人就完全可以胜任。故单从节省的职工工资、提高工作效率而避免各种直接或间接的经济损失角度来看软件实际能够起到的作用会远远大于投入的开发费用。故从经济上是完全可行的。 3.操作可行性 因为开发所采用的工具全是可视化工具开发出的应用程序均是图形化界面操作员几乎不用记任何DOS命令就可以操作此软件。另外软件的操作员大多已经会基本的Windows操作即使不会操作Windows经过短期的培训也能熟练的使用本软件。所以在操作上也是可行的1.3功能概述第二章 概念设计图2.1 网络设计原则根据需求分析的一些要求及该系统所要完成的一些功能接下来进行概念设计设计E-R模型: E-R模型图说明：从上图中可以看出系统最小化至少包括如下一级子模块系统登录、基本表维护、用户管理、信息管理等。 基本表维护模块应具有的功能对信息表、数据表等作为构成学生信息最基本的项的表进行增加、查询、修改、删除等操作。 用户管理模块应具有的功能这个模块从本质上来讲当然应该只有DBA才有权使用之但是本系统为了使开发者有一个整体的概念故把这一模块也纳入进来。这个模块能够实现新用户的增加、已有用户的查找、已有用户的删除、已有用户的密码修改、注销不再使用的用户等功能信息管理模块应具有的功能这个模块是本系统中相对来讲最大也是最麻烦的当然学会这些再去开发其他比它大的系统基本一样。它包含如下子模块 1 新增记录为保证数据的有效性、一致性、完整性在录入新记录时系统能个人信息 性别 电话 备注 邮箱 地址 年龄 姓名 昵称 个人用户 基本表的维护 用户管理 信息管理 修改 添加 查询 删除 登陆 新加用户 查找用户 修改密码 注销用户 新增记录 更新信息 信息查询 信息输出 根据操作员输入的资料到信息表中查询是否已经存在这样的记录如果已经存在则给出更换信息的提示如果不存在则判断姓名是否为空如果是空的则提示输入姓名否则进行出生日期是否合法的判断再进行性别、民族是否选择地址是否录入等一系列必须输入的项目的审核如果都通过才能把当前输入的所有信息项插入到物理数据库的信息表中。 2 查询信息系统能按个人编号编号中的几位、姓名或只有姓、性别、昵称、民族、地址等单项或多项的组合进行精确或模糊查询并把查询的结果显示在表格中。另外通过笔者在实践中总结的经验所知用二维数组形式向表格中填写数据项的方法是比较慢的若提取的是几万条或十几万条记录可能要等几十秒甚至内存会溢出故本系统开发中没有介绍这种方法是用ADO的Data控件向表格中填充的快。 3 更新记录本模块实际上包含两个模块即修改和删除。在修改子模块中首先查询出要修改的记录然后对每一条记录进行除编号外的任何一项的修改。在删除子模块中也同样是先查询出要删除的记录因为删除操作是一个没有反悔余地的操作故在删除前会给出一次确认的机会如果此时不想删除就可马上取消但如果真正要删除则从数据库中永久性的删除。当然可以把删除的信息保存到历史记录中。 4 信息输入本模块是一个非常有用的模块也是初学者最难的一块。本系统在制作中采用Microsoft Corporation的Visual Basic6.0提供的Data Report即快又好用可以把学生记录输出以作为永久保存。当然输出标准表格是非常容易的如果要输出数据计算和布局比较复杂的表格请读者参考有关书籍。第三章 逻辑设计3.1 部署活动目录服务，构建域环境通过对所要开发的系统进行概念设计的分析之后我们应该对它进行逻辑设计的分析:说明：通过前面的分析可知我们要制作的程序是一个小型的管理信息系统MISManagement Information System而且其中需要的数据库表有个人信息表、用户表等还可能有其他的一些相关的表。通过分析表可知个人信息表该表中有一些项如备注在系统运行过程中有可能会有增加或减少的情况发生如果用代码去填写一旦有一点变动就必须重新编辑、编译程序程序的健壮性不好故想到可以从数据库中提取相关表中的记录来填充这样就轻而易举的解决这个问题了。实现它的思想就是找出所有可能发生变化的项昵称、民族、地址性别就不用了等形成各自的表这里叫它们为基本表先对这些基本表进行维护必须这些基本表中有足够的记录时才可以做其他的事。 系统必须考虑安全问题故至少给一个登录模块在使用系统时进行身份的验证。用户的身份来自用户的维护故应先进行用户的注册等操作然后才可以以合法的身份登录并使用本系统。 当以合法的身份进行本系统后就可以进行各种操作如个人信息记录的增加、查询等操作。当然也可以在系统中再增加其他的功能。1信息表用来收集存储个人的信息表有关个人的昵称个人编号编号中的几位、姓名或只有姓、性别、昵称、民族、地址、电话、邮箱等信息.字段名称数据类型字段大小索引必须填写Name文本10无否Oicq文本8无否Love文本20无否Year日期/无否Age数字整型无否Constell文本8无否Attributive文本8无否Blood文本8无否Address文本255无否TelepNo文本20无否MoveCall文本15无否Home文本20无否Call文本20无否Fax文本50无否Email文本50无否Appendix文本255无否 对于登录模块在使用系统时进行身份的验证。用户的身份来自用户的维护故应先进行用户的注册等操作然后才可以以合法的身份登录并使用本系统。当以合法的身份进行本系统后就可以进行各种操作如个人信息记录的增加、查询等操作。当然也可以在系统中再增加其他的功能。为此我们需要在数据库中建立一个用户表有关用户的ID号 、数据库表号Number、数据库名Name等信息2 用户表字段名称字段类型字段大小索引必须填写ID数字30有（无重复）是Name文本8是Number数字20是图3.5IP地址设置第四章界面设计及概念经过了以上的分析之后对所要开发的系统有了总体上的把握接下来就是通过一些编写工具对系统进行具体的编写了 设计本系统时用到多个窗体用与实现本系统的所有功能和一个数据库拥有所有表格用来存放所有系统所需要的信息以及保留以后系统中所修改的信息以及几个数据报表它们用于数据的输出和更新和添加、删除等功能的显示。给用户一目了然的效果。这写设计结构足以实现所要求的所有的功能同时也使所有信息以最简便的方式展现给用户.4.1 系统开发环境本系统是利用VBACCESS数据库技术实现的。 VB的运行环境如下 WinXPVisual Basic6.0 Microsoft Access2000 2.利用VBACCESS数据库技术对系统进行具体的编写。4.2利用VB+ACCESS数据库技术队系统进行具体的编写 1、 登录界面设计在frmLogin窗体中加入两个标签Label1.Caption =用户名 Label2.Caption = 密码 在frmLogin窗体中加入两个文本框名称为txtName、 txtPassword（passwordchar）=*再加入两个按钮：名称为cmdOK（Caption = 确认 Defaulttrue）、cmdCancel（Caption取消 ） 在VB工程设计中的frmLogin设计后的格式如下窗体12、主窗体设置 添加MDI主窗体 单“工程”菜单下的“添加MDI窗体” 在出现的如下对话框中单击“打开”按钮则向当前VB工程中加入一个MDI多文档窗体它可以是一个装载许多子窗体的一个母窗体-容器。 MDI主窗体如下图按F4或在出现的属性窗口中设置属性如下右表格保存窗体2添加系统菜单在VB工程设计环境的工具栏中单击“菜单编辑器” ，在出现的“菜单编辑器”对话框中输入显示菜单的标题和名称（一般是以mnu开头的英文）主要是用来事件编程的添加完一个后可以单击“下一个”按钮进行下一个菜单项的输入显示标题和名称窗体3是已经确定好且有一定实际意义。若某个菜单项是前一项的下一级菜单可单击向若的箭头. 加入完毕后单击“确定”按钮完成。当然可以在以后的设计过程中再加新菜单。4运行效果 显示主界面新建一个”Listview1”用来显示数据库表内容把数据库中的信息列出再建一个”Frame1”把”Comption”设置为”详细情况” 然后在”Frame1”中添上多个文本框如图:数据库中信息库登陆界面及密码的修改设置 1 设置一个数据库中的信息库的查看权限界面:如 窗体5 2 对数据库查看权限的密码的修改及设置: 窗体6 添加修改界面 1 新建一个”Frame1”框把”Comption”设置为”详细情况” 2 然后在”Frame2”中添上多个文本框如”呢称”.”性别”等如图: 加上三个按钮:”添加”.”修改”.”取消” 窗体7 查询信息表界面 创建一个框架用来查询质料设置查找方式”精确查询”模糊查询”以及根据提供的项目及关键字来查询个人的有关的信息 窗体8 第五章.源程序 在物理设计中我们已经编辑好个窗体接下来就是编写源程序了以及各模块所要编写的程序.5.1 窗体程序窗体1界面程序在窗体的装载事件中输入如下代码Private Sub Form_Load On Error GoTo ErrMsg 清空文本框 txtName.Text“” txtPassword.Text 调用模块中的ConnectDB过程连接数据库可以把连接模块直接写在这里 Call ConnectDB 错误处理功能 ErrMsg:If Err.Number 0 Then MsgBox Err.Number amp Err.Description vbOKOnly vbCritical 出错提示 Exit Sub End Sub2 在“确认”按钮cmdOK的单击事件中输入如下代码 Private Sub cmdOK_Click 运行时自动检测错误检测到则到ErrMsg标号处做相应的处理On Error GoTo ErrMsg Dim SQL As String 定义一个保存SQL语句的变量 到Login 表中查询是否有符合条件的记录存在 使用的是Select Count From .返回值是一个大于等于0的整数 SQL =SQL =tSelect Count(*) From Login Where Name= amp TrimtxtName.Text amp quotquot SQL = SQL amp quot And Passwordquot amp TrimtxtPassword.Text amp quotquot Set adoRS adoCon.ExecuteSQL If adoRS0 0 Then MsgBox quot您输入的用户名或密码有误请更正quot vbOKOnly vbExclamation quot系统提示quot txtName.SetFocus Exit Sub End If 通过身份验证后卸载登录窗体 Unload Me 显示系统界面可以进入系统操作 frmSystem.Show 错误处理 ErrMsg: If Err.Number ltgt 0 Then MsgBox Err.NumberampErr.Description vbOKOnly vbCritical quot错误提示 Exit Sub End If End Sub3 在“取消”按钮cmdCancel的单击事件中编写如下代码 Private Sub cmdCancel_Click If MsgBoxquot您真的要退出本系统的使用吗quot vbYesNo vbQuestion quot退出询问quot vbYes Then 把记录集从内存中清除 Set adoRS Nothing 断开与数据库的连接 adoCon.Close 把连接变量从内存中清除 Set adoCon Nothing 从内存中卸载登录窗体终止程序的执行 Unload Me End If End Sub 窗体4:主界面程序 Option Explicit Public mdbFile mdbDataName As String Public DataNumbel As Integer Public Uo As Boolean Public ListView_Name ListView_QQ ListView_Love As String Public ListViewItem As Integer Public Password As String Private Sub TuBiao 初始化任务栏图标 Me.Move Screen.Width - Me.Width / 3 Screen.Height - Me.Height / 3 TrayIcon.cbSize LenTrayIcon TrayIcon.hwnd Me.hwnd TrayIcon.uId vbNull TrayIcon.uFlags NIF_ICON Or NIF_TIP Or NIF_MESSAGE TrayIcon.ucallbackMessage WM_MOUSEMOVE TrayIcon.hIcon Me.Icon 提供任务栏图标TrayIcon.szTip quotMinds Tray Icon Examplequot amp Chr0 将图标放到任务栏 Call Shell_NotifyIconNIM_ADD TrayIcon App.TaskVisible False End Sub Private Sub About_Click 关于版本 frmabout.Show vbModal End Sub Private Sub DeleteAll_Click Dim Result If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then Result MsgBoxquot所有记录将被删除quot vbYesNo quot警告quot SetWindowPos Me.hwnd HWND_topmost 0 0 0 0 flag 设置窗口在前 If Result vbYes Then frmData.Data1.Recordset.MoveLast frmData.Data1.Recordset.MoveFirst Dim i As Integer For i 1 To frmData.Data1.Recordset.RecordCount Data1.Recordset.Delete rmData.Data1.Recordset.MoveNext Next Data1.Refresh ListRefresh End If Else Result MsgBoxquot无法删除记录quot vbOKOnly quot提示quot End If SetWindowPos Me.hwnd HWND_notopmost 0 0 0 0 flag End Sub Private Sub DocuAdd_Click 添加记录 Uo False frmTJ.Command2.Enabled False Load frmTJ frmTJ.Show vbModal End Sub Public Sub DocuDelete_Click 删除记录 Dim Result If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then If frmData.ListView1.ListItems.Count gt 0 Then If ListView1.SelectedItem.Index gt 0 Then Result MsgBoxquot当前记录将被删除quot vbYesNo quot警告quot SetWindowPos Me.hwnd HWND_topmost 0 0 0 0 flag 设置窗口在前 If Result vbYes Then Data1.Recordset.Delete Data1.Refresh ListRefresh End If Else Result MsgBoxquot请选择要删除的记录quot vbOKOnly quot警告quot SetWindowPos Me.hwnd HWND_topmost 0 0 0 0 flag 设置窗口在前 End If End If Else Result MsgBoxquot无法删除当前记录quot vbOKOnly quot提示quot End If SetWindowPos Me.hwnd HWND_notopmost 0 0 0 0 flag ListRefresh End Sub Private Sub DocuExit_Click 退出程序 Unload frmData End Sub Private Sub DocuSeek_Click 查询记录 numRem_Click Load frmCX frmCX.Show vbModal End SubPrivate Sub Form_Resize If WindowState 1 Then Me.Visible False End Sub Private Sub Form_Load 程序初始化 If App.PrevInstance Then Dim Recut As Integer Recut MsgBoxquot程序已经运行请检查窗口是否已被最小化quot 48 quot提示quot Unload MeExit Sub End If ListViewStyle_Click 使ListView控件可以整行选择 ListViewStyleBiaoG_Click 使ListView控件有表格风格 ListViewStyleOne_Click 允许单击选择 ListViewStyleTwo_Click 允许双击选择 Frm_Load TuBiao SetWindowPos Me.hwnd HWND_topmost 0 0 0 0 flag 设置窗口在前 Dim i As String Dim j As Integer 开始初始化 For j 0 To 13 Text1j.Text quotquot Next j End Sub Private Sub numMPgl_Click On Error GoTo ErrHandle frmData.Caption quot信息管理 - quot amp mdbFile amp quotquot amp mdbDataName amp quotquot 设置字符串变量来调用SQL语句 SQLoriginal quotselect from quot amp frmData.mdbDataName quotDataquot SQLadd quot w=create database quanon primary(name=quan_db,filename=d:quan.mdf,size=5mb,maxsize=50mb,filegrowth=10%)create table m(mid char(30) not null primary key,mname char(10) not null,sex char(8),age int,height int,jianshu char(50),aihao char(50)-/bean访问数据库/bean访问数据库package b;import java.sql.Connection;import java.sql.DriverManager;import java.sql.PreparedStatement;import java.sql.ResultSet;import java.sql.SQLException;public class B private String name;private String mid;private String sex;private int age;private int height;private String jianshu;private String aihao;public void B()name=;mid=;sex=;age=0;height=0;jianshu=;aihao=;public void setName(String name)=name;public String getName()return name;public void setMid(String mid)this.mid=mid;public String getMid()return mid;public void setSex(String sex)this.sex=sex;public String getSex()return sex;public void setAge(int age)this.age=age;public int getAge()return age;public void setHeight(int height)this.height=height;public float getHeight()return height;public void setJianshu(String jianshu)this.jianshu=jianshu;public String getJianshu()return jianshu;public void setAihao(String aihao)this.aihao=aihao;public String getAihao()return aihao;static try Class.forName(sun.jdbc.odbc.JdbcOdbcDriver); catch (ClassNotFoundException e) / TODO Auto-generated catch blocke.printStackTrace();Connection getCon(String user,String pwd)Connection con=null;try con=DriverManager.getConnection(jdbc:odbc:qdb,user,pwd); catch (SQLException e) / TODO Auto-generated catch blocke.printStackTrace();finallyif(con=null)return null;elsereturn con;void close1(Connection con,PreparedStatement ps)try if(con!=null)con.close(); catch (SQLException e) / TODO Auto-generated catch blocke.printStackTrace();finallytry if(ps!=null)ps.close(); catch (SQLException e) / TODO Auto-generated catch blocke.printStackTrace();void close2(Connection con,PreparedStatement ps,ResultSet rs)try if(con!=null)con.close(); catch (SQLException e) / TODO Auto-generated catch blocke.printStackTrace();finallytry if(ps!=null)ps.close(); catch (SQLException e) / TODO Auto-generated catch blocke.printStackTrace();finallytry if(rs!=null)rs.close(); catch (SQLException e) / TODO Auto-generated catch blocke.printStackTrace();/从数据库读取个人信息public boolean r(String mid)/一mid作为查询条件Connection con=null;PreparedStatement ps=null;ResultSet rs=null;try con=getCon(sa,quan1989);String sql=select *from m where mid=?;ps=con.prepareStatement(sql);ps.setString(1, mid);rs=ps.executeQuery();if(rs.next()this.mid=rs.getString(mid);=rs.getString(mname);this.sex=rs.getString(sex);this.age=rs.getInt(age);this.height=rs.getInt(height);this.jianshu=rs.getString(jianshu);this.aihao=rs.getString(aihao);return true;return false; catch (SQLException e) / TODO Auto-generated catch blocke.printStackTrace();return false;finall