《气温数据管理试卷教案.doc》由会员分享，可在线阅读，更多相关《气温数据管理试卷教案.doc（11页珍藏版）》请在金锄头文库上搜索。
1、沈阳航空航天大学设计用纸课程设计任务书一、课程设计时间201213第二学期 第十七周 共计一周 20学时二、课程设计内容某个月的气温数据保存在文本文件或Access数据库的一个表中,数据至少包括：日期、最低气温、最高气温、平均气温等。程序功能主要包括：数据输入与修改；计算平均气温;按日期查询;统计平均最低气温、统计平均最高气温。用户界面中的菜单至少应包括“数据维护”、“计算平均气温、“气温查询”、“气温统计”、“退出5项。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确,操作方便;可以增加其它功能或修饰. 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课
2、程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师: 学生签名：五、成绩六、教师评语目 录需求分析4设计分析4技术要点.6主要界面截图6总结7完整源程序10参考文献9需求分析本软件为气温数据管理软件，为方便管理数据以及一些计算而设计，具有界面友好生动的特点。可进行计算平均气温，统计平均最高气温、最低气温,指定日期进行气温查询等功能.设计分析（1）概述：设计时需要使用ACCESS数据库，用VB进行编程.使用ADODC控件和DATAGRID控件作为界面主题，使用菜单编辑器实现气温计算与查询等功能.（2）总体设计：SQL语言处理
3、数据库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即能
4、简易的连接数据库。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 SubPrivate Sub Command2_Click(） ask = MsgBo
7、x（确定要退出吗?”， 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（） 增加温度 Adodc1。Recordset.AddNewEnd SubPrivate Sub delete_Click（） 删除温度 ask = MsgBox（”确定要删除吗?”, vbY
8、esNo） If ask = 6 Then Adodc1。Recordset。delete Adodc1。Recordset。MoveNext If Adodc1。Recordset。EOF Then Adodc1.Recordset.MoveLast 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
9、= 0 Image1。Height = Me.ScaleHeight Image1.Width = 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 = adCm
10、dUnknown Adodc1。RecordSource = ”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() 查
11、询气温 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（等等）第13页，共13页
