个人通讯录系统设计【范本模板】

个人通讯录系统设计
摘要：
系统主要为满足单个用户对联系人的管理和查询工作而设计。

系统使用Visual Basic 作为编程语言、选用Access 2003作为后台数据库，并用ADO对象和ADO Data 控件进行数据库编程，实现了用户对联系人信息的添加、查询、浏览、修改、删除和对基本用户的管理。

系统设计突出个性化、人性化的特点。

界面美观,友好.登录后即出现欢迎画面,为防止用户出现密码遗忘的情况，系统还创新性地设计了密码保护程序。

用户可通过回答密码提示问题,找回自己遗忘的密码,实现登录.用户可以随时修改密码，还可通过系统获得必要的帮助,查看系统的介绍。

关键字:通讯录 VB Access
目录：
一、选题背景—--——-—--—--——————--——--——————-————--———
—————---——-———2
1、系统开发背景--———-—-——-———————-—————--—---————
—--——---——————2
2、设计思路-—-—-----—--———--—-——-—--—---—----——-————-—
----—-———3
3、系统指导思想——-—---———-----————-—--—---—-——-—-----—-—-—----—3
4、应解决的主要内容—---—————————-—--—-—-——----——---——--
—--—--—3
二、可行性分析——----——-——-—----—-——-------—————-------—-————————-4
1、技术可行性------—-—-—-—————-——----—--—--—---——----—---————--4
2、经济可行性——--—-—--——-----————--————---—-—-—----——-———-—-—-—4
3、环境可行性-----—---—---—--——-----—--——--—----————---—---—-—-5
4、进度可行性—--—-—-—-————————-——---——-----—--————---
—-——-———--5
三、需求分析—-————--—----——--—-——---—-———-——--—-—-———-——-—--——5
1、用户需求分析-—————---——---—---—-—-—-—-—--—---—-——--—-——-——--5
2、业务流程分析---——-—-----—————-—-------——-———-—-———------——-—6
3、数据流程分析--—-——--—---—————---—-—--—-—-—-——-—-—--————————-6
4、数据字典-—-—---——————-——-——----—-——-—-———---—-------———-——7
5、处理逻辑分析—--——--——-—------——-——--—---—-—-—--———----——--—16
四、系统设计-——--—-———------—-—---—-—-—--—-—--———-—--——-——----——16
1、总体结构设计--—-—-——-—------————-—-----—--—--—-——---—----——16
2、E—R模型设计-—----———--———-—-——---—-—--—————-—-—---———-—-—-—17
3、代码设计-——--——--————-—---——--—————-—---—-—-—-—-—-———————---17
4、输入输出设计—----——---—----—-——-——-—------———--—-———--——-——18
5、人机对话设计—--——-——-—-——---—-———-—----—-——---—-———---——----10
五、系统实现方法——--—-——--——--—--—--——--———-——-———————---—--—--20
六、系统测试及评价----—--—-—--——-—-—----——-—-—---—-—---—-—----20
七、附录——-—--————-——--————--—-——————------————-——--—-——--—-——--—-21
八、参考文献——-—----—---———-——--—---——————--——-—-—————-——————---42
正文：
一、选题背景
1、系统开发背景
通讯录在当今的日常生活工作中的应用是十分普及的。

每个人都有可能拥有大量的通讯录资料信息，当前大家一般都用手工来记录所有的通讯录信息.随着时代的进步，人们的联系信息，联系方式变得复杂而多样化,通讯录信息的大量增加，导致管理这些信息资料就成了问题。

直接操作来查找,添加,修改,删除这些信息，由于数据繁多，工作量十分巨
大,查找,编辑都十分困难,而且极易出错，容易造成资料的混乱或者丢失。

在各种手机,商务通内设的电话簿尽管携带方便却又存在“记录量少，界面小，浏览不方便，记录数据信息不全面"的缺点。

有些人利用Excel 或Word编制通讯录,虽然数据比较全面，信息比较充分，可是查找极其不便，维护起来也麻烦。

所以运用数据库技术，在计算机中建立一个通讯录资料管理系统十分必要。

