VB课程设计报告 34

沈阳航空航天大学。

课程设计。学号。

班级。姓名。

指导教师。2023年 3 月 15 日。

目录。需求分析 4

设计分析 4

技术要点 5

主要界面截图 6

总结 7完整的源程序 8

参考文献 9

本软件本着为同学服务的原则，帮助同学们解决制作电子版同学通讯录的智能软件，应用“同学通讯录管理系统”的同学们主要应用此软件达到记录同学信息，按照不同条件查找同学信息，并显示同学的所有信息。

1）概述：首先设计窗体，建立vb程序与相关数据库的关联，然后将text1~5与数据库中分数据进行关联，应用adodc和dategrid控件进行关联，通过addnew和refresh控件实现向数据库中添加数据。

2）总体设计：图1整体设计框图。

3）详细设计：

1．数据库的链接。在窗体上布置adodc控件和dategrid控件，反键adodc控件在adodc控件属性一栏设置要链接的数据库。

2．文本框与数据库中数据的关联。将文本框的datesource属性设置为adodc1。

3．按条件查询数据库中的数据。运用find语句进行查询。

dim cl as string

cl = inputbox("请输入班级", 查找窗。

"cla = nu1

if then msgbox "查无此人！",提示"

4．学生信息的录入。用addnew方法和update方法。

msgbox "信息录入成功", 提示"

5．查看全部学生信息。用recordsource方法。

= "student

6．窗体流动文字的创建。用timer控件和hscorllbar控件。

if < 0 then

= int(rnd * scaleheight)

= int(1 + rnd * 30)

end if

= int(rnd * scaleheight) 'label6的位置。

= int(1 + rnd * 30) 'label6字体大小。

1关于数据库的连接。

在窗体上布置adodc控件和dategrid控件，反键adodc控件在adodc控件属性一栏设置要链接的数据库。

2 sql语句的应用。

图2 主窗体。

图3学生信息的录入。

图4输入学生信息。

图5显示全部学生信息。

图6退出系统。

通过本次课程设计的学习，使我更进一步理解了vb编程的先进性，更进一步的对vb程序编程有了更深成次的理解，本次课程设计始对以前vb学习的一次检验，通过本次编程，使我更加熟练的应用vb中各类控件，对vb编程有了更深成次的认识，相信，本次课设必将对我以后的学习生活产生重要的帮助。

private sub allfind_click()

= false

= true

= false

= "student"

end sub

private sub classfind_click()

= true

= false

= true

= false

dim cl as string

cl = inputbox("请输入班级", 查找窗。

"cla = nu1

if then msgbox "查无此人！",提示"

end sub

private sub command1_click()

= false

= true

msgbox "信息录入成功", 提示" '提示录入成功。

end sub

private sub form_load()

= false

VB课程设计报告 34

VB课程设计报告

vb课程设计报告

VB课程设计报告

其他用户还读了