信息管理毕业论文样板(仓库管理)2

1、计算机信息管理专业毕业设计（论文）仓库管理系统设计摘要仓库管理是与我们日常生活息息相关的问题。大到公司、超市的仓库管理，小到图书馆的图书管理，都可以认为是各种各样的仓库管理需求。随着我国改革开放的不断深入，经济飞速的发展，企业要想生存、发展，要想在激烈的市场竞争中立于不败之地，没有现代化的管理是万万不行的，仓库管理的全面自动化、信息化则是其中极其重要的部分。仓库管理系统正是基于这样的需求背景下研制开发的。本文主要分析了仓库管理系统的一些基本功能和组成情况，包括系统的需求分析、系统结构，功能模块划分以及数据库模式分析等，重点对应用程序的实际开发实现作了介绍。达到了数据的一致性和安全性，且应用程序

2、功能完备，符合了仓库管理系统作为典型的信息管理系统(mis)的要求。同时简单介绍了visual basic 6.0编程环境和access数据库管理系统的功能特点，仓库管理系统是企业物流管理中不可或缺的一部分。关键字：vb 毕业论文 信息系统 仓库管理 目录摘要2第一章 概述5第二章 仓库管理信息系统需求分析6第一节 仓库管理信息系统的用户需求简介6第二节 仓库管理信息系统的要求7第三节 数据流程图8第三章 仓库管理信息系统设计9第一节 仓库管理信息系统功能描述及模块图91登录管理功能92基本信息管理功能103仓库管理功能104报表统计管理功能115系统管理功能11第二节 系统开发环境简介12第

3、三节 数据库设计12系统数据库的概念设计13.系统数据库的逻辑结构设计18.系统数据库主要数据表结构19第四章 仓库管理信息系统的功能实现24第一节 系统技术要点24.时间范围的查询24.打印查询后的记录24第二节 主界面设计29第三节出入库管理模块设计29第四节系统日志管理界面52第五章 测试与分析53第一节 测试环境53第二节 测试方法53第三节 测试项目54第四节 测试结果分析56第六章 总结57参考文献58附录59第一章 概述随着时代的进步，社会生产力高速发展，新技术层出不穷信息量急剧膨胀，整个人类社会已成为信息化的社会人们对信息和数据的利用和处理已经进入自动化、网络化和社会化的阶段。

4、如在查找情报资料、处理银行帐目、仓库管理、科研生产等方面，无不需要利用大量的信息资源。因此，如何有效地进行数据信息的管理和利用，已经成为人们普遍关注的课题。信息在不同的领域里有着不同的概念，在管理科学领域中，通常认为信息是经过加工处理后的一种数据形式，是一种有次序的符号排列，它是系统传输和处理的对象。处在信息时代的今天，信息的作用越来越为人们所重视。制定工作计划，研究投资策略，都离不开对信息的充分利用。它通过对数据的加工处理，及时为管理与决策分析提供信息。随着仓库管理信息系统在企业中的广泛应用，该系统对企业的影响也会越来越大，它对企业仓库管理方面的贡献是无可替代的。第二章 仓库管理信息系统需求

5、分析第一节 仓库管理信息系统的用户需求简介人类社会正从工业时代阔步迈向信息时代，人们越赖越重视信息技术对传统产业的改造，信息化水平的高低已经成为衡量一个企业现代化水平的高低。在这种环境下，传统的手工仓库管理已经远远落后于企业的信息化管理，正在逐渐成为企业高速发展的后腿。仓库是成本的重要组成部分，合理、高效的仓库管理方法，能有效的控制产品成本中的仓库费用，达到提高企业经济效益的目的。而使用仓库管理系统软件来管理公司的货物调配工作，无疑是现代企业高速发展的强有力翅膀，加速企业的腾飞。随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业仓库的管理势在必行。对于大中型企业来说，利

6、用计算机支持企业高效率完成仓库管理的日常事务，是适应现代企业制度要求、推动企业仓库管理走向科学化、规范化的必要条件；而仓库管理是一项琐碎、复杂而又十分细致的工作，库存盘点、报表的统计查询的工作量很大，一般不允许出错，如果实行手工操作，每月仓库库存须手工填制大量的表格，这就会耗费工作人员大量的时间和精力。计算机进行仓库管理，不仅能够保证库存盘点准确无误、快速输出，这些优点能够极大地提高仓库管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。要完成一个仓库管理系统，我们还要对仓库管理的日常操作步骤，这是我们进行系统开发的一个先决条件。供应商仓库仓库验收入库单出库单调出入库登记 客户盘点

