私人通讯录管理系统.docx
《私人通讯录管理系统.docx》由会员分享，可在线阅读，更多相关《私人通讯录管理系统.docx（13页珍藏版）》请在冰豆网上搜索。
私人通讯录管理系统
本科学生综合性实验报告
学号104100197姓名王飞
学院信息学院专业、班级软件工程10C
实验课程名称VB程序设计
教师及职称丁俊
开课学期2011至2012学年二学期
填报时间2012年6月12日
云南师范大学教务处编印
实验序号
实验一
实验名称
私人通讯录系统
实验时间
2012.06.10
实验室
睿智4号212
一．实验目的
掌握窗体对象、文本框、标签和命令按钮控件的常用属性、事件和方法及其使用；
理解面向对象程序设计的方法；
了解VisualBasic的特点及集成开发环境并开发工具；
会用各对象和按钮控件的常用属性，事件和方法进行简单的程序编写。
2．实验要求
独立设计用户界面，设置相应属性，编写相关代码。
软件环境：
VisualBasic++6.0
开发语言：
VisualBasic++6.0
服务器操作系统：
Windowsxp/7
服务器数据库：
Access2003/2007
3．实验内容
（一）.数据库构建
数据库名：
AddressList
有以下数据表：
1．CityList（城市表）
2．CountyList（乡镇表）
3．Group（分组）
4．Job（职业）
5．Nation（民族）
6．PeopleInfo（个人信息）
7．PeopleInGroup（个人所在组）
8．ProvinceList（省份表）
9.UserInfor（使用者信息表）
（2）窗体模块设计及代码编写
1.本模块是个人登录系统时的一个版面，点击“画面中的任意一点”即可进入下一个界面，主页面如图所示：
代码如下：
PrivateSubForm_Click（）'通过点击，显示登录界面
UnloadMe'释放窗体
Form2.Show'登录界面显示
EndSub
PrivateSubTimer1_Timer（）'通过时钟控制时间，显示登录界面
UnloadMe'释放窗体
Form2.Show'登录界面显示
EndSub
2.本模块主要是通讯录管理系统的登陆界面，用户输入正确的用户名，密码，验证才能进入下一界面；如果有输入错误的，则系统会显示相应的提示，并且禁止用户进入该系统。
用户可以新注册账号进入。
主页面如图所示:
部分代码如下：
PrivateSubCommand1_Click（）
StaticmiCountAsInteger'定义静态变量，用来记录用户登录错误的次数
Dimuser,pws
user=Trim（Text1.Text）
pws=Trim（Text2.Text）
IfText1.Text=""Then
MsgBox"请输入用户名！
",vbOKOnly+vbInformation,"系统提示信息"
Else
IfText2.Text=""Then
MsgBox"请输入密码！
",vbOKOnly+vbInformation,"系统提示信息"
Else'用户与密码与UserInfor表中一致时，释放本窗体，显示主窗体
sql="select*fromUserInforwhereUserName='"&user&"'"
Adodc1.RecordSource=sql
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"用户名不存在"
Adodc1.Recordset.Close
ExitSub
EndIf
IfAdodc1.Recordset.Fields（"Password"）.Value<>pwsThen
MsgBox"对不起！
您输入的密码错误！
",vbOKOnly+vbExclamation,"系统提示信息"
miCount=miCount+1
Adodc1.Recordset.Close
ExitSub
Else
Me.Hide
Form6.Show'显示主窗体
Adodc1.Recordset.Close
ExitSub
EndIf
IfmiCount=3Then
MsgBox"请核对密码后，再进行登录！
",vbOKOnly+vbInformation,"系统提示信息"
Me.Hide
'当登录次数错误到达3次时，显示提示信息，释放本窗体。
EndIf
EndIf
EndIf
EndSub
3.本模块是用户注册界面，未注册过账户的用户可以通过注册进入系统，注册界面如下：
部分代码如下：
PrivateSubCommand2_Click（）
IfText1.Text=""Then
MsgBox"用户名不能为空!
",vbOKOnly+vbInformation,"系统提示信息"
Text1.SetFocus'Text1设置成焦点
ExitSub
EndIf
'IfText1.Text<>""Then
'Adodc1.Recordset.MoveFirst
DoWhileAdodc1.Recordset.EOF=False
IfText1.Text=Adodc1.Recordset.Fields
（1）Then
MsgBox"该用户名已存在！
请重新输入！
",vbOKOnly+vbInformation,"系统提示信息"
Text1.Text=""
Text1.SetFocus
ExitSub
EndIf
Adodc1.Recordset.MoveNext
Loop
4.本模块是密码找回，用户在注册时通过写密保问题，当用户记不得密码时可以通过密保找回密码。
界面如下：
5.本模块是主窗体界面，用户登陆后即进入此界面，用户可以在该界面执行各种操作。
界面如下图：
部分代码如下：
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
'在工具栏中点击相应的按钮，显示相应的窗体
SelectCaseButton.Index'根据按钮的索引号，来确定显示相应的窗体
Case1
Form10.Show'显示查询窗体
Form10.Command4.Visible=True'返回主菜单的“返回”按钮显示
Form10.Command3.Visible=False'返回联系人信息的“返回”按钮不显示
Case2
form9.Show
Case3
DimiAsInteger
i=MsgBox（"您确定退出吗？
",vbYesNo+vbInformation,"系统提示信息"）
Ifi=6Then
End
EndIf
EndSelect
EndSub
6.本模块是主系统界面中的子界面——密码修改窗体，用户可以进行密码修改，界面如图所示：
部分代码如下：
PrivateSubCommand1_Click（）
'在UserInfor表中找相应用户名的记录，并显示出用户名与密码
Adodc1.RecordSource="select*fromUserInforwhereUserName='"&Form2.Text1.Text&"'"
Adodc1.Recordset.Fields（"UserName"）=Text1.Text
Adodc1.Recordset.Fields（"Password"）=Text3.Text
Adodc1.Recordset.Update
MsgBox"恭喜你！
密码修改成功!
",vbOKOnly+vbInformation,"系统提示信息"
EndSub
7.本模块是主系统界面中的子界面——联系人信息录入界面，由于本部分代码偏多，就不做详细介绍
如图所示：
8.本模块是主系统界面中的子界面——信息查询界面，用户可以在此查找需要查找的联系人，通过访问数据库，可以查询到相关人信息，并显示。
如图所示：
部分代码如下：
PrivateSubCommand1_Click（）
IfTrim（Combo1.Text）=""OrTrim（Combo2.Text）=""Then
MsgBox"请选择查询条件和运算符",vbOKOnly+vbInformation,"系统提示信息"
ExitSub
Else
IfTrim（Text3.Text）=""Then
MsgBox"请输入查询内容",vbOKOnly+vbInformation,"系统提示信息"
Text3.SetFocus
ExitSub
EndIf
EndIf
Adodc2.ConnectionString=connectstring（）
Adodc2.CommandType=adCmdText
dbstring="select*fromPeopleInfor"
dbstring=dbstring&"wherePName='"&Text3&"'"
Adodc2.RecordSource=dbstring
Adodc2.Refresh
IfAdodc2.Recordset.BOFThen
MsgBox"该用户不存在",,"系统提示信息"
ExitSub
EndIf
SetDataGrid1.DataSource=Adodc2
DataGrid1.Refresh
Label5.Caption="共有记录：
"&Adodc1.Recordset.RecordCount
EndSub
9.本模块是主系统界面中的子界面——关于。
是模仿于一些系统锁设计的，关于本系统的一些信息：
10.本模块是主系统界面中的子界面——帮助。
此界面也是模仿一些系统实例，对本系统的使用做了进一步说明，通过Easychm软件做的chm帮助文件。
代码如下：
PrivateSubbz_Click（）
'调用显示"帮助"文件
CallShell（"hh.exe"+App.Path+"\help.chm",vbMaximizedFocus）
EndSub
4．实验小结
通讯录系统具可以根据好友同学的不同熟悉程度、友好度来分别管理通讯录中不同胡人员名单，还可以根据选权信息来对信息资料的管，这个通讯录系统主要是用来实现好友、同学的信息资料管理，便于人们与联系人联系。
另外，还对该系统窗体图标，按钮各种做了美化，希望能够达到美观的效果。
但是本系统还有很多漏洞，这个系统还有待改进。
教师评语及评分：
签名：
年月日
升级会员 