VB课设报告 4.docx

VB课设报告 4.docx

《VB课设报告 4.docx》由会员分享，可在线阅读，更多相关《VB课设报告 4.docx（5页珍藏版）》请在冰豆网上搜索。

VB课设报告4

沈阳航空航天大学

课程设计

学号2009040601212

班级94060106

姓名李柏同

指导教师徐晗

2011年3月20日

课程设计任务书

学院：

机电工程学院专业：

机械设计制造及其自动化班级：

94060106

学号：

2009040601212题目：

气温数据管理

一、课程设计时间

2011年3月14日~20日（第2周），共计1周。

二、课程设计内容

某个月的气温数据保存在文本文件或Access数据库的一个表中，数据至少包括：

日期、最低气温、最高气温、平均气温等。

程序功能主要包括：

数据输入与修改；计算平均气温；按日期查询；统计平均最低气温、统计平均最高气温。

用户界面中的菜单至少应包括“数据维护”、“计算平均气温”、“气温查询”、“气温统计”、“退出”5项。

三、课程设计要求

程序质量：

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

✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：

✧课设结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字

指导教师：

________学生签名：

________

五、成绩

六、教师评语

目录

需求分析4

设计分析4

技术要点5

主要界面截图6

总结7

完整的源程序8

参考文献9

需求分析

本软件为气温数据管理软件，为方便管理数据以及一些计算而设计，具有界面友好生动的特点。

可进行计算平均气温，统计平均最高气温、最低气温，指定日期进行气温查询等功能。

设计分析

（1）概述：

设计时需要使用ACCESS数据库，用VB进行编程。

使用ADODC控件和DATAGRID控件作为界面主题，使用菜单编辑器实现气温计算与查询等功能。

（2）总体设计：

（3）详细设计：

略。

框图部分，若干框图。

应以传统流程图或N-S框图的方式，表示出各个主要模块的工作过程。

技术要点

略。

文字部分，是课设报告最重要的部分。

阐述你所编写的程序用到哪些重要技术、重要算法、或者VB的知识点。

分项说明，必要时配置程序代码片段作为佐证。

1关于数据库的连接

略。

2SLQ语句的应用

略。

（等等）

主要界面截图

图片部分。

以图片来展示程序的运行情况。

程序主界面必须有，然后是一些关键功能的界面。

每张图片应标注编号和主题。

图2按照图书编号查询界面

总结

略。

文字部分。

个人对此次课设的感想。

完整的源程序

PrivateSubadd_Click（）

Adodc1.Recordset.AddNew

EndSub

PrivateSubappend_Click（）

EndSub

PrivateSubdelete_Click（）

ask=MsgBox（"确定要删除吗？

",vbYesNo）

Ifask=6Then

Adodc1.Recordset.delete

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

EndIf

EndSub

PrivateSubend_Click（）

ask=MsgBox（"确定要退出吗？

",vbYesNo）

Ifask=6Then

End

EndIf

EndSub

PrivateSubjisuan_Click（）

Adodc1.CommandType=adCmdUnknown

Adodc1.RecordSource="select日期,（sum（最低气温）+sum（最高气温））/2as平均气温from表1groupby日期"

Adodc1.Refresh

EndSub

PrivateSubmax_Click（）

Adodc1.CommandType=adCmdUnknown

Adodc1.RecordSource="selectcount（*）as共统计天数,avg（最高气温）as平均最高气温from表1"

Adodc1.Refresh

EndSub

PrivateSubmin_Click（）

Adodc1.CommandType=adCmdUnknown

Adodc1.RecordSource="selectcount（*）as共统计天数,avg（最低气温）as平均最低气温from表1"

Adodc1.Refresh

EndSub

PrivateSubselect_Click（）

DimrAsString

r=InputBox（"请输入日期","气温查询"）

Adodc1.Recordset.Find"日期='"&r&"'",,,1

IfAdodc1.Recordset.EOFThenMsgBox"没有录入该天气温！

",,"提示"

EndSub

参考文献

[1]刘瑞新．《VisualBasic程序设计教程》．北京：

机械工业出版社，2003

（等等）