学生通讯录vb课程设计

沈阳航空航天大学

课程设计任务书

学院：航空航天工程学部 专业：飞行器制造（航维） 班级：14030501 学号：[1**********]21 题目：学生通讯录管理

一、课程设计时间

2012~2013第2学期 第3周，共计1周，20学时。

二、课程设计内容

以VB+Access组合，实现同学通讯录信息管理。用户界面中的菜单至少应包括“同学信息的数据维护”﹑“同学信息查询（根据姓名，或编号等。）”﹑“显示全部同学信息”﹑“退出”四项。自行设计数据库的表结构。

三、课程设计要求

程序质量：

 贯彻事件驱动的程序设计思想。

 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。  代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：

 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提

供的模板。

四、指导教师和学生签字

指导教师：________ 学生签名：_夏军_______ 五、成绩 六、教师评语

目 录

需求分析 .................................................................................4 设计分析 .................................................................................4 关键技术 .............................................. 错误！未定义书签。 总结 .......................................................................................12 完整的源程序 .......................................................................12 参考文献 ...............................................................................15

需求分析

现在科技发展的越来越快，世界已经成了地球村，科技把人们紧紧的联系在一起，通讯信息发挥人着主要作用。如何管理通讯信息就用到通讯录。学生通讯录管理包括四个模块：

① 同学信息维护（包括增加，修改，删除）。 ② 同学信息查询。 ③ 显示全部同学信息。 ④ 退出。

设计分析

（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

沈阳航空航天大学

课程设计任务书

学院：航空航天工程学部 专业：飞行器制造（航维） 班级：14030501 学号：[1**********]21 题目：学生通讯录管理

一、课程设计时间

2012~2013第2学期 第3周，共计1周，20学时。

二、课程设计内容

以VB+Access组合，实现同学通讯录信息管理。用户界面中的菜单至少应包括“同学信息的数据维护”﹑“同学信息查询（根据姓名，或编号等。）”﹑“显示全部同学信息”﹑“退出”四项。自行设计数据库的表结构。

三、课程设计要求

程序质量：

 贯彻事件驱动的程序设计思想。

 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。  代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：

 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提

供的模板。

四、指导教师和学生签字

指导教师：________ 学生签名：_夏军_______ 五、成绩 六、教师评语

目 录

需求分析 .................................................................................4 设计分析 .................................................................................4 关键技术 .............................................. 错误！未定义书签。 总结 .......................................................................................12 完整的源程序 .......................................................................12 参考文献 ...............................................................................15

需求分析

现在科技发展的越来越快，世界已经成了地球村，科技把人们紧紧的联系在一起，通讯信息发挥人着主要作用。如何管理通讯信息就用到通讯录。学生通讯录管理包括四个模块：

① 同学信息维护（包括增加，修改，删除）。 ② 同学信息查询。 ③ 显示全部同学信息。 ④ 退出。

设计分析

（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


相关内容

  • 学生通讯录管理系统课程设计

    • 数 据 结 构 课 程 设 计 报告 题目: 学生通讯录管理系统课程设计 学 院 信息工程学院 专 业 计算机科学与技术 年级班别 12级4班 学 号 2012051411 学生姓名 潘 小 恩 指导教师 米 文 丽 成 绩 2013年12月19日 目 录 一．总体设计方案 ------------ ...

  • 通讯录的制作-课程设计报告

    • 中北大学 数 据 结 构 课 程 设 计 说 明 书 2010 年1月6日 1 设计目的: 通讯录的制作 <数据结构>课程主要介绍最常用的数据结构,阐明各种数据结构内在的逻辑关系,讨论其在计算机中的存储表示,以及在其上进行各种运算时的实现算法,并对算法的效率进行简单的分析和讨论.进行数据 ...

  • 物联网专业教学大纲

    • 物联网专业(4年制)教学大纲 无线龙物联网专业教学大纲按照物联网三层结构规划了培养目标: 传感层:无线节点硬件和核心协议栈软件设计,RFID无源有源标签设计技术掌握,低功耗无线设计,基础无线网络技术掌握,安全和加密原理和设计: 网络层:多种网络网关设计,HF,UHF -RFID读卡器设计,掌握主流无 ...

  • 中学数学教学参考资料

    • 中学数学教学参考资料 ·MA 教育理论 MA1 教育研究 MA11 教育改革(教材改革及分析) MA111 教学计划 MA112 课程标准 ·对<" 高中数学课程标准" 的框架设想>的思考/李世杰.候万胜.吴卫国//<中学教研(数学)>2003.3第1页 ...

  • H8686-电子信息工程专业考研知识

    • 电子信息工程专业考研知识 * 电子信息工程专业考研知识 电子信息工程专业考研知识 电子信息工程专业考研知识 电子信息工程考研学校 1,该专业考研有哪些学校可选,最好是由难到易依次列个顺序.? 2,该专业考研需要考哪些课程? 3,该专业以后就业比较好的方向有那些? 最佳答案清华大学.西安电子科技大学. ...

  • 2009年小学信息技术优质课一等奖教学设计四上[小小通讯录]

    • 2009年小学信息技术优质课一等奖教学设计<小小通讯录> 作者:张红    信息来源:本站原创    点击数:     更新时间:2010年06月11日 课    题 架起友谊之桥--好友通讯录 教学目标 知识 1.了解表格的基本构成 技能 1.能够通过菜单方式制作基本的二维表格 2.能 ...

  • 北京邮电大学出国留学.国际预科招生简章(文字版)

    • 北京邮电大学继续教育学院全球精英预科招生简章(文字版) 一.学院介绍 北京邮电大学是教育部直属.工业和信息化部共建.首批进行"211工程"建设的全国重点大学,是"985优势学科创新平台"项目重点建设高校,是一所以信息科技为特色.工学门类为主体.工管文理协调发展 ...

  • C语言编写通讯录

    • 注:本程序适用于大学程序设计课程的通讯录编写.程序没有问题可以运行但其中读取功能未编写,最终得分能在80分左右.下面是一些主要内容. 一. 课程设计目的 本课程设计是计算机科学与技术专业重要的实践性环节之一,是在学生学习完<程序设计语言>课程后进行的一次全面的综合练习.本课程设计的目的和 ...

  • 同学通讯录管理程序

    • 面向对象程序设计 课程设计报告 设计题目: 同学通讯录管理程序 学 院: 信息工程学院 专 业: 计算机科学与技术(交通) 学 号: [1**********]8 姓 名: 王 沛 林 指导教师: 2015 年 1 月4 日 目录 一.设计目的和内容 1.1设计目的----.------------ ...

热门内容

标签

新教师个人自传范文   匿名举报信范文   误工证明的格式范文   初中入团志愿书范文   医生个人先进事迹范文   贷款卡年审报告范文   借条起诉书格式范文   员工培训制度范文   卫生许可申请书范文   违反工作纪律谈话笔录   2018年小学生安全保证书   大学生支教发言稿