使通讯录资料管理工作规范化,系统化，程序化,避免资料管理中的混乱,提高信息处理的速度和准确性,能够及时、准确、有效的查询和修改通讯录的情况。

2、设计思路
本通讯录系统采用的是当前比较主流的编程语言Visual Basic 6.0 作为实现工具，选取Access 作为后台数据库。

Visual Basic 6.0易学易用，受到广大程序开发人员的喜爱。

Access 作为一个面向对象的开发工具，可视化强,且其风格与Windows完全一样,用户易学易懂，使用起来直观方便。

Access 基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，可以极大地提高开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印可以等可以饭卡改变有序地进行.Access 还支持ODBC，综上，Access 非常适合小型数据库的开发
3、系统指导思想
立足于实际，着眼于未来发展，建成符合标准化协议、通用性较强、实用的系统，以提高通讯录信息的现代化管理水平，实现信息资源的共享。

4、应解决的主要问题
4.1系统达到的目标
通讯录管理系统的主要任务是通过大量的资料获得管理所需要的的信息，这就必须存储和管理大量数据.因此建立一个良好的资料组织结构和数据库，使整个系统可以迅速、方便、准确地调用资料，是衡量信息系统开发工作好坏的主要指针之一。

数据库设计主要是进行数据库的逻辑设计，将数据进行一定的分类，是面向用户的.数据库设计时需要综合用户需求,按照DBMS提供的功能和描述工具,设计出规模适当、正确反映数据关系、数据冗余少、存储效率高、能满足多种查询要求的数据模型。

4.2范式分析
通讯录管理系统属于第二范式，依据联系人信息表的姓名及用户管理表的用户名作为主关键字，使数据元素与主关键字一一对应.只要在查询页面输入联系人姓名，就可以唯一地找到联系人的相关信息.该通讯录管理系统的定义,保证了记录的唯一性和安全性,实现了系统的规范化和安全性.
二、可行性分析
1、技术可行性
系统主要用Visual Basic 6。

0编写,Visual Basic 作为一种比较主流的语言，发展较早，技术上也比较成熟，从开始到现在已经过大量实践论证，安全性好，开发优势明显。

后台数据库连接采用通用的Access 2003 ，作为微软主推的小型数据库，在用户群中安装的人较多。

大多数用户不必重新安装即可使用，即通用性好.
大一时,我系统地学习了Visual Basic的程序设计,去年9月又顺利通过了全国计算机等级考试-—二级Visual Basic。

对Visual Basic 的程序编写技术掌握得较好，能熟练运用Visual Basic 的相关控件和数组等，完全能过胜任此系统的开发工作。

编写的程序简洁、易用性好、可读性强。

本学期,认真地学习了管理信息系统,了解了Access数据库SQL语言的应用、表单的创建、数据库连接等知识.
2、经济可行性
前期的需求分析，系统分析,中期的系统设计、代码设计。

这个通讯录系统较为简单,由我一人独立完成,花费的人力、物力、财力较少，在经济上是可行的。

编写主要采用Visual Basic 和Access ，代码相对比较简单,维护成本低。

该系统主要针对个人用户，受众群较广，从前期需求调研来看，有较大的市场前景。

项目也具有巨大的无形效益：用户可利用该系统实现对联系人的便捷管理,立体管理自己的社会关系网络。

节省了用户大量的时间、精力。

3。

环境可行性
从前期的调研以及与周围同学（潜在用户)的交谈中，大家对通讯录系统具有一定的需
求性.从国家制度上看，国家大力支持电子信息产业的开发.
4。

进度可行性
如前所述，该系统开发周期短,见效时间快.进度上不存在困难.按照预计计划,一个月之内可以完成.
三、需求分析
1、用户需求分析
在信息时代,利用计算机和数据库系统进行通讯录管理以成为主流趋势。

经过调研，与身边同学交流，为通讯录系统确立了如下需求：
1。

利用计算机实现通讯录信息的存储、修改、删除。

2。

