VB课程设计

沈阳航空航天大学。

课程设计。学号 2009040601168

班级 94060105

姓名高凯指导教师徐晗

2011 年 3 月 17 日。

课程设计任务书。

学院：机电工程学院专业：机械设计制造及其自动化班级：94060105

一、课程设计时间。

2023年3月14日~20日（第2周），共计1周。

二、课程设计内容。

某食品商店货物信息保存在文本文件或access数据库的一个表中，信息内容包括：食品编号，食品名称，生产厂家，单价（元），现有数量。程序应实现以下功能：

信息录入、修改；按编号查询、按名称查询；统计库存的价值总量、统计食品**于哪些不同厂家。要求食品类别不少于10种。

用户界面中的菜单至少应包括“信息维护”、“查询”、“统计”、“退出”4项。

三、课程设计要求。

程序质量：贯彻事件驱动的程序设计思想。

用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。

**应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：

课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字。

指导教师学生签名：__

五、成绩。六、教师评语。

目录。需求分析 4

设计分析 4

技术要点 7

主要界面截图 11

总结 15完整的源程序 17

参考文献 19

需要建立一个食品信息管理系统，主要功能实现：（1）对商店中购进食品有完整的信息记录包括食品编号、食品名称、食品厂家、单价和数量，（2）对库存中食品按食品编号和食品名称来进行对食品信息的查询，以及判定商店中是否有该产品，（3）统计商店中食品的总价值和商品**于哪些厂家等。

1）概述：首先将一些食品基本数据保存在数据库中的一个表中，供程序调用。为实现直接、快速地访问数据库中的数据，使用随机文件来储存。

其次我在程序中建立两个form，form1主要是菜单编辑器，菜单中包括（1）数据的输入和修改，（2）按编号和名称对商店中食品进行查询以及判定库存中是否有该食品。（3）统计商店中食品的总价值和**于哪些厂家，（4）退出用于结束程序的应用。form2主要是由command、 text 、label组成，用于食品信息的输入以及判定输入产品的信息是否重复。

2）总体设计：

3）详细设计：

1关于数据库的连接。

用adodc空间讲数据库与程序连接。

private sub form_load()

dim mpath$, mlink$

mpath = 获取程序所在的路径。

if right(mpath, 1)

mlink = provider=指定提供者。

mlink = mlink + data source=" mpath + 在数据库文件名前插入路径。

= mlink设置连接属性。

= adcmdunknown指定记录集命令类型（可在设计时指定）

= "select * from 123"

set = adodc1

end sub

2 sql语句的应用。

select查询语句：

= "select * from 123 where 食品编号 ='a按食品编号进行查询。

= "select * from 123 where 食品名称= 'b按食品名称进行查询。

3多重窗体。

窗体的显示和隐藏：

4选择结构的套用。

输入信息时先确定库存中是否已经输入了该产品，然后再对食品的信息进行输入；查询时先确定库存中是否有该产品的编号和名称，然后再对食品进行查询，因此用到选择机构；

输入信息：private sub command1_click()

a = text1

= "select * from 123 where 食品编号 ='a对食品信息进行录入。

if not then

msgbox ("与表中重复") 判断录入的食品信息是否重复。

查询：private sub vbabhcx_click()

dim a as string

a = inputbox("请输入食品编号")

= "select * from 123 where 食品编号 ='a &

if then msgbox "无此产品", 提示判断库存中是否有查询的食品。

end sub

private sub vbamccx_click()

dim b as string

b = inputbox("请输入食品名称")

= "select * from 123 where 食品名称= 'b &

if then msgbox "无此产品", 提示判断库存中是否有查询的食品。

end sub

5求和公式的应用

private sub vbtjkcdjzzl_click()

dim a%, i%, s!

a = redim b(1 to a), c(1 to a)

for i = 1 to a

采用条件函数进行赋值：

b(i) =val( c(i) =val(

if then

s = s + b(i) *c(i)

next i

msgbox ("价值总量为：" s)

end sub

主要界面截图。

图1 主界面。

图2 新增信息界面。

图3 查询界面。

图4 输入重复信息界面。

图5 统计食品厂家界面。

图6 统计库存价值总量界面。

一周的vb课设在我的努力下终于圆满结束了，一分耕耘一分收获啊。通过这次的vb课设，使我弄明白了许多以前没弄白的知识点，而且也掌握了一部分新的知识点，使我对vb这门学科有了更深一步的认识。

刚拿到vb题的时候大脑一片空白，不知道从**下手，但有了困难我们必须去面对，我知道为了完成这道题必须要有强大的耐心，所以我慢慢在书上查找所用到的知识点，并且和同学们相互交流相互讨论，最终对这道题有了基本的雏形：

建立一个数据库保存数据，界面得采用多窗体，从第一步建立菜单编辑器开始，建立了form1的大部分界面；第二步建立了一个access数据库的一个食品表；第三步实用ado控件实现数据库访问的过程，建立记录集与数据绑定控件的的关联，在窗体上显示数据；第四步建立一个form2的界面用于食品信息录入库存；第五步建立了两个查询系统，应了sql语句查询数据库，来完成按食品编号和食品名称对库存中的食品进行查询，同时应用了sql语句来对库存中的食品进行厂家统计，第六步应用了一个for循环来进行对库存中价值总量进行统计，最后运用了一个if选择结构来判断库存中是否含有该产品，以及食品信息录入时是否输入了重复的信息。

通过了这个短暂的一周vb课设使我懂得了更多的知识点，同时也对个人产生了一定的升华，vb程序应用于现实中的很多地方，可以给我们的生活带来很多的方便，在未来的学习生涯中我们应该更好的学习vb，要带着兴趣去学习这门学科，这样才会越学又有趣，更好地增长自己的知识，同时经过了这次课设，在不断地调试程序时，更好的培养了我们的耐心，同时也使我们变得更加细心，为我们以后的未来生活提供了更多的宝贵经验。总之，这次的课设对我们的影响是深远的，我们只有慢慢经历每次历练，才会体验一个充满激情与活力的人生。

VB课程设计

VB课程设计

VB课程设计

VB课程设计

其他用户还读了