管理信息系统课程设计 - 图文

机电工程学院 课程设计

题 目： 云南昆明市嘉年华肯德基管理系统 专 业： 工业工程 年 级： 2013级 姓 名： 杨思长 学号： 2013311812 指导教师：付宏财

日 期： 2016年05月 20日

目录

一、课程设计任务书 .................................................................................................................. 3

1、课程设计项目 ............................................................................................................. 3 2、要求 ............................................................................................................................. 3 3、设计计划和考核内容及方式 ..................................................................................... 3

二、系统概述 ...................................................................................................................................... 4

1.调研部门 ........................................................................................................................ 4 2.研究背景： .................................................................................................................... 4 3.系统分析 ........................................................................................................................ 4 3.6新系统规划 ................................................................................................................. 7

三、系统设计 ...................................................................................................................................... 8

3.1系统设计目标 ............................................................................................................. 8 3.2开发及运行环境 ......................................................................................................... 8 3.3数据库设计 ................................................................................................................. 8 3.4、主要功能设计 .......................................................................................................... 9

四、总结 ............................................................................................................................................ 21

附录A 参考文献 ................................................................................................... 22

一、课程设计任务书

1、课程设计项目

针对你较熟悉的一个中小型单位/公司的实际情况，对其管理业务和现有信息管理方案进行调研，对其新的管理信息系统开发提出规划，并进行系统分析（绘制其组织结构图、业务功能图、业务流程图、数据流程图等）、系统设计，在设计中请利用VB、VC、C、Excel或Access等程序语言对主要的信息管理子系统进行窗口化设计，并编写子程序代码。 2、要求

通过本课程设计，综合利用该门课程所学的理论和实验知识与技能，对一个小型企业的信息管理意识、综合措施与计算机系统方案进行实际分析，并作优化与改进（改造）设计，要求分析设计的内容考虑周全、实用，并具有远见性；系统设计方案合理，部分环节的程序编写正确。

具体要求如下：

（1）调研措施得当，并能深入实际，获取的信息较为全面、实用； （2）能查阅整理相关文献资料，能按照课程设计的要求独立进行，能按规定的格式撰写；分析体现的基础理论知识扎实；

（3）设计的综合方案合理，技术得当，体现一定的技术水平和远见性； （4）系统实现的技术路线可行，局部的程序编写正确。 3、设计计划和考核内容及方式

时间安排：课程结束之后的2周内完成。 考核内容和方式：

从以下四个方面综合权衡打分： （1）调研工作的深入程度；

（2）分析与设计采用的理论知识水平； （3）技术路径与方法是否得当；

（4）编写的程序的适用程度以及各子程序代码正确与否。

二、系统概述

1.调研部门

云南省昆明市五华区霖雨路嘉年华购物广场肯德基餐厅 2.研究背景：

2.1肯德基简介

肯德基是美国跨国连锁餐厅，同时也是世界第二大速食及最大炸鸡连锁企业，由哈兰德·桑德斯上校于1939年在肯塔基州路易斯维尔创建。其主要出售炸鸡等快餐食品，经营理念是不断推出新的产品，或将以往销售产品重新包装，针对人们尝鲜的心态，从而获得利润。

肯德基现隶属于百胜餐饮集团，并与百事可乐结成了战略联盟，固定销售百事公司提供的碳酸饮料（部分国家例外，如韩国、日本销售可口可乐）。在中国截至2016年共有约4500家门店，在昆明经过15年的发展，现在昆明肯德基餐厅数量45家。

2.2选题背景及意义

我在嘉年华肯德基兼职，至入职到现在已经有2年半的时间。处于自身的职业优势，加上平时对肯德基餐厅运营情况的了解；加之在平时针对自己所学的专业课程在与平时的聊天过程中对运营过程有深刻的了解。

针对该学期所学的《管理信息系统》这一门专业课程的学习，结合在肯德基兼职的机会以及专门的管理信息系统调查。将课堂上学习的专业知识与生活中的事物进行关联，促进专业知识在我们生活的应用，同时巩固专业知识的积累，做一个合格的工业工程学生。 3.系统分析

3.1系统简介

