VB课程设计论文 饭店菜式管理系统.docx

1、VB课程设计论文 饭店菜式管理系统成绩 南京工程学院课程设计说明书(论文)题 目 饭店菜式管理系统 课 程 名 称 VB语言程序课程设计 院（系、部、中心） 专 业班 级 学 生 姓 名 学 号 设 计 地 点 指 导 教 师 设计起止时间： 南京工程学院课程设计任务书题目 饭店菜式管理系统 课 程 名 称 VB语言程序课程设计 院（系、部、中心） 专 业 班 级 起 止 日 期 指 导 教 师 1课程设计应达到的目的本课程设计是在学生学习完VB语言程序设计基础课程后进行的一次全面的综合练习。通过本次课程设计进一步巩固和加深对VB语言程序设计课程的基本知识的理解，掌握VB语言程序编写和调试的基

2、本技能，了解有关程序设计程序开发的思路方法，提高利用软件程序解决实际问题的能力。2课程设计题目及要求本课题要求用VB设计一个点菜管理系统管理饭店菜式，每个菜式的信息包括菜名、类系（四大菜系中属哪一种）、主要原料、价格、折扣。该系统的主要功能有：1、 菜式管理： 建立菜式信息记录； 增删菜式记录；2、 菜式浏览： 可选择浏览菜式的哪一个或几个属性； 分菜系浏览饭店的菜式； 根据菜名或价格浏览菜式；3、 点菜功能： 点菜操作； 预览点菜结果； 增删菜式； 生成账单；4、 可以适当扩充系统功能。要求：1、 要求界面为多重窗体形式，可通过菜单和图形界面进行操作。2、 各种操作结果在界面有显示。3、 有

3、一定的错误提示功能，如菜式折扣一定小于100%，输入错误有提示信息。4、 系统要求设计合理，逻辑性强，界面设计要求友好美观，操作方便，有足够的提示信息。3课程设计任务及工作量的要求包括课程设计计算说明书、图纸、实物样品等要求（1）对用户要求进行充分需求分析，要求系统功能合理，符合使用习惯；（2）系统设计实用可靠；（3）要求系统采用模块化结构化程序设计方法，易于移植；（4）程序书写格式规范，注释详尽，易于维护；（5）按照课程设计说明书的格式规范撰写课程设计说明书，正文部分包括： 功能描述：对系统要实现的功能进行简明扼要的描述。 概要设计：根据功能描述，建立系统的体系结构，即将整个系统分解成若干子

4、功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能和流程图。 详细设计：详细说明各功能模块的实现过程，源码等。 效果及存在问题：说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解决办法。 心得体会：谈谈自己在课程设计过程中的心得体会。（6）课程设计说明书用A4纸统一打印，按电力学院课程设计说明书规范统一要求书写并装订。（7）课程设计的程序上交，文件夹名称为学生姓名及学号的组合。（8）答辩：未经指导教师许可或无故不到者，缺勤率达50%的学生不能参加答辩。 答辩时，设计者在阐述自己的设计过程和结果，突出设计中遇到的主要问题和解决方法，回答教师提问。4主要参考文献1

5、、 5课程设计进度安排起 止 日 期工 作 内 容2010年12月14日12月20日12月21 日12月22日12月23日12月24日需求分析，划分模块，设计数据结构、算法，编写程序调试程序调试程序调试程序验收考核6成绩考核办法课程设计成绩的组成： 课程总评成绩分项比例表工作表现设计成果考核测评30%40%30%课程设计成绩评定需综合考虑以下因素：（1）工作表现：独立工作能力及设计过程的表现。占总成绩的30%。（2）设计成果：设计说明书（计算书、论文）、图纸、程序、作品等的质量。占总成绩的40%。（3）考核测评：课程设计结束前，指导教师应采用考试或答辩等形式对所指导的学生进行测评。如采用答辩形

6、式，需填写课程设计答辩记录，测评成绩占总成绩的30%。（4）有创新的设计可以根据情况适当加分。教研室审查意见：教研室主任签字： 年 月 日院（系、部、中心）意见：主管领导签字： 年 月 日、题目要求、目的及分工说明明、本次课程设计任务的主要内容和要求（包括原始数据、技术参数、设计要求等） 本课题要求用VB设计一个点菜管理系统管理饭店菜式，每个菜式的信息包括菜名、类系（四大菜系中属哪一种）、主要原料、价格、折扣。该系统的主要功能有：（1）菜式管理：建立菜式信息记录；增删菜式记录；（2）菜式浏览：可选择浏览菜式的哪一个或几个属性；分菜系浏览饭店的菜式；根据菜名或价格浏览菜式；（3）点菜功能：点菜操

