气温数据管理.docx

气温数据管理.docx

《气温数据管理.docx》由会员分享，可在线阅读，更多相关《气温数据管理.docx（9页珍藏版）》请在冰豆网上搜索。

气温数据管理

课程设计任务书

一、课程设计时间

2012~13第二学期第十七周共计一周20学时

二、课程设计内容

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

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

程序功能主要包括：

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

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

三、课程设计要求

程序质量：

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

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

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

课程设计说明书：

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

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

四、指导教师和学生签字

指导教师：

学生签名：

五、成绩

六、教师评语

需求分析

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

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

设计分析

（1）概述：

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

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

（2）总体设计：

（3）详细设计：

1、建立数据库。

利用ACCESS新建一个数据库，其中包括，日期、最低气温、最高气温以平均气温等等。

2、设计程序主界面。

利用菜单编辑器做出一个可选菜单，在FORM中建立一系列的按钮以获得指令

3、使用ADO和Microsoft.Jet.OLEDB.4.0;datasource控件连接数据库

4、写出程序代码，运行程序，对程序进行校正和修改。

技术要点

1关于数据库的连接

利用ADO控件属性设置和Microsoft.Jet.OLEDB.4.0;datasource中的相关设置将数据库连接起来。

后将DataGrid控件的DataSource属性设置成Adodc即能简易的连接数据库。

2利用各种函数编写程序

Adodc1.CommandType=adCmdUnknown

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

Adodc1.CommandType=adCmdUnknown

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

主要界面截图

图片部分。

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

进入系统的界面

操作界面：

其中包括数据的维护，计算平均气温，气温查询，气温统计和退出等功能。

结束界面

总结

在这短短一个星期时间的实习中，我理解到实践是学习程序设计课程十分重要的教学环节，通过上机调试程序过程的实训，可以加深我们对编程环境、语法和实现算法的理解与掌握。

在掌握课堂知识的基础上拓展思维，深入了解和掌握VisualBasic的相关知识。

在近一周的实习中，我对以前的知识进行总结和归纳，这期间我学到了很多在课堂上学不到的东西，也获得了在课堂上没有听好和听懂的知识。

如对VB中的语句掌握的不熟悉，在运行出现错误时不能及时的想到错误的原因，需要和同学一起检查方能找到原因，而且有些命令不是很明白。

这次课设我的题目是气温数据管理，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的数据。

良好的程序设计和选择可以更好，更直观的让数据库中的数据得以体现。

而通过学习，可以更好地了解VB和VB语言的运用，能够利用最简单的语句去得到语句和程序之间的转换。

总之，在这一星期的学习中，我获益匪浅，让我有学到了一项重要的技能，在以后的道路上，可以更好地走下去！

完整的源程序

Form2

PrivateSubCommand1_Click（）

Form2.Hide

Form1.Show

EndSub

PrivateSubCommand2_Click（）

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

",vbYesNo）

Ifask=6Then

End

EndIf

EndSub

PrivateSubForm_resize（）

Image1.Left=0

Image1.Top=0

Image1.Height=Me.ScaleHeight

Image1.Width=Me.ScaleWidth

EndSub

Form1

PrivateSubadd_Click（）'增加温度

Adodc1.Recordset.AddNew

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

Form1.Hide

Form3.Show

EndIf

EndSub

PrivateSubForm_resize（）

Image1.Left=0

Image1.Top=0

Image1.Height=Me.ScaleHeight

Image1.Width=Me.ScaleWidth

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

Form3

PrivateSubCommand1_Click（）

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

",vbYesNo）

Ifask=6Then

End

EndIf

EndSub

参考文献

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

机械工业出版社，2003

（等等）