经过长期的在职体验以及长期的调查可以得出肯德基现在存在以下问题：（1）作为快餐行业，讲究高效快捷，又由于人流量确定的不确定，因此容易因估计的不足而导致服务脱节；（2）由于实行排班制及工时限制，因排班不足，容易导致人力资源的流失；（3）估计不足或者过大导致物料储备不足或者过多，形成产品脱节的利润流失；（4）餐厅实行经理负责制，导致值班经理如同消防员一般，不能充分发挥经理人的领导作用，形成权责不清的局面；

肯德基的主要运营系统如下：

管理信息系统人力资源管理子系统统计预测子系统财务管理子系统客户信息管理子系统物资采购子系统

3.2组织机构图

餐厅经理餐厅副经理排班经理订货经理储备经理储备经理储备经理储备经理组长组长PC员工员工

3.3系统的业务流程图

该餐厅在长期的运营过程中其业务流程为： 顾客 需求表 发票 公司 服务组 销量情况 出纳人员 物料消耗表 销售表 利润表 餐厅计划表

3.4数据流程图 采购部门 订货表 管理组 提货表 顾客 管理组 顾客 顾客 厨房 统计系统 服务组 预测系统 3.5现有系统分析 根据长期的兼职经验，以及餐厅日常出现的部分状况可以的出下列现行系统

缺陷：

（1）餐厅员工分工不够明确，导致效率不能有效提高；（2）未能充分发挥计算机的作用，充分利用现代高科技术；（3）缺乏客户的信息收集管理，缺乏与顾客的联系；（4）随着餐厅行业的发展以及竞争力的增强，现有的系统已经不能满足餐厅的发展；（5）餐厅管理信息系统的进一步发展将有利于餐厅的发展，增强餐厅的竞争优势，掌握市场的先机。 3.6新系统规划

3.6.1经济可行性

在肯德基食品的制作过程中，时间产国最佳赏味期就将相关产品废弃，所以库存量不应太多，避免造成不必要的资源浪费。同时由于客流量大，波动性强，所以物流配送，保持材料充分补给的工作显得尤为重要。因此需要对数据库进行更充分的研究和分析，预测短时间、短时段的销量需求。将有效减少库存误差，提高服务效率，减少物品库存管理费用，降低相关产品的成本，有利于提高产品销售利润。

3.6.2管理可行性

（1）我经过详细的调查和与有关人员交流以后，根据他们的需求和我们对现有系统的分析来构成我们现在的系统；所以比较能切合嘉年华肯德基餐厅工作人员的需求。（2）本系统构建对于嘉年华肯德基餐厅管理方法和餐厅工作人员职能改进也有比较重要的促进作用。本系统可以进一步减轻规范餐厅的物流管理、人员安排等工作，进一步提高服务员的服务水平，提高工作效率。

3.6.3环境可行性

（1）随着信息技术的不断发展，管理信息系统在企业管理中的应用已经是不然现象。系统完善可以提高肯德基连锁店的工作效率。大多数数据经过计算机处理，数据的准确性和正确性将能明显改善。（2）肯德基作为世界500强企业，管理制度比较科学，组织机构相对健全，信息技术的运用相对广泛，对市场的信息收集比较齐全。就目前的技术环境完全有这个条件实现该系统的开发。新系统的实现将有利于管理工作的进一步展开提供一定的依据，所以广大的管理者对于新的市场预测信息系统相对比较支持认同。

3.6.4 可行性分析结论

基于以上技术、经济、管理上的可行性分析，该信息系统的使用完全具备可

行性环境，同时，新系统的使用将有利于肯德基以更低的成本、更及时的服务来硬的顾客的支持和赞同，增强企业竞争力。

三、系统设计

3.1系统设计目标

本系统是根据网上订餐系统的实际需要出发的，系统通过对顾客的点餐需求可以实现以下功能。

系统运行稳定，安全可靠。 界面设计美观，人机交互界面友好。 菜单查看灵活便捷，下单轻松。 操作员可以随时修改自己的口令。

对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。 3.2开发及运行环境

系统开发平台：Visual Basic 6.0

运行平台：Windows xp/Windows 2000/Windows 98 3.3数据库设计

本系统采用Visual FoxPro 6.0设计数据库，本系统中包括如下数据表。下面分别给出数据表的结构。

数据表结构

（1）password(密码表)

