VB课程设计--酒店点菜系统.doc

VB语言课程设计吉林工程技术师范学院VB课程设计设计题目： 酒店点菜系统 专业： 计算机 班级： C1152 学生姓名： 曹 睿 学号： 33 指导教师： 高汝仪 、 高岚 2012年6月信息工程学院33目录目录1摘要2关键字：VB设计、酒店信息、酒店管理、点菜系统、VB主流产品2一. 题目分析3（1）.登录3（2）.菜式管理系统3（3）.点菜系统3二. 设计概述4（1）各模块之间的关系4（2）各模块流程图4三.详细设计61.模块窗体62.酒店菜单登录系统（form1）63.菜式管理系统（form2）74.点菜系统（form3）85.菜式浏览系统9四 效果及存在问题：111.效果 ：112.存在问题：18五.总结19六参考文献20七、对该题目和VB设计的意见和建议211. 对该题目的意见和建议212对本次设计的意见和建议21附录22源代码22摘要经过一个学期对VB程序设计的学习，同学们都认为真正的学到了有用知识，可能有一些人学的不够理想，但无论如何，这些知识都为我们的下一步学习打下了坚实的基础。做这么一个课程设计，一方面是为了检查我们一个学期来我们学习的成果，另一方面也是为了让我们进一步的掌握和运用它，同时也让我们认清自己的不足之处和薄弱环节，加以弥补和加强。本程序是酒店点菜系统程序，可以更方便酒店管理行业。关键字：VB设计、酒店信息、酒店管理、点菜系统、VB主流产品一. 题目分析（1）.登录 打开饭店菜式管理系统程序，进入主界面。通过输入用户名和密码登录到菜品式管理界面两个按钮可以分别进入菜式管理系统和退出系统。（2）.菜式管理系统通过输入用户名和密码进入到了菜式管理界面，点击菜式管理菜单，对菜式进行添加和删除，以及退出程序。三个按钮可以分别进入到点菜系统、菜式浏览系统以及返回主界面。（3）.点菜系统 通过点击菜式管理系统的点菜按钮进入到点菜系统。此界面有两个列表框，分别放饭店里所有菜式以及已点的菜，再通过点菜按钮将饭店菜式列表框里的菜点到已点列表框里，通过退菜按钮对已点列表框里的菜进行删除。在点菜和退菜的同时还对菜式价格进行计算。点菜完成后进行落单，点击返回管理界面按钮返回管理系统界面。（4）.菜式管理系统通过点击菜式管理系统的菜式浏览按钮进入到菜式浏览系统。通过点击按菜名、价格和菜系浏览菜单，对菜式分别进行浏览。点击返回管理界面按钮返回管理里系统。.二. 设计概述（1）各模块之间的关系酒店菜单登录系统 登 录 登录认证 失 败 登录成功 菜式管理系统 点菜系统菜式浏览系统返回酒店菜单登录系统（2）各模块流程图 a：菜式管理系统 菜式管理系统返回主界面删除菜式添加菜式 b：点菜系统 点菜系统返回管理界面退 菜点 菜c：菜式浏览系统 菜式浏览系统按菜名浏览 按价格浏览按菜系浏览返回点菜系统三.详细设计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 ”按钮，所选中的菜就到了“已点”列表框里了，并且对当前已点菜的价格进行计算：若不想要“已点”列表框里的某个菜，选中这个菜，再点击“= 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 SubPrivate 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,