VB课程设-41-.docVIP

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