vb课程设计——酒店点菜系统.doc

目录课程设计任务书2 1功能描述 62概要设计（各模块流程图）6（1）各模块之间的关系6（2）各模块流程图7 a：菜式管理系统7 b：点菜系统 7 c：菜式浏览系统73 详细分析 81.模块窗体 82. 酒店菜单登录系统（form1） 83.菜式管理系统（form2） 94.点菜系统（form3）105.菜式浏览系统 104.效果及存在问题 121.效果122. 存在问题 195 心得体会19南京工程学院课程设计任务书题目 饭店菜式管理系统 课 程 名 称 VB语言程序课程设计 院（系、部、中心） 专 业 电网监控 班 级 起 止 日 期 10.12.2010.12.24 指 导 教 师 王 曼 1课程设计应达到的目的本课程设计是在学生学习完VB语言程序设计基础课程后进行的一次全面的综合练习。通过本次课程设计进一步巩固和加深对VB语言程序设计课程的基本知识的理解，掌握VB语言程序编写和调试的基本技能，了解有关程序设计程序开发的思路方法，提高利用软件程序解决实际问题的能力。2课程设计题目及要求本课题要求用VB设计一个点菜管理系统管理饭店菜式，每个菜式的信息包括菜名、类系（四大菜系中属哪一种）、主要原料、价格、折扣。该系统的主要功能有：1、 菜式管理：l 建立菜式信息记录；l 增删菜式记录；2、 菜式浏览：l 可选择浏览菜式的哪一个或几个属性；l 分菜系浏览饭店的菜式；l 根据菜名或价格浏览菜式；3、 点菜功能：l 点菜操作；l 预览点菜结果；l 增删菜式；l 生成账单；4、 可以适当扩充系统功能。要求：1、 要求界面为多重窗体形式，可通过菜单和图形界面进行操作。2、 各种操作结果在界面有显示。3、 有一定的错误提示功能，如菜式折扣一定小于100%，输入错误有提示信息。4、 系统要求设计合理，逻辑性强，界面设计要求友好美观，操作方便，有足够的提示信息。3课程设计任务及工作量的要求包括课程设计计算说明书、图纸、实物样品等要求（1）对用户要求进行充分需求分析，要求系统功能合理，符合使用习惯；（2）系统设计实用可靠；（3）要求系统采用模块化结构化程序设计方法，易于移植；（4）程序书写格式规范，注释详尽，易于维护；（5）按照课程设计说明书的格式规范撰写课程设计说明书，正文部分包括： 功能描述：对系统要实现的功能进行简明扼要的描述。 概要设计：根据功能描述，建立系统的体系结构，即将整个系统分解成若干子功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能和流程图。 详细设计：详细说明各功能模块的实现过程，源码等。 效果及存在问题：说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解决办法。 心得体会：谈谈自己在课程设计过程中的心得体会。（6）课程设计说明书用A4纸统一打印，按电力学院课程设计说明书规范统一要求书写并装订。（7）课程设计的程序上交，文件夹名称为学生姓名及学号的组合。（8）答辩：未经指导教师许可或无故不到者，缺勤率达50%的学生不能参加答辩。 答辩时，设计者在阐述自己的设计过程和结果，突出设计中遇到的主要问题和解决方法，回答教师提问。4主要参考文献5课程设计进度安排起 止 日 期工 作 内 容2010年12月14日12月20日12月21 日12月22日12月23日12月24日需求分析，划分模块，设计数据结构、算法，编写程序调试程序调试程序调试程序验收考核6成绩考核办法课程设计成绩的组成： 课程总评成绩分项比例表工作表现设计成果考核测评30%40%30%课程设计成绩评定需综合考虑以下因素：（1）工作表现：独立工作能力及设计过程的表现。占总成绩的30%。（2）设计成果：设计说明书（计算书、论文）、图纸、程序、作品等的质量。占总成绩的40%。（3）考核测评：课程设计结束前，指导教师应采用考试或答辩等形式对所指导的学生进行测评。如采用答辩形式，需填写课程设计答辩记录，测评成绩占总成绩的30%。（4）有创新的设计可以根据情况适当加分。教研室审查意见：教研室主任签字： 年 月 日院（系、部、中心）意见：主管领导签字： 年 月 日1.功能描述（1）.登录 打开饭店菜式管理系统程序，进入主界面。通过输入用户名和密码登录到菜品式管理界面两个按钮可以分别进入菜式管理系统和退出系统。（2）.菜式管理系统通过输入用户名和密码进入到了菜式管理界面，点击菜式管理菜单，对菜式进行添加和删除，以及退出程序。三个按钮可以分别进入到点菜系统、菜式浏览系统以及返回主界面。（3）.点菜系统 通过点击菜式管理系统的点菜按钮进入到点菜系统。此界面有两个列表框，分别放饭店里所有菜式以及已点的菜，再通过点菜按钮将饭店菜式列表框里的菜点到已点列表框里，通过退菜按钮对已点列表框里的菜进行删除。在点菜和退菜的同时还对菜式价格进行计算。点菜完成后进行落单，点击返回管理界面按钮返回管理系统界面。（4）.菜式管理系统通过点击菜式管理系统的菜式浏览按钮进入到菜式浏览系统。通过点击按菜名、价格和菜系浏览菜单，对菜式分别进行浏览。点击返回管理界面按钮返回管理里系统。.2.概要设计（1）各模块之间的关系酒店菜单登录系统 登 录 登录认证 失 败 登录成功 菜式管理系统 点菜系统菜式浏览系统返回酒店菜单登录系统（2）各模块流程图 a：菜式管理系统 菜式管理系统返回主界面删除菜式添加菜式 b：点菜系统 点菜系统返回管理界面退 菜点 菜c：菜式浏览系统 菜式浏览系统按菜名浏览 按价格浏览按菜系浏览返回点菜系统3.详细设计1.模块窗体Public i As IntegerPublic sum As SingleType caidancm As Stringcx As Stringjg As Integeryl As Stringzk As SingleEnd TypePublic s() As caidanFunction chazhao(ByVal n As String) As IntegerDim j As IntegerFor j = 1 To iIf n = s(j).cm Then chazhao = jIf n = s(j).cx Then chazhao = jIf n = Str(s(j).jg) Then chazhao = jIf n = s(j).yl Then chazhao = jIf n = Str(s(j).zk) Then chazhao = jNext jEnd Function2.酒店菜单登录系统（form1）Private Sub Command1_Click()Dim mes%If Text1.Text = jane And Text2.Text = 123456 ThenForm1.HideForm2.ShowElsemes = MsgBox(用户名或密码错误，请重新输入！)Text1.Text = Text2.Text = End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text2.PasswordChar = *End Sub3.菜式管理系统（form2）Private Sub mnufileadd_Click()ReDim Preserve s(1 To (i + 1) As caidani = i + 1s(i).cm = InputBox(请输入菜名, 新增)s(i).cx = InputBox(请输入菜系, 新增)s(i).jg = InputBox(请输入价格, 新增)s(i).yl = InputBox(请输入原料, 新增)s(i).zk = InputBox(请输入折扣, 新增)End SubPrivate Sub mnufiledel_Click()Dim j As IntegerDim k As IntegerDim n As Stringn = InputBox(请输入查找的关键字, 查找)j = chazhao(n)For k = j To i - 1 s(k) = s(k + 1) Next ki = i - 1End SubPrivate Sub mnufileqiute_Click()EndEnd SubPublic Function chazhao(ByVal n As String) As IntegerDim j As IntegerFor j = 1 To iIf n = s(j).cm Then chazhao = jIf n = s(j).cx Then chazhao = jIf n = Str(s(j).jg) Then chazhao = jIf n = s(j).yl Then chazhao = jIf n = Str(s(j).zk) Then chazhao = jNext jEnd Function4.点菜系统（form3）Private Sub Command1_Click()For j = 0 To List1.ListCount - 1 If List1.Selected(j) Then List2.AddItem List1.List(j) sum = sum + s(j + 1).jg * s(j + 1).zkEnd IfNext jLabel1.Caption = sumEnd SubPrivate Sub Command2_Click()If List2.ListIndex = 0 ThenFor 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).zkList2.RemoveItem List2.ListIndex Label1.Caption = sumEnd If Label1.Caption = sumEnd SubPrivate Sub Command3_Click()Label5 = 谢谢使用！End SubPrivate Sub Command4_Click()Unload Form3Form2.ShowEnd SubPrivate Sub Form_Load()Dim j As IntegerFor j = 1 To i List1.AddItem s(j).cm Next jEnd Sub5.菜式浏览系统Private Sub cm_Click()For j = 1 To i - 1 For k = i To j + 1 Step -1If 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: 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), 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 Command1_Click() Unload Form4 Form3.ShowEnd SubPrivate Sub cx_Click()For j = 1 To i - 1 For k = i To j + 1 Step -1If 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).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), 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 Form_Load()ShowPrintPrint 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 jg_Click()For j = 1 To i - 1 For k = i To j + 1 Step -1If s(k).jg ”按钮，所选中的菜就到了“已点”列表框里了，并且对当前已点菜的价格进行计算：若不想要“已点”列表框里的某个菜，选中这个菜，再点击“=退菜”按钮，这个菜就从“已点”列表框里删除掉了，同时这个菜的价钱也减去了：点击“落单”按钮，生成账单：点击“返回管理界面”按钮，返回管理系统，若想删除某个菜式，点击“菜式管理”里的“删除”按钮，根据提示进行删除：查看菜单里面“鸡蛋鸭卷”这个菜的所有信息是否删除：浏览菜单里和点菜系统里菜单里,“鸡蛋鸭卷”的信息都以删除。所有功能完成后，最后退回登录系统首页，点击“退出”按钮，退出整个系统。3. 存在问题： 程序编写时没有用到文件，不带保存功能，每次运行程序时，都到重新输入菜式信息，比较麻烦。应该使用文件，这样会更完善！5.心得体会：一个星期的软件课程设计结束了，课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.经过一周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。锻炼了我的自主学习能力及创新能力。在今后的学习中，还要继续加强自主学习与实践的锻炼。回想学习课程设计的过程中，既有烦恼又有快乐。从思考题目的时候开始，