学生通讯录vb课程设计

沈 阳 航 空 航 天 大 学 课程设计 学    号 2011040305021 班  级 14030501                姓    名 夏军 指导教师 董如楠 2013年    3  月  14  日 沈阳航空航天大学 课程设计任务书 学院：航空航天 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 学部 专业：飞行器制造（航维）  班级：14030501 学号：2011040305021      题目：学生通讯录管理 一、课程设计时间 2012~2013第2学期 第3周，共计1周，20学时。 二、课程设计内容 以VB+Access组合，实现同学通讯录信息管理。用户界面中的菜单至少应包括“同学信息的数据维护”﹑“同学信息查询（根据姓名，或编号等。）”﹑“显示全部同学信息”﹑“退出”四项。自行设计数据库的表结构。 三、课程设计要求 程序质量： ? 贯彻事件驱动的程序设计思想。 ? 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 ? 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： ? 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________  学生签名：_夏军_______ 五、成绩 六、教师评语 目    录 需求 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析     4 设计分析    4 关键技术    6 总结    12 完整的源程序    12 参考文献    15 需求分析 现在科技发展的越来越快，世界已经成了地球村，科技把人们紧紧的联系在一起，通讯信息发挥人着主要作用。如何管理通讯信息就用到通讯录。学生通讯录管理包括四个模块： 1 同学信息维护（包括增加，修改，删除）。 2 同学信息查询。 3 显示全部同学信息。 4 退出。 设计分析 （1）基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。 （1） 总体设计： （3）详细设计： 关键技术 1. 登录界面 Private Sub Command3_Click() If Text3.Text = 111111 Then MsgBox "尊敬的用户，欢迎登录本程序！", vbOKOnly, "进入系统" Form1.Show Else MsgBox "密码错误！请重新输入！" Text3.Text = "" Text3.SetFocus End If End Sub Private Sub Command4_Click() Dim n As Integer n = MsgBox("确定退出吗？", 33, "用户登录") If n = 1 Then End Else End If End Sub 2. 同学信息的维护 Private Sub a_Click() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = False Adodc1.Recordset.AddNew End Sub Private Sub b_Click() Dim x$ x = InputBox("请输入要修改的学生学号") Adodc1.Recordset.Find "学号='" & x & "'" If Adodc1.Recordset.EOF Then MsgBox ("此学号不存在") Command1.Visible = True Command2.Visible = False DataGrid1.Visible = False End Sub Private Sub c_Click() Dim y$ y = InputBox("请输入要删除的学生学号") Adodc1.Recordset.Find "学号='" & y & "'" If Adodc1.Recordset.EOF Then MsgBox ("此学号不存在") Command1.Visible = False Command2.Visible = True End Sub Private Sub Command1_Click() Dim n As Integer n = MsgBox("修改成功", 1, "同学通讯录") If n = 1 Then Adodc1.Recordset.Update End If End Sub Private Sub Command2_Click() DataGrid1.Visible = False Dim n As Integer n = MsgBox("删除成功", 1, "同学通讯录") If n = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End If If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End Sub 3.同学信息查询 Private Sub output_Click() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = False Dim z$ z = InputBox("请输入要查询的学生学号") Adodc1.Recordset.Find "学号='" & z & "'" If Adodc1.Recordset.EOF Then MsgBox ("此学号不存在") End Sub 4.显示全部同学信息 Private Sub display_Click() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = True Adodc1.RecordSource = "select * from 学生通讯录" Adodc1.Refresh End Sub 总结 这次课设我的题目是同学通讯录信息管理，  经过一个周的时间，我最终完成了对通讯录的设计。在这一周我学到了好多知识，比如各种控件的作用和属性，知道了可以应用ADO技术使VB与数据库进行联系等。 在这次课设过程中，我也遇到了好多困难，通过老师的指点，自己查阅资料和同学的讨论，我克服了这些困难，完成了这次课程设计。 同时我也知道了以后无论干什么都要谨慎，程序的一点点错误都不能使之运行，人生中也一样，要脚踏实地，一步一个脚印。 完整源程序 Private Sub a_Click() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = False Adodc1.Recordset.AddNew End Sub Private Sub b_Click() Dim x$ x = InputBox("请输入要修改的学生学号") Adodc1.Recordset.Find "学号='" & x & "'" If Adodc1.Recordset.EOF Then MsgBox ("此学号不存在") Command1.Visible = True Command2.Visible = False DataGrid1.Visible = False End Sub Private Sub c_Click() Dim y$ y = InputBox("请输入要删除的学生学号") Adodc1.Recordset.Find "学号='" & y & "'" If Adodc1.Recordset.EOF Then MsgBox ("此学号不存在") Command1.Visible = False Command2.Visible = True End Sub Private Sub Command1_Click() Dim n As Integer n = MsgBox("修改成功", 1, "同学通讯录") If n = 1 Then Adodc1.Recordset.Update End If End Sub Private Sub Command2_Click() DataGrid1.Visible = False Dim n As Integer n = MsgBox("删除成功", 1, "同学通讯录") If n = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End If If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End Sub Private Sub display_Click() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = True Adodc1.RecordSource = "select * from 学生通讯录" Adodc1.Refresh End Sub Private Sub end_Click() Dim n As Integer n = MsgBox("确定退出吗？", 33, "用户登录") If n = 1 Then End End If End Sub Private Sub Form_Load() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = False End Sub Private Sub output_Click() Command1.Visible = False Command2.Visible = False DataGrid1.Visible = False Dim z$ z = InputBox("请输入要查询的学生学号") Adodc1.Recordset.Find "学号='" & z & "'" If Adodc1.Recordset.EOF Then MsgBox ("此学号不存在") End Sub 参考文献 [1] 林卓然《VB语言程序设计    .第3版. 电子工业出版社 2012.06 [2] 石志国, 刘冀伟, 张维存《..VB.NET数据库编程》. 清华大学出版社 2009.06