[考试]vb课程设计——酒店点菜系统

[考试]vb课程设计——酒店点菜系统 目录 课程设计任务书…………………………………………………………………………2 1功能描述 …………………………………………………………………………………6 2概要设计(各模块流程图)„„„„„„„„„„„„„„„„„„„„„„„„6 (1)各模块之间的关系„„„„„„„„„„„„„„„„„„„„„„„„„„„6 (2)各模块流程图„„„„„„„„„„„„„„„„„„„„„„„„„„„„„7 a:菜式管理系统„„„„„„„„„„„„„„„„„„„„„„„„„„„„7 b:点菜系统 „„„„„„„„„„„„„„„„„„„„„„„„„„„……7 c:菜式浏览系统„„„„„„„„„„„„„„„„„„„„„„„„„„„„7 3 详细 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„„8 1.模块窗体 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„8 2.酒店菜单登录系统(form1) „„„„„„„„„„„„„„„„„„„„„„„„8 3.菜式管理系统(form2) ……………………………………………………………………9 4.点菜系统(form3)„„„„„„„„„„„„„„„„„„„„„„„„„„„„10 5.菜式浏览系统 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„10 4.效果及存在问题 ………………………………………………………………………12 1.效果……………………………………………………„………………………………12 2.存在问题 …………………………………………………………………………………19 5 心得体会 决胜全面小康心得体会学党史心得下载党史学习心得下载军训心得免费下载党史学习心得下载 …………………………………………………………………………………19 南京工程学院 题目 饭店菜式管理系统 课 程 名 称 VB语言程序课程设计 院(系、部、中心) 专 业 电网监控 班 级 起 止 日 期 10.12.20,10.12.24 指 导 教 师 王 曼 1(课程设计应达到的目的 本课程设计是在学生学习完《VB语言程序设计基础》课程后进行的一次全面的综合练习。通过本次课程设计进一步巩固和加深对VB语言程序设计课程的基本知识的理解，掌握VB语言程序编写和调试的基本技能，了解有关程序设计程序开发的思路方法，提高利用软件程序解决实际问题的能力。 2(课程设计题目及要求 本课题要求用VB设计一个点菜管理系统管理饭店菜式，每个菜式的信息包括菜名、 类系(四大菜系中属哪一种)、主要原料、价格、折扣。该系统的主要功能有: 1、 菜式管理: , 建立菜式信息记录; , 增删菜式记录; 2、菜式浏览: , 可选择浏览菜式的哪一个或几个属性; , 分菜系浏览饭店的菜式; , 根据菜名或价格浏览菜式; 3、点菜功能: , 点菜操作; , 预览点菜结果; , 增删菜式; , 生成账单; 4、可以适当扩充系统功能。 要求: 1、要求界面为多重窗体形式，可通过菜单和图形界面进行操作。 2、各种操作结果在界面有显示。 3、有一定的错误提示功能，如菜式折扣一定小于100%，输入错误有提示信息。 4、系统要求设计合理，逻辑性强，界面设计要求友好美观，操作方便，有足够的提 示信息。 3(课程设计任务及工作量的要求〔包括课程设计计算说明书、图纸、实物样品等要求〕 (1)对用户要求进行充分需求分析，要求系统功能合理，符合使用习惯; (2)系统设计实用可靠; (3)要求系统采用模块化结构化程序设计方法，易于移植; (4)程序书写格式 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 ，注释详尽，易于维护; (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 Integer Public sum As Single Type caidan cm As String cx As String jg As Integer yl As String zk As Single End Type Public s() As caidan Function chazhao(ByVal n As String) As Integer Dim j As Integer For j = 1 To i If n = s(j).cm 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 j End Function 2.酒店菜单登录系统(form1) Private Sub Command1_Click() Dim mes% If Text1.Text = "jane" And Text2.Text = "123456" Then Form1.Hide Form2.Show Else mes = MsgBox("用户名或密码错误，请重新输入～") Text1.Text = "" Text2.Text = "" End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text2.PasswordChar = "*" End Sub 3.菜式管理系统(form2) Private Sub mnufileadd_Click() ReDim Preserve s(1 To (i + 1)) As caidan i = i + 1 s(i).cm = InputBox("请输入菜名", "新增") s(i).cx = InputBox("请输入菜系", "新增") s(i).jg = InputBox("请输入价格", "新增") s(i).yl = InputBox("请输入原料", "新增") s(i).zk = InputBox("请输入折扣", "新增") End Sub Private Sub mnufiledel_Click() Dim j As Integer Dim k As Integer Dim n As String n = InputBox("请输入查找的关键字", "查找") j = chazhao(n) For k = j To i - 1 s(k) = s(k + 1) Next k i = i - 1 End Sub Private Sub mnufileqiute_Click() End End Sub Public Function chazhao(ByVal n As String) As Integer Dim j As Integer For j = 1 To i If n = s(j).cm 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 j End Function 4.点菜系统(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).zk End If Next j Label1.Caption = sum End Sub Private Sub Command2_Click() If List2.ListIndex >= 0 Then 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 List2.RemoveItem List2.ListIndex Label1.Caption = sum End If Label1.Caption = sum End Sub Private Sub Command3_Click() Label5 = "谢谢使用～" End Sub Private Sub Command4_Click() Unload Form3 Form2.Show End Sub Private Sub Form_Load() Dim j As Integer For j = 1 To i List1.AddItem s(j).cm Next j End Sub 5.菜式浏览系统 Private Sub cm_Click() For j = 1 To i - 1 For k = i To j + 1 Step -1 If s(k).cm < s(k - 1).cm Then m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m End If Next k Next j Cls Print 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).zk Next j End Sub Private Sub Command1_Click() Unload Form4 Form3.Show End Sub Private Sub cx_Click() For j = 1 To i - 1 For k = i To j + 1 Step -1 If s(k).cx < s(k - 1).cx Then m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m End If Next k Next j Cls Print 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).zk Next j End Sub Private Sub Form_Load() Show Print Print 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).zk Next j End Sub Private Sub jg_Click() For j = 1 To i - 1 For k = i To j + 1 Step -1 If s(k).jg < s(k - 1).jg Then m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m End If Next k Next j Cls Print 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).zk Next j End Sub 4.效果及存在问题: 1.效果 : 程序开始运行，进入酒店菜单管理系统登录主界面,输入用户名和密码: 点击“登录”按钮进入菜式管理系统: 点击“菜式管理”菜单里的“新增”，根据提示进行菜式信息输入: 根据提示依次输入新增的菜.... 菜式输入完后，点击“菜式浏览”按钮，进入“菜式浏览界面”浏览菜的所有信息: 点击“按菜名浏览”菜单，所有菜的信息就按菜名重新排列: 点击“按菜价浏览”菜单，所有菜的信息就按菜价从低到高重新排列: 点击“按菜系浏览”菜单，所有菜的信息就按菜系重新排列: 点击“返回点菜界面”按钮，进入点菜系统: 选中“菜单”列表框了的某个菜，再点击“点菜=>”按钮，所选中的菜就到了“已点”列表框里了，并且对当前已点菜的价格进行计算: 若不想要“已点”列表框里的某个菜，选中这个菜，再点击“<=退菜”按钮，这个菜就从“已点”列表框里删除掉了，同时这个菜的价钱也减去了: 点击“落单”按钮，生成账单: 点击“返回管理界面”按钮，返回管理系统，若想删除某个菜式，点击“菜式管理”里的“删 除”按钮，根据提示进行删除: 查看菜单里面“鸡蛋鸭卷”这个菜的所有信息是否删除: 浏览菜单里和点菜系统里菜单里,“鸡蛋鸭卷”的信息都以删除。 所有功能完成后，最后退回登录系统首页，点击“退出”按钮，退出 整个系统。 3.存在问题: 程序编写时没有用到文件，不带保存功能，每次运行程序时，都到重新输入菜式信息，比较麻烦。应该使用文件，这样会更完善～ 5.心得体会: 一个星期的软件课程设计结束了，课程设计是培养学生综合运用所学知识,发现,提出,分析 是对学生实际工作能力的具体训练和考察过程.和解决实际问题,锻炼实践能力的重要环节, 经过一周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。 课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。锻炼了我的自主学习能力及创新能力。在今后的学习中，还要继续加强自主学习与实践的锻炼。 回想学习课程设计的过程中，既有烦恼又有快乐。从思考题目的时候开始，到程序的编写，上机调试，这中间我们遇到很多困难。程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了记录数组，各模块之间的调用。经过集思广益后，我收获很大，不仅解决了问题，还增进了同学之间的友谊。当解决一个问题时，我都很有成就感;当问题很难解决时，我会回到课本，复习以前学过的知识，再思考问题，直至把问题解决。在上机调试的过程中，我们还遇到许多类似的问题，最后在我们的共同努力下，通过向老师、同学请教，查参考资料，我们把所有的困难都解决了～在程序没有问题，所有功能都能操作的情况下，最后我们还要对显示的页面进行设计，要是输出页面清晰明了，这就要求我们对输出的可是进行正确的控制。 通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。通过这次课程设计，我基本掌握了VB设计的问题分析、总体结构设计、用户界面设计、程序设计基本技能和技巧，并且加深理解课堂上学习的内容。在设计过程中，我逐步提高了程序设计和调试能力，培养了我们解决问题的能力，算法分析能力和，同时我也学到了以后解决问题的时候要认真，仔细，考虑周全而且要有耐力，也看到了团队精神和互帮互助的重要性。这一点会让我终生受益。 这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，最后在王老师的辛勤指导下，终于游逆而解。同时，在王老师的身上我学得到很多实用的知识，再次我表示感谢～同时，对给过我帮助的所有同学和指导老师再次表示忠心的感谢～