《气温数据管理.doc》由会员分享，可在线阅读，更多相关《气温数据管理.doc（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、课程设计任务书一、课程设计时间202113第二学期 第十七周 共计一周 20学时二、课程设计内容某个月的气温数据保存在文本文件或Access数据库的一个表中，数据至少包括：日期、最低气温、最高气温、平均气温等。程序功能主要包括：数据输入与修改；计算平均气温；按日期查询；统计平均最低气温、统计平均最高气温。用户界面中的菜单至少应包括“数据维护、“计算平均气温、“气温查询、“气温统计、“退出5项。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设完毕后，上
2、交课程设计说明书与源程序。课程设计说明书的内容参见提供的模板。四、指导教师与学生签字指导教师： 学生签名： 五、成绩六、教师评语目 录需求分析4设计分析4技术要点.6主要界面截图6总结7完整源程序10参考文献9需求分析本软件为气温数据管理软件，为方便管理数据以及一些计算而设计，具有界面友好生动的特点。可进展计算平均气温，统计平均最高气温、最低气温，指定日期进展气温查询等功能。设计分析1概述：设计时需要使用ACCESS数据库，用VB进展编程。使用ADODC控件与DATAGRID控件作为界面主题，使用菜单编辑器实现气温计算与查询等功能。2总体设计：SQL语言处理数据库ADO技术连接3详细设计：1、
3、建立数据库。利用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 利用各种函数编写程
4、序Adodc1mandType = adCmdUnknown Adodc1.RecordSource = select 日期,(sum(最低气温)+sum(最高气温)/2 as 平均气温 from 表1 group by 日期Adodc1mandType = adCmdUnknownAdodc1.RecordSource = select count(*) as 共统计天数, avg(最高气温) as 平均最高气温 from 表1 等等。主要界面截图图片局部。是以图片来展示程序的运行情况。 进入系统的界面操作界面：其中包括数据的维护，计算平均气温，气温查询，气温统计与退出等功能。 完毕界面总结
5、在这短短一个星期时间的实习中，我理解到实践是学习程序设计课程十分重要的教学环节，通过上机调试程序过程的实训，可以加深我们对编程环境、语法与实现算法的理解与掌握。在掌握课堂知识的根底上拓展思维，深入了解与掌握Visual Basic的相关知识。在近一周的实习中，我对以前的知识进展总结与归纳，这期间我学到了很多在课堂上学不到的东西，也获得了在课堂上没有听好与听懂的知识。如对VB中的语句掌握的不熟悉，在运行出现错误时不能及时的想到错误的原因，需要与同学一起检查方能找到原因，而且有些命令不是很明白。这次课设我的题目是气温数据管理，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与
6、数据库进展联系，还可以应用SQL语言查询与更改数据库中的数据。良好的程序设计与选择可以更好，更直观的让数据库中的数据得以表达。而通过学习，可以更好地了解VB与VB语言的运用，能够利用最简单的语句去得到语句与程序之间的转换。总之，在这一星期的学习中，我获益匪浅，让我有学到了一项重要的技能，在以后的道路上，可以 更好地走下去！完整的源程序Form2Private Sub Command1_Click()End SubPrivate Sub Command2_Click() ask = MsgBox(确定要退出吗？, vbYesNo) If ask = 6 Then End End IfEnd Su
7、bPrivate Sub Form_resize() Image1.Left = 0 Image1 = 0End SubForm1Private Sub add_Click() 增加温度End SubPrivate Sub delete_Click() 删除温度 ask = MsgBox(确定要删除吗？, vbYesNo) If ask = 6 Then End IfEnd SubPrivate Sub end_Click() ask = MsgBox(确定要退出吗？, vbYesNo) If ask = 6 Then End IfEnd SubPrivate Sub Form_resize(
8、) Image1.Left = 0 Image1 = 0 End SubPrivate Sub jisuan_Click() 计算平均气温 Adodc1mandType = adCmdUnknown Adodc1.RecordSource = select 日期,(sum(最低气温)+sum(最高气温)/2 as 平均气温 from 表1 group by 日期End SubPrivate Sub max_Click() 统计最高温度 Adodc1mandType = adCmdUnknown Adodc1.RecordSource = select count(*) as 共统计天数, av
9、g(最高气温) as 平均最高气温 from 表1 End SubPrivate Sub min_Click() 统计最低温度 Adodc1mandType = adCmdUnknown Adodc1.RecordSource = select count(*) as 共统计天数, avg(最低气温) as 平均最低气温 from 表1 End SubPrivate Sub select_Click() 查询气温 Dim r As String r = InputBox(请输入日期, 气温查询) Adodc1.Recordset.Find 日期= & r & , , , 1 If Adodc1.Recordset.EOF Then MsgBox 没有录入该天气温！, , 提示End SubForm3Private Sub Command1_Click() ask = MsgBox(确定要退出吗？, vbYesNo) If ask = 6 Then End End IfEnd Sub参考文献1 刘瑞新?Visual Basic程序设计教程?北京：机械工业出版社，2003等等第 11 页