ImageVerifierCode 换一换
格式:DOCX , 页数:5 ,大小:25.98KB ,
资源ID:8386799      下载积分:3 金币
快捷下载
登录下载
邮箱/手机:
温馨提示:
快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。 如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.bdocx.com/down/8386799.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文(VB课设报告 4.docx)为本站会员(b****6)主动上传,冰豆网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知冰豆网(发送邮件至service@bdocx.com或直接QQ联系客服),我们立即给予删除!

VB课设报告 4.docx

1、VB课设报告 4沈 阳 航 空 航 天 大 学 课程设计 学 号 2009040601212班 级 94060106 姓 名 李柏同指导教师 徐晗2011年 3 月 20 日课程设计任务书学院:机电工程学院 专业:机械设计制造及其自动化 班级:94060106学号:2009040601212 题目:气温数据管理一、课程设计时间2011年3月14日20日(第2周),共计1周。二、课程设计内容某个月的气温数据保存在文本文件或Access数据库的一个表中,数据至少包括:日期、最低气温、最高气温、平均气温等。程序功能主要包括:数据输入与修改;计算平均气温;按日期查询;统计平均最低气温、统计平均最高气温

2、。用户界面中的菜单至少应包括“数据维护”、“计算平均气温”、“气温查询”、“气温统计”、“退出”5项。三、课程设计要求程序质量: 贯彻事件驱动的程序设计思想。 用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。 代码应适当缩进,并给出必要的注释,以增强程序的可读性。课程设计说明书: 课设结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师:_ 学生签名:_五、成绩六、教师评语目 录需求分析 4设计分析 4技术要点 5主要界面截图 6总结 7完整的源程序 8参考文献 9需求分析 本软件为气温数据管理软件,为方便管理数据以及一些计算而设计,

3、具有界面友好生动的特点。可进行计算平均气温,统计平均最高气温、最低气温,指定日期进行气温查询等功能。设计分析(1)概述: 设计时需要使用ACCESS数据库,用VB进行编程。使用ADODC控件和DATAGRID控件作为界面主题,使用菜单编辑器实现气温计算与查询等功能。(2)总体设计:(3)详细设计:略。框图部分,若干框图。应以传统流程图或N-S框图的方式,表示出各个主要模块的工作过程。技术要点略。文字部分,是课设报告最重要的部分。阐述你所编写的程序用到哪些重要技术、重要算法、或者VB的知识点。分项说明,必要时配置程序代码片段作为佐证。1关于数据库的连接略。2 SLQ语句的应用略。(等等)主要界面

4、截图图片部分。以图片来展示程序的运行情况。程序主界面必须有,然后是一些关键功能的界面。每张图片应标注编号和主题。图2 按照图书编号查询界面总结 略。文字部分。个人对此次课设的感想。完整的源程序Private Sub add_Click() Adodc1.Recordset.AddNewEnd SubPrivate Sub append_Click() End SubPrivate Sub delete_Click() ask = MsgBox(确定要删除吗?, vbYesNo) If ask = 6 Then Adodc1.Recordset.delete Adodc1.Recordset.M

5、oveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub end_Click() ask = MsgBox(确定要退出吗?, vbYesNo) If ask = 6 Then End End IfEnd SubPrivate Sub jisuan_Click() Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 日期,(sum(最低气温)+sum(最高气温)/2 as 平均气温 from 表1 grou

6、p by 日期 Adodc1.RefreshEnd SubPrivate Sub max_Click() Adodc1.CommandType = adCmdUnknown 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() Dim r As String r = InputBox(请输入日期, 气温查询) Adodc1.Recordset.Find 日期= & r & , , , 1 If Adodc1.Recordset.EOF Then MsgBox 没有录入该天气温!, , 提示End Sub参考文献1 刘瑞新Visual Basic程序设计教程北京:机械工业出版社,2003(等等)

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1