7、作；预览点菜结果；增删菜式；生成账单；（4）可以适当扩充系统功能。、本次课程设计应达到的目的 本课程设计是在学生学习完VB语言程序设计基础课程后进行的一次全面的综合练习。通过本次课程设计进一步巩固和加深对VB语言程序设计课程的基本知识的理解，掌握VB语言程序编写和调试的基本技能，了解有关程序设计程序开发的思路方法，提高利用软件程序解决实际问题的能力。、分工说明（1）课程设计题目：本次课程设计共3题：1.饭店菜式管理系统；2.人事管理系统 3.学生成绩管理系统。按点名册顺序循环每人独立做一题。具体各题课程设计任务书见课程设计任务书文件夹。（2）时间安排：上机16课时，16周周一1、2、3、4、5

8、、6、7、8节课和周二1、2、3、4、5、6、7、8节课；周三考核答辩；周四、周五材料归档。（3）课程设计说明书：装订顺序及格式要求见File课程设计说明书附件2：课程设计说明书格式规范;其中正文部分内容要求详见各题目的课程设计任务书。（4）学院相关规定：见Flie参考规定文件夹。二、功能描述1.运行首页 打开饭店点菜系统，进入主界面。两个按钮可以分别进入点菜系统和退出系统。2.点菜系统 （1）此页面分为三个板块：新增菜式；点菜；浏览菜式；返回主页。（2）在新增菜单中中进行菜式的新增：分别是新增菜名，菜系，价格，原料以及折扣。（3）点菜按钮中可以根据顾客个人喜好点菜。（4）在浏览菜式中可以查看

9、本店菜单，可以分别通过按菜名浏览，按菜系浏览以及按价格浏览。（5）返回主页按键可以返回到首页3.点菜列表（1）在点菜列表中可以通过“点菜”进行点菜以及通过“退菜”按键进行退菜。（2）窗体右下角则显示“总金额（元）”，方便顾客点菜参考。（3）点击“落单”按钮出现提示信息“感谢您的使用！”。（4）点击“返回点菜菜单”则返回到上一个点菜窗体。4.菜式浏览在浏览菜式中可以查看本店菜单，可以分别通过按菜名浏览，按菜系浏览以及按价格浏览。三.概要设计（模块流程图）1.主程序2.窗体1-首页3.窗体2-点菜四、详细设计1.创建数组模块：Public i As Integer 定义变量i为整型Public s

10、um As Single 定义变量sum为单精度Type caidan 定义caidan结构体cm As String 定义菜名为字符型cx As String 定义菜系为字符型jg As Integer 定义价格为整型yl As String 定义原料为字符型zk As Single 定义折扣为单精度End Type Public s() As caidan 声明数组s（）为结构体caidanFunction chazhao(ByVal n As String) As Integer 定义chazhao函数Dim j As IntegerFor j = 1 To iIf n = s(j).c

11、m Then chazhao = j 查询条件：菜名If n = s(j).cx Then chazhao = j 查询条件：菜系If n = Str(s(j).jg) Then chazhao = j 查询条件：价格If n = s(j).yl Then chazhao = j 查询条件：原料If n = Str(s(j).zk) Then chazhao = j 查询条件：折扣Next jEnd Function2. 窗体1酒店首页Private Sub Command1_Click()Form1.Hide command1-“点击进入”按键form2.Show 窗体1和2之间的切换End

12、 SubPrivate Sub Command2_Click() command2-“退出”按键Unload Me 退出程序End SubPrivate Sub Timer1_Timer() 设置一个计时器If Label1.Left + Label1.Width 0 Then 标题“欢迎光临南工程大酒店”从Label1.Move Label1.Left - 88 右往左滑动ElseLabel1.Left = Form1.ScaleWidth 标题移动的条件End IfEnd Sub3窗体2点菜系统Private Sub Command1_Click()form2.Hide 窗体2和3之间的切

