个人信息管理系统—计算机毕业设计.doc

毕业设计（论文）个人信息管理系统系 别: 班 级: 姓 名: 同组人: 指导教师: 实习日期: 个人信息管理系统前言本实验使用了Microsoft Visual Basic 6.0可视化开发软件工具下分析、设计、开发个人信息管理系统的过程。通过对计算机硬件和软件解决方案的论证，对应用领域进行调查分析，参考各种资料和进行数据库编程实践，在指导老师的帮助下，已经基本上成功地实现了设计要求。是我们设计的数据库系统能够实现个人信息管理，系统管理功能。该系统基本上满足了用户在个人信息管理方面的需求，用户界面友好。此系统更加贴近信息电子化处理，从而降低了人工劳动并增加了信息的准确性。关键字：Microsoft Visual Basic 6.0数据库管理系统(DBMS)Microsoft Access2000目录前言1第一部分 需求分析21.问题定义.22可行性研究.23系统功能概述.3第二部分 概念设计.3E-R模型图.3第三部分 逻辑设计.41信息表. 52用户表.6第四部分 物理设计及概要设计.61、登录窗体的制作. 72、系统主窗口的制作.73、个人信息更新实现.94、个人信息查询实现.105、软件介绍 . .10第五部分 源程序.101、登陆界面程序.112、主界面程序.123、查询信息及更新信息界面程序.21第六部分 软件工程打包.34第七部分 实习总结.381、设计体会.382、结束语.38第八部分 教师评语. 39一.需求分析问题定义 1.要解决的问题： 随着办公自动化水平的不断提高，个人信息管理从手工转到计算机自动化信息处理阶段。设计一个功能完整、操作简便、界面友好的个人信息管理系统已经是势在必行的了。2.系统开发的目的：提高个人信息管理工作的效率，保证信息的准确和规范，减少相关人员的工作量，使个人管理工作真正做到科学、合理的规划，系统、高效的实施。3.系统名称：个人信息管理系统4.系统要能实现如下功能：（1） 登录系统（2） 个人信息录入（3） 个人信息查询及输出（4） 个人信息修改（包括更新和删除）（5） 个人信息各项指标的统计汇总（6） 系统信息管理（如修改用户名或登录密码等）可行性研究1.技术可行性根据上述系统功能的分析，下面将进行具体的实现。从技术角度分析，这项开发工作所涉及的专业技术如下： 1.技术平台（Operating System：操作系统）：Windows系列。虽然理论上对操作系统没作更具体的规定，但由于开发中涉及Microsoft Access2000 的应用，所以建议最好使用Windows 2000以上的版本或相应的WindowsNT的版本。 2.开发工具：Microsoft Visual Basic 6.0 3.数据库管理系统(DBMS)：Microsoft Access2000具体实现阶段主要分两大部分进行：数据库的实现和各种功能模块及窗体的实现。从运用的技术角度分析即：Microsoft Access 部分的实现和VB部分的实现。2.经济可行性：因为采用计算机管理不但可以提高工作效率，而且还可以节省人力、物力、财力。这样原来几个一干的活一个人就完全可以胜任。故单从节省的职工工资、提高工作效率而避免各种直接或间接的经济损失角度来看，软件实际能够起到的作用会远远大于投入的开发费用。故从经济上是完全可行的。 3.操作可行性： 因为开发所采用的工具全是可视化工具，开发出的应用程序均是图形化界面，操作员几乎不用记任何DOS命令就可以操作此软件。另外，软件的操作员大多已经会基本的Windows操作，即使不会操作Windows，经过短期的培训也能熟练的使用本软件。所以在操作上也是可行的。系统功能概述序号实现功能功能概述1个人信息录入本系统能够录入个人的昵称、姓名、性别、地址等信息，并且能够判断是否有不符合信息项，如有不符合的则给出提示。2个人信息查询可以根据昵称、姓名、地址、出生日期等信息项中的一项或多项的组合，进行模糊查询和精确查询，从而高效地找到您想要的信息。3个人信息更新可以根据昵称、姓名、地址、出生日期等信息项中的一项或多项的组合，进行模糊查询和精确查询，找到要修改的个人记录，最后是对单个记录进行逐个的修改。也可以把录错或不再有用的信息删除掉。4个人信息输出把录入到数据库中的个人信息按标准报表格式输出以备留档。5基本表的维护对于地址、电话等可能变化但又涉及每个个人记录的信息项，单独取出进行维护。在使用时填充到下拉列表框中选择即可。6用户管理对使用本系统的用户进行添加、查询、修改密码、删除等操作。二.概念设计根据需求分析的一些要求,及该系统所要完成的一些功能,接下来进行概念设计,设计E-R模型: 个人用户基本表的维护用户管理信息管理修改添加查询删除登陆新加用户查找用户修改密码注销用户新增记录更新信息信息查询信息输出 E-R模型图说明:n 从上图中可以看出系统（最小化）至少包括如下一级子模块：系统登录、基本表维护、用户管理、信息管理等。n 基本表维护模块应具有的功能：对信息表、数据表等作为构成学生信息最基本的项的表进行增加、查询、修改、删除等操作。n 用户管理模块应具有的功能：这个模块从本质上来讲，当然应该只有DBA才有权使用之，但是本系统为了使开发者有一个整体的概念，故把这一模块也纳入进来。这个模块能够实现新用户的增加、已有用户的查找、已有用户的删除、已有用户的密码修改、注销不再使用的用户等功能。个人信息性别电话备注邮箱地址年龄姓名昵称 信息表的E-R模型n 信息管理模块应具有的功能：这个模块是本系统中相对来讲最大也是最麻烦的，当然学会这些再去开发其他比它大的系统基本一样。它包含如下子模块：1) 新增记录：为保证数据的有效性、一致性、完整性，在录入新记录时，系统能根据操作员输入的资料到信息表中查询是否已经存在这样的记录，如果已经存在，则给出更换信息的提示；如果不存在，则判断姓名是否为空，如果是空的则提示输入姓名，否则进行出生日期是否合法的判断，再进行性别、民族是否选择，地址是否录入等一系列必须输入的项目的审核，如果都通过才能把当前输入的所有信息项插入到物理数据库的信息表中。2) 查询信息：系统能按个人编号（编号中的几位）、姓名（或只有姓）、性别、昵称、民族、地址等单项或多项的组合进行精确或模糊查询，并把查询的结果显示在表格中。另外，通过笔者在实践中总结的经验所知，用二维数组形式向表格中填写数据项的方法是比较慢的（若提取的是几万条或十几万条记录可能要等几十秒甚至内存会溢出），故本系统开发中没有介绍这种方法，是用ADO的Data控件向表格中填充的（快）。3) 更新记录：本模块实际上包含两个模块，即修改和删除。在修改子模块中，首先查询出要修改的记录，然后对每一条记录进行除编号外的任何一项的修改。在删除子模块中，也同样是先查询出要删除的记录，因为删除操作是一个没有反悔余地的操作，故在删除前会给出一次确认的机会，如果此时不想删除就可马上取消，但如果真正要删除则从数据库中永久性的删除。当然可以把删除的信息保存到历史记录中。4) 信息输入：本模块是一个非常有用的模块，也是初学者最难的一块。本系统在制作中采用Microsoft Corporation的Visual Basic6.0提供的Data Report，即快又好用，可以把学生记录输出以作为永久保存。当然输出标准表格是非常容易的，如果要输出数据计算和布局比较复杂的表格，请读者参考有关书籍。三.逻辑设计通过对所要开发的系统进行概念设计的分析之后,我们应该对它进行逻辑设计的分析:说明:l 通过前面的分析可知，我们要制作的程序是一个小型的管理信息系统MIS（Management Information System），而且其中需要的数据库表有个人信息表、用户表等，还可能有其他的一些相关的表。通过分析表可知个人信息表，该表中有一些项（如备注）在系统运行过程中有可能会有增加或减少的情况发生，如果用代码去填写，一旦有一点变动就必须重新编辑、编译程序，程序的健壮性不好，故想到可以从数据库中提取相关表中的记录来填充，这样就轻而易举的解决这个问题了。实现它的思想就是找出所有可能发生变化的项，昵称、民族、地址（性别就不用了）等，形成各自的表（这里叫它们为基本表），先对这些基本表进行维护，必须这些基本表中有足够的记录时才可以做其他的事。l 系统必须考虑安全问题，故至少给一个登录模块，在使用系统时进行身份的验证。用户的身份来自用户的维护，故应先进行用户的注册等操作，然后才可以以合法的身份登录并使用本系统。l 当以合法的身份进行本系统后，就可以进行各种操作，如个人信息记录的增加、查询等操作。当然也可以在系统中再增加其他的功能。数据库表: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无否 表一2) 对于登录模块，在使用系统时进行身份的验证。用户的身份来自用户的维护，故应先进行用户的注册等操作，然后才可以以合法的身份登录并使用本系统。当以合法的身份进行本系统后，就可以进行各种操作，如个人信息记录的增加、查询等操作。当然也可以在系统中再增加其他的功能。为此我们需要在数据库中建立一个用户表,有关用户的ID号 、数据库表号Number、数据库名Name等信息:用户表:字段名称字段类型字段大小索引必须填写ID数字30有(无重复)是Name文本8是Number数字20是 表二四.物理设计及概要设计 经过了以上的分析之后,对所要开发的系统有了总体上的把握,接下来就是通过一些编写工具对系统进行具体的编写了, 设计本系统时，用到多个窗体，用与实现本系统的所有功能，和一个数据库，拥有所有表格，用来存放所有系统所需要的信息，以及保留以后系统中所修改的信息，以及几个数据报表，它们用于数据的输出和更新和添加、删除等功能的显示。给用户一目了然的效果。这写设计结构足以实现所要求的所有的功能，同时也使所有信息以最简便的方式展现给用户.1系统开发环境本系统是利用VB+ACCESS数据库技术实现的。VB的运行环境如下：WinXP+Visual Basic6.0Microsoft Access20002.利用VB+ACCESS数据库技术对系统进行具体的编写 1、登陆界面的设计3) 在frmLogin窗体中加入两个标签：Label1.Caption=用户名 Label2.Caption=密码4) 在frmLogin窗体中加入两个文本框，名称为txtName、 txtPassword(passwordchar=*)；5) 再加入两个按钮： 名称为cmdOK（Caption=确认 Default=true）、cmdCancel(Caption=取消)6) 在VB工程设计中的frmLogin设计后的格式如下：窗体12、主窗体设置 添加MDI主窗体1) 单“工程”菜单下的“添加MDI窗体”2) 在出现的如下对话框中，单击“打开”按钮，则向当前VB工程中加入一个MDI（多文档）窗体，它可以是一个装载许多子窗体的一个母窗体-容器。3) MDI主窗体如下图，按F4或在出现的属性窗口中设置属性（如下右表格），保存名称frmSystemCaption个人信息管理系统WindowState2-Maximized窗体2添加系统菜单1) 在VB工程设计环境的工具栏中单击“菜单编辑器”，在出现的“菜单编辑器”对话框中，输入显示菜单的标题和名称（一般是以mnu开头的英文，主要是用来事件编程的添加完一个后，可以单击“下一个”按钮，进行下一个菜单项的输入，显示标题和名称窗体32) 是已经确定好且有一定实际意义。若某个菜单项是前一项的下一级菜单，可单击向若的箭头.3) 加入完毕后，单击“确定”按钮完成。当然可以在以后的设计过程中再加新菜单。4) 运行效果 显示主界面1) 新建一个”Listview1”,用来显示数据库表内容,把数据库中的信息列出来.2) 再建一个”Frame1”,把”Comption”设置为”详细情况”;3) 然后在”Frame1”中添上多个文本框,如图:窗体4 数据库中信息库登陆界面及密码的修改设置1) 设置一个数据库中的信息库的查看权限界面:如窗体52) 对数据库查看权限的密码的修改及设置:如窗体6 添加修改界面1) 新建一个”Frame1”框,把”Comption”设置为”详细情况”;2) 然后在”Frame2”中添上多个文本框,如”呢称”.”性别”等,如图:加上三个按钮:”添加”.”修改”.”取消”窗体7 查询信息表界面创建一个框架用来查询质料,设置查找方式”精确查询”,”模糊查询”,以及根据提供的项目及关键字来查询个人的有关的信息窗体8 有关本软件的介绍界面该界面主要用于介绍本软件,在使用方面应注意的问题,即使用时应注意的事项,及用户在使用时遇到问题时可以于开发者联系,联系方式.窗体9五.源程序 在物理设计中,我们已经编辑好个窗体,接下来就是编写源程序了,以及各模块所要编写的程序.1.窗体部份程序 窗体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 & Err.Description, vbOKOnly + vbCritical, 出错提示 Exit SubEnd Sub2) 在“确认”按钮cmdOK的单击事件中输入如下代码：Private Sub cmdOK_Click()运行时自动检测错误，检测到则到ErrMsg标号处做相应的处理On Error GoTo ErrMsgDim SQL As String 定义一个保存SQL语句的变量到Login 表中查询是否有符合条件的记录存在使用的是Select Count(*) From .返回值是一个大于等于0的整数SQL = SQL = Select Count(*) From Login Where Name= & Trim(txtName.Text) & SQL = SQL & And Password= & Trim(txtPassword.Text) & Set adoRS = adoCon.Execute(SQL)If adoRS(0) = 0 Then MsgBox 您输入的用户名或密码有误，请更正！, vbOKOnly + vbExclamation, 系统提示 txtName.SetFocus Exit SubEnd If通过身份验证后卸载登录窗体Unload Me显示系统界面，可以进入系统操作frmSystem.Show错误处理ErrMsg:If Err.Number 0 ThenMsgBox Err.Number&Err.Description, vbOKOnly + vbCritical, 错误提示Exit SubEnd IfEnd Sub3) 在“取消”按钮cmdCancel的单击事件中编写如下代码：Private Sub cmdCancel_Click()If MsgBox(您真的要退出本系统的使用吗？, vbYesNo + vbQuestion, 退出询问) = vbYes Then 把记录集从内存中清除 Set adoRS = Nothing 断开与数据库的连接 adoCon.Close 把连接变量从内存中清除 Set adoCon = Nothing 从内存中卸载登录窗体，终止程序的执行 Unload MeEnd IfEnd Sub 窗体4:(主界面程序)Option ExplicitPublic mdbFile, mdbDataName As StringPublic DataNumbel As IntegerPublic Uo As BooleanPublic ListView_Name, ListView_QQ, ListView_Love As StringPublic ListViewItem As IntegerPublic Password As StringPrivate Sub TuBiao() 初始化任务栏图标 Me.Move (Screen.Width - Me.Width) / 3, (Screen.Height - Me.Height) / 3 TrayIcon.cbSize = Len(TrayIcon) 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 = Minds Tray Icon Example & Chr$(0) 将图标放到任务栏 Call Shell_NotifyIcon(NIM_ADD, TrayIcon) App.TaskVisible = FalseEnd SubPrivate Sub About_Click() 关于版本frmabout.Show vbModalEnd SubPrivate Sub DeleteAll_Click() Dim Result If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then Result = MsgBox(所有记录将被删除！, vbYesNo, 警告) 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 i Data1.Refresh ListRefresh End If Else Result = MsgBox(无法删除记录！, vbOKOnly, 提示) End If SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flagEnd SubPrivate Sub DocuAdd_Click() 添加记录Uo = False frmTJ.Command2.Enabled = False Load frmTJ frmTJ.Show vbModalEnd SubPublic Sub DocuDelete_Click() 删除记录 Dim Result If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then If frmData.ListView1.ListItems.Count 0 Then If ListView1.SelectedItem.Index 0 Then Result = MsgBox(当前记录将被删除！, vbYesNo, 警告) SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag 设置窗口在前 If Result = vbYes Then Data1.Recordset.Delete Data1.Refresh ListRefresh End If Else Result = MsgBox(请选择要删除的记录！, vbOKOnly, 警告) SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag 设置窗口在前 End If End If Else Result = MsgBox(无法删除当前记录！, vbOKOnly, 提示) End If SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag ListRefreshEnd SubPrivate Sub DocuExit_Click() 退出程序 Unload frmDataEnd SubPrivate Sub DocuSeek_Click() 查询记录numRem_Click Load frmCX frmCX.Show vbModalEnd SubPrivate Sub Form_Resize() If WindowState = 1 Then Me.Visible = FalseEnd SubPrivate Sub Form_Load() 程序初始化 If App.PrevInstance Then Dim Recut As Integer Recut = MsgBox(程序已经运行，请检查窗口是否已被最小化！, 48, 提示) Unload Me Exit 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 Text1(j).Text = Next jEnd SubPrivate Sub numMPgl_Click() On Error GoTo ErrHandle frmData.Caption = 信息管理 - & mdbFile & & mdbDataName & 设置字符串变量来调用SQL语句 SQLoriginal = select * from & frmData.mdbDataName Data SQLadd = where Name=Name SQLorder = Data1.DatabaseName = mdbFile MyNote.mdb Data1.RecordSource = SQLoriginal + SQLadd + SQLorder Data1.Refresh ListRefresh Exit Sub 错误处理ErrHandle: MsgBox Err.DescriptionEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub ListView1_Click()If ListView1.ListItems.Count 0 ThenDim i, Count As Integer Count = ListView1.SelectedItem.Index Data1.Recordset.MoveFirst i = 1 Do While i Count Data1.Recordset.MoveNext i = i + 1 Loop (Name) (Oicq) ListViewItem = Count frmData.Text1(0).Text = frmData.Data1.Recordset.Fields(Sex) lPassword(frmData.Data1.Recordset.Fields(Sex) frmData.Text1(1).Text = frmData.Data1.Recordset.Fields(Age) lPassword(frmData.Data1.Recordset.Fields(Year) Age年龄 frmData.Text1(2).Text = frmData.Data1.Recordset.Fields(Year) lPassword(frmData.Data1.Recordset.Fields(Constell) frmData.Text1(3).Text = frmData.Data1.Recordset.Fields(Constell) frmData.Text1(4).Text = frmData.Data1.Recordset.Fields(Attributive) frmData.Text1(5).Text = frmData.Data1.Recordset.Fields(Blood) lPassword(frmData.Data1.Recordset.Fields(Address) frmData.Text1(6).Text = frmData.Data1.Recordset.Fields(Address) lPassword(frmData.Data1.Recordset.Fields(Address) frmData.Text1(7).Text = frmData.Data1.Recordset.Fields(TelepNo) lPassword(frmData.Data1.Recordset.Fields(TelepNo) frmData.Text1(8).Text = frmData.Data1.Recordset.Fields(MoveCall) lPassword(frmData.Data1.Recordset.Fields(MoveCall) frmData.Text1(9).Text = frmData.Data1.Recordset.Fields(Home) lPassword(frmData.Data1.Recordset.Fields(Home) frmData.Text1(10).Text = frmData.Data1.Recordset.Fields(Call) lPassword(frmData.Data1.Recordset.Fields(Call) frmData.Text1(11).Text = frmData.Data1.Recordset.Fields(Fax) lPassword(frmData.Data1.Recordset.Fields(Fax) frmData.Text1(12).Text = frmData.Data1.Recordset.Fields(Email) lPassword(frmData.Data1.Recordset.Fields(Email) frmData.Text1(13).Text = frmData.Data1.Recordset.Fields(Appendix) lPassword(frmData.Data1.Recordset.Fields(Appendix)End IfEnd SubPrivate Sub ListView1_DblClick() 双击修改ListView1_ClicknumUo_ClickEnd SubPrivate Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)-ListView1_ClickEnd SubPrivate Sub mdbFileData_Click(Index As Integer) mdbDataName = Data & CStr(Index) numMPgl_ClickEnd SubPrivate Sub numAcess_Click() 新建数据库mdbFile = DialogFile(Me.hwnd, 0, 新建数据库记录, MyData, Access(*.mdb) & Chr(0) & *.mdb & Chr(0) & All files(*.*) & Chr(0) & *.*, App.Path, mdb)If mdbFile = Then Exit SubDataNumbel = 0New_click 新建数据库nummdbData_ClickDim i As IntegerFor i = 2 To 5 mdbFileData(i).Visible = FalseNext iDocuManage.Visible = TrueDocuInquir.Visible = TruenumOption.Visible = TrueEnd SubPrivate Sub nummdbData_Click() 新建数据表cmdCreate_ClickAddNumbel 修改数据表记录ReadNumbel 读数据表记录numData.Enabled = TruenumMPgl_ClickEnd SubPrivate Sub numOpen_Click()On Error GoTo ErrHandlemdbFile = DialogFile(Me.hwnd, 1, 打开数据库记录, , Access(*.mdb) & Chr(0) & *.mdb & Chr(0) & All files(*.*) & Chr(0) & *.*, App.Path, mdb)If mdbFile = Then Exit SubnummdbData.Enabled = TrueDim i As IntegerFor i = 2 To 5 mdbFileData(i).Visible = FalseNext iDocuManage.Visible = TrueDocuInquir.Visible = TruenumOption.Visible = TruefrmLogin.Show vbModalIf NoLogin = True Then EndReadNumbelmdbDataName = data1numMPgl_ClickExit SubErrHandle: Exit SubEnd Sub-*任务栏图标*-Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Static Message As LongStatic RR As Boolean Message = X / Screen.TwipsPerPixelX If RR = False Then RR = True Select Case Message Case WM_LBUTTONDBLCLK DblClick If WindowState = 1 Then SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag 设置窗口在前 WindowState = 0 Me.Show Me.Visible = True SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag 设置窗口在前 Else WindowState = 1 Me.Visible = False End If Case WM_RBUTTONUP Me.PopupMenu numFile End Select RR = False End IfEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) TrayIcon.cbSize = Len(TrayIcon) TrayIcon.hwnd = Me.hwnd TrayIcon.uId = vbNull 删除任务栏图标 Call Shell_NotifyIcon(NIM_DELETE, TrayIcon)End SubPrivate Sub numPass_Click() frmLog.Show vbModalEnd SubPrivate Sub numRem_Click() 刷新数据窗口 把数据库显示恢复到原来形式 frmData.Data1.DatabaseName = frmData.mdbFile App.Path + MyNote.mdb SQLadd = where Name=Name frmData.Data1.RecordSource = SQLoriginal + SQLadd + SQLorder frmData.Data1.Refresh ListRefresh Unload frmCXEnd SubPrivate Sub numUo_Click() 修改记录If ListView1.ListItems.Count 0 ThenListView_Name = ListView1.ListItems(ListViewItem).SubItems(1) ListView_QQ = ListView1.ListItems(ListViewItem).SubItems(2) ListView_Love = ListView1.ListItems(ListViewItem).SubItems(3) Uo = True frmTJ.Command1.Enabled = False frmTJ.Show vbModalElse MsgBox 请选择要修改的记录！, vbOKOnly, 警告 SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flagEnd IfEnd Sub-*Private Sub Frm_Load()Dim clmX As ColumnHeaderApp.Title = ListView Sample Set clmX = ListView1.ColumnHeaders.Add(, , 编号, 100) Set clmX = ListView1.ColumnHeaders.Add(,