VB课设报告.docx
- 文档编号:25089311
- 上传时间:2023-06-05
- 格式:DOCX
- 页数:8
- 大小:59.95KB
VB课设报告.docx
《VB课设报告.docx》由会员分享,可在线阅读,更多相关《VB课设报告.docx(8页珍藏版)》请在冰豆网上搜索。
VB课设报告
沈阳航空航天大学
课程设计
学号2009040601211
班级94060106
姓名何平
指导教师徐晗
年月日
沈阳航空航天大学
课程设计任务书
学院:
机电工程学院专业:
机械设计制造及其自化班级:
94060106
学号:
2009040601211题目:
学生通讯录管理
一、课程设计时间
2011年3月14日~20日(第2周),共计1周。
二、课程设计内容
以VB+Access组合,实现同学通讯录信息管理。
用户界面中的菜单至少应包括“同学信息录入”、“同学信息查询(根据姓名,或编号等。
)”、“显示全部同学信息”、“退出”4项。
自行设计数据库的表结构。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课设结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点6
主要界面截图8
总结9
完整的源程序10
参考文献12
需求分析
以VB+Access组合,实现学生入学签到管理。
在用户界面中建立几个按钮,通过设计程序编码,实现“编辑学生数据”、“学生按姓名签到”、“查询签到情况”、“退出”等功能。
此软件,只需输入一个同学的姓名,即可方便的查询该同学的编号、住址、电话号码等信息。
设计分析
(1)概述:
此次设计涉及到Ado和Datagride等方面的技术。
先通过Ado技术将VB和Access数据库建立连接,然后把Text文本框的DataField属性设置为各自对应的项,通过Command命令实现操作。
(2)总体设计:
(3)详细设计:
技术要点
1关于数据库的连接
先自行设计一个名称为“Form”的Access数据表格,然后通过Ado控件设置属性,将Access表格和DataGrid建立连接。
2Find语句的应用
使用Find方法可在Recordset对象中查找与指定条件相符的第一条记录,使之成为当前记录。
其语法格式为:
Recordset.Find搜索条件[,[位移],[搜索方向],[起始位置]]
例如:
Adodc2.Recordset.Find"姓名='"&mno&"'",,,1
3输入对话框InputBox函数的应用
InputBox函数的作用是打开一个对话框,等待用户输入内容,当用户单击“确定”按钮或按回车键后,函数返回输入的值,其值的类型为字符串。
例如:
InputBox("请输入姓名","查找窗")
4消息对话框MsgBox函数的应用
MsgBox的作用是打开一个消息框,等待用户选择一个按钮。
例如:
MsgBox"无此学生!
",,"提示"
5利用DataGrid控件来显示数据
选定DataGrid控件,将DataSource属性设置为Adodc2控件,将网格绑定到产生的记录集。
运行程序即可对数据库Form.mdb下的“Form”表进行浏览。
6利用AddNew方法增加新纪录
调用AddNew方法,在记录集内增加一条新纪录。
其语法为:
Adodc1.Recordset.AddNew。
主要界面截图
总结
此次课设要求用VB+Access组合设计学生通讯录管理系统。
拿到题目后,大脑一片空白,因为当初vb学的就不是很明白,所以我把教材重新看了一遍,虽然看完后有点熟悉,但是还是无法透彻的理解该程序,所以我就在上机的时候多进行了基础只是的巩固同时积极向对vb比较熟悉的同学询问,终于是能够初步的编写程序了之后又加上了电脑配合了几遍,多练习了几道例题,感觉还不错。
第二天,开始了我的设计程序。
参考课本上的例题和程序设计了个大概,运行以后却总是出错,我把程序和书上的对照了好几遍,没发现什么问题。
最后终于让我给找到了,原来我开始添加的控件是Adodc1,而我程序中编写的确是Adodc2,程序无法找到添加的控件,所以总出错,修改之后便能成功的运行了,这次事故也让我明白了vb的程序编写必须做到一丝不苟,分毫不差,否则电脑是不能成功执行的。
之后进行了答辩,虽然自己以为已经练习的不错了,但是依然让老师几个平常的问题难倒了,所以以后自己还是要加强vb程序的练习啊
此次课设,让我重新认识了VB,也让我学到了很多,在什么都不知道的情况下,自己摸索自己设计,查资料,看课本,极大地锻炼了我的独立自学能力。
我发现VB这门课其实没那么难,只要掌握了那几个重要的语句,结合课本上的例题,自己可以把程序编码设计出来,运行成功后,心里会感到无比的高兴与激动,因为这是对自己的一种肯定,这次课设也坚定了我要对电脑程序编写的深入研究,因为一个程序的成功编写不仅能给自己带来成就感,更能使使用者获得极大的方便,利人利己。
完整的源程序
PrivateSubaxm_Click()
DimcfAsString
cf=InputBox("请输入姓名","查找窗")
Adodc2.Recordset.Find"姓名='"&cf&"'",,,1
IfAdodc2.Recordset.EOFThenMsgBox"无此人!
",,"提示"
EndSub
PrivateSubCommand1_Click()
IfText5.Text=0Then
a=Val(Text5.Text)+1:
Text5=a
Else:
MsgBox("已签到")
EndIf
EndSub
PrivateSubcx1_Click()
DataGrid1.Visible=True
EndSub
PrivateSubend_Click()
End
EndSub
PrivateSubgb_Click()
DataGrid1.Visible=False
EndSub
PrivateSubshanchu_Click()
ask=MsgBox("删除否?
",vbYesNo)
Ifask=6Then
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
IfAdodc2.Recordset.EOFThenAdodc2.Recordset.MoveLast
EndIf
EndSub
PrivateSubtianjia_Click()
Adodc2.Recordset.AddNew
EndSub
参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
(等等)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 报告