7、统计库存管理 打印打印报表打印图2-1 系统处理流程图第二节 仓库管理信息系统的要求目标系统应该达到以下要求： 1、时间经济性。优化逻辑设计与物理设计，使系统运行效率高反映速度快。2、可靠性。能连续准确的处理业务，有较强的容错能力。3、可理解性。用户容易理解和使用该系统。4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5、可用性。目标系统功能齐全，能够完全满足业务需求。6、安全保密性。保证系统的物理安全、数据存储和存取的安全 与保密、数据传输的安全与保密，做好使用人员的授权管理。第三节 数据流程图 供应商仓库仓库验收入库单出库单调出入库登记 客户盘点统

8、计库存管理 打印打印报表打印系统处理流程图第三章 仓库管理信息系统设计第一节 仓库管理信息系统功能描述及模块图1登录管理功能本企业仓库管理系统为开放式系统，设置登录系统对用户密码及权限进行验证，为保证数据库的安全性和信息的一致性起到一定的支撑作用。其中在用户登录时，需要经过密码身份验证才能进入，并根据不同的用户身份，分配不同的使用权限，进入到各自的操作界面。登陆流程图如下：登陆界面输入用户名和用户密码 否密码验证 是进入系统 图3-1 登陆流程图 2基本信息管理功能在这个模块中包括了系统的基本信息数据，有公司信息、职员信息、货物信息、仓库信息、供应商信息、客户信息以及库存状况。在这里我们可以查

9、看相关的基本信息，以方便管理员进行相应的操作。基本信息货物信息仓库信息供应商信息职员信息客户信息库存状况公司信息 图3-2 基本信息模块功能结构图3仓库管理功能所谓仓库管理模块，就是对仓库的操作管理，其中包括了新增入库单，新增出库单，入库单管理，出库单管理，月盘管理，以及票据查询管理和库存查询管理这些常用的功能。功能结构图如下：仓库管理新增票据票据管理查询管理新增入库单新增出库单入库单管理出库单管理月盘点单据查询库存查询 图3-3仓库管理模块功能结构图4报表统计管理功能在本模块的设计中，我们要事项报表打印和货物的统计功能，这两个功能也是本系统需要实现的重要功能，其中报表打印功能中还包括了入库单

10、的打印，出库单的打印以及月盘点的打印。功能结构图如下：报表统计报表打印货物出入统计打印入库单打印出库单打印月盘点 图3-4 报表统计功能模块结构图5系统管理功能在这个模块里，我们要实现一些系统的管理，包括查看日志，数据清除，修改密码，用户管理和用户切换功能，这个模块是对系统的总的管理。功能结构图如下：系统管理修改密码数据清除用户管理切换用户查看日志 图3-5 系统管理功能模块结构图第二节 系统开发环境简介选择微软平台作为主导，一方面考虑目前微软的飞速发展，越来越多的企业在规划内部网络时，将微软平台作为首选方案；另一方面从技术角度来讲，微软平台上的应用无论是在开发上，还是在软件的部署上都非常容易

11、，而且性能优越。操作系统：windows 98或以上版本数据库：ms access 2000开发工具与语言: visual basic 6.0英文版第三节 数据库设计数据库设计是建立数据库及其应用系统的的技术，是信息系统开发和建设中的核心技术，具体说，数据库设计是指对于一个给定的应用环境，够周最优的数据库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求（信息要求和处理要求）。规范设计法中比较著名的有新奥尔良（new orleans）方法。它将数据库分为四个阶段：需求分析（分析用户要求）、概念设计（信息分析和定义）、逻辑设计（设计实现）和物理设计（物理数据库设计）6。

