VB课程设计报告-食品信息管理系统.doc

航 空 航 天 大 学 课程设计 学 号 _ _ 班 级 _ _____ 姓 名 ____ 指导教师 _ ____ 2012年 3 月 15 日 目 录 需求分析 4 设计分析 4 技术要点 5 主要界面截图 6 总结 7 完整的源程序 8 参考文献 9 需求分析 该软件的对象针对于食品信息管理人员。一个食品信息管理系统，主要功能实现：（1）对商店中库存的食品有完整的信息记录包括食品编号、食品名称、食品厂家、单价(元)和数量，（2）统计库存的食品的价值总量，让管理人员能全面的了解库存的食品的价值，（3）统计食品的来源，打印出所有的厂家，（4）将该信息记录保存，以作备份 设计分析 （1）概述： 首先将要被读取的文件存放入一个指定的路径中。其次我在程序中建立两个Form1,Form2。Form1是主界面，里面包括菜单编辑器，价值总量，厂家清单等。Form是登陆界面，包括了标题以及进入和退出该程序的控件command。程序中运用了动态数组，通用对话框等技术。 （2）总体设计： （3）详细设计： 技术要点 1.通用对话框 （1）打开对话框 CommonDialog1.Action = 1 Open CommonDialog1.FileName For Input As #1 （2）保存对话框 CommonDialog2.FileName = 新建文本文档.txt CommonDialog2.DefaultExt = txt CommonDialog2.Action = 2 Open CommonDialog2.FileName For Output As #1 Print #1, Text1.Text Close #1 （3）Do Loop循环 Do While Not EOF(1) Input #1, no, food, where, one, num sum = sum + one * num Loop （4）动态数组 ReDim z(1 To e) As String Open F:\file21_食品信息统计.txt For Input As #1 Do While Not EOF(1) Input #1, no, food, where, one, num a = no z(a) = where Loop Close #1 Dim imin!, n!, i!, j!, t For i = 1 To e - 1 imin = i For j = i + 1 To e If z(j) = z(imin) Then imin = j Next j t = z(i) z(i) = z(imin) z(imin) = t Next i Dim x$, y$ x = z(1) For i = 2 To e If z(i - 1) = z(i) Then Else y = y z(i) End If Next i 主要界面截图 图1 form1及主界面 。 图2Form2及菜单编辑器界面 图3读取数据 图4统计价值总量 图5厂家清单 图6保存数据 总结 在我的努力下一周的VB课设终于圆满结束了，通过这次的VB课设，使我弄明白了许多以前没弄白的知识点，而且也掌握了一部分新的知识点，使得我们同学与老师增加了互动，也把课本的东西用于实践，增进了师生关系，也使我对VB这门学科有了更深一步的认识。 刚拿到VB题的时候大脑一片空白，不知道从哪里下手，但有了困难我们必须去面对，我知道为了完成这道题必须要有足够的耐心，所以我慢慢在书上查找所用到的知识点，并且向徐老师求教和同学们相互交流相互讨论，最终对这道题有了基本的了解并且有了解题思路。 首先确定整个程序的界面该如何设计，设计好界面之后，对于每个控件做相应的编程。先是设计一个登陆界面，点击进入程序即进入到Form1界面，然后设计菜单编辑器，运用一个打开对话框将硬盘中的文件读取到text1中，然后运用循环语句计算出价值总量，接着运用动态数组将厂家筛选出来，再然后通过一个另存为对话框，将text1中数据保存，最后一个end退出整个程序。 通过了这个短暂的一周VB课设使我懂得了更多