关于“公司仓库管理系统” 的论文
基于VB技术的仓库管理系统开发研究
摘要：本文阐述了管理信息系统开发的基本原理和方法，并结合实际工作对这一项目的设计和技术实现做了详细的讲解
合理的对仓库进行管理一直是企业关注的热点。库存
管理也是管理阶层和理论研究者经常谈论的一个话题，其
重要性是不言而喻的。因此，开发出一个功能完善的仓库管
理系统，对于提高仓库部门效率、降低企业成本、增强企业
竞争力，都有非常重要的意义。本文利用Visual Basic6．0作
为前端开发语言，以SQL作为后台数据库，开发了一个简
单的仓库管理系统。
1系统需求分析
对市场和客户公司动作情况的调查了解后，此公司是
需要采购大批原材料的钢铁生产公司，随着公司业务量的
逐渐增长，业务范围的不断扩大，尤其是原材料行业的竞争
日趋激烈，公司需要更多的人力、物力、财力来稳固并拓展
公司商品在市场的销售额。为了使公司的管理工作科学化、
规范化，为了降低管理成本，实现管理现代化，扩大市场的
竞争优势，使企业管理工作规范化、制度化和程序化，避免
业务管理的随意性，及时、准确地把握企业内部、市场和其
它外部信息，以提高领导决策的水平。
2系统模块设计
根据系统的需求分析，将整个系统划分成六个功能模
块：系统管理模块、基本信息管理模块、入库信息管理模块、
出库信息管理模块、库存信息管理模块、系统帮助模块。
2．1系统管理模块
实现修改密码、添加用户和系统退出功能。
2．2基本信息管理模块
（1）原材料种类管理：对原材料的种类编号，种类名称
及简要备注说明进行添加、删除、修改等操作。
（2）供应商管理：对供应商的编号，名称，联系电话，负
责人，E－mail等相关信息进行管理操作。
（3）仓库信息管理：对各分仓库进行添加、删除、修改、
列表浏览等操作。
2．3入库信息管理模块
此模块主要完成各种新进原材料的系统入库添加、查
询、删除等管理操作。
（1）入库原料信息：选择或输入管理原料种类编号，原
料名称，入库价格，入库数量等。
（2）入库原料供应商信息：选择输入原料供应商的编
号与名称信息。
（3）入库单信息：提供入库编号，入库仓库名称，入库
时间等信息。
（4）订货单信息：根据材料使用情况登记相关订货信
息。为方便管理，界面用框架分成三组信息：A组：订货单单
据信息———订货单编号，订货日期；B组：订货单材料信
息———订货材料编号，订货材料名称，订货材料数量；C
组：订货单材料供应商信息———供应商编号，供应商名称。
2．4出库信息管理模块
对出库材料进行信息管理：出库单编号，出库材料编
号，出库材料名称，出库日期，出库数量。
2．5库存信息管理模块
（1）库存原材料盘点：以表格信息显示库存中的材料
编号，材料名称，材料类别，供应商，材料总入库量，材料现
存量。
（2）紧缺原材料表：列出紧缺材料列表信息（当材料
库存量≤5件时列为紧缺材料），提供及时订货（调用订货
模块功能）和稍后解决（不做任何操作回到主窗口）两个
功能。
2．6系统帮助模块
提供系统简要操作说明和版权信息。
3系统关键代码实现
本程序关键代码是在标准模块中定义了一个数据库处
理公共模块。在主程序中可直接调用模块中的SQL语句。
Public Function ExecuteSQL（ByVal SQL As String,msgstring As
String）As ADODB．Recordset
Dim cnn As ADODB．Connection
Dim rst As ADODB．Recordset
Dim sTokens（）As String
On Error GoTo ExecuteSQL＿Error
sTokens＝Split（SQL）
Set cnn＝New ADODB．Connection
cnn．Open″Provider＝MSDASQL;DSN＝仓库管理系统;UID＝sa;PWD＝;″
If InStr（″INSERT,DELECT,UPDATA″,UCase（sTokens（0）））
Then
cnn．Execute SQL
msgstring＝sTokens（0）＆″Query Successful″
Else
Set rst＝New ADODB．Recordset
rst．Open Trim（SQL）,cnn,adOpenKeyset,adLockOptimistic
Set ExecuteSQL＝rst
msgstring＝″查询到″＆rst．RecordCount＆″条记录″
End If
ExecuteSQL＿Exit:
Set rst＝Nothing
Set cnn＝Nothing
Exit Function
ExecuteSQL＿Error:
msgstring＝″查询错误：″＆Err．Description
Resume ExecuteSQL＿Exit
例如在入库信息管理界面中，添加入库信息代码中需
要调用SQL代码，只需写如下两行代码：
txtSQL＝″select觹from入库单″
Set mrc＝ExecuteSQL（txtSQL,msgstring）
4结束语
本文就广泛需求的仓库管理软件提出一种仓库管理系
统的设计与实现，此系统具有很好的扩展性，操作简单，可
适用于各企业公司进行科学规范有效的仓库管理。
参考文献
[1]仲维俊．Visual Basic 6．0完全自学手册．北京:机械工业出版
社，2007．
[2]李晓喆，张晓辉，李祥胜．SQL Server 2000管理及应用系统开
发．北京:人民邮电出版社，2004．
[3][美]Curland著．高级Visual Basic编程．涂翔云,刘玉印,刘岩,
译．北京:中国电力出版社，2001．
际蓝论文网版权声明：以上内容作者已申请原创保护，未经允许不得转载，侵权必究！授权事宜、对本内容有异议或投诉，敬请联系网站管理员，我们将尽快回复您，谢谢合作！