12、数据库的需求分析是整个设计过程的基础，必须首先准确了解与分析用户需求（包括数据与处理）。数据库的概念设计是整个数据库设计的关键所在，在需求分析的基础上，用概念数据模型，如常用的e-r数据模型来表示数据及其相互间的联系。概念数据模型独立于具体的dbms，是面向现实世界的数据模型，是准确表达现实世界数据间关系的重要环节。数据库的逻辑设计是分析概念设计所得到的概念数据模型，并根据所采用的dbms的功能和限制，将其转变为能支持的逻辑模式，并对其进行优化，且用数据定义语言ddl或视图来表示。数据库的物理设计将根据逻辑模式、dbms及所用计算机系统平台设计数据库的内模式，即文件结构、各种存取 路径、存储空

13、间的分配、记录的存储格式等。系统数据库的概念设计将需求分析得到的用户需求抽象为信息结构即概念模型的过程就是概念结构设计。e-r数据模型是常用的概念设计表示模型。根据需求分析，对系统规划设计出的实体有：公司信息、职员信息、货物信息、仓库信息、供应商信息，客户信息，入库单，出库单，盘点单及日志等属性。具体实体属性e-r图如下：公司信息实体的e-r图如下：电话号码公司名称公司信息实体所在城市公司地址业务综述电子邮件所在国家所在省份邮政编码 图3-6 公司信息实体e-r图职员信息实体的e-r图如下：备注编号职员信息实体邮政编码姓名通讯地址手机性别头衔电话号码 图3-7 职员信息实体e-r图货物信息实体

14、的e-r图如下：货物编号货物备注货物信息实体货物名称计量单位最高限量货物规格货物类别最低限量 图3-8 货物信息实体e-r图仓库信息实体的e-r图如下：仓库编号货物信息实体备注保管员仓库地点仓库名称 图3-9 仓库信息实体e-r图 供应商信息实体的e-r图如下：编号供应商信息实体邮政编码供应商名称城市省份联系人姓名联系人职称地址 图3-10 供应商信息实体e-r图 客户信息实体的e-r图如下：编号邮开户银行注客户信息实体客户名称邮政编码注传真号码联系人通讯地址电话号码手机 图3-11 客户信息实体e-r图 入库单信息实体的e-r图如下：定单状况其它金额供应商金额存放仓库编号入库单信息实体入库数

15、量货物名称计量单位入库时间入库单价货物规格经办人货物类别 图3-12 入库单信息实体e-r图 出库单信息实体的e-r图如下：定单状况其它金额客户金额存放仓库编号出库单信息实体出库数量货物名称计量单位出库时间出库单价货物规格经办人货物类别 图3-13 出库单信息实体e-r图.系统数据库的逻辑结构设计从理论上讲，设计逻辑结构应该选者最适合与相应概念结构的数据模型，然后对支持这种数据模型的各种dbms进行比较，从中选出最合适的dbms。6在概念设计完成后应进行数据库的逻辑设计，逻辑设计首先将概念设计得出的e-r图转换成等价的关系模式，然后将其规范化。关系模型的逻辑结构是一组关系模式的集合。e-r图则

16、是由实体、实体的属性和实体之间的联系组成6。下面是根据系统的e-r图得出的几个关系模式：公司信息（公司名称，公司地址，所在国家，所在省份，所在城市，邮政编码，电话号码，电子邮件，业务综述）职员信息（编号，姓名，性别，头衔，电话号码，手机，通讯地址，邮政编码。备注）货物信息（编号，货物名称，货物规格，货物类别，最高限量，最低限量，计量单位，货物备注）仓库信息（编号，仓库名称，仓库地点，保管员，备注）供应商信息（编号，供应商名称，联系人姓名，地址，城市，邮政编码，省份，国家，电话号码，传真号码，电子邮件，开户银行，业务综述，备注）客户信息（编号，客户名称，联系人，电话号码，手机，传真号码，电子邮件

17、，开户银行，银行帐号，备注）入库单（货物编号，货物规格，入库单价，数量，计量单位，金额，其它金额，供应商，存放仓库，备注，经办人）出库单（货物编号，货物规格，出库单价，数量，计量单位，金额，其它金额，客户，存放仓库，备注，经办人）. 系统数据库主要数据表结构下面给出系统数据库中主要数据表的结构，如下：表1：公司信息表字段名数据类型字段说明索引设置编号int (4)编号主索引公司名称string公司的名称普通索引地址string公司的地址普通索引城市string公司所在城市普通索引省份string公司所在省份普通索引邮政编码float邮政编码普通索引国家string公司所在国家普通索引电话号码n

