气温数据管理.doc

沈阳航空航天大学设计用纸
课程设计任务书
一、课程设计时间
2012～13第二学期 第十七周 共计一周 20学时
二、课程设计内容
某个月的气温数据保存在文本文件或Access数据库的一个表中,数据至少包括：日期、最低气温、最高气温、平均气温等。程序功能主要包括：数据输入与修改;计算平均气温；按日期查询;统计平均最低气温、统计平均最高气温。
用户界面中的菜单至少应包括“数据维护”、“计算平均气温”、“气温查询”、“气温统计”、“退出”5项。
三、课程设计要求
程序质量：
² 贯彻事件驱动的程序设计思想。
² 用户界面友好，功能明确,操作方便;可以增加其它功能或修饰。
² 代码应适当缩进，并给出必要的注释,以增强程序的可读性。
课程设计说明书：
² 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板.
四、指导教师和学生签字
指导教师： 学生签名：
五、成绩
六、教师评语
目 录
需求分析4
设计分析4
技术要点…………………………………………………。6
主要界面截图6
总结7
完整源程序………………………………………………10
参考文献9
需求分析
本软件为气温数据管理软件，为方便管理数据以及一些计算而设计,具有界面友好生动的特点。
可进行计算平均气温,统计平均最高气温、最低气温，指定日期进行气温查询等功能。
设计分析
（1）概述:
设计时需要使用ACCESS数据库,用VB进行编程。
使用ADODC控件和DATAGRID控件作为界面主题，使用菜单编辑器实现气温计算与查询等功能。
（2）总体设计：
SQL语言处理
数据库
ADO技术连接

(3）详细设计：
1、建立数据库。利用ACCESS新建一个数据库，其中包括,日期、最低气温、最高气温以平均气温等等.
2、设计程序主界面.利用菜单编辑器做出一个可选菜单，在FORM中建立一系列的按钮以获得指令
3、使用ADO和Microsoft。Jet.OLEDB。4.0； data source控件连接数据库
4、写出程序代码，运行程序，对程序进行校正和修改。
技术要点
1关于数据库的连接
利用ADO控件属性设置和Microsoft.Jet。OLEDB。4。0; data source中的相关设置将数据库连接起来。后将DataGrid控件的DataSource属性设置成Adodc即能简易的连接数据库。
2 利用各种函数编写程序
Adodc1.CommandType = adCmdUnknown
Adodc1。RecordSource = "select 日期，（sum（最低气温）+sum(最高气温))/2 as 平均气温 from 表1 group by 日期"
Adodc1。CommandType = adCmdUnknown
Adodc1。RecordSource = ”select count(*) as 共统计天数, avg(最高气温） as 平均最高气温 from 表1 " 等等。主要界面截图
图片部分。是以图片来展示程序的运行情况。
进入系统的界面
操作界面：其中包括数据的维护,计算平均气温,气温查询，气温统计和退出等功能。
结束界面
总结
在这短短一个星期时间的实习中，我理解到实践是学习程序设计课程十分重要的教学环节,通过上机调试程序过程的实训，可以加深我们对编程环境、语法和实现算法的理解与掌握。在掌握课堂知识的基础上拓展思维，深入了解和掌握Visual Basic的相关知识。在近一周的实习中,我对以前的知识进行总结和归纳，这期间我学到了很多在课堂上学不到的东西，也获得了在课堂上没有听好和听懂的知识。如对VB中的语句掌握的不熟悉,在运行出现错误时不能及时的想到错误的原因，需要和同学一起检查方能找到原因，而且有些命令不是很明白。
这次课设我的题目是气温数据管理，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的数据。良好的程序设计和选择可以更好,更直观的让数据库中的数据得以体现。而通过学习，可以更好地了解VB和VB语言的运用，能够利用最简单的语句去得到语句和程序之间的转换。
总之，在这一星期的学习中，我获益匪浅,让我有学到了一项重要的技能,在以后的道路上,可以 更好地走下去！
完整的源程序
Form2
Private Sub Command1_Click（）
Form2。Hide
Form1。Show
End Sub
Private Sub Command2_Click（）
ask = MsgBox（"确定要退出吗？”， vbYesNo）
If ask = 6 Then
End
End If
End Sub
Private Sub Form_resize(）
Image1。Left = 0
Image1。Top = 0
Image1。Height = Me.ScaleHeight
Image1.Width = Me。ScaleWidth
End Sub
Form1
Private Sub add_Click(） ’增加温度
Adodc1.Recordset。AddNew
End Sub
Private Sub delete_Click（） '删除温度
ask = MsgBox(”确定要删除吗？”， vbYesNo)
If ask = 6 Then
Adodc1.Recordset.delete
Adodc1。Recordset。MoveNext
If Adodc1。Recordset。EOF Then Adodc1。Recordset.MoveLast
End If
End Sub
Private Sub end_Click（）
ask = MsgBox(”确定要退出吗？"， vbYesNo）
If ask = 6 Then
Form1。Hide
Form3。Show
End If
End Sub
Private Sub Form_resize（）
Image1.Left = 0
Image1.Top = 0
Image1。Height = Me。ScaleHeight
Image1.Width = Me。ScaleWidth
End Sub
Private Sub jisuan_Click（） '计算平均气温
Adodc1.CommandType = adCmdUnknown
Adodc1。RecordSource = "select 日期，（sum(最低气温)+sum(最高气温)）/2 as 平均气温 from 表1 group by 日期"
Adodc1.Refresh
End Sub
Private Sub max_Click(） ’统计最高温度
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = ”select count（＊） as 共统计天数， avg（最高气温） as 平均最高气温 from 表1 "
Adodc1.Refresh
End Sub
Private Sub min_Click（） ’统计最低温度
Adodc1.CommandType = adCmdUnknown
Adodc1。RecordSource = "select count（*） as 共统计天数, avg（最低气温) as 平均最低气温 from 表1 ”
Adodc1。Refresh
End Sub
Private Sub select_Click（） '查询气温
Dim r As String
r = InputBox（”请输入日期", ”气温查询”)
Adodc1。Recordset。Find ”日期=’” & r & "'"， ， ， 1
If Adodc1.Recordset.EOF Then MsgBox ”没有录入该天气温！”, ， "提示"
End Sub
Form3
Private Sub Command1_Click(）
ask = MsgBox（"确定要退出吗？”， vbYesNo)
If ask = 6 Then
End
End If
End Sub
参考文献
[1］ 刘瑞新．《Visual Basic程序设计教程》．北京：机械工业出版社，2003
（等等）

第6页，共7页