13、换Form3.ShowEnd SubPrivate Sub Command2_Click()form2.HideForm4.Show 窗体2和4之间的切换 End SubPrivate Sub Command3_Click()form2.Hide 窗体2和1之间的切换Form1.ShowEnd SubPrivate Sub mnufileadd_Click() 定义“新增”按键ReDim Preserve s(1 To (i + 1) As caidani = i + 1s(i).cm = InputBox(请输入菜名, 新增) 输入新增的菜名s(i).cx = InputBox(请输入菜系,

14、 新增) 输入新增的菜系s(i).jg = InputBox(请输入价格, 新增) 输入新增的价格s(i).yl = InputBox(请输入原料, 新增) 输入新增的原料s(i).zk = InputBox(请输入折扣, 新增) 输入新增的折扣End SubPrivate Sub mnufiledel_Click()Dim j As IntegerDim k As Integer 定义“删除”按键Dim n As Stringn = InputBox(请输入需要删除的菜名, 删除)j = chazhao(n)For k = j To i - 1 s(k) = s(k + 1) 进行查找，符合

15、条件则进行删除 Next ki = i - 1End SubPrivate Sub mnufileqiute_Click()End 退出按键End SubPublic Function chazhao(ByVal n As String) As IntegerDim j As IntegerFor j = 1 To iIf n = s(j).cm Then chazhao = j If n = s(j).cx Then chazhao = jIf n = Str(s(j).jg) Then chazhao = j If n = s(j).yl Then chazhao = jIf n = St

16、r(s(j).zk) Then chazhao = jNext jEnd Function4.点菜列表Private Sub Command1_Click() “点菜”按键For j = 0 To List1.ListCount - 1 If List1.Selected(j) Then 如果单击“点菜”按键 List2.AddItem List1.List(j) list1中的相应项则出现在list2中 sum = sum + s(j + 1).jg * s(j + 1).zk 总金额增加End IfNext jLabel1.Caption = sum label1显示总金额End SubP

17、rivate Sub Command2_Click()For j = 0 To List2.ListCount - 1 如果单击“点菜”按键 If List2.Selected(j) Then n = List2.List(j) 总金额增加 End If Next j j = chazhao(n) sum = sum - s(j).jg * s(j).zk Label1.Caption = sum List2.RemoveItem List2.ListIndex list2中的相应项则删除End SubPrivate Sub Command3_Click()x = MsgBox(感谢您的使用)

18、End SubPrivate Sub Command4_Click()Form3.Hideform2.Show 窗体3和2之间进行切换End SubPrivate Sub Form_Load()Dim j As IntegerFor j = 1 To i List1.AddItem s(j).cm Next j End Sub5.窗体4菜式浏览Private Sub Command1_Click()Form4.Hide 窗体4和2之间进行切换form2.ShowEnd SubPrivate Sub Form_Load()ShowPrint Chr(13), Chr(13), Chr(13),

19、Chr(13), Chr(13) 打印换行For j = 1 To i Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk 打印菜名，菜系，价格Next j 原料以及折扣End SubPrivate Sub Label1_Click()For j = 1 To i - 1 单价“菜名”则按菜名汉语拼音 For k = i To j + 1 Step -1 的先后次序来排序If s(k).cm s(k - 1).cm Thenm = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx

20、: s(k).cx = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext jCls 清屏Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To i Print s(j).cm, s(j)

21、.cx, s(j).jg, s(j).yl, s(j).zkNext jEnd SubPrivate Sub Label2_Click()For j = 1 To i - 1 单价“菜系”则按菜名汉语拼音 For k = i To j + 1 Step -1 的先后次序来排序If s(k).cx s(k - 1).cx Thenm = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).j

22、g: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext jClsPrint Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To i Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zkNext jEnd SubPrivate Sub Label3_Click()For j =

23、 1 To i - 1 单价“原料”则按菜名汉语拼音 For k = i To j + 1 Step -1 的先后次序来排序If s(k).yl s(k - 1).yl Thenm = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k

24、).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext jClsPrint Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To i Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zkNext jEnd SubPrivate Sub Label4_Click()For j = 1 To i - 1 For k = i To j + 1 Step -1 单价“价格”则按价格的If s(k).jg s(k - 1).jg The

25、n 从小到大的顺序来排序m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext jClsPrint Chr(13

26、), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To i Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zkNext jEnd SubPrivate Sub Label5_Click()For j = 1 To i 1 单击“折扣”则按折扣的大小顺序来显示 For k = i To j + 1 Step -1If s(k).zk s(k - 1).zk Thenm = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = mm = s(k).cx: s(k).cx

27、 = s(k - 1).cx: s(k - 1).cx = mm = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = mm = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = mm = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = mEnd IfNext kNext j 清屏ClsPrint Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)For j = 1 To i Print s(j).cm, s(j).cx, s(j)

28、.jg, s(j).yl, s(j).zkNext jEnd Sub五、调试报告（程序运行结果截屏）1.运行首页（1）单击“点击进入”（2）单击“退出”则退出程序2.点菜窗体（1）文件A新增 B删除C退出退出程序（2）“浏览菜式”（3）“点菜”A点菜B退菜C落单D总金额E返回点菜菜单3.“浏览菜式”窗体（1）“按菜名浏览”（2）“按菜系浏览”（3）“按价格浏览”六、改进意见及收获体会课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要节,是对学生实际工作能力的具体训练和考察过程。回顾起此次课程设计，至今我仍感慨颇多，的确从理论到实践，在整整一星期的日子里，可以

29、说得是苦多于甜，但是可以学到很多很多的的东西，同时不仅可以巩固了以前所学过的识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这虽然不是第一次做，但是这次的VB程序设计程设计比一年级的c语言课程设计和三年级学的软件技术基础难度大很多，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固。刚开始在网上搜寻了一下关于饭店菜式管

30、理的VB程序，发现几乎所有都是需要数据库来制作的，要么就是需要文件的知识。但是这些我们都没有学习过，虽然之前稍稍学习了一点文件的知识，但是解决课程设计是远远不够的，王老师提示我们不要用文件或者数据库进行设计，而是要用记录数组进行课程设计。于是我找出了以前做过的实验，就是那个职工信息管理系统的实验来复习下记录数组的知识。要利用记录数组来做，就必须先建立一个数据结构。之前学过窗体之间的切换。利用unload form或者form.Hide。以前感觉这两者之间应该没有太大的区别，但是在进行新增菜式结束后，我浏览了菜式，之后再继续新增菜式，新增的菜式没有相应的添加在菜单之中，没有动态刷新，于是我检查程序