VB大实验

综 合 性 实

实 验 名 称: 通讯录管理系统

专 业 班 级: 数字1201班

学 生 姓 名:马晓军

学 号：201225070125 指 导 教 师：王云侠

验

1 需求分析：

通讯录管理系统是针对系统服务对象的具体要求设计的，能够输入所有人员的

相关信息，实现人员的分类管理和查询。主要设计了以下几大功能：(1)新建、修改、删除通讯录记录(2)能根据姓名进行模糊查询(3)能根据电话查询某人(4)方便的浏览逐条记录

2 运行环境：

WINDOWS XP系统；VB6.0 3开发工具和编程语言：

Visual Basic6.0语言 4 系统设计

1.在下面窗口实现信息的浏览，新建，删除以及修改，按确定执行操作，按取消则放弃操作。

系统主窗体

代码：

Private Sub CmdAdd_Click() Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount

End Sub Private Sub CmdChange_Click() CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdDel_Click() x = MsgBox(\"确定要删除当前记录吗？\", vbYesNo + vbQuestion, \"确认\") If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdEsc_Click() Adodc1.Refresh

CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdFind_Click() Form2.Show

End Sub Private Sub CmdFirst_Click() Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdLast_Click() Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdN_Click() Dim n As Integer n = Text9.Text Adodc1.Recordset.Move n Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdNext_Click() Adodc1.Recordset.MoveNext CmdFirst.Enabled = True CmdPre.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast CmdNext.Enabled = False CmdLast.Enabled = False End If

Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdOk_Click() Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Text1.Locked = True Text2.Locked = True

Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdPre_Click() Adodc1.Recordset.MovePrevious CmdNext.Enabled = True CmdLast.Enabled = True If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End If Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub Private Sub Form_Load() CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = \"记录：\" & Adodc1.Recordset.AbsolutePosition & \"/\" & Adodc1.Recordset.RecordCount End Sub 2.选择要查询的条件，输入查询的信息，按下查询按钮即可显示查询结果，按下返回按钮返回上级窗口。

查询界面窗体

代码：

Private Sub CmdBack_Click() Form1.Show Unload Me End Sub Private Sub CmdFind_Click() Dim str As String str = \" Select * From person \"

str = str & \"Where person.\" & Combo1.Text & \" Like \'\" & Text1 & \"% \'\" Adodc1.RecordSource = str Adodc1.Refresh End Sub Private Sub Form_Load() Combo1.AddItem \"姓\" Combo1.AddItem \"名\" Combo1.AddItem \"手机\" Combo1.AddItem \"地址\" Combo1.AddItem \"公司\" Combo1.AddItem \"所在组\" Text1.Text = \"\" End Sub 5 系统运行及测试；

6 参考文献;

[1]龚培曾，杨志强Visual Basic程序设计教程（第3版），高等教育出版社，2001/12 7心得体会：

1.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在程序入门阶段还是应该重视概念的学习、多请教老师、多与同学交流解决问题的方法、多与他人进行讨论问题，所有VB问题都会弄懂的。

2.VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成。

3.课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业。 4.最后，本学期我VB程序设计能顺利完成，我最要感谢的是我的王云侠老师，本身VB程序设计是很门让人枯燥乏味的课程，而且让我们感觉很难的课程；但是，值得我们幸运的是，我们遇到一位颇有责任心、有耐心、讲课通俗易懂的好老师——王老师，加上她平日的热情、耐心认真地指导；最终，使得我的通讯录管理系统综合实验很顺利的完成了；更使我懂得了，只要认真、用心、踏实地学习VB程序设计，我们一定会把VB学好的。

VB实验指导书

vb综合实验

vb实验教案

vb程序设计实验心得

VB实验4要求

VB综合实验8_08_09

VB综合实验7_08_09

实验4 小型实用软件设计(vb大作业)

VB程序设计(大作业)

vb实验教案(第3次)

《VB大实验.doc》

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档