利用计算机实现通讯录信息的打印和输出
3.利用计算机实现备忘事件的提醒
4.利用方便的操作手段,实现对通讯信息的查询
5.通过对系统登录的权限要求，尽可能地保护用户的个人信息
功能设计包括如下几个方面：
1.用户注册:用于注册用户，以及用户的家人、朋友。

2。

用户登录：供已注册用户登录系统
3。

用户浏览:供超级用户对注册用户的统一浏览
4。

用户管理：用户登录密码的修改，用户的增加和删除
5.联系人查找：设置多种查找方案，便捷迅速地获得联系人资料。

6。

联系人浏览：设置整体和局部两种浏览方案，即可总括了解，又可逐条了解联系人信息。

7.资料添加：对联系人信息的完善
8。

资料修改:及时修改联系人信息，使之更加准确
9。

资料删除：删除联系人基本资料，适应用户需求
2、业务流程分析
3、数据流程分析
4、数据字典
数据元素
系统名：联系人管理编号：
条目名：姓名别名:name
属于数据流：联系人信息存储处：联系人信息表
数据元素构成
代码类型取值范围意义
字符型2—3个字符X XX
名
姓
简要说明：标识联系人的姓名
修改记录：编写xyz 日期2009年12月20日
审核xyz 日期2010年1月1日
5、处理逻辑分析
四、系统设计
1、总体结构设计：
系统总共有六个模块，分别是：
登录模块：有文本框输入登陆者的登录账号及其密码。

下设4个Command按钮分别是登录、退出、注册、找回密码。

联系人查询模块：输入查询姓名就可以调用详细查询模块。

联系人浏览模块：可输出并详细列出查询对象的详细信息.
联系人添加模块：可添加联系人的信息。

联系人修改模块：可修改联系人的信息。

用户密码修改模块：可更改用户的密码。

2、E-R模型设计
3、代码设计
3。

1数据库代码设计
姓名：联系人的姓名
生日：联系人的出生年月日
关系：联系人与用户的关系
住址：联系人的住址
邮编：联系人的邮编
手机：联系人的手机号
好友印象：联系人对该好友的印象
QQ：联系人的QQ号码
关系：表明联系人与个人用户的关系分组情况
用户信息表(用于提示用户信息)
联系人信息表
3.2 系统代码设计
Conn 作为数据库连接对象
Rsyz 作为数据库记录集对象
User 作为对用户信息的数据库记录集对象4、输入输出设计
4.1输入设计
采用填表式，用户界面自然。

4.2输出设计
简列式的形式反馈给用户。

5、人机对话设计
采用菜单式、列表式、问答式。

菜单式：
填表式：
五、系统实现
该系统主要采用ADO数据库编程的方法,在Visual Basic 环境中实现了数据的输入，输出，调用和更改。

详细运行情况见附录—-系统运行.
六、系统测试及评价
1、测试项目
黑盒测试:对系统的功能进行测试
2、测试人员
邀请我的同学xxx担任测试人员，对系统想要实现的功能进行黑盒测试。

3、测试结果
测试结果功能项分布及测试结果情况：
测试需求测试重点及结果通过原因测试结果
用户登录输入用户名1位、密码1位满足需求通过
4、系统评价
经过测试，所发现的个别过程、数据和编码错误，经调试,已得到改善。

可满足个人用户对通讯录系统的要求.
七、附录
1、与项目有关的图表
初始界面设计：
Private Sub Command1_Click（)
Form2。

Show
Form1。

Hide
End Sub
Private Sub Command2_Click（)
End
End Sub
Private Sub Form_Load（)
Picture = LoadPicture（App.Path & ”/7.jpg"）
Calendar1。

Value = Date
End Sub
登录界面设计
Option Explicit
Dim rs As Adodc
Dim sql As String
Public a As String
Private Sub Cmdforget_Click()
Me.Hide
Form8.Show
End Sub
Private Sub Cmdlogin_Click（)
Static interr As Integer
Adouser。

Refresh
Set rs = Adouser
rs。

Recordset。

Find ”用户名= ’”& userid.Text & ”'" If Not rs.Recordset。

