气温数据管理

1、课程设计任务书一、课程设计时间201213第二学期 第十七周 共计一周 20学时二、课程设计内容某个月的气温数据保存在文本文件或Access数据库的一个表中，数据至少包括：日期、最低气温、最高气温、平均气温等。程序功能主要包括：数据输入与修改；计算平均气温；按日期查询；统计平均最低气温、统计平均最高气温。用户界面中的菜单至少应包括“数据维护”、“计算平均气温”、“气温查询”、“气温统计”、“退出”5项。三、课程设计要求程序质量：² 贯彻事件驱动的程序设计思想。² 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。² 代码应适当缩进，并给出必要的注释，以增强

2、程序的可读性。课程设计说明书：² 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师： 学生签名： 五、成绩六、教师评语目 录需求分析4设计分析4技术要点.6主要界面截图6总结7完整源程序10参考文献9需求分析本软件为气温数据管理软件，为方便管理数据以及一些计算而设计，具有界面友好生动的特点。可进行计算平均气温，统计平均最高气温、最低气温，指定日期进行气温查询等功能。设计分析（1）概述：设计时需要使用ACCESS数据库，用VB进行编程。使用ADODC控件和DATAGRID控件作为界面主题，使用菜单编辑器实现气温计算与查询等功能。

3、（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控件的DataSou

4、rce属性设置成Adodc即能简易的连接数据库。2 利用各种函数编写程序Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = "select 日期,(sum(最低气温)+sum(最高气温)/2 as 平均气温 from 表1 group by 日期"Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = "select count(*) as 共统计天数, avg(最高气温) as 平均最高气温 from 表1 " 等等。主要界面截图图片部分。

5、是以图片来展示程序的运行情况。 进入系统的界面操作界面：其中包括数据的维护，计算平均气温，气温查询，气温统计和退出等功能。 结束界面总结在这短短一个星期时间的实习中，我理解到实践是学习程序设计课程十分重要的教学环节，通过上机调试程序过程的实训，可以加深我们对编程环境、语法和实现算法的理解与掌握。在掌握课堂知识的基础上拓展思维，深入了解和掌握Visual Basic的相关知识。在近一周的实习中，我对以前的知识进行总结和归纳，这期间我学到了很多在课堂上学不到的东西，也获得了在课堂上没有听好和听懂的知识。如对VB中的语句掌握的不熟悉，在运行出现错误时不能及时的想到错误的原因，需要和同学一起检查方能找

6、到原因，而且有些命令不是很明白。这次课设我的题目是气温数据管理，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的数据。良好的程序设计和选择可以更好，更直观的让数据库中的数据得以体现。而通过学习，可以更好地了解VB和VB语言的运用，能够利用最简单的语句去得到语句和程序之间的转换。总之，在这一星期的学习中，我获益匪浅，让我有学到了一项重要的技能，在以后的道路上，可以 更好地走下去！完整的源程序Form2Private Sub Command1_Click() Form2.Hide Form1.ShowEnd SubPr

7、ivate Sub Command2_Click() ask = MsgBox("确定要退出吗？", vbYesNo) If ask = 6 Then End End IfEnd SubPrivate Sub Form_resize() Image1.Left = 0 Image1.Top = 0 Image1.Height = Me.ScaleHeight Image1.Width = Me.ScaleWidthEnd SubForm1Private Sub add_Click() '增加温度End SubPrivate Sub delete_Click() &#

8、39;删除温度 ask = MsgBox("确定要删除吗？", vbYesNo) If ask = 6 Then End IfEnd SubPrivate Sub end_Click() ask = MsgBox("确定要退出吗？", vbYesNo) If ask = 6 Then Form1.Hide Form3.Show End IfEnd SubPrivate Sub Form_resize() Image1.Left = 0 Image1.Top = 0 Image1.Height = Me.ScaleHeight Image1.Width =

9、 Me.ScaleWidth End SubPrivate Sub jisuan_Click() '计算平均气温 Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = "select 日期,(sum(最低气温)+sum(最高气温)/2 as 平均气温 from 表1 group by 日期" Adodc1.RefreshEnd SubPrivate Sub max_Click() '统计最高温度 Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource

10、 = "select count(*) as 共统计天数, avg(最高气温) as 平均最高气温 from 表1 " Adodc1.RefreshEnd SubPrivate Sub min_Click() '统计最低温度 Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = "select count(*) as 共统计天数, avg(最低气温) as 平均最低气温 from 表1 " Adodc1.RefreshEnd SubPrivate Sub select_Click() '查询气温 Dim r As String r = InputBox("请输入日期", "气温查询") Adodc1.Recordset.Find "日期='" & r & "'", , , 1 If Adodc1.Recordset.EOF Then MsgBox "没有录入该天气温！", , "提示