vb课程设计报告书
VB编辑器课程设计报告
武汉理工大学华夏学院课程设计报告书课程名称：VB课程设计题目：编制文本编辑器系名：信息工程系专业班级：软件2101姓名：杨妮学号： 10225610136指导教师:2011 年 12 月 30 日课程设计任务书学生姓名：杨妮专业班级：软件2101 指导教师：司晓梅工作单位：信息工程系设计题目：编制文本编辑器初始条件：要求具备VB语言基础；顺序、选择、循环结构；界面设计、RichTextBox 等相关知识。
要求电脑配置Visual Basic 6.0集成开发环境。
要求完成的主要任务：主要任务：1．使用VB的控件（RichTextBox)编写一个文本编辑器。
2．实现打开/保存/新建/查找/替换字符，能改变文字的大小/字体/着色等功能。
3．要求外观类似于Windows系统自带的记事本。
设计报告撰写格式要求：1. 设计题目与要求；2. 设计思想、系统总体框架说明；3. 数据结构、系统各模块功能说明及具体实现的算法；4. 用户界面的设计步骤；写出涉及的主要控件的名称及作用；5. 运行结果、系统关键界面的截图；6. 调试记录（静态检查、动态检查过程中所遇到的问题、解决的办法）、心得体会（即程序设计过程中的经验、体会）；7. 该系统的运行条件（系统支撑环境），运行该系统的方法；8. 附录：源程序，要求源代码中要有清晰的注释。
时间安排：12月19日上午布置课程设计任务；分配题目后，查阅资料、准备程序；12月 20日～12月22 日上机编写、调试程序、书写课程设计报告；12月23 日上午答辩并提交课程设计报告及相关文档。
指导教师签字：2011年12 月15 日系主任签字：2011年12 月15 日一、VB课程设计目的通过一学期的VisualBasic程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编辑最基本的VB程序；对于完整的VB 程序设计来讲是很不足的，平时掌握的只是单独的窗体（Form）程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB 程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序。
VB课程设计报告书
Visual Basic 课程设计报告书姓名：学院：机电工程学院班级：11机自A4班学号：20114819049指导老师：实训时间：2013.7实训地点：14号楼目录一、题目简介……………………………………………………二、设计思路与总体方案………………………………………三、设计过程中遇到的主要问题与解决方案…………………四、设计中尚存的不足之处……………………………………五、参考文献……………………………………………………六、课程设计小结………………………………………………一、题目简介本题目旨在设计与一个可进行人机互动的小游戏，其名字为“井字棋”。
对于这个小游戏，相信大家也并不陌生，其规则是：在一个3*3的棋盘上轮流落子，当有三个相同颜色的棋子连成一行时，那方胜利。
这个小程序可以加深我们对这学期的vb基础知识的印象，使理论升华为实际操作，同时有助于我们培养我们的逻辑思维能力和解决问题的能力。
题目的难度相对不高，但牵涉到众多的知识点。
而且有些知识课堂上并没有讲过，这就让我们不得不自己去查询资料，进行设计，所以，还是有一定的难度的。
课程设计步骤与计划如下：(1)确定设计题目：“井字棋”游戏的设计与开发。
(2)需求分析：分析系统需要实现什么样的功能。
(3)程序设计：根据需求分析的结果，进行界面及编程设计。
(4)程序检验：对编好的程序进行测试，校对。
(5)程序改进：对校正后的程序进行改正，试行。
(6)编写报告：编写设计报告书。
程序主要要求实现以下几个功能：1.可以进行人机相互博弈；2.每次只能走一步棋，且落子的地方不可以继续落子；3.可以判断出输赢，并且当判断出输赢后，程序停止，未满的棋盘不可以继续落子；4.可以选择是电脑先走还是“人”先走；为了实现以上几点可以设计程序主界面如图1所示图1.程序主界面这个主界面已经可以大体上实现上述要求，它包括一个Command1控件数组，一个Option1控件数组，一个Label1控件，一个Command2控件和一个form1控件。
VB程序设计课程设计报告
"VB程序设计"课程设计报告题目：排序演示一、二、课程设计根本信息课程代码：05190124课程名称：计算机根底课程设计课程英文名称: puter-based Course Design课程所属单位〔院〔系〕、教研室〕：数学与计算机学院计算机根底课程群课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制剂、物流管理课程类型：必修课先修课程：大学计算机根底通识选修课程、Visual Basic程序设计课程学分：1 总学时：16三、课程设计目标掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据构造、语句构造、运算方法，稳固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。
通过综合设计要求到达以下根本技能：1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。
2．通过对所选题目方案分析比拟，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。
3．系统设计编程简练，可用，功能全面，并有一定的容错能力。
用户界面良好，有较好的输出功能。
在完成课题根本要求后，具有创新型设计，具有一定的实用价值。
4．根据个人的设计调试过程，撰写设计报告。
四、课程设计内容利用已掌握的VB程序设计语言根底，以及面向对象的程序设计方法、事件驱动的编程方式，进展应用程序和系统的开发设计。
在强化稳固已有编程知识根底之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。
五、课程设计要求1.要求每个同学都要认真对待，积极参与。
2.课程设计完毕时，提交完成的所有源程序、相关文件和可执行文件。
同时填写并完成"课程设计报告册"。
3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计中完全未参与的将作不及格处理。
六、考核方式指导教师负责验收程序的运行结果，并结合学生的工作态度、实际动手能力、创新精神和设计报告等进展综合考评，百分制计算，具体考核标准主要包含以下几个局部：1.程序运行情况20分2.程序功能的完善程度10分3.程序构造的合理性10分4.对问题的辩论情况20分5.创新情况10分6.学生的工作态度与独立工作能力10分7.设计报告内容的规*性20分备注:1.按规定时间填写各阶段文档，学习态度加5分2.设计报告内容雷同扣40分，无调试过程问题分析扣10分，无参考文献扣10分3.源程序无注释则在程序构造合理性扣10分七、课程设计主要参考资料"Visual Basic程序设计教程第4版"龚沛曾高等教育"Visual Basic程序设计实验指导与测试第4版"龚沛曾高等教育"Visual Basic从入门到精通"清华大学"Visual Basic课程设计" 王栋清华大学"Visual Basic开发实战1200例" 孙秀梅，巩建华清华大学二、总体设计(1)系统功能需求分析1.程序启动后，显示图6.1所示的主界面。
VB课程设计报告书
VB课程设计报告书题目：自测题系统（第48题）设计人：吕秋秋班级：9151038602学号：915103860209学院：化工学院报告日期：2016年4月13号一、题目介绍本题是一个自测题系统，利用已有的题目数据库，用户根据自己的喜好，自主选择题型进行自测，系统能够自动评分。
通过改数据库的资料可以换新的题。
本系统包括三个部分：判断题：通过系统随机给出判断题，根据题目判断对错，然后单击下一题，最后查看成绩。
填空题：通过系统随机给出填空题，根据题目在文字框中输入答案，然后单击下一题，最后查看成绩。
选择题：通过系统随机给出选择题，根据题目从四个选项中选择出正确答案，然后单击下一题，最后查看成绩。
二、设计内容2.1 所用知识点（1）.mdb数据库（2）DAO对象；（3）多模块程序设计；（4）控件数组；（5）SSTab控件；（6）自定义数据类型2.2数据库设计数据库里的问题可以在.adb表格中改变更换。
下面是初始问题及答案。
对于是非题，Answer字段“10”代表“错”、“01”代表“对”；对于填空题，Answer字段为正确答案。
对于选择题，Answer字段四位“1”和“0”表示相应选项是正确还是错误，如“1010”表示第一题和第三题是正确的，第二题和第四题是错误的。
2.3 主页面设计在VB知识自测题系统的主界面中，通过主界面选择要执行的功能，包括判断题、填空题、选择题三大部分，每个部分有几道小题。
运行系统后直接默认首先进入判断题，系统主窗体如图1所示。
图1 系统主窗体判断题模块在界面的右侧，可以看到有判断题、填空题、选择题这样三个标签。
首先单击右侧标签，选择“判断题”进入填空题答题部分，在“请选择”下边的选择框中点击题目中的对错按钮，若用户想继续答题，然后可以单击后一题，界面上会出现一道新的题目，答题者就可以继续答题了。
选择对错后单击“后一题”按钮，然后再点击“查看成绩”按钮，此时可以通过成绩提示框，看到已做了几道题，作对了几道题，判断题做题显示结果。
VB程序设计课程设计报告完整版
VB程序设计课程设计报告完整版VB程序设计课程设计报告摘要：本课程设计报告旨在介绍一个完整的VB程序设计项目，该项目主要以某个实际问题为背景，通过使用VB编程语言进行设计和实现。
报告主要包括需求分析、设计方法、编程实现、测试和总结等内容。
一、引言VB（Visual Basic）是一种面向对象的事件驱动编程语言，它广泛用于Windows操作系统平台上的软件开发。
VB具有简单易学、强大的功能和丰富的开发工具，被广大开发者用于各种程序设计领域。
本课程设计旨在通过一个实际问题，让学生掌握VB程序设计的基本方法和技巧。
项目要求学生设计一个小型图书管理系统，实现对图书的添加、查询、借阅和归还等功能。
二、需求分析1. 功能需求：a) 添加图书：包括图书名称、作者、出版社等信息。
b) 查询图书：根据图书名称或作者查询图书信息。
c) 借阅图书：借阅图书并更新库存信息。
d) 归还图书：归还已借阅的图书并更新库存信息。
2. 数据需求：a) 图书信息：包括图书名称、作者、出版社、ISBN号码和库存数量等。
b) 借阅信息：包括图书名称、借阅人、借阅日期和归还日期等。
3. 用户界面需求：a) 主界面：显示各种操作选项。
b) 添加图书界面：用于输入图书信息。
c) 查询图书界面：用于输入查询条件并显示查询结果。
d) 借阅图书界面：显示已借阅图书信息并提供借阅操作。
e) 归还图书界面：显示已借阅图书信息并提供归还操作。
三、设计方法1. 模块划分：根据功能需求将程序划分为若干模块，包括主模块、添加图书模块、查询图书模块、借阅图书模块和归还图书模块等。
2. 数据结构设计：使用适当的数据结构存储图书和借阅信息。
3. 界面设计：根据用户界面需求，设计相应的窗体，并在窗体上放置控件，实现各种操作功能。
4. 事件处理：根据用户的操作，编写相应的事件处理程序，实现各种功能。
四、编程实现1. 程序架构：使用VB的Windows Forms应用程序模板创建项目，并按照模块划分设计程序结构。
VB课程设计报告。
南京工程学院课程设计说明书(论文)题目密码登录课程名称VB课程设计报告院（系、部、中心）能源与动力工程专业建筑环境与设备工程班级暖通091学生姓名刘江淮学号207090822设计地点图书馆指导教师于雷1设计起止时间：2010 年6 月28 日至2010 年7 月 3一、设计任务补全代码，并按要求完成课程设计报告二、系统总体设计方案密码登录是每一个数据库应用程序所必备的一个功能模块，觅得是为了保证系统及数据的安全。
在用户进入某个系统时会弹出如同的对话框。
确认用户输入的权限师傅正确，级点击“确认”的按钮。
当用户输入的密码不正确时，系统将给出提示，如下图所示。
该模块的实现比较通用，在类似数据库应用中都需要用到。
有的系统还根据用户的需要提供了密码更改的功能。
当你需要更改密码的时候会出现如下的对话框。
首先输入原始密码，在输入新密码，确认新密码，然后点击“确认”键即可。
三、程序总体框架图四、系统的调试源代码写完后，对系统进行调试运行，要求变量声明，对可能出现的几种错误，如：编辑时错误、编译时错误、运行时错误、逻辑错误，进行修改，调试，运行，直至系统能正常运行。
五、收获体会Visual basic 语言是以结构化basic语言为基础，以事件驱动为运行机制。
他的诞生标志着元件设计和开发的新时代的开始。
VB具有面向对象可视化设计工具，是事件驱动的编程机制，同时也提供了易学易用的应用程序集成开发环境。
从Basic 语言、Visual basic 语言的学习开始接触到编程，以前有过一段Basic 语言的学习，觉得比较简单。
当时很想自己能够熟练的进行程序编辑，工程上的软件编辑。
随着大一的Visual basic 语言的学习才逐渐发现这理想想要实现的难度。
对我而言学习编程，不仅能够帮自己解决在生活中可能遇到的一些问题；自己设计一些小游戏还可以给自己带来一些乐趣。
同时也为自己在寻找理想工作添加重要的砝码。
所以，我觉得在学习VB是我们要明确学习的目的。
软件设计基础vb课程设计报告
软件设计基础vb课程设计报告一、课程目标知识目标：1. 理解VB编程的基本概念，掌握VB语言的基本语法和结构；2. 学会使用VB进行简单的软件界面设计，了解常用的控件及其属性、方法和事件；3. 掌握VB程序设计中顺序结构、选择结构和循环结构的运用；4. 了解VB中数组、函数和过程的使用。
技能目标：1. 能够运用VB语言编写简单的应用程序，实现基础的计算和数据处理功能；2. 学会使用调试工具进行程序调试，找出并修正程序中的错误；3. 培养良好的编程习惯，编写结构清晰、易读易懂的代码；4. 提高问题解决能力，能够运用所学知识解决实际问题。
情感态度价值观目标：1. 培养学生对计算机编程的兴趣，激发学生的创新意识和探索精神；2. 培养学生团队协作精神，学会与他人共同解决问题；3. 增强学生的自信心，使其在编程实践中体验成功，培养积极向上的学习态度；4. 培养学生严谨、细致、负责任的编程态度，养成良好的学习习惯。
本课程针对的是初中年级学生，课程性质为实践性较强的学科。
结合学生特点和教学要求，课程目标注重知识掌握与实践操作相结合，培养学生在编程领域的兴趣和基本技能，同时注重情感态度价值观的培养，使学生在学习过程中形成良好的学习习惯和团队协作精神。
通过本课程的学习，学生能够具备初步的VB编程能力，为后续学习打下坚实基础。
二、教学内容1. VB编程环境及基本操作- 熟悉VB集成开发环境- 学会创建和管理VB项目2. VB基本语法与结构- 数据类型、变量和常量- 运算符与表达式- 程序流程控制：顺序结构、选择结构、循环结构3. VB控件及其应用- 常用控件的使用：按钮、文本框、标签等- 控件属性、事件和方法4. 数组、函数与过程- 数组的概念及使用- 函数的定义与调用- 过程的定义与调用5. 简单的软件界面设计- 界面设计原则与技巧- 菜单、工具栏和状态栏的设计6. 程序调试与优化- 使用调试工具进行程序调试- 优化程序性能与代码结构7. 综合实例分析与实践- 分析实际案例，掌握编程思路- 实践项目：编写一个简单的计算器程序教学内容依据课程目标，遵循科学性和系统性原则进行选择和组织。
VB课程设计报告书 山科大
课程设计报告书课程设计名称：Visual Basic课程设计系（部）：经济管理系专业班级：学生姓名：学号：指导教师：完成日期：2011年1月4日山东科技大学泰山科技学院1 前言《VB程序设计》课程设计旨在巩固和加深对《VB程序设计》理论知识的理解，进一步掌握编程技巧和方法，树立结构化程序设计的思想，提高程序设计的应用层面。
加强VB程序设计中更高功能的理解与掌握，使VB程序设计能力更进一步。
1.1对VB课程设计的认识1.1.1 VB概述Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。
它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。
在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。
1.1.2 VB课程设计的性质和目的通过接触客观实际，了解和认识所学的专业知识，掌握所学知识在客观实际中的应用，并能亲自动手完成相关题目设计。
把所学的理论知识与实际能力紧密的结合在一起。
1.2 VB课程设计的基本内容和要求1.2.2 VB课程设计的基本内容本次课程设计要求学生熟练掌握《VB程序设计》课程的基础知识，独立完成设计任务,并完成课程设计报告，主要要求学生掌握以下内容：理解系统开发的必要步骤，绘制流程图、根据流程图编写程序、并自主进行必要的测试与维护。
最后形成规范的设计报告。
1.2.2 VB课程设计的基本要求1. 对系统要实现的功能进行确切的描述。
2. 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系。
本人VB课程设计报告样例
洛阳理工学院课程设计报告课程名称高级语言程序设计设计题目程序设计综合训练专业高分子材料与工程班级B110111学号B11011123姓名邓文旗完成日期2013年1月11日课程设计任务书设计题目：程序设计综合训练_________________________________________________________ 设计内容与要求菜单的使用图片框的使用列表框的使用文本框的使用单选按钮的使用复选按钮的使用命令按钮的使用图片的插入与移动等界面美观代码规范报告格式符合要求题目要求功能全部实现指导教师：郭恒川2013 年1 月11 日课程设计评语成绩：指导教师：_______________年月日第一章课程设计目的一年的vb程序设计课程已经结束，随着老师的辛勤指导与自己平时的努力训练，已经掌握的基本的掌握了简单的程序设计内容。
为了有效地提高学习效率，更有效的掌握所学知识，特此完成了以下简单的程序设计。
本课题主要进行了控件数组、框架、键盘事件处理、定时器控件、图片框、列表框等知识的运用。
第二章课程设计的要求题目介绍（1）画一个框架，添加三个复写框。
（2）画一个图片框，运行其中相关的图片的程序。
（3）通过控制按钮来控制汽车的各种运动。
（4）运行程序，计算正弦余弦值。
（6）通过“菜单”的各种命令，控制图片框中的变化。
（7）在列表框中添加项目，通过程序控制它的各种变化。
（8）通过图片框与其中的单选按钮，运行程序在文本框中显示不同的内容。
（9）通过单选按钮，程序运行时是文本框中的内容相互“交换”“连接”，并显示出来。
（10）通过“计算”“读入数据”“存盘”按钮，把已知文件中的数据计算并存盘。
课程设计功能要求（1）框架标题为“目的地”，框架中的三个复选框的标题分别为“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态。
（2）图片框名称为picture1，其高的宽分别为1900、1700.运行时，单击图片框，则装入相应的图片，单击窗体图片框中的图片消失。
vb课程设计实践报告
vb课程设计实践报告一、教学目标本课程的教学目标是让学习者掌握Visual Basic编程语言的基本语法、编程技巧以及数据库访问技术。
通过本课程的学习，学生应能设计并实现简单的应用程序，为后续的软件开发学习打下坚实的基础。
具体来说，知识目标包括：1.理解Visual Basic编程语言的基本概念和语法。
2.掌握常用的数据类型、运算符和表达式。
3.学会使用Visual Basic的窗体和控件。
4.掌握事件驱动编程的基本概念。
5.理解并能够使用Visual Basic进行数据库访问。
技能目标则要求学生：1.能够使用Visual Basic编写简单的程序。
2.能够使用Visual Basic进行数据库的连接和操作。
3.能够对程序进行调试和优化。
情感态度价值观目标则在于培养学生的创新精神和团队合作意识，通过完成项目任务，使学生感受到编程的乐趣，增强对计算机科学的热爱。
二、教学内容本课程的教学内容主要包括Visual Basic的基本语法、数据类型、控制结构、窗体和控件、以及数据库访问技术。
具体的教学大纲安排如下：1.课程引言：介绍Visual Basic的发展历程和应用领域。
2.基本语法：变量、数据类型、运算符、表达式等。
3.控制结构：条件语句、循环语句等。
4.窗体和控件：窗体的基本属性、控件的属性和事件等。
5.数据库访问：使用ADO对象进行数据库的连接和操作。
三、教学方法为了提高教学效果，将采用多种教学方法相结合的方式进行教学。
包括：1.讲授法：用于讲解基本语法和概念。
2.案例分析法：通过分析具体的案例，使学生理解编程思想和方法。
3.实验法：安排上机实验，让学生亲手编写代码，提高实践能力。
四、教学资源为了支持教学，将准备以下教学资源：1.教材：《Visual Basic编程教程》。
2.参考书：提供相关的编程书籍，供学生课后自学。
3.多媒体资料：制作教学PPT，辅助讲解。
4.实验设备：提供计算机实验室，让学生进行上机实验。
vb课程设计报告
vb课程设计报告一、课程目标本vb课程设计旨在达成以下学习目标：1. 知识目标：学生掌握VB编程基础知识，理解面向对象编程思想，熟悉VB 开发环境及相关工具的使用。
具体包括：- 掌握VB基本语法和数据类型；- 学会使用VB控制结构，如循环、分支等；- 理解VB中事件驱动编程原理；- 了解VB中常用控件的使用方法和属性设置。
2. 技能目标：学生能够运用所学知识，独立设计并编写简单的VB程序，培养解决实际问题的能力。
具体包括：- 能够编写具有基本功能的VB程序，如计算器、文本编辑器等；- 能够运用面向对象编程思想，设计简单的类和对象；- 能够分析问题，运用VB编程解决实际问题。
3. 情感态度价值观目标：培养学生对编程的兴趣，提高逻辑思维能力和团队协作能力。
具体包括：- 增强学生对编程的热爱，激发学习动力；- 培养学生独立思考、解决问题的习惯；- 培养学生团队协作精神，学会与他人分享和交流。
课程性质：本课程为实践性较强的学科，注重培养学生的动手能力和实际应用能力。
学生特点：学生年级为初中或高中，具备一定的计算机操作基础，对编程有一定的好奇心和兴趣。
教学要求：结合学生特点和课程性质，采用任务驱动法，以实际项目为导向，让学生在实践中掌握VB编程知识，提高编程能力。
同时，注重培养学生的逻辑思维和团队协作能力，为后续学习打下坚实基础。
二、教学内容根据课程目标，本章节教学内容如下：1. VB基本语法和数据类型- 数据类型：整数型、浮点型、字符串型等；- 变量和常量的声明与使用；- 运算符和表达式。
2. VB控制结构- 条件语句：If...Then...Else和Select Case；- 循环语句：For...Next，While...Wend和Do...Loop。
3. VB事件驱动编程- 事件和事件过程的概念；- 鼠标和键盘事件；- 窗体和控件事件。
4. VB常用控件- 文本框、标签、按钮等基本控件的使用；- 列表框、组合框、图片框等高级控件的使用；- 控件属性的设置。
VB课程设计报告(实例样本)
课程设计(论文)任务书学院专业班一、课程设计(论文)题目二、课程设计(论文)工作自10 年6月20日起至08 年 6 月30 日止。
三、课程设计(论文) 地点:四、课程设计(论文)内容要求：1．本课程设计的目的1. 综合Visual Basic相关知识制作简单的可视化应用程序2. 灵活对程序代码进行利用，修改和编写；3. 熟练将Visual Basic所学知识和其它知识相结合2．课程设计的任务及要求1）基本要求：1、目的是进一步培养学生综合应用VB的各种编程知识和技巧进行程序设计的能力。
通过课程设计，学生能达到具备设计功能较为复杂的Windows应用程序的能力。
2、至少多窗体界面（3-5个窗体）3、使用菜单、数组、文件操作、图形操作等制试点。
；4、对运算结果的正、误分析原因。
2）课程设计论文编写要求（1）要按照书稿的规格打印誊写毕业论文（2）论文包括目录、绪论、正文、小结、参考文献、谢辞、附录等（3）毕业论文装订按学校的统一要求完成3）参考文献：1:《Visual Basic程序设计教程》作者: 刘炳文、许蔓舒编著。
清华大学出版社2:《Visual Basic程序设计教程》（第二版）作者: 刘瑞新等编著，电子工业出版社3:《新编Visual Basic程序设计教程》作者: 梁普选主编，电子工业出版社4）课程设计进度安排内容天数地点查阅资料 2 图书馆系统设计 5 15-701编程与调试 3 15-701检查程序及提问（考核） 1 8-501学生签名：10 年6月20日课程设计(论文)评审意见（1）完成分析（20分）：优（）、良（）、中（）、一般（）、差（）；（2）设计过程（40分）：优（）、良（）、中（）、一般（）、差（）；（3）完成调试（20分）：优（）、良（）、中（）、一般（）、差（）；（4）回答问题（20分）：优（）、良（）、中（）、一般（）、差（）；（5）格式规范性及考勤是否降等级：是（√）、否（）评阅人：职称：讲师10 年6月30日电信计费管理系统一、开发简介（一）背景本学期系统学习了VB程序设计课程，按照惯例，在学期结束时进行VB程序设计课程软件的开发，也就是本次课程设计。
VB课程设计报告
长江工程职业技术学院《visual basic可视化程序设计》课程设计题目科学计算器院系信息工程系专业计算机应用班级0801姓名丁小春小组成员王涛丁小春朱柘源指导教师谭家兴2009 年12月26日目录目录 (2)1课程设计简介 (5)1.1课程设计目的 (5)1.2程序设计背景 (5)1.3程序功能 (5)2设计思想 (6)3设计思路 (6)3.1模块说明 (6)3.2窗体说明 (7)4代码程序 (10)5自我评价与总结 (19)《VB》课程设计任务书任课教师：谭家兴班级：0801 学生人数：55一、课程设计的任务本课程设计的任务是要求学生在掌握VB语言程序设计的基础上，进一步提高学生综合编程能力、程序调试能力的重要实践性教学环节，使学生对VB这门面向对象的编程语言中有关属性、事件以及事件过程的编程思路和技巧、调试方法有全面深刻的理解；利用菜单；文件；数据库；内部和外部控件以及API函数的有机组合，设计出一个小型的、比较实用的应用软件；加深了解VB开发项目的一般过程，培养运用VB解决实际问题的应用能力。
通过一周的实训，学生应完成教师所给项目的全部文档，并在规定时间内提交设计成果、设计报告书以及由指导教师和实训教师组成的答辩小组的答辩。
二、设计思路及时间安排：1．根据题目的要求，进行需求分析；（半天）2．集合各种可用的“对象”，总体调整每个对象的“属性”（属性值的设置最好用编程方式设置）；3．根据题目的要求，调查每个对象可以使用的“方法”；4．整理出所有“事件”；5．对每个事件过程编写“事件过程”（对每个事件过程有良好的注释或说明）；（3天）6．调试程序和除错；（1天）7．制作安装磁盘。
8．写报告（1天）8．答辩（半天或验收）三、要求：1．每人应有4个以上的窗体，5个以上的事件过程，1个以上的数据库, 1个以上的类，适当使用API函数；2．良好的输入输出界面，注重程序的实用性；3．有菜单栏和工具栏；4．具有文件管理功能；5：设计成果：设计说明书一份（附录：设计说明书格式及要求）；源程序（能编译成可执行文件并能正常安装及运行）。
VB课程设计报告书样板
××××设计报告学院班级学号姓名成绩一、设计思路1.要达到的目的正文（宋体5号字，单倍行距）①×××××②×××××③×××××④×××××。
2.关键问题的解决正文（宋体5号字，单倍行距）①×××××②×××××③×××××④×××××。
二、模块之间的调用关系，或程序流程图特别注意：根据自己题目的情况修改此图，可以更简单或者更复杂！流程特简单的可以没有这个部分。
三、部分程序关键源代码及注释正文（宋体5号字，单倍行距）四、设计方案的完善及目前存在的问题1．设计方案要完善的地方正文（宋体5号字，单倍行距）①×××××②×××××③×××××。
2. 目前存在的问题正文（宋体5号字，单倍行距）①×××××②×××××③×××××。
五、本次设计的收获及心得体会正文（宋体5号字，单倍行距）六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议正文（宋体5号字，单倍行距）2．对本次设计的意见和建议正文（宋体5号字，单倍行距）特别说明：一定要将模板中的xxxx替换为实际值，蓝色是格式要求，写报告时要删除。
vb课程设计实践报告
vb课程设计实践报告一、教学目标本课程的教学目标是使学生掌握VB编程的基础知识，培养学生运用VB解决实际问题的能力。
具体分为三个部分：1.知识目标：学生需要掌握VB的基本语法、数据类型、变量、常量、运算符、控制结构、函数等编程基础知识和技能。
2.技能目标：学生能够运用VB编写简单的程序，解决实际问题，如计算器、文本排序等。
3.情感态度价值观目标：培养学生对编程的兴趣和主动性，提高学生分析问题、解决问题的能力。
二、教学内容根据教学目标，本课程的教学内容主要包括以下几个部分：1.VB基本语法和数据类型2.变量、常量和运算符3.控制结构：顺序结构、选择结构、循环结构4.函数：数学函数、字符串函数、日期时间函数等5.面向对象编程：类和对象、属性、方法、事件等6.常用控件及其属性和方法7.数据库访问技术三、教学方法为了达到教学目标，本课程将采用以下几种教学方法：1.讲授法：讲解VB的基本语法、数据类型、变量、常量、运算符、控制结构、函数等基础知识。
2.案例分析法：通过分析实际案例，使学生掌握面向对象编程、常用控件及其属性和方法。
3.实验法：让学生动手编写程序，解决实际问题，提高学生的编程能力。
4.讨论法：分组讨论，分享学习心得，互相答疑解惑。
四、教学资源为了支持教学内容和教学方法的实施，我们将准备以下教学资源：1.教材：《VB编程与应用》2.参考书：《VB编程实例教程》3.多媒体资料：教学PPT、视频教程4.实验设备：计算机、网络环境、编程软件以上教学资源将有助于丰富学生的学习体验，提高学生的编程能力。
五、教学评估为了全面、客观、公正地评估学生的学习成果，我们将采取以下评估方式：1.平时表现：评估学生的出勤、课堂参与度、提问回答等情况，占总成绩的20%。
2.作业：布置适量的作业，评估学生的编程能力和应用能力，占总成绩的30%。
3.考试：进行期中和期末考试，评估学生对VB基础知识和技能的掌握程度，占总成绩的50%。
VB课程设计报告
东华理工大学Visual Basic程序设计课程设计报告数据库应用基础学号: ************ 姓名： **班级: 1230601专业：信管专业日期： 2013年12月一、VB课程设计目的和要求本课程设计目的是进一步培养学生综合应用VB的各种编程知识和技巧进行程序设计的能力。
通过课程设计，学生能达到具备设计功能较为复杂的Windows应用程序的能力。
同时，通过课程设计，培养学生自主学习和独立创新的精神，是人才培养体系中极为重要的一环。
二、分析功能，建立系统的体系结构设计一个能实现学生信息（姓名、学号、性别、出生年月、专业）的新增、删除、更新、查找、结束等功能的Microsoft Visual Basic 数据库应用程序，并熟悉掌握好对象属性、事件、方法。
（1）基本情况表如下：（2）页面代码如下：（3）运行界面如下：三、VB课程设计内容介绍（1）代码如下：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0Adodc1.Recordset.MoveFirstCase 1Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3Adodc1.Recordset.MoveLastCase 4Dim mno As Stringmno = InputBox("请输入学号", "查找窗")Adodc1.Recordset.Find "学号='" & mno & "'", , , 1If Adodc1.Recordset.EOF Then MsgBox "无此学号!", , "提示" End SelectEnd SubPrivate Sub Command2_Click(Index As Integer)Dim ask As IntegerSelect Case IndexCase 0Adodc1.Recordset.AddNewCase 1ask = MsgBox("删除否?", vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfCase 2Adodc1.Recordset.UpdateCase 3Adodc1.Recordset.CancelUpdateCase 4EndEnd SelectEnd SubPrivate Sub Form_Load()Dim mpath$, mlink$mpath = App.PathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"mlink = "Provider=microsoft ole db provider for sql server;" mlink = mlink + "data source=" + mpath + "学生成绩管理系统" Adodc1.ConnectionString = mlinkmandType = adCmdUnknownEnd Sub五、VB课程设计小结通过这次课程设计，增加了我学习软件技术的兴趣，虽然还不明确软件技术包含的具体内容，但从Visual Basic程序设计这门课程开始，已发现其中的乐趣，在学习Visual Basic程序设计的过程中也学到了许多计算机应用基础知识，对计算机的机体也有了一个大体的了解。
VB课程设计报告
VB课程设计报告V B课程设计报告题目：图书馆管理系统指导老师：吴志强老师班级： 10410111学号：姓名：黄流华时间： 12月20日目录1、课程设计目的2、课程设计题目3、课程设计要求4、课程设计说明5、源代码6、运行结果7、课程设计体会1、课程设计目的课程设计为学生提供了一个既动手又动脑，独立实践的机会，将课本上的VB理论知识和实际有机的结合起来，锻炼学生的分析解决实际问题的能力，提高用VB编程实现具体问题的能力。
2、课程设计题目图书馆管理系统3、课程设计要求：用户登陆、图书的借阅和归回、图书信息的添加、修改、查询和删除操作。
4、课程设计说明根据对我院图书馆及图书信息进行的调查和分析,图书管理系统应该具有以下功能：系统管理（即登录）、图书管理、还书和借书操作。
各个功能模块如下：a、系统管理模块在这个模块，能够进行登录和退出等操作。
b、图书管理模块在这个模块，能够进行增加、删除、修改、查找、上一个和下一个。
C、还书和借书模块在这个模块，能够完成借书、还书操作。
d、报表模块5、图书管理信息系统的数据库设计系统数据库名为Data，数据库中包括（1）图书信息表；（2）借出图书信息表；（3）归还图书信息表1、图书信息表的数据结构2、借出图书信息表字段名类型大小空值描述输入借出图书编号nvarchar10 y 输入借出图书编号图书编号nvarchar10 y 图书编号价格real 4 y 价格类别nvarchar 10 类别书名nvarchar 30 y 书名出版社nvarchar 30 出版社今天日期smalldatetime 4 y 今天日期3、归还图书信息表字段名类型大小空值描述图书编号nvarchar 10 y 图书编号书名nvarchar30 y书名价格real 4 y价格出版社nvarchar30 y出版社借出日期smalldatetime 4 y借出日期类别nvarchar10 类别借出天数smalldatetime 2 y 借出天数限定天数Text 4 y 限定天数超出天数Text 4 y 超出天数罚款金额Text 5 y 罚款金额今天日期Text 5 y 今天日期输入要还的图书编号nvarchar 10 y 输入要还的图书编号。
VB课程设计报告
Visual Basic课程设计报告报告人：王菁一、题目介绍及功能要求每个现代人都有众多的亲戚、朋友、业务伙伴的通讯信息（包括姓名、性别、生日、工作单位、电话号码和邮政编码等）需要维护。
平常所使用的纸质通讯录不便于管理大量的通讯录信息，特别是查询起来相当费事。
本题目要求编制一个通讯录管理程序，实现通讯录信息的添加、修改、删除和查询功能。
二、所含控件名称命令按钮控件、文本框控件、标签控件、列表框控件、图片框控件、滚动条控件、组合框控件、动态数组控件、日期选择器控件三、新控件简介1.DTPicker控件日期选择器控件，是专为用户输入单个日期设计的，一般状态下它像个组合框，可以单独编辑器中日期的年、月、日数值。
单击右边下拉按钮时，会弹出一个月历控件，从中可以方便的单击选择一个日期，当Value值改变时引发Change 事件。
本程序中编写Birthday = DTPicker1.Value语句对该控件进行应用。
2.配置文件的应用配置文件是一种特殊格式的文本文件，一般以.ini为扩展名。
配置文件中的空行被忽略，以分号“；”开头的行作为注释内容也被忽略。
节名不能重复，同节中的键名也不能重复。
本例中[Record1][Record2][Record3]等即为节名，姓名、性别、邮政编码、手机、电子邮件、出生日期、所在城市、工作单位、住宅电话、办公电话、照片、职务职称、地址即为键名。
因为配置文件的特殊格式，Windows 提供了专门的API函数对其进行读写，与一般的文本文件读写操作相比更加简便，配置文件的读写不必使用Open、Close、Write、Input等顺序文件的文件操作语句。
可以使用WritePrivateProfileString函数在配置文件的指定节中写入一个键，此函数的声明语句如下：Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long 使用时如果指定的文件不存在会自动创建，如果文件中无指定的节名也会自动创建，如果指定的节名中已有同名的键，会被新值覆盖。
VB课程设计报告
VB课程设计报告班级：10410111学号：1041011142姓名：王金榕指导老师：吴志强老师题目：小型超市仓库管理系统一、课程设计目的：课程设计为学生提供了一个既动手又动脑,独立实践的机会,将课本上的VB理论知识和实际有机的结合起来，锻炼学生的分析解决实际问题的能力，提高用VB编程实现具体问题的能力。
二、课程设计的题目：仓库管理系统要求：实现注册登陆功能，对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。
三、设计说明;本仓库管理系统是在以Visual Basic为编程语言，以ACCESS作为后台数据库而开发的一个数据库管理系统。
3.1、课程设计思想仓库管理主要是企业、超市对各种商品的管理。
进货时经检查合同确认为有效托收后，进行验收入库，填写入库单，进行入库登记。
企业各个部门根据需要提出产品请求，计划员根据整个企业的需求开出产品出库单，仓库管理人员根据出库单核对发放产品。
根据需要按进行统计分析，产生相应报表。
仓库管理的特点是信息处理量比较大，所管理的产品种类繁多，而且由于入库单、出库单、等单据发生量特别大，关联信息多，查询和统计的方式各不相同。
因此在管理上实现起来有一定的困难。
在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部门管理规格不统一等问题。
在本系统的设计过程中，为了克服这些困难，满足计算机管理工作的需要，我们采取了下面的一些原则。
●统一各种原始单据的格式，统一报表的格式。
●删除不必要的管理冗余，实现管理规范化、科学化。
●程序代码标准化，软件统一化，确保软件的可维护性和实用性。
●界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员工的需要。
●建立操作日志，系统自动记录所进行和各种操作。
3.2 系统功能需求分析系统功能分析是在系统开发的总体任务的基础上完成。
本仓库管理系统需要完成功能主要有：●仓库管理各种信息的输入，包括货物管理、、仓库入库、出库、用户管理信息的输入等。
VB课程设计报告jjj
VB课程设计报告——打字游戏系别：计算机专业：网络技术姓名：蒋胜阳指导老师：董明2010-6-30《VB课程设计》任务书一、设计目的学习和巩固VB程序设计的方案，充分体会VB在程序在设计方面的强大功能和独特之处；解用VB开发项目的一般过程，培养应用VB解决实际问题的工作能力。
二、设计要求1、符合课题要求，实现相应功能；可以加以其他功能或修饰，使程序更加完善、合理；2、要求界面友好美观，操作方便易行；3、注意程序的实用性、安全性；4、独立思考，独立完成。
可选题目：（1）商品进销存管理系统的设计功能有：商品入库登记、查询、收银等功能。
（2）多功能计算器的设计计算器要求实现加，减，乘，除，求乘方，正弦，余弦，正切，余切等功能（3）VB打字游戏要求从屏幕上方随机落下若干字母、数字或其他符号，并能实时给出分数。
（4）家庭财务管理系统的设计功能有:家庭成员登记\收支项目设置\数据维护\用户登录\记账查询三、设计报告书应包括的内容①目录②题目③前言④正文：包括系统概述、系统分析、系统详细设计、系统的编码实现、测试等。
⑤结论⑥参考文献四、注意事项1、B5纸张打印;2、4000字以上；3、如有雷同，将做不及格处理。
五、完成期限2010年7月（全部分散完成）教师评语：目录封面 (1)任务书 (2)教师评语 (3)目录 (4)摘要 (5)前言 (6)打字游戏功能 (7)对象属性设置 (7)运行前的界面 (9)制作打字游戏代码 (10)运行效果 (20)结论 (21)参考文献 (22)摘要在已跨入21世纪的今天，人类使用和学习信息的方式以及信息的包装方式正在进行着不可阻挡的革命，这次革命将比印刷术的出现所产生的影响以及对社会发展的推动远为复杂而巨大。
目前，我国上网已近一个亿，成立世界上网民最多的国家，许多人在需要查询信息，首先想到的就是上网。
这是有关打字游戏的专题,因为打字游戏迷人之处有在于综合使用文本、图象、和声音的信息和内容. 内容丰富.因此成为最吸引人的也最有效的信息传递手段和方式。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《安全信息管理系统》课程设计报告书题目：建筑施工安全信息系统专业：计算机应用技术学生姓名：xx学号：完成时间：2013年6月目录《安全信息管理系统》课程设计报告书1.课程设计计划2.系统需求分析与功能设计3. 总体设计4. 数据库设计5. 程序模块设计6. 技术难点与分析7. 系统测试8. 心得体会9. 参考文献1.课程设计计划本课程设计任务是通过学生信息管理系统的设计与实现，将所学的数据库系统概论理路结合实际课程任务，进一步学习数据库系统的设计与开发，提高实践动手能力，系统使用Visual Basic 6.0和Access 2000等软件作为开发工具，通过调研目前建筑施工安全，了解管理的业务流程；通过分析比较，结合用户对系统的改进意见与实现情况，运用面向对象思想方法，设计和实现一个满足功能和性能，并有所创新的施工安全信息管理系统，以提高管理系统的自动化、友好性等。
通过对建筑施工安全信息管理系统的了解，把整个系统划分为职工信息、事故信息、日常检查记录、事故统计四大模块。
在各个模块下，分别建立信息添加、相应信息维护及打印功能，使安全信息管理人员工作方便快捷。
课程设计步骤与计划如下：(1)确定设计题目：建筑施工安全信息管理系统的设计与开发。
(2)需求分析：分析系统需要实现什么样的功能。
(3)程序设计：根据需求分析的结果，进行界面及编程设计。
(4)程序检验：对编好的程序进行测试，校对。
(5)程序改进：对校正后的程序进行改正，试行。
(6)编写报告：编写建筑施工安全信息管理系统设计报告书。
2.系统需求分析与功能设计(根据课题的要求进行简单的需求分析，设计相应的数据流图，得出相应的系统功能需要, 系统数据流图)2.1建筑施工安全信息管理数据库系统的需求分析2.1.1功能需求分析(1）用户管理为了保证数据库中的数据不被泄露或破坏，登录界面要设计直观，操作简单，友好而且使用方便。
尽量使用户输入的数据最少，具有人机亲和力，做到画面尽可能接近实际，界面保持一致，让用户始终用同一种方式思考和操作。
(2)职工信息管理功能职工信息的管理，并对其进行必要的维护工作，这主要包括了职工编号、部门、工作时间、工种等信息在内的基本信息的输入、修改以及查询。
(3)事故信息管理及统计功能实现施工单位对不同事故类型的管理，并能够按照实际情况不断更新。
界面要求一目了然，并且根据年份或者事故类型作出统计图表，可以起到直观、简洁的效果，提出整改建议及措施。
(4)三级教育记录管理功能对三级教育记录进行管理，并对其进行必要的维护操作，以符合三级教育制度的需要。
并建立了三级教育记录添加、相应的维护等功能。
通过检查发现施工现场的事故隐患和危险源，并作出预防措施。
(5)信息查询打印功能实现对建筑施工单位各种信息的查询，为数据更新提供依据，系统主要完成事故信息和日常检查记录的查询。
但作为职工只能查看本人信息，以保障信息安全，包含简易检索就是按照职工编号查询，高级检索综合多种信息一起给出查询结果，以及根据SQL语句进行查询。
各模块的打印功能,为方便安全人员对职工进行安全教育培训、日常检查、事故统计分析，应用VB系统中的Dataenvironment和Datareport 模块，并根据SQL语言增加系统打印功能，此功能可以按照查询结果进行打印，使结果清晰可见，一目了然，提高效率，增强了系统的安全性。
2.2系统数据流图顶层：1层：2层1：2层2：2层3：2层4：3. 总体设计(根据功能需求，设计系统的总体结构。
系统总体功能模块图，菜单的设计)根据功能和系统分析，可以设计出系统的总体功能模块，如图3.1所示。
图3.1 系统功能模块示意图1．职工基本信息管理模块，新职工入职后，安全信息管理人员在系统中加入职工基本信息，并对其进行必要的维护。
管理人员在输入用户名及密码后可以进入程序，浏图3.2 职工基本信息管理模块2 事故信息管理模块，保存和更新事故数据信息，包括事故名称、发生地点、事故类型、事故损失、事故等级、人员伤亡情况等。
实现对应模块的添加，浏览，修改和删除。
模块如下图2.3所示。
图3.3 事故信息管理模块3 日常检查信息管理模块，保存和更新日常检查记录数据信息，包括工程名称、检查内容、时间、检测人员等。
实现对应模块的添加，浏览，修改和删除。
模块如下图3.4所示。
图3.4 日常检查信息管理模块4 事故统计模块，为方便管理人员快速得到有效信息，实现了按事故类型、年份统计事故数目和按年份统计事故损失，可以起到直观、简洁的效果。
4. 数据库设计(完成数据库的概念设计、逻辑设计，按数据库设计方法和规范化理论得出符合3NF的逻辑模型, ER图设计,ER图转化为相应的关系模式,设计数据库的逻辑模型(以表格)，在机器上完成数据库的物理设计)通过对建筑施工单位需求进行综合、归纳和抽象，形成一个独立于具体数据库的概念模型。
根据前面的设计规划处实体有：用户实体、总体。
构建E-R图用来描述本系统中的概念模型。
4.1 概念结构设计用户实体包含的属性：用户名、密码。
用户实体与各属性是对应的关系，各属性之间则是部分存在对应关系，如用户名确定，则可以推断其它属性，但是密码确定，却不能推断其它属性，用户实体E-R图如图4.1所示。
图4.1 用户实体E-R图根据分E-R图和需求分析，可得到各部分E-R图，如图4.2所示。
图4.2 总E-R图4.2逻辑结构设计根据以上的E-R，结合关系数据库理论原则，可以得到以下的关系模型:登录表：（存放管理员用户名和密码）职工基本信息登记表：（存放职工编号、姓名、性别、文化程度等）事故信息表：（存放事故相关信息，如：事故类型及事故地点等）日常施工安全检查记录表：（存放日常检查的基本信息，如：工程名称、检查内容、检查内容、检查日期等）我们用数据字典来罗列关系模型的属性及其描述，本建筑施工安全管理系统的数据字典如表4.1～4.3所示。
表4.1 职工基本信息数据字典名字描述数据类型职工编号描述职工编号的数据50变长字符串姓名描述姓名的数据50变长字符串性别描述性别的数据50变长字符串出生日期描述出生日期的数据50变长字符串文化程度描述文化程度的数据50变长字符串工作时间描述工作时间的数据50变长字符串单位部门描述单位部门的数据50变长字符串职位描述职位的数据50变长字符串工种描述工种的数据50变长字符串类别描述类别的数据50变长字符串表4.2 事故信息登记表数据字典名字描述数据类型事故编号描述事故编号的数据整形数据事故名称描述事故名称的数据50变长字符串事故地点描述事故地点的数据50变长字符串事故类型描述事故类型的数据50变长字符串事故日期描述事故日期的数据50变长字符串事故原因描述事故原因的数据50变长字符串事故损失描述事故损失的数据整形数据事故等级描述事故等级的数据50变长字符串死亡人数描述死亡人数的数据整形数据重伤人数描述重伤人数的数据整形数据轻伤人数描述轻伤人数的数据整形数据表4.3 日常施工安全检查记录表数据字典名字描述数据类型工程名称描述工程名称的数据50变长字符串检查日期描述检查日期的数据50变长字符串检查内容描述检查内容的数据250变长字符串检查结果描述检查结果的数据50变长字符串检查人描述检查人员的数据50变长字符串50变长字符串受检人描述受检人的数据4.3 数据库表的建立在设计数据库表结构之前，首先要创建一个数据库，学生信息管理系统选用Access 2003创建用户数据库，其建设过程如图4.3～图4.6所示。
图4.3 创建数据库界面图4.4 职工基本信息登记表图4.5 事故信息登记表图4.6 日常施工安全检查记录表5. 程序模块设计(设计并编写输入\输出、查询\统计、数据维护等功能模块的应用程序,每个人设计2个以上的模块，一个组完成一个完整的系统,数据库访问，存储过程调用等作重点阐述)5.1职工基本信息管理模块程序设计职工基本信息添加：Private Sub Command1_Click() '添加'判断是否按照要求添加记录，如有空项，提示并结束程序For i = 0 To 4If Trim(Text(i).Text) = "" ThenMsgBox "记录不能为空！", vbOKOnly + vbInformation, "提示"Text(i).SetFocusExit SubEnd IfNextrs.AddNew '添加新记录rs.Fields("职工编号") = Trim(Text(0).Text)rs.Fields("姓名") = Trim(Text(1).Text)rs.Fields("性别") = Combo1.Textrs.Fields("出生日期") = DTPicker1.Valuers.Fields("文化程度") = Combo2.Textrs.Fields("工作时间") = DTPicker2.Valuers.Fields("单位部门") = Trim(Text(2).Text)rs.Fields("职位") = Trim(Text(3).Text)rs.Fields("工种") = Combo3.Textrs.Fields("类别") = Combo4.Textrs.Fields("备注") = Trim(Text(4).Text)rs.Update '更新记录MsgBox "添加成功"Command1.Enabled = False职工基本信息查询：Private Sub Command1_Click() '查询'判断是否按照要求添加记录，如有空项，提示并结束程序If Trim(Text1.Text) = "" ThenMsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示"Exit SubEnd IfDim sql As StringIf Option1.Value = True Thensql = "select * from 职工基本信息登记表 where 职工编号='" & Trim(Text1.Text) & "'"Elsesql = "select * from 职工基本信息登记表 where 姓名='" & Trim(Text1.Text) & "'"End IfSet rschaxun = New ADODB.Recordsetrschaxun.CursorLocation = adUseClientrschaxun.Open sql, Conn, 1, 1 '按照查询条件打开表If rschaxun.EOF Then '如果没查到 给与提示MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation, "提示"ElseSet DataGrid1.DataSource = rschaxun '查到后更新DataGrid1 DataGrid1.RefreshFor i = 0 To 10Set Text(i).DataSource = rschaxunNextText(0).DataField = "职工编号"Text(1).DataField = "姓名"Text(2).DataField = "性别"Text(3).DataField = "出生日期"Text(4).DataField = "文化程度"Text(5).DataField = "单位部门"Text(6).DataField = "职位"Text(7).DataField = "工作时间"Text(8).DataField = "类别"Text(9).DataField = "工种"Text(10).DataField = "备注"End IfEnd Sub职工基本信息修改：Private Sub Command2_Click() '修改If Command2.Caption = "修改" Then '点击修改按钮后，按钮标题改为确认修改，完成修改操作Command2.Caption = "确认修改"Text(0).Enabled = TrueText(1).Enabled = TrueText(2).Enabled = TrueText(3).Enabled = TrueText(4).Enabled = TrueText(5).Enabled = TrueText(6).Enabled = TrueText(7).Enabled = TrueText(8).Enabled = TrueText(9).Enabled = TrueText(10).Enabled = TrueElsers.Fields("职工编号") = Trim(Text(0).Text)rs.Fields("姓名") = Trim(Text(1).Text)rs.Fields("性别") = Trim(Text(2).Text)rs.Fields("出生日期") = Trim(Text(3).Text)rs.Fields("文化程度") = Trim(Text(4).Text)rs.Fields("单位部门") = Trim(Text(5).Text)rs.Fields("职位") = Trim(Text(6).Text)rs.Fields("工作时间") = Trim(Text(7).Text)rs.Fields("类别") = Trim(Text(8).Text)rs.Fields("工种") = Trim(Text(9).Text)rs.Fields("备注") = Trim(Text(10).Text)rs.Update '更新记录DataGrid1.Refresh '更新DataGrid1MsgBox "修改成功"Command2.Caption = "修改"Text(0).Enabled = FalseText(1).Enabled = FalseText(2).Enabled = FalseText(3).Enabled = FalseText(4).Enabled = FalseText(5).Enabled = FalseText(6).Enabled = FalseText(7).Enabled = FalseText(8).Enabled = FalseText(9).Enabled = FalseText(10).Enabled = FalseEnd IfEnd Sub职工基本信息删除Private Sub Command3_Click() '删除'删除记录Dim a As Stringa = "是否确定要删除记录" & Text(1).TextIf Not rs.EOF And Not rs.BOF ThenIf MsgBox(a, vbOKCancel, "删除记录?") = vbCancel Then Exit SubElsers.Deleters.MoveNextEnd IfIf rs.EOF Then rs.MovePreviousEnd IfText(0).Text = rs.Fields("职工编号")Text(1).Text = rs.Fields("姓名")Text(2).Text = rs.Fields("性别")Text(3).Text = rs.Fields("出生日期")Text(4).Text = rs.Fields("文化程度")Text(5).Text = rs.Fields("单位部门")Text(6).Text = rs.Fields("职位")Text(7).Text = rs.Fields("工作时间")Text(8).Text = rs.Fields("类别")Text(9).Text = rs.Fields("工种")Text(10).Text = rs.Fields("备注")DataGrid1.Refresh '更新DataGrid1End SubText(2).Enabled = FalseText(3).Enabled = FalseText(4).Enabled = FalseText(5).Enabled = FalseText(6).Enabled = FalseText(7).Enabled = FalseText(8).Enabled = FalseText(9).Enabled = FalseText(10).Enabled = False职工基本信息打印：Private rs As ADODB.RecordsetPrivate Sub Command1_Click()'判断是否按照要求添加记录，如有空项，提示并结束程序If Trim(Text1.Text) = "" ThenMsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示" Exit SubEnd IfSet rs = DataEnvironment1.rsCommand1If rs.State <> adStateClosed Thenrs.CloseEnd IfDim sql As StringIf Option1.Value = True Thensql = "select * from 职工基本信息登记表 where 职工编号='" & Trim(Text1.Text) & "'"Elsesql = "select * from 职工基本信息登记表 where 姓名='" & Trim(Text1.Text) & "'"End Ifrs.Open sqlIf (rs.BOF Or rs.EOF) Then '如果当前没有员工信息MsgBox "没有找到！"DataGrid1.DataMember = "Command1" '为DataGrid1付值End SubPrivate Sub Command2_Click()DataReport1.ShowEnd Sub5.2事故信息管理模块程序设计事故信息添加：Private Sub Command1_Click()For i = 0 To 9If Trim(Text1(i).Text) = "" ThenMsgBox "记录不能为空！", vbOKOnly + vbInformation, "提示"Text1(i).SetFocusExit SubEnd IfNextrs.AddNewrs.Fields("事故编号") = Trim(Text1(0).Text)rs.Fields("事故名称") = Trim(Text1(1).Text)rs.Fields("事故等级") = Combo1.Textrs.Fields("事故日期") = DTPicker1.Valuers.Fields("事故地点") = Trim(Text1(2).Text)rs.Fields("事故类型") = Trim(Text1(3).Text)rs.Fields("事故原因") = Trim(Text1(4).Text)rs.Fields("事故损失") = Trim(Text1(5).Text)rs.Fields("死亡人数") = Trim(Text1(6).Text)rs.Fields("重伤人数") = Trim(Text1(7).Text)rs.Fields("轻伤人数") = Trim(Text1(8).Text)rs.Fields("备注") = Trim(Text1(9).Text)rs.UpdateMsgBox "添加成功"Set DataGrid1.DataSource = rsCommand1.Enabled = FalseEnd Sub事故信息查询：Private Sub Command1_Click()If Trim(Text1(O).Text) = "" ThenMsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示"Exit SubDim sql As StringIf Option1.Value = True Thensql = "select * from 事故信息登记表 where 事故编号='" & Trim(Text1(0).Text) & "'"Elsesql = "select * from 事故信息登记表 where 事故名称='" & Trim(Text1(0).Text) & "'"End IfSet rschaxun = New ADODB.Recordsetrschaxun.CursorLocation = adUseClientrschaxun.Open sql, Conn, 1, 1 '按照查询条件打开表If rschaxun.EOF Then '如果没查到 给与提示MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation, "提示"ElseSet DataGrid1.DataSource = rschaxun '查到后更新DataGrid1DataGrid1.RefreshFor i = 0 To 11Set Text(i).DataSource = rschaxunNextText(0).DataField = "事故编号"Text(1).DataField = "事故名称"Text(2).DataField = "事故地点"Text(3).DataField = "事故类型"Text(4).DataField = "事故日期"Text(5).DataField = "事故原因"Text(6).DataField = "事故损失"Text(7).DataField = "事故等级"Text(8).DataField = "死亡人数"Text(9).DataField = "重伤人数"Text(10).DataField = "轻伤人数"Text(11).DataField = "备注"事故信息删除：Private Sub Command3_Click()Dim i As Integeri = rs.RecordCountIf i = 0 Then Exit SubIf i = 1 Thenrs.DeleteMsgBox "无记录了！"Exit SubEnd IfDim a As Stringa = "是否要删除记录" & Text(1).TextIf Not rs.EOF And Not rs.BOF ThenIf MsgBox(a, vbOKCancel, "删除记录?") = vbCancel Then Exit SubElsers.Deleters.MoveNextEnd IfIf rs.EOF Then rs.MovePreviousEnd IfText(0).Text = rs.Fields(0)Text(1).Text = rs.Fields(1)Text(2).Text = rs.Fields(2)Text(3).Text = rs.Fields(3)Text(4).Text = rs.Fields(4)Text(5).Text = rs.Fields(5)Text(6).Text = rs.Fields(6)Text(7).Text = rs.Fields(7)Text(8).Text = rs.Fields(8)Text(9).Text = rs.Fields(9)Text(10).Text = rs.Fields(10)Text(11).Text = rs.Fields(11)DataGrid1.RefreshEnd Sub事故信息打印：Private Sub Command1_Click()DataReport2.ShowPrivate Sub Command3_Click()If Trim(Text1.Text) = "" ThenMsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示" Exit SubEnd IfSet rs = DataEnvironment2.rsCommand2If rs.State <> adStateClosed Thenrs.CloseEnd IfDim sql As StringIf Option1.Value = True Thensql = "select * from 事故信息登记表 where 事故编号='" & Trim(Text1.Text) & "'"Elsesql = "select * from 事故信息登记表 where 事故名称='" & Trim(Text1.Text) & "'"End Ifrs.Open sqlIf (rs.BOF Or rs.EOF) Then '如果当前没有员工信息 MsgBox "没有找到！"End IfDataGrid1.DataMember = "Command2" '为DataGrid1付值End Sub事故信息统计：Private Sub Command1_Click()Set Conn = New ADODB.ConnectionConn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\建筑施工安全信息管理数据库.mdb"Conn.OpenSet rs = New ADODB.Recordsetrs.CursorLocation = adUseClientDim sql As StringIf Option1.Value = True Thensql = "select 事故类型, count(*) as 合计事故数目 from 事故信息登记表 group by 事故类型"MSChart1.TitleText = "按【事故类型】统计分析"MSChart1.ColumnLabel = "合计事故数目（次）"End IfIf Option2.Value = True Thensql = "select 事故日期,sum(事故损失) as 合计损失 from 事故信息登记表 group by 事故日期"MSChart1.TitleText = "按【事故发生年份】统计分析"MSChart1.ColumnLabel = "合计事故损失(万)"End IfIf Option3.Value = True Thensql = "select 事故日期,count(*) as 事故数目 from 事故信息登记表 group by 事故日期"MSChart1.TitleText = "按【事故发生年份】统计分析"MSChart1.ColumnLabel = "合计事故数目(次)"End Ifrs.Open sql, Conn, 1, 1MSChart1.RowCount = rs.RecordCountFor i = 1 To rs.RecordCountMSChart1.Row = iMSChart1.Data = rs.Fields(1)MSChart1.RowLabel = rs.Fields(0)rs.MoveNextNext iCommand2.Enabled = True5.3日常检查记录管理模块程序设计日常检查记录添加：Private Sub Command1_Click()For i = 0 To 3If Trim(Text(i).Text) = "" ThenMsgBox "记录不能为空！", vbOKOnly + vbInformation, "提示"Text(i).SetFocusExit SubEnd IfNextrs.AddNewrs.Fields("工程名称") = Trim(Text(0).Text)rs.Fields("检查内容") = Trim(Text(1).Text)rs.Fields("检查结果") = Combo1.Textrs.Fields("检查日期") = DTPicker3.Valuers.Fields("检查人") = Trim(Text(2).Text)rs.Fields("受检人") = Trim(Text(3).Text)rs.UpdateMsgBox "添加成功"Set DataGrid1.DataSource = rsCommand1.Enabled = FalseEnd Sub日常检查记录修改：Private Sub Command2_Click()If Command2.Caption = "修改" ThenCommand2.Caption = "确认修改"Text(0).Enabled = TrueText(1).Enabled = TrueText(2).Enabled = TrueText(3).Enabled = TrueText(4).Enabled = TrueText(5).Enabled = TrueElseFor i = 0 To 5If Trim(Text(i).Text) = "" ThenMsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示" Text(i).SetFocusExit SubEnd IfNextrs.Fields("工程名称") = Trim(Text(0).Text)rs.Fields("检查日期") = Trim(Text(1).Text)rs.Fields("检查内容") = Trim(Text(2).Text)rs.Fields("检查结果") = Trim(Text(3).Text)rs.Fields("检查人") = Trim(Text(4).Text)rs.Fields("受检人") = Trim(Text(5).Text)rs.UpdateDataGrid1.RefreshMsgBox "修改成功"Command2.Caption = "修改"日常检查记录删除：Private Sub Command3_Click()Dim i As Integeri = rs.RecordCountIf i = 0 Then Exit SubIf i = 1 Thenrs.DeleteMsgBox "无记录了！"Exit SubEnd IfDim a As Stringa = "是否要删除记录" & Text(1).TextIf Not rs.EOF And Not rs.BOF ThenIf MsgBox(a, vbOKCancel, "删除记录?") = vbCancel Then Exit SubElsers.Deleters.MoveNextEnd IfIf rs.EOF Then rs.MovePreviousEnd IfText(0).Text = rs.Fields(0)Text(1).Text = rs.Fields(1)Text(2).Text = rs.Fields(2)Text(3).Text = rs.Fields(3)Text(4).Text = rs.Fields(4)Text(5).Text = rs.Fields(5)DataGrid1.Refresh日常检查记录查询：Private Sub Command1_Click()If Trim(Text1.Text) = "" ThenMsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示"Exit SubEnd IfDim sql As StringIf Option1.Value = True Thensql = "select * from 日常施工安全检查记录表 where 工程名称='" & Trim(Text1.Text) & "'"Elsesql = "select * from 日常施工安全检查记录表 where 检查人='" & Trim(Text1.Text) & "'End IfSet rschaxun = New ADODB.Recordsetrschaxun.CursorLocation = adUseClientrschaxun.Open sql, Conn, 1, 1 '按照查询条件打开表If rschaxun.EOF Then '如果没查到 给与提示MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation, "提示"ElseSet DataGrid1.DataSource = rschaxun '查到后更新DataGrid1 DataGrid1.RefreshFor i = 0 To 5Set Text(i).DataSource = rschaxunNextText(0).DataField = "工程名称"Text(1).DataField = "检查日期"Text(2).DataField = "检查内容"Text(3).DataField = "检查结果"Text(4).DataField = "检查人"Text(5).DataField = "受检人"日常检查记录打印Private Sub Command2_Click()DataReport3.ShowEnd Sub6. 技术难点与分析(主要内容：本课题在设计过程中所遇到的技术难点及解决方法。