密码表主要用于在管理员的登录同时登陆后还可以对原有面貌进行修改，如表B.1所示。

表B.1密码表

字段名 用户名 密码 数据类型 varchar varchar c 20 20 长度 用户名 密码 描述

3.4、主要功能设计

3.4.1主窗口设计

主窗体是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以登录信息，菜单信息，送货地址信息，也可以实现同样的功能。

系统主窗体的运行结果如图3所示。

图2系统主窗体的运行结果

3.4.2顾客订单信息

顾客订餐信息是外卖系统重要的组成部分，是对订餐管理的主要系统，在系统里可以显示菜品名称，图片，已点餐单，结账明细等信息，确保实时有效的对所有顾客需求进行管理。

在餐单浏览界面中，均为鼠标操作，方便快捷。另外还有结账计算，删除菜单选项，来方便其他操作。

图3菜单信息浏览界面

代码设计

在窗体加载时，各个食品都对应的显示出来，代码如下：

Private Sub Form_Load() Label17.Visible = False Label18.Visible = False Label19.Visible = False Label20.Visible = False Label21.Visible = False Label22.Visible = False Label23.Visible = False Label24.Visible = False Label25.Visible = False Label26.Visible = False Label27.Visible = False Label28.Visible = False Label8.Visible = False End Sub

Private Sub Label31_Click() a = Val(Label5.Caption)

If a >= 200 Then Label8.Visible = True

Label8.Caption = \请留下送餐地址！点击返回主页面\ Else

Label8.Visible = True

Label8.Caption = \请留下送餐地址！点击返回主页面\End If End Sub

Private Sub Image1_Click() List1.AddItem Label1.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label17.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image10_Click() List1.AddItem Label14.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label26.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image11_Click() List1.AddItem Label15.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label27.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image12_Click() List1.AddItem Label16.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label28.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image2_Click() List1.AddItem Label2.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label18.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image3_Click() List1.AddItem Label3.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label19.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image4_Click()

List1.AddItem Label4.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label20.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image5_Click() List1.AddItem Label9.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label21.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image6_Click() List1.AddItem Label10.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label22.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image7_Click() List1.AddItem Label11.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label23.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image8_Click() List1.AddItem Label12.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label24.Caption) a = Val(Label5.Caption) End Sub

Private Sub Image9_Click() List1.AddItem Label13.Caption

Label5.Caption = Val(Label5.Caption) + Val(Label25.Caption) a = Val(Label5.Caption) End Sub

