VB课程设计报告 21.docx
- 文档编号:28943593
- 上传时间:2023-07-20
- 格式:DOCX
- 页数:11
- 大小:449.52KB
VB课程设计报告 21.docx
《VB课程设计报告 21.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告 21.docx(11页珍藏版)》请在冰豆网上搜索。
VB课程设计报告21
沈阳航空航天大学
课程设计
学号
班级
姓名
指导教师
2012年03月14日
沈阳航空航天大学
课程设计任务书
学院:
机电工程专业:
机械班级:
04060101
学号:
2010040601006题目:
同学通讯录信息管理
一、课程设计时间
2012年3月05—09日(第1周),共计1周,20学时。
二、课程设计内容
以VB+Access组合,实现“同学通讯录信息管理”的小型软件。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便。
✧用户界面中的菜单至少应包括“同学信息录入”,“同学信息查询(根据姓名查询,或编号等。
)”,“显示全部同学信息”,“退出”4项。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
关键技术6
总结9
完整的源程序10
参考文献12
需求分析
该程序需要访问数据库,因此编写VB程序前需要增加ADO和DataGrid控件。
要求“
①用Access建立数据库。
②将ADO控件与数据库链接,以便随时访问数据库。
③用户界面良好,界面表达明确。
设计分析
(1)基本原理:
建立程序设计与数据库的连接,用Addnew控件录入信息,用Find控件查询信息。
(2)总体设计:
(3)详细设计:
关键技术
1整个程序界面的设计
2对Command控件的定义
程序段如下:
PrivateSubCommand1_Click()
Text1.Visible=False
Text2.Visible=False
Text3.Visible=False
Text4.Visible=False
Text5.Visible=False
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"同学信息录入成功",,"注意"
EndSub
3用Addnew控件添加信息
PrivateSublr_Click()
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=True
Adodc1.Recordset.AddNew
EndSub
4用Find控件查询信息
程序段如下:
PrivateSubxmcx_Click()
DimxmAsString
xm=InputBox("请输入要查找的同学姓名","查询窗口")
Adodc1.Recordset.Find"stuname='"&xm&"'",,,1
IfAdodc1.Recordset.EOFThen
MsgBox"无此同学信息!
",,"注意"
EndIf
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=False
EndSub
PrivateSubxhcx_Click()
DimxhAsString
xh=InputBox("请输入学号","查询窗口")
Adodc1.Recordset.Find"sub='"&xh&"'",,,1
IfAdodc1.Recordset.EOFThen
MsgBox"无此同学信息!
",,"注意"
EndIf
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=False
EndSub
PrivateSubbjcx_Click()
DimbjAsString
bj=InputBox("请输入班级编号","查询窗口")
Adodc1.Recordset.Find"cla='"&bj&"'",,,1
IfAdodc1.Recordset.EOFThen
MsgBox"无此同学信息!
",,"注意"
EndIf
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=False
EndSub
总结
这次课设我的题目是同学通讯录信息管理,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系,用到Addnew和Find控件录入和查询。
在课设过程中,我遇到了重重困难,例如:
如何在录入数据库能及时显示出新录入的程序,不过在老师和同学的帮助和自己查询资料的帮助下,我克服了一切困难顺利完成了课设任务。
现如今的社会计算机迅速崛起,帮助人们解决了很多困难,同样不会电脑也被视为文盲一般。
VB程序就是很重的一部分,也拥有着广泛的应用。
因此,作为大学生学会这门学科对以后的发展是很重要的。
完整的源程序
PrivateSubqbxsxx_Click()
Text1.Visible=False'
Text2.Visible=False
Text3.Visible=False
Text4.Visible=False
Text5.Visible=False
Command1.Visible=False
DataGrid1.Visible=True
Adodc1.RecordSource="student"'
Adodc1.Refresh
EndSub
PrivateSublr_Click()
Text1.Visible=True'
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=True
Adodc1.Recordset.AddNew'
EndSub
PrivateSubCommand1_Click()
Text1.Visible=False'
Text2.Visible=False
Text3.Visible=False
Text4.Visible=False
Text5.Visible=False
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"同学信息录入成功",,"注意"
EndSub
PrivateSubxmcx_Click()
DimxmAsString
xm=InputBox("请输入要查找的同学姓名","查询窗口")
Adodc1.Recordset.Find"stuname='"&xm&"'",,,1
IfAdodc1.Recordset.EOFThen
MsgBox"无此同学信息!
",,"注意"
EndIf
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=False
EndSub
PrivateSubxhcx_Click()
DimxhAsString
xh=InputBox("请输入学号","查询窗口")
Adodc1.Recordset.Find"sub='"&xh&"'",,,1
IfAdodc1.Recordset.EOFThen
MsgBox"无此同学信息!
",,"注意"
EndIf
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=False
EndSub
PrivateSubbjcx_Click()
DimbjAsString
bj=InputBox("请输入班级编号","查询窗口")
Adodc1.Recordset.Find"cla='"&bj&"'",,,1
IfAdodc1.Recordset.EOFThen
MsgBox"无此同学信息!
",,"注意"
EndIf
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
DataGrid1.Visible=False
Command1.Visible=False
EndSub
PrivateSubForm_Load()
Text1.Visible=False
Text2.Visible=False
Text3.Visible=False
Text4.Visible=False
Text5.Visible=False
DataGrid1.Visible=False
Adodc1.Visible=False
Command1.Visible=False
EndSub
PrivateSubtc_Click()
ask=MsgBox("您真的要退出本系统吗?
",vbYesNo)
Ifask=6Then
End
Else
EndIf
EndSub
参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB课程设计报告 21 VB 课程设计 报告