VB课程设-41-.doc

此文档收集于网络，如有侵权，请联系网站删除酒店菜单管理设计报告学院 班级 学号 1 姓名 成绩 一、设计思路1.要达到的目的锻炼自己对vb这门课程学习后的实际应用能力，以达到学为己用。培养自己的创新思维，用自己的思路来解决问题。提高自己对vb课程的兴趣爱好，为以后的学习打下铺垫。开阔自己的视野，亲身去了解此类软件的开发过程。2.关键问题的解决对于菜单和列表的对应，仔细翻阅课本相关内容，得到解决。添加菜品、删除菜品、修改价格和查看菜单四个键的统一，使用控件数组。对txt文件的读取，通过翻阅课本，得以完成。对txt文件的写入和修改，解决删除菜品，修改价格、名字等问题。三、部分程序关键源代码及注释菜单与列表对应部分源代码fileno = FreeFileOpen App.Path & liangcai.txt For Input As #filenoii = 1Do While Not EOF(fileno)Input #1, LName(ii), LPrice(ii)a = ii - 1List1.List(a) = LName(ii)List2.List(a) = LPrice(ii)ii = ii + 1LoopClose #1菜品改名部分源代码If i = 凉菜 Thenfileno15 = FreeFileOpen App.Path & liangcai.txt For Input As #fileno15Do While Not EOF(fileno15)Input #1, LName(ii), LPrice(ii)h = iiii = ii + 1LoopClose #fileno15For ii = 1 To hIf LName(ii) = j Thenl = iiEnd IfNext iiFor ii = 1 To hIf ii = l ThenLCName(ii) = LName(ii)LCPrice(ii) = kElseLCName(ii) = LName(ii)LCPrice(ii) = LPrice(ii)End IfNext iifileno16 = FreeFileOpen App.Path & liangcai.txt For Output As #fileno16Write #fileno16, LCName(1), LCPrice(1)Close #fileno16fileno17 = FreeFileOpen App.Path & liangcai.txt For Append As #fileno17For ii = 2 To hWrite #fileno17, LCName(ii), LCPrice(ii)Next iiClose #fileno17ElseIf i = 热菜 ThenElseIf i = 主食 ThenElseIf i = 饮料 ThenElseIf e = 酒水 ThenElseMsgBox (请输入正确的菜品类别)End IfEnd IfEnd IfEnd IfEnd If四、设计方案的完善及目前存在的问题1设计方案要完善的地方界面不够美观，达不到商业性目的。实用性不是很强，应作出人性化改进。由于技术手段限制，创新不够吸引人。2. 目前存在的问题未达到任意删改菜品类别一项。进入form2窗体时控件数组不可使用，点击任意菜单后方可使用。这一要求未能达成。msgbox对未输入相应类别的字符否定不及时。五、本次设计的收获及心得体会Visual basic这门课程不仅仅教给了我们那一部分知识，它还给我们提供了一个平台，我们可以把自己的想象力任意地在上面发挥，实现我们所想的，达成我们想要的。它相当于给我们铺出了一条路，我们可以任意地前行，这门课程确实很值！六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议我们可以把酒店菜单管理这一题目改成我们相对熟悉的选课，打卡等更贴近生活的题目，让设计变得更加有