18、varchar(512)电话号码普通索引电子邮件nvarchar(512)公司电子邮件普通索引传真号码f nvarchar(512)公司传真号码普通索引开户银行char公司开户银行普通索引银行帐号float公司银行帐号普通索引业务描述string公司业务描述表2：职员信息表字段名数据类型字段说明索引设置编号int (4)职员的编号主索引姓名string职员的姓名普通索引性别char职员的性别普通索引头衔char职员的头衔普通索引电话号码date职员的电话手机date职员的手机号普通索引地址string职员的地址普通索引备注字符型职员的其他的情况普通索引表3：货物信息表字段名数据类型字段说明索引

19、设置编号int (4)货物的编号主索引货物名称string货物的名称普通索引货物类别string货物的类别普通索引货物规格string货物的规格普通索引计量单位float货物的计量单位最低限量float货物的最低限量最高限量float货物的最高限量备注float货物的其他说明的表4：仓库信息表字段名数据类型字段说明索引设置编号int (4)仓库的编号主索引仓库名称string仓库的名称普通索引仓库地点string仓库的地点普通索引保管员编号float仓库保管员的编号普通索引备注char 表5：入库表字段名数据类型字段说明索引设置编号int (4)自动编号货物编号char货物的编号主索引经办人编

20、号float经办人的编号主索引入库时间datetime入库的时间入库单价nvarchar(512)入库的单价入库数量float入库的数量仓库编号float存放仓库的编号普通索引备注char其他说明的东西表6：出库表字段名数据类型字段说明索引设置编号int (4)自动编号货物编号char货物的编号主索引经办人编号float经办人的编号主索引出库时间datetime出库的时间出库单价 nvarchar(512)出库的单价出库数量float出库的数量仓库编号float存放仓库的编号普通索引备注char其他说明的东西表7：库存状况表字段名数据类型字段说明索引设置编号int (4)自动编号货物编号flo

21、at货物的编号主索引库存编号float库存的 主索引仓库编号float所放仓库的编号主索引表8：盘点单表字段名数据类型字段说明索引设置编号int (4)盘点的编号主索引仓库编号float盘点仓库的编号普通索引盘点时间date盘点时间普通索引经办人编号float经办人编号普通索引盘点数据float盘点数据第四章 仓库管理信息系统的功能实现第一节 系统技术要点.时间范围的查询时间范围的查询和一般字符的查询并不一样。一般字符的查询使用 sql 语句 “select * from jiating where 姓名= + ss +”即可，对于时间这样的字符使用的sql必须是这样的格式“select *

22、from mang where 日期 between #2/2/2002 and 2/2/2003#”。因此使用ss定义string型变量用ss=# & text1.text & #连接中间字符使用select * from mang where 日期 between + ss + and + ss2 + 索检记录。.打印查询后的记录对于动态打印，直接使用datareport是无法实现的。所以首先建立临时数据表 用insert into query select* from query where , mycn, adopenkeyset, adlockoptimistic将要打印的记录存放其

23、中，再使用datareport时，我通过dataenvironment连接了一个临时数据表，该数据表中的数据根据查询条件的不同而变化，然后用private sub datareport_queryclose(cancel as integer, closemode as integer)unload datareport2unload dataenvironment1end sub刷新报表即可。组合查询 实现：将查询的字段也设为变量嵌入到sql中语句如下：ss2 = text2.textss3 = text3.textadodc1.recordsource = select * from ma

24、ng where 字段1= + ss4 + and 字段2= + ss5 + adodc1.refresh下面给出系统开发出来的详细界面以阐述仓库管理信息系统的具体功能。系统完整源代码见附件，首先是进入登陆界面图4-1 用户登陆界面在工程引用ado2.0。在命令按钮单击写下连接数据库user表的判断语句实现代码如下：private declare function getusername lib advapi32.dll alias getusernamea (byval lpbuffer as string, nsize as long) as longpublic ok as boolea