Private Sub Label7_Click() If List1.ListIndex >= 0 Then n = InStr(List1.Text, \l = Len(List1.Text) n = n + 1

Label5.Caption = Val(Label5.Caption) - Val(Mid(List1.Text, n, l - n)) List1.RemoveItem List1.ListIndex End If

a = Val(Label5.Caption) End Sub

Private Sub Label8_Click() Form1.Show Form2.Hide End Sub

Private Sub 早餐_Click()

Label1.Caption = \牛肉蛋花粥油条餐 35元\

Image1.Picture = LoadPicture(App.Path& \早餐\\牛肉蛋花粥油条餐.jpg\Label17.Caption = \

Label2.Caption = \培根芝士蛋堡红茶餐 30元\

Image2.Picture = LoadPicture(App.Path& \早餐\\培根芝士蛋堡红茶餐.jpg\Label18.Caption = \

Label3.Caption = \培根芝士蛋堡咖啡餐 30元\

Image3.Picture = LoadPicture(App.Path& \早餐\\培根芝士蛋堡咖啡餐.jpg\Label19.Caption = \

Label4.Caption = \培根芝士蛋堡热豆浆餐 25元\

Image4.Picture = LoadPicture(App.Path& \早餐\\培根芝士蛋堡热豆浆餐.jpg\Label20.Caption = \

Label9.Caption = \皮蛋瘦肉粥油条餐 25元\

Image5.Picture = LoadPicture(App.Path& \早餐\\皮蛋瘦肉粥油条餐.jpg\Label21.Caption = \

Label10.Caption = \田园脆鸡堡红茶餐 20元\

Image6.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡堡红茶餐.jpg\Label22.Caption = \

Label11.Caption = \田园脆鸡堡咖啡餐 20元\

Image7.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡堡咖啡餐.jpg\

Label23.Caption = \

Label12.Caption = \田园脆鸡堡热豆浆餐 20元\

Image8.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡堡热豆浆餐.jpg\Label24.Caption = \

Label13.Caption = \田园脆鸡蛋堡咖啡餐 15元\

Image9.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡蛋堡咖啡餐.jpg\Label25.Caption = \

Label14.Caption = \田园脆鸡蛋堡热浆餐 15元\

Image10.Picture = LoadPicture(App.Path& \早餐\\田园脆鸡蛋堡热浆餐.jpg\Label26.Caption = \

Label15.Caption = \香菇鸡肉粥油条餐 15元\

Image11.Picture = LoadPicture(App.Path& \早餐\\香菇鸡肉粥油条餐.jpg\Label27.Caption = \

Label16.Caption = \香糯薏米粥油条餐 15元\

Image12.Picture = LoadPicture(App.Path& \早餐\\香糯薏米粥油条餐.jpg\Label28.Caption = \Image12.Visible = True Image11.Visible = True Image10.Visible = True Image9.Visible = True

Image8.Visible = True End Sub

Private Sub 午餐_Click()

Label1.Caption = \川辣嫩牛五方餐 45元\

Image1.Picture = LoadPicture(App.Path& \午餐\\川辣嫩牛五方餐.jpg\Label17.Caption = \

Label2.Caption = \劲脆鸡腿堡餐 40元\

Image2.Picture = LoadPicture(App.Path& \午餐\\劲脆鸡腿堡餐.jpg\Label18.Caption = \

Label3.Caption = \快乐儿童餐A 38元\

Image3.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐A.jpg\Label19.Caption = \

Label4.Caption = \快乐儿童餐B 35元\

Image4.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐B.jpg\Label20.Caption = \

Label9.Caption = \快乐儿童餐C 35元\

Image5.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐C.jpg\Label21.Caption = \

Label10.Caption = \快乐儿童餐D 33元\

Image6.Picture = LoadPicture(App.Path& \午餐\\快乐儿童餐D.jpg\Label22.Caption = \

Label11.Caption = \墨西哥鸡肉卷餐 30元\

Image7.Picture = LoadPicture(App.Path& \午餐\\墨西哥鸡肉卷餐.jpg\Label23.Caption = \

Label12.Caption = \老北京鸡肉卷餐 28元\

Image8.Picture = LoadPicture(App.Path& \午餐\\老北京鸡肉卷餐.jpg\Label24.Caption = \

Label13.Caption = \培根蘑菇鸡肉饭特价 25元\

Image9.Picture = LoadPicture(App.Path& \午餐\\培根蘑菇鸡肉饭特价.jpg\Label25.Caption = \

Label14.Caption = \吮指原味鸡二块餐 20元\

Image10.Picture = LoadPicture(App.Path& \午餐\\吮指原味鸡二块餐.jpg\Label26.Caption = \

Label15.Caption = \香辣鸡翅餐 15元\

Image11.Picture = LoadPicture(App.Path& \午餐\\香辣鸡翅餐.jpg\Label27.Caption = \

Label16.Caption = \新奥尔良烤翅餐 8元\

Image12.Picture = LoadPicture(App.Path& \午餐\\新奥尔良烤翅餐.jpg\Label28.Caption = \Image12.Visible = True Image11.Visible = True Image10.Visible = True Image9.Visible = True Image8.Visible = True End Sub

Private Sub 饮品_Click()

Label1.Caption = \升装百事可乐 5元\

Image1.Picture = LoadPicture(App.Path& \饮品\\1.25升装百事可乐.jpg\Label17.Caption = \

Label2.Caption = \冰天玛瑙石榴汁 5元\

Image2.Picture = LoadPicture(App.Path& \饮品\\冰天玛瑙石榴汁.jpg\Label18.Caption = \

Label3.Caption = \醇豆浆甜(冰) 5元\

Image3.Picture = LoadPicture(App.Path& \饮品\\醇豆浆甜(冰).jpg\Label19.Caption = \

Label4.Caption = \九珍 8元\

Image4.Picture = LoadPicture(App.Path& \饮品\\九珍.jpg\Label20.Caption = \

Label9.Caption = \柠乐 8元\

Image5.Picture = LoadPicture(App.Path& \饮品\\柠乐.jpg\Label21.Caption = \

Label10.Caption = \雀巢冰爽茶 8元\

Image6.Picture = LoadPicture(App.Path& \饮品\\雀巢冰爽茶.jpg\Label22.Caption = \

Label11.Caption = \炭烤珍珠奶茶(冰) 12元\

Image7.Picture = LoadPicture(App.Path& \饮品\\炭烤珍珠奶茶(冰).jpg\Label23.Caption = \

Label12.Caption = \香柚蜂蜜茶 15元\

Image8.Picture = LoadPicture(App.Path& \饮品\\香柚蜂蜜茶.jpg\Label24.Caption = \Label13.Caption = \

Image9.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label25.Caption = \Label14.Caption = \

Image10.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label26.Caption = \Label15.Caption = \

Image11.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label27.Caption = \Label16.Caption = \

Image12.Picture = LoadPicture(App.Path& \饮品\\透明.jpg\Label28.Caption = \Image12.Visible = False Image11.Visible = False Image10.Visible = False Image9.Visible = False Image8.Visible = True End Sub

Private Sub 夜宵_Click()

Label1.Caption = \安心油条 188元\

Image1.Picture = LoadPicture(App.Path& \夜宵\\安心油条.jpg\Label17.Caption = \

Label2.Caption = \芙蓉鲜蔬汤 158元\

Image2.Picture = LoadPicture(App.Path& \夜宵\\芙蓉鲜蔬汤.jpg\Label18.Caption = \

Label3.Caption = \劲脆鸡腿堡 120元\

Image3.Picture = LoadPicture(App.Path& \夜宵\\劲脆鸡腿堡.jpg\Label19.Caption = \

Label4.Caption = \牛肉粥田园堡烤翅餐 88元\

Image4.Picture = LoadPicture(App.Path& \夜宵\\牛肉粥田园堡烤翅餐.jpg\Label20.Caption = \

Label9.Caption = \培根芝堡辣翅热浆餐 88元\

Image5.Picture = LoadPicture(App.Path& \夜宵\\培根芝堡辣翅热浆餐.jpg\Label21.Caption = \

Label10.Caption = \培根芝士蛋堡红茶餐 88元\

Image6.Picture = LoadPicture(App.Path& \夜宵\\培根芝士蛋堡红茶餐.jpg\Label22.Caption = \

Label11.Caption = \皮蛋粥田园堡烤翅餐 78元\

Image7.Picture = LoadPicture(App.Path& \夜宵\\皮蛋粥田园堡烤翅餐.jpg\Label23.Caption = \

Label12.Caption = \葡式蛋挞六只装 58元\

Image8.Picture = LoadPicture(App.Path& \夜宵\\葡式蛋挞六只装.jpg\Label24.Caption = \

Label13.Caption = \香菇粥田园堡烤翅餐 58元\

Image9.Picture = LoadPicture(App.Path& \夜宵\\香菇粥田园堡烤翅餐.jpg\Label25.Caption = \

Label14.Caption = \香辣鸡腿堡 38元\

Image10.Picture = LoadPicture(App.Path& \夜宵\\香辣鸡腿堡.jpg\Label26.Caption = \

Label15.Caption = \香辣鸡腿堡餐 30元\

Image11.Picture = LoadPicture(App.Path& \夜宵\\香辣鸡腿堡餐.jpg\Label27.Caption = \

Label16.Caption = \新奥堡餐 30元\

Image12.Picture = LoadPicture(App.Path& \夜宵\\新奥堡餐.jpg\Label28.Caption = \Image12.Visible = True Image11.Visible = True Image10.Visible = True Image9.Visible = True Image8.Visible = True End Sub

3.4.3登录界面

在录界面选择登录的用户头像，在输入相应的正确密码，就可以进入到系统主界面中。登录窗体的运行结果如图4所示。

图4登录窗体的运行结果

代码设计

在登录窗体加载的时候，由ADODC1连接到登录用户及密码输入框，代码如下：

Adodc1.RecordSource = \密码表 where username='\Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

password = Adodc1.Recordset.Fields(\If Text2.Text = password Then Name1 = Text1.Text Form3.Show Unload Me Else

MsgBox \密码不正确，请您确认后重新输入\提示信息\Text2.Text = \Text2.SetFocus End If Else

MsgBox \对不起，没有此用户的信息\提示信息\Text1.Text = \

Text2.Text = \End If

End Sub

3.4.4、送餐地址界面

图5送餐地址界面

在送餐地址界面中，直接输入文字即可记录地址信息，代码如下所示。

代码设计

Dim q, w, e

Private Sub Label1_Click() If Text1.Text = \

MsgBox \送餐地址不能为空\欢迎再次光临\Else q = Now

w = Text1.Text &vbCrLf& q &vbCrLf& \Text3.Text = Text3.Text + vbCrLf + w Open e For Append As #1 Print #1, w Close #1 End If

Text1.Text = \End Sub

Private Sub Form_Load() Text1.Text = \

e = App.Path& \If Dir(e) = \Else

Open e For Input As #1 While Not EOF(1) Line Input #1, S

S1 = S1 & S &IIf(EOF(1), \Wend

Text3.Text = S1 Close #1 End If End Sub

Private Sub Label3_Click() End End Sub

Private Sub Timer1_Timer()

If Label2.Left + Label2.Width > 0 Then Label2.Move Label2.Left - 50 Else

Label2.Left = Form4.ScaleWidth End If End Sub

四、总结

VB是计算机程序设计的重要理论技术基础，它不仅是计算机科学的核心课程，而且也已经成为其他理工专业的热门选修课。随着高级语言的发展，VB在计算机的研究和应用中已展现出强大的生命力，它兼顾了诸多高级语言的特点，是一种典型的结构化程序设计语言，它处理能力强，使用灵活方便，应用面广，具有良好的可移植性。紧张的两周VB实训很快就过去了，通过这两周的实践学习，不仅使我们巩固了以前的知识并在此基础上还对VB的特点和算法有了更深的了解，使我们在这门课程的实际应用上也有了一个提高。

首先这两周的学习，使我们在巩固了原有的理论知识上，又培养了灵活运用和组合集成所学过知识及技能来分析、解决实际问题的能力，使我们体会到自身知识和能力在实际中的应用和发挥。其次，它激发了我们创新意识，开发创造的能力和培养沟通能力。另外，让我们进一步熟悉了VB的设计应用。每一处编码都是在反复的熟悉VB的结构特性，及其语法、函数和程序设计思想的过程，对我们VB的学习和提高很有益处，并且使我们明白了程序设计过程，如解决一些实际问题，从解决实际问题的角度，我们可以这样来看：第一要了解这个问题的基本要求，即输入、输出、完成从输入到输出的要求是什么；第二，从问题的要害入手，从前到后的解决问题的每个方面，即从输入开始入手，着重考虑如何从输入导出输出，在这个过程中，可确定所需的VB的基本算法，通过在编译环境中的编译与调试，可到最终的程序。最后，在这次的实训过程中，我们深刻的认识到了自己在学习方面的不足之处，我知道我还有太多的基本的思想没有真正的理解，当然我们不会灰心，我们会在以后的日子里努力弥补我们的不足。

在两周的实训中，我们也体会到了团队合作的重要性，从最初的查阅资料到最后的程序的成功运行，我们组有过山穷水尽的困惑；有过柳暗花明的惊喜；有过唇枪舌剑的辩论；有过相互鼓励的安慰。两个礼拜的时间我们经历了很多，也收获了很多。与其说这次的实训是体力与脑力的作业，不如说它是合作精神和毅力的考验。经过这次课程设计，我们不仅学到了很多知识和技能，更重要的是我们学会了如何运用所学知识去解决实际问题。

总之，两个礼拜的课程设计让我们受益匪浅。我们深深认识到，要学好一门

学科，没有刻苦钻研的精神是不行的，只有在不断的尝试中，经历失败，从失败中总结经验，然后再不断的尝试，才能获得成功。

附录A 参考文献

1．Visual Basic精彩编程200例机械工业出版社王国辉、董韶华等 2004年9月

2．Visual Basic数据库开发关键技术与实例应用人民邮电出版社周桓、张雨、王国辉 2004年5月 3．Visual Basic管理信息系统完整项目实例剖析人民邮电出版社明日科技 月

2005年7

本文来源：https://www.bwwdw.com/article/l39p.html