VB大实验_vb大综合性实验
VB大实验由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb大综合性实验”。
综 合 性 实
实 验 名 称: 通讯录管理系统
专 业 班 级: 数字1201班
学 生 姓 名:马晓军
学 号：201225070125 指 导 教 师：王云侠
验需求分析：
通讯录管理系统是针对系统服务对象的具体要求设计的，能够输入所有人员的相关信息，实现人员的分类管理和查询。主要设计了以下几大功能：(1)新建、修改、删除通讯录记录(2)能根据姓名进行模糊查询(3)能根据电话查询某人(4)方便的浏览逐条记录运行环境：
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 系统运行及测试；参考文献;
[1]龚培曾，杨志强Visual Basic程序设计教程（第3版），高等教育出版社，2001/12 7心得体会：
1.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在程序入门阶段还是应该重视概念的学习、多请教老师、多与同学交流解决问题的方法、多与他人进行讨论问题，所有VB问题都会弄懂的。
2.VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成。
3.课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业。4.最后，本学期我VB程序设计能顺利完成，我最要感谢的是我的王云侠老师，本身VB程序设计是很门让人枯燥乏味的课程，而且让我们感觉很难的课程；但是，值得我们幸运的是，我们遇到一位颇有责任心、有耐心、讲课通俗易懂的好老师——王老师，加上她平日的热情、耐心认真地指导；最终，使得我的通讯录管理系统综合实验很顺利的完成了；更使我懂得了，只要认真、用心、踏实地学习VB程序设计，我们一定会把VB学好的。