25、nprivate sub form_load() dim sbuffer as string dim lsize as long sbuffer = space$(255) lsize = len(sbuffer) call getusername(sbuffer, lsize) if lsize 0 then txtusername.text = left$(sbuffer, lsize) else txtusername.text = vbnullstring end if 初始化数据连接 data2.databasename = datapath 数据源为user表单 data2.rec

26、ordsource = 用户管理 end subprivate sub cmdcancel_click() ok = false me.hideend subprivate sub cmdok_click() todo: 创建测试密码是否正确 on error resume next 检查正确密码 dim success as boolean success = false dim fit as string 查找用户名 fit = 用户名= fit = fit + txtusername.text + data2.recordset.findfirst fit 找不到该用户 if data2

27、.recordset.nomatch then success = false msgbox 该用户不存在!, vbcritical exit sub else 找到该用户，但密码错误 on error goto enter dim oldpas as string oldpas = data2.recordset.fields(用户密码).value if oldpas = txtpassword.text thenenter: success = true 以下三个变量保存以备后用 username = txtusername.text 用户名 userpas = txtpassword.

28、text 密码 purview = data2.recordset.fields(用户权限).value 权限 else success = false end if end if 如果登陆失败 if success = false then msgbox 密码错误，再试一次！, vbexclamation, 登录 txtpassword.setfocus txtpassword.selstart = 0 txtpassword.sellength = len(txtpassword.text) exit sub else ok = true me.hide end if end sub目的是

29、user表没有该用户，将无法使用本程序然后进入主界面，如下图所示：第二节 主界面设计这个是仓库管理系统的主界面，用户的一切管理使用操作都在主界面下进行，在主界面菜单栏有基本信息，仓库管理，报表统计和系统管理这几个模块组成。主界面图如下：图4-2 仓库系统主界面图第三节出入库管理模块设计这个是仓库管理系统的主要功能模块，在这个界面里，我们要实现出（入）库单增加，修改，删除以及打印等管理功能。具体功能界面如下：图4-3 入库单管理图具体代码如下：private sql as stringprivate startcol as integerprivate endcol as integerpriv

30、ate col, row as integerprivate rowheight as integerprivate colwidth(14) as longprivate order(14) as booleanoption explicitprivate sub saveinit() startcol = datagrid1.selstartcol endcol = datagrid1.selendcol col = datagrid1.leftcol row = datagrid1.row rowheight = datagrid1.rowheight dim i as integer

31、for i = 0 to datagrid1.columns.count - 1 colwidth(i) = datagrid1.columns(i).width next end subprivate sub resumeinit() datagrid1.selstartcol = startcol datagrid1.selendcol = endcol datagrid1.scroll col, row datagrid1.rowheight = rowheight dim i as integer for i = 0 to datagrid1.columns.count - 1 dat

32、agrid1.columns(i).width = colwidth(i) next datagrid1.columns(0).locked = true datagrid1.columns(1).locked = true datagrid1.columns(2).locked = true datagrid1.columns(3).locked = true datagrid1.columns(4).locked = true datagrid1.columns(6).locked = true datagrid1.columns(7).locked = true datagrid1.co

33、lumns(8).locked = true datagrid1.columns(9).locked = true datagrid1.columns(10).locked = true datagrid1.columns(11).locked = true datagrid1.columns(12).locked = trueend subprivate sub initdatagrid1() datagrid1.columns(0).width = 500 datagrid1.columns(1).width = 1000 datagrid1.columns(2).width = 1000

34、 datagrid1.columns(3).width = 1000 datagrid1.columns(4).width = 1000 datagrid1.columns(5).width = 1000 datagrid1.columns(6).width = 800 datagrid1.columns(7).width = 800 datagrid1.columns(8).width = 800 datagrid1.columns(9).width = 800 datagrid1.columns(10).width = 800 datagrid1.columns(11).width = 8

35、00 datagrid1.columns(12).width = 800 datagrid1.columns(13).width = 800 datagrid1.columns(14).width = 800 datagrid1.columns(0).locked = true datagrid1.columns(1).locked = true datagrid1.columns(2).locked = true datagrid1.columns(3).locked = true datagrid1.columns(4).locked = true datagrid1.columns(6)

