龙源期刊网 http://www.qikan.com.cn

基于ＶＢ的食堂库房管理系统

作者：许立永 赵学作 董艳荣 来源：《商场现代化》2009年第06期

[摘要] 食堂餐厅库房管理系统是用计算机对餐厅食堂的库房进行电子化管理，对处理入库、出库、库存查询、积压报警、采购计划等数据进行自动化处理，从而实现食堂的管理的无纸化、高效化、规范化。

[关键词] 食堂 库房管理 VB SQL Server

“国以民为本，民以食为天”，学校食堂工作关系着学生的日常饮食生活，其管理是否科学规范，饮食是否安全可靠，是学校食堂管理的重中之重，是直接关系到创建和谐校园的重要因素。通过开发食堂库房管理系统，做到信息的规范管理、科学统计和快速查询,从而实现了库房管理信息管理的办公无纸化和高效化。 一、开发工具的选择

Visual Basic 6.0(VB)是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，VB系统提供了各种对象供用户使用，因此其程序设计的过程就是使用对象对相应的事件的编码过程。可视化程序设计环境提供给程序员的界面称为可视化界面，使用可视化界面，程序员在设计用户界面时可以直接根据视觉通过鼠标拖动而不用编写过多的代码。此外，可视化程序设计环境也提供了每个控件与代码相关联的方法。其优点在于： 1.图形用户界面的可视化开发。

2.面向对象的程序设计方法，把程序和数据封装起来作为一个对象，控件的添加、移动、删改以及修改属性方便快捷，属性的修改可以使用语句的方式,也可以使用在属性框中修改的方式。

3.VB本身提供与各种数据库相链接的接口，可以快速方便的对数据库进行读写操作。 4.VB也提供与MSOFFICE相连接的接口，传输数据方便，如可以直接生成EXCEL文档。

5.VB中可以使用Active X控件，很容易在VB中增加新功能，降低使用者的编程压力。 二、数据库的选择

龙源期刊网 http://www.qikan.com.cn

目前，可应用于开发工作的数据库很多，SQL Server、Oracle是面向网络计算的数据库，适合开发大型网络应用软件;Access和Visual Foxpro 系统适合开发小型数据库应用软件。虽然本系统数据量不算很大,但日积月累也会有一定的数据量存在，并且为了方便多机共同协作，故采用SQL Server 2000数据库，同时也可采用其桌面版MSDE2000,以兼顾无专门服务器的用户正常使用。

三、系统的结构、功能设计 1.功能模块。

(1)入库:是对所经营物品的入库管理，由于食堂入库进货时有的货物并不进库房,而是点货后直接进入食堂,因此入库类型应该有直入直出型,即入库马上自动出库。在此模块中同时可对入库记录进行检索与管理,管理包括添加、修改、删除等具体操作。 (2)出库:是把库存物品分发给各个食堂。

(3)库存:可对当前库存进行查询管理，在此模块可查询具体过期物品。

(4)报警:当系统启动时，会自动检索库存中即将过期与已经过期物品，并给出过期提示。 (5)采购计划:可按当前库典中的物品，以及当前库存量自动生成采购计划，并可对计划进行调整（删除、修改、重生成等）。

(6)结算:分为日结与月结，可对当日或当月的出库、入库、退货、报损、当前库存进行汇总结算。 2.特色功能

(1)查询检索:各功能模块中都有查询检索功能，其最大特色为可以多条件检索，其实现是利用记录集的过滤器来进行过滤查询。如:Adodc1.Recordset.Filter=”CNAME=‘大米’”。 (2)生成EXCEL文档：每个模块中都可以把当前检索到的数据导出到EXCEL表格中 Set xlApp = CreateObject(“Excel.Application”) Set xlBook = xlApp.Workbooks.Add Set xlsheet = xlBook.Worksheets(1) HS=1

Do While Not Adodc1.Recordset.EOF

龙源期刊网 http://www.qikan.com.cn

For LS = 1 To Adodc1.Recordset.Fields.Count xlsheet.Cells(HS, LS) = Adodc1.Recordset(LS - 1) Next

Adodc1.Recordset.MoveNext HS = HS + 1 Loop

(3)方便的排序功能：数据是通过把DataSource属性设置为Adodc1的DataGrid来显示的，以下代码即可实现可按各种字段进行升序或降序的排序显示。 Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

If Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField & “ desc” Then Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField Else

Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField & “ desc” End If End Sub

(4)图表功能:此功能是通过控件MSChart1来实现的，用各种图表方式来显示出入库等各种数据。 参考文献:

[1]李洪泊赵学作许娜:用VB编写打印程序[J].商场现代化，2008年2月上旬刊 [2]赵学作李洪泊:MSDE2000故障及解决方案[J].网管员世界，2008.03B

[3](美)荷兹纳(Steven Holzner):Visual Basic 6技术内幕[M].北京:机械工业出版社，1999 [4]林永张乐强:Visual Basic 6.0用户编程手册[M].北京:人民邮电出版社，2002