VB课程设计任务书06-小型超市管理.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：A 实现基本要求代码: 约250行 主要涉及: 基本控件及算法 一、设计题目：小型超市管理系统（出题人：杨素梅） 说明：把界面上的功能实现出来，主要功能分成四部分： 商品选择 查询商品信息 商品入库 售卖商品 主要用到的是文件操作，界面控件主要有组合框、列表框、标签和按钮等。 图1 界面图 二、目的与要求1.目的培养学生综合利用语言进行程序设计的能力，主要是培养学生。基本要求3.创新要求在基本要求达到后，进行创新设计，、设计方法和基本原理 问题描述问题的解决方案Private Sub Form_Activate() 作一些初始化的工作。主要是商品种类。 Private Sub Combo1_Click() 根据商品种类在列表框中显示相应的商品 Private Sub Command3_Click() 根据选择的商品查询具体商品信息 Private Sub Command2_Click() 商品入库功能，主要是文件的写操作 Private Sub Command4_Click() 主要是根据销售的信息更新商品库，显示根据选择的商品的批次，来选择用哪条记录的数量减去销售数量，主要是文件的读操作，完成数量的更新后，将新的商品记录通过文件的写操作保存到新的文件中 Private Sub Combo6_Click() 根据商品的编号通过文件读操作将商品的信息显示出来 Private Sub Combo7_Click() 根据销售数量，计算应付的钱数 四、问题的描述If Combo1.ListIndex = 0 Then List1.Clear b = Array(大米, 食用油, 盐, 味精, 酱油, 醋, 牛奶) For i% = 0 To UBound(b) List1.AddItem b(i) Next i ElseIf Combo1.ListIndex = 1 Then ElseIf Combo1.ListIndex = 2 Then Else MsgBox 请选择商品 End If 查询功能中，部分代码： fileno = FreeFile Open App.Path \shangpin.txt For Input As #fileno List2.Clear Do While Not EOF(fileno) Input #fileno, bianhao, name, danjia, shuliang, rukuriqi If x = name Then End If Loop Close #fileno 入库功能中，部分代码 Open App.Path \shangpin.txt For Append As #fileno Write #fileno, bianhao, name, danjia, shuliang, rukuriqi Close #fileno 销售功能中，部分代码：fileno = FreeFile Open App.Path \shangpin.txt For Input As #fileno Do While Not EOF(fileno) Input #fileno, bianhao, name, danjia, shuliang, rukuriqi If riqi = rukuriqi Then shuliang1 = shuliang - Val(Combo7.Text) bianhao1 = bianhao name1 = name danjia1 = danjia End If Loop Close #fileno fileno = FreeFile Open App.Path \shangpin1.txt For Append As #fileno Print #fileno, bianhao1; name1; danjia1; shuliang1; riqi Close #fileno 五、参考资料 Visual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为B，综合时要乘系数0.9）) VB课程设计任务书 – 模拟查找过程 第1页共4页