36、.locked = true datagrid1.columns(7).locked = true datagrid1.columns(8).locked = true datagrid1.columns(9).locked = true datagrid1.columns(10).locked = true datagrid1.columns(11).locked = true datagrid1.columns(12).locked = true datagrid1.rowheight = 270end subprivate sub adodc1_movecomplete(byval ad

37、reason as adodb.eventreasonenum, byval perror as adodb.error, adstatus as adodb.eventstatusenum, byval precordset as adodb.recordset) on error resume next adodc1.caption = adodc1.recordset.fields(货物名称).valueend subprivate sub b新增入库单_click() 新增入库单.show vbmodal saveinit adodc1.refresh resumeinit end s

38、ubprivate sub datagrid1_headclick(byval colindex as integer) on error resume next dim caption as string caption = datagrid1.columns(colindex).caption if caption = 经办人 then caption = 姓名 if caption = 金额 then exit sub if caption = 备注 then caption = 入库单.备注 if caption = 编号 then caption = 入库单.编号 if captio

39、n = 供应商 then caption = 供应商名称 if caption = 存放仓库 then caption = 仓库名称 adodc1.recordsource = sql + order by + caption order(colindex) = true - order(colindex) if order(colindex) = true then adodc1.recordsource = adodc1.recordsource + asc else adodc1.recordsource = adodc1.recordsource + desc end if savei

40、nit adodc1.refresh resumeinit end subprivate sub form_load() adodc1.connectionstring = dataconnectstring sql = adodc1.recordsource set datagrid1.datasource = adodc1 adodc1.refresh initdatagrid1 end subprivate sub 打印入库单_click() on error goto quit dim p as new 新增入库单 p.编号 = datagrid1.columns(0).value p

41、.show vbmodal unload pend subprivate sub 删除入库单_click() on error goto quit if datagrid1.columns(12).text = 已退出 then goto conif msgbox(建议用退出入库单,而不要直接删除,以免数据丢失.您确信要删除该入库单吗?, vbyesno or vbquestion) = vbno then exit subcon: on error resume next dim code, code1, code2 as long code = datagrid1.columns(0).t

42、ext fmainform.m_checkado.recordsource = select 货物编号,入库数量,仓库编号 from 入库单 where 编号= + str(code) fmainform.m_checkado.refresh dim num1, num2 as long code1 = fmainform.m_checkado.recordset.fields(货物编号).value num1 = fmainform.m_checkado.recordset.fields(入库数量).value code2 = fmainform.m_checkado.recordset.f

43、ields(仓库编号).value 如果是已退出入库单则直接删除 if datagrid1.columns(12).text = 已退出 then if msgbox(您确信要删除该入库退出单吗?, vbyesno or vbquestion) = vbno then exit sub fmainform.m_checkado.recordsource = select * from 入库单 where 编号= + str(code) fmainform.m_checkado.refresh fmainform.m_checkado.recordset.delete fmainform.m_c

44、heckado.refresh saveinit adodc1.refresh resumeinit exit sub end if fmainform.m_checkado.recordsource = select 库存数量 from 库存状况 where 货物编号= + str(code1) + and 仓库编号= + str(code2) fmainform.m_checkado.refresh 当前库存数量num2 num2 = fmainform.m_checkado.recordset.fields(库存数量).value 库存不足 if num2 0 then fmainfor

45、m.m_checkado.recordset.fields(库存数量).value = num2 - num1 fmainform.m_checkado.recordset.update else 如果库存为零清空 fmainform.m_checkado.recordset.delete end if fmainform.m_checkado.refresh 更新入库单 fmainform.m_checkado.recordsource = select * from 入库单 where 编号= + str(code) fmainform.m_checkado.refresh fmainfo

46、rm.m_checkado.recordset.delete fmainform.m_checkado.refresh saveinit adodc1.refresh resumeinit msgbox 入库单删除成功! 写入系统日志 fmainform.writelog (删除入库单) end sub图4-4 出库单管理图具体代码如下：private sql as stringprivate startcol as integerprivate endcol as integerprivate col, row as integerprivate rowheight as integerprivate colwidth(14) as longprivate order(14) as booleanoption explicitprivate sub saveinit() startcol = datagrid1.selstartcol endcol = datagrid1.selendcol col = datagrid1.leftcol row = datagrid1.row rowheight = datagrid1.rowheight d