EOF Then
If rs。

Recordset("密码") = password。

Text Then
Form6。

Show
Unload Me
Else
MsgBox ”密码输入错误,请重新输入!"，vbExclamation With password。

SelLength = Len(。

Text）
.SetFocus
End With
interr = interr + 1
If interr = 3 Then
Set rs = Nothing
Unload Me
End If
End If
Else
MsgBox "不存在该用户,请重新输入！”, vbExclamation With userid。

SelStart = 0。

SelLength = Len(.Text）。

SetFocus
End With
End If
End Sub
Private Sub Cmdexit_Click（）
Form1。

Show
Unload Me
End Sub
Private Sub Command1_Click()
Form3.Show
Form2.Hide
End Sub
Private Sub Form_Initialize（)
ChDrive App.Path
ChDir App.Path
End Sub
Private Sub Form_Load(）
Picture = LoadPicture（App。

Path ＆"/g.jpg”) Cmdlogin.Default = True
sql = ”select * from 用户管理表”
Adouser.RecordSource = sql
End Sub
主界面设计:
Private Sub adduser_Click() Form8。

Show
Me.Hide
End Sub
Private Sub back_Click() Form2。

Show
Me。

Hide
End Sub
Private Sub change_Click（) Form5。

Show
Me。

Hide
End Sub
Form7。

Show
Me。

Hide
End Sub
Private Sub exit_Click（）
End
End Sub
Private Sub Form_Load（）
Picture1。

Picture = LoadPicture(App.Path & ”/6.jpg”）End Sub
Private Sub more_Click（)
Form7.Show
Me。

Hide
End Sub
Private Sub select_Click（）
Form10。

Show
Me.Hide
End Sub
Private Sub view_Click()
Form7。

Show
Me。

Hide
End Sub
Private Sub viewuser_Click（）
Form9.Show
Me.Hide
End Sub
基本操作窗体
主要实现对联系人的添加、浏览、删除。

代码如下：
Public cnyz As New ADODB。

Connection
Public rsyz As New ADODB.Recordset
Private Sub viewdata（）
On Error Resume Next
Text1(0）。

Text = rsyz。

Fields（"name”)
Text1(1）。

Text = rsyz。

Fields(”birth"）
Text1(2)。

Text = rsyz.Fields（"email”)
Text1(3）。

Text = rsyz。

Fields（"homeaddress"）
Text1（4).Text = rsyz。

Fields（"phone”)
Text1(5）。

Text = rsyz。

Fields（”mobilephone"）
Text1(6).Text = rsyz。

Fields（”postcode")
Text1（7）。

Text = rsyz.Fields（”msn”)
Text1(8）.Text = rsyz.Fields("qq”)
Text1（9）。

Text = rsyz。

Fields（"relation”)
Text1（10).Text = rsyz。

Fields（”work”)
Text1（11）。

Text = rsyz。

Fields("school")
Text1（12）。

Text = rsyz.Fields("impression"）
End Sub
Private Sub Command1_Click（）
Me。

Hide
Form6.Show
End Sub
Private Sub Form_Load(）
Dim connectionstring As String
connectionstring = ”provider=microsoft.jet.oledb。

4.0；" ＆”data source=" & App。

Path & ”\通讯录系统.mdb”
cnyz.Open connectionstring
rsyz.Open ”select ＊from 联系人信息表", cnyz, adOpenKeyset，adLockOptimistic MsgBox ("hello")
If rsyz。

BOF And rsyz.EOF Then
MsgBox ("no”)
For i = 0 To 3
Cmdmove（i）.Enabled = False
Next i
Cmdedit。

Enabled = False
Cmddelete。

Enabled = False
Cmdadd1.Enabled = False
rsyz.AddNew
Else
rsyz.MoveFirst
Call viewdata
For i = 0 To 12
Text1(i）。

Enabled = False
Next i
Cmdsave。

Enabled = False
Cmdcancel。

Enabled = False
End If
End Sub
Private Sub cmdmove_click（Index As Integer）
Select Case Index
Case 0
rsyz。

MoveFirst
Cmdmove(0)。

Enabled = False
Cmdmove(1)。

Enabled = False
Cmdmove（2).Enabled = True
Cmdmove（3）.Enabled = True
Case 1
rsyz。

MovePrevious
If rsyz.BOF Then rsyz。

MoveFirst
Cmdmove（2)。

Enabled = True
Cmdmove(3).Enabled = True
Case 2
rsyz.MoveNext
If rsyz。

BOF Then rsyz.MoveLast
Cmdmove(0).Enabled = True
Cmdmove（1）。

Enabled = True Case 3
rsyz。

MoveLast
Cmdmove(0）.Enabled = True Cmdmove（1)。

Enabled = True Cmdmove(2)。

Enabled = False Cmdmove(3）。

Enabled = False End Select
Call viewdata
End Sub
Private Sub Cmdadd1_click（）For i = 0 To 12
Text1(i）.Enabled = True
Text1（i)。

Text = ””
Next i
rsyz。

AddNew
Text1(0)。

SetFocus
Cmdadd1。

Enabled = False Cmddelete.Enabled = False Cmdedit。

Enabled = False Cmdsave.Enabled = True Cmdcancel。

Enabled = True
End Sub
Private Sub Cmdedit_click（)
If rsyz.RecordCount 〈〉0 Then For i = 1 To 12
Text1（i）。

Enabled = True
Next i
Cmdsave.Enabled = True Cmdcancel.Enabled = True Cmdadd1.Enabled = False Cmdedit。

Enabled = False Cmddelete。

Enabled = False Cmdmove(0).Enabled = False Cmdmove（1）.Enabled = False Cmdmove（2）。

Enabled = False Cmdmove(3）.Enabled = False Else
MsgBox （"no words ”)
End If
End Sub
Private Sub Cmdsave_click(）
If Text1（0).Text = ”" Then
MsgBox "不能为空”
Text1(0）.SetFocus
Exit Sub
End If
rsyz.Fields（"name") = Text1（0)。

Text
rsyz。

Fields（”birth") = Text1（1)。

Text
rsyz。

Fields("email”）= Text1(2).Text
rsyz.Fields(”homeaddress"）= Text1(3).Text
rsyz。

Fields("phone”) = Text1(4）.Text
rsyz。

Fields(”mobilephone”) = Text1(5）。

Text
rsyz.Fields("postcode”）= Text1(6).Text
rsyz。

Fields（"msn”）= Text1（7)。

Text
rsyz。

Fields(”qq"）= Text1(8）。

Text
rsyz.Fields(”relation"）= Text1(9).Text
rsyz.Fields（”work") = Text1(10)。

Text
rsyz。

Fields（”school") = Text1(11）.Text
rsyz。

Fields(”impression”）= Text1(12)。

Text rsyz.Update
For i = 0 To 12
Text1（i).Enabled = False
Next i
Cmdsave。

Enabled = False
Cmdcancel。

Enabled = False
Cmdadd1.Enabled = True
Cmdedit.Enabled = True
Cmddelete。

Enabled = True
Cmdmove（0).Enabled = True
Cmdmove（1)。

Enabled = True
Cmdmove（2).Enabled = True
Cmdmove（3)。

Enabled = True
End Sub
Private Sub Cmddelete_click(）
Dim myval As String
myval = MsgBox（"是否要删除该记录?”, vbYesNo）If myval = vbYes Then
rsyz.Delete
rsyz.MoveNext
If rsyz。

RecordCount = 0 Then
For i = 0 To 12
Text1(i) = ”"
Next i
Cmdedit。

Enabled = False
Cmdsave.Enabled = False
Cmdcancel。

Enabled = False
Cmddelete.Enabled = False
Else
'rsyz。

movenext
If rsyz.EOF Then
rsyz。

MoveLast
Call viewdata
For i = 0 To 12
Text1（i）.Enabled = False
Next i
End If
Call viewdata
End If
End If
End Sub
Private Sub Cmdcancel_click()
rsyz。

CancelUpdate
If rsyz。

BOF And rsyz.EOF Then
MsgBox "数据表中无记录，请添加记录或退出”Cmdadd1.Enabled = True
Cmdsave.Enabled = False
Cmdcancel。

Enabled = False
Else
Call viewdata
For i = 0 To 12
Text1(i)。

Enabled = False
Next i
Cmdsave。

Enabled = False
Cmdcancel.Enabled = False
Cmdadd1。

Enabled = True
Cmdedit.Enabled = True
Cmddelete.Enabled = True
Cmdmove(0).Enabled = True
Cmdmove（1）。

Enabled = True
Cmdmove（2).Enabled = True
Cmdmove（3).Enabled = True
End If
End Sub
Private Sub Cmdexit_Click(）
End
End Sub
用户注册窗体:
Public cnyz As New ADODB.Connection
Public user As New ADODB。

Recordset
Private Sub Cmdcancel1_Click(）
For i = 0 To 4
Text1（i).Text = ”"
Next i
End Sub
Private Sub Cmdlogin_Click（）
For i = 0 To 4
Text1（i）.Enabled = True
Text1（i）.Text = ”"
Next i
user.AddNew
Text1（0)。

SetFocus
Cmdsave1。

Enabled = True
Cmdcancel1.Enabled = True
End Sub
Private Sub Form_Load(）
Picture1。

Picture = LoadPicture(App.Path ＆"/8.jpg")
Dim connectionstring As String
connectionstring = "provider=microsoft.jet。

oledb。

4。

0；”& ”data source=" ＆App.Path ＆”\通讯录系统。

mdb"
cnyz.Open connectionstring
user。

Open "select ＊from 用户管理表”，cnyz, adOpenKeyset, adLockOptimistic
MsgBox （"hello”)
For i = 0 To 4
Text1（i）.Enabled = False
Next i
End Sub
Private Sub Cmdsave1_click(）
If Text1（0）.Text = "" Then
MsgBox ”不能为空"
Text1(0）.SetFocus
Exit Sub
End If
user.Fields(”用户名") = Text1（0).Text
user。

Fields("密码”）= Text1(1）。

Text
user。

Fields(”确认密码") = Text1(2）。

Text
user。

Fields（"密码提示问题”) = Text1（3）.Text
user。

Fields(”答案”）= Text1（4）.Text
user.Update
For i = 0 To 4
Text1(i）.Enabled = False
Next i
Cmdsave1。

Enabled = False
Cmdcancel1。

Enabled = False
End Sub
用户查询窗体：
Public cnyz As New ADODB.Connection
Public rsyz As New ADODB。

Recordset
Private Sub Command1_Click(）
If Trim(Text1。

Text = "”）Then
MsgBox （"请输入查询的信息！”)
Else
rsyz。

Open ”select ＊from 联系人信息表where name ='" & Trim(Text1.Text）＆”’”, cnyz，
1, 3
If rsyz。

EOF Then
MsgBox "不存在该用户，请重新输入!”，vbExclamation
Else
On Error Resume Next
Text2（0).Text = rsyz.Fields（”name”)
Text2(1）。

Text = rsyz.Fields("birth”）
Text2(4）.Text = rsyz.Fields(”email"）
Text2(5).Text = rsyz。

Fields(”homeaddress”)
Text2（2）。

Text = rsyz。

Fields("phone”)
Text2(3)。

Text = rsyz.Fields("mobilephone”）
Text2(6)。

Text = rsyz.Fields（”postcode"）
Text2(7)。

Text = rsyz。

Fields（"msn")
End If
End If
Command1.Enabled = False
End Sub
Private Sub Command2_Click（)
DataGrid1。

Visible = True
End Sub
Private Sub Command3_Click()
Set rsyz = Nothing
Command1。

Enabled = True
Text1。

Text = "”
For i = 0 To 6
Text2（i）= ”"
Next i
End Sub
Private Sub Command4_Click（)
Me。

Hide
Form6.Show
End Sub
Private Sub Command5_Click(）
End
End Sub
Private Sub Form_Load（)
Picture = LoadPicture（App.Path & ”/2.jpg”）
Dim connectionstring As String
connectionstring = "provider=microsoft.jet.oledb。

4。

0;" ＆”data source=" ＆App.Path ＆"\通讯
录系统。

mdb"
cnyz.Open connectionstring
For i = 0 To 6
Text2(i）= ””
Next i
End Sub
Private Sub Form_Initialize() ChDrive App.Path
ChDir App。

Path
End Sub
用户信息浏览窗体
Private Sub Command1_Click()
Me.Hide
Form6。

Show
End Sub
Private Sub Form_Initialize(）
ChDrive App。

Path
ChDir App。

Path
End Sub
密码修改窗体
Public cnyz As New ADODB.Connection
Public user As New ADODB.Recordset
Private Sub Cmdchange2_Click（）
For i = 0 To 2
Text1（i)。

Enabled = True
Text1(i）.Text = ””
Next i
Text1（0）.SetFocus
Cmdsave2.Enabled = True
Cmdcancel2。

Enabled = True
End Sub
Private Sub Cmdexit_Click(）
End
End Sub
Private Sub Cmdfanhui_Click(）
Form6。

Show
Me.Hide
End Sub
Private Sub Cmdsave2_Click(）
If Text1（0)。

Text = "” Then
MsgBox "不能为空”
Text1（0）。

SetFocus
Exit Sub
Else
user.Open ”select * from 用户管理表where 用户名='" ＆Trim（Text1（0）。

Text）＆"’"，cnyz，1, 3
If user.EOF Then
MsgBox "不存在该用户，请核实后输入！”
For i = 0 To 2
Text1(i) = "”
Next i
Else
If Trim（user.Fields(”密码")）= Text1（1)。

Text Then
user。

Fields（"用户名") = Text1(0)。

Text
user.Fields（”密码"）= Text1（2)。

Text
user.Update
MsgBox "恭喜你!密码修改成功！”
Else
MsgBox "密码不正确，请核实后再输入!"
Text1（1）。

Text = ”"
Text1（2）.Text = ""
End If
End If
End If
Set user = Nothing
End Sub
Private Sub Form_Load（）
Dim connectionstring As String
connectionstring = "provider=microsoft.jet.oledb。

4.0;”＆”data source=”＆App.Path & "\通讯录系统。

mdb"
cnyz。

Open connectionstring
For i = 0 To 2
Text1（i）.Enabled = False
Next i
End
密码提示窗体
Public cnyz As New ADODB.Connection
Public user As New ADODB.Recordset
Private Sub Cmdexit_Click(）
Me。

Hide
Form2.Show
End Sub
Private Sub Cmdok_Click()
If Trim（user。

Fields("答案”）) = Text1(1）.Text Then
Text2.Visible = True
Label3.Visible = True
Else
MsgBox "很遗憾，您的答案有误！”
End If
End Sub
Private Sub Form_Load(）
Dim connectionstring As String
connectionstring = "provider=microsoft.jet.oledb。

4。

0；" & "data source=" & App.Path ＆"\通讯录系统.mdb"
cnyz.Open connectionstring
user。

Open ”select ＊from 用户管理表where 用户名=’”＆Trim（Form2。

userid。

Text）& ”'"，cnyz，1, 3
Text1(0）.Text = user.Fields("密码提示问题”)
Text2。

Text = user。

Fields(”密码”）
End Sub
2、运行结果
成功实现了系统设计的要求。

非系统用户
密码提示问题运行
左边为回答正确密码提示问题，右边为答案有误的情况。

密码修改
输入原密码有错
修改成功
3、主要设备
处理器Intel Core2 Duo(Penryn） T6500(2。

1GHz)核心架构Penryn
处理器类型酷睿2双核
处理器主频2100MHz
管理信息系统设计个人通讯录管理系统设计
八、参考文献
1、王瑞梅、郑小平、傅晓涛.管理信息系统.北京.2009
2、郑小玲.Access项目开发实用案例。

科学出版社.北京，2006
41。