毕业设计（论文）-VFP库房管理信息系统的设计.doc

库房管理信息系统的设计江都农行库房管理信息系统的设计 摘 要 本系统是以vfp为开发工具，结合实际工作开发而成，它包含七个模块：档案设置、物资管理、库存管理、财务管理、系统维护、辅助功能、退出系统等，其功能基本符合用户需求，能够完成入库、出库、财务核算以及相关报表的查询，并提供部分系统维护功能；由于设计时间较短，该系统还存在许多不尽如人意的地方，比如部分功能模块的编码工作还未全部完成，联机文档比较少，出错处理不够等多方面的问题，还有待完善，另外从长远角度考虑，本系统还应支持前台开单，后台管理控制，应采用客户/服务器的模式用远程视图与数据库建立连接。关键字： vfp6.0 库房管理信息系统abstract this systems exploitation tool is vfp, it have been expoldered is according as the fact work, and includes seven modules :file setting 、 material managing、 storage managing finance managing 、 system maintenance 、 assistant function 、 exit system and so on, is basic answered for its function, can complete inbase 、outbase、finance managing and inqriring some report forms, and supply part of system mainterancing function; for time is too short to design, the system exists many lack, for example part of function modules is not finished , online document is lack, dealing with fluff is not enough,and so on , on the side considered from long-range angle , this system still should support operation on the stage and controlling backgroung, should adopt client/server model and establish connectting long-distance view with database.keyword : vfp the managing system about the storeroom 目 录一、 引言-3二、 系统概述-32.1系统的软硬件配置 -32.2系统的功能简介- -3 2.2.1设置-3 2.2.2入库-3 2.2.3出库-3 2.2.4库存-4 2.2.5财务-5 2.2.6综合-52.3数据分析-5三、 系统的实现 -63.1用户界面的设计与实现-6 3.1.1 define menu|pad|bar(定义菜单项命令)-6 3.1.2 on pad(激活当前菜单项的一个弹出式菜单)- 6 3.1.3 on selection menu|pad|bar(指定选中一个对象以后需执行的操作)-63.2数据库及相关系统功能模块的设计简介-7 3.2.1建立项目- - 7 3.2.2建立数据库模型-7 3.2.3建立应用程序窗体-8 可视类库的设计-8 菜单的设计-9 报表的设计-14四、 系统的使用-14五、 系统的技术要点-14六、 体会与小结-17七、 附录-17八、 主要参考资料文献-20库房管理信息系统一、 引言伴随着企业规模的不断扩大,原始的、手工的进行管理工作已经不能适应工业企业发展的现状，更无法满足企业对管理工作的快速、准确的要求。而计算机信息管理技术的迅速发展恰恰解决了这个问题，它使计算机技术与现代的管理技术相互配合，来更加准确、高速的完成工业企业日常的仓库管理工作。使企业能够以最少的人员来完成更多的工作。 库房管理信息系统主要采用microsoft foxpro6.0 做为开发工具，应用面向对象的程序设计方法，进行开发与设计的。 它是一个典型的信息管理系统。本系统可以根据各应用单位情况，适当加以修改，以便更好应用。 库房管理信息系统是根据某企业所属仓库的实际管理情况进行编写的，主要目的是为了方便企业对仓库来往业务及库存情况进行集中的查询与管理工作。在社会主义经济高速发展的今天，如果企业对仓库的各项管理运做仍然停滞在以纸、笔为主要工具的阶段，就会因为信息量的快速增长而无法迅速、准确的完成各项管理工作，这样，必将成为企业各方面发展的一个瓶颈。而在当代这个以信息时代为主题的社会里，将信息技术应用于对现代企业的管理，不但可以提高信息的处理速度和提高信息处理的准确性，更重要的是，可以解放劳动力，将他们分配到更需要人力资源的岗位上去，从而加快其现代化、综合化的建设步伐。这样，不但为企业管理部门节省了不必要的开支，更重要的是提高了它的工作效率。 金融系统的分、支行的库房管理承担着全行重要空白凭证、一般凭证、计算机耗材等物资的进货、领用、库存统计与核销、财务核算工作。但长期以来一直是手工操作和管理，经常导致帐、实不符，同时手工结帐繁琐、报表汇总速度慢，严重加重了库房管理人员的工作负担。因此设计适合金融系统的库房管理信息系统迫在眉捷。设计库房管理信息系统的目标除了要实现上述提出的库房管理的基本要求外，应着重解决对重要空白凭证的先进先出、按份、按本灵活核算，自动生成重要空白凭证月报表；财务核算方式灵活，既可单笔结帐又可批量划帐;报表格式自定义，分类查询、打印灵活方便，界面相对统一。为了实现这些目标，我从可行性研究、需求分析开始，对库房管理信息系统进行了总体设计和详细设计，实现了部分的编码工作，较好地实现了系统目标。二、 系统概述 （一）、系统的软硬件配置由于库房管理信息系统(mis)相对独立于大集中模式的门市业务系统，应纳入机关办公自动化系统的范畴。我之所以选择基于windows98的vfp6.0数据库系统开发工具,是为了利用其提供的各种面向对象的开发工具、强大的表单设计器和报表设计器功能快速地建立应用程序窗体和系统应用原型，然后对系统进行不断修正和改进,形成用户满意的可行系统，同时visual foxpro6继承了visual foxpro3/5的所有功能，进一步强化了数据库引擎、设计界面、客户服务器结构，提供了多种可视化编程工具，支持最新的internet技术、www数据库设计及activex等。硬件环境为：cpu：pii以上，内存：32m以上，硬盘：1g以上。（二）、系统功能简介库房管理信息系统主要包括以下六个功能模块。（系统结构总图如下( 图一 )）1、 设置：设置主要包括物资属性、物资、供方、领用单位、操作员、仓库、密码权限、单据初始化、系统初始化、数据整理、数据备份、数据恢复等功能。物资属性的设置主要区分物资是重要空白凭证、一般凭证还是计算机耗材，便于分类统计、核算。物资中单位数量的设置是为了解决一本重要空白凭证价格无法划为按份计价的矛盾。仓库的设置是为了分仓库存放物资。密码权限的设置是为不同的操作员设置不同级别的操作权限。数据整理是物理性地删除数据表中己作删除标志的记录并且重建索引。2、 入库：入库主要包括入库单的录入、修改以及相应的查询、打印功能。单位是本的输入本数，是份的输入份数。入库单中物资属性是重要空白凭证的还要输入起始号码，同时根据单位数量自动生成终止号码。同一重要空白凭证不同号码段，按入库时间顺序排列。其它非重要空白凭证物资根据物资属性无需输入号码段。在入库单的下方按入库物资的属性的分类产生各物资属性的汇总金额，便于分类核算的需要。在操作功能排列中提供存盘新建、查找、删除行、复制单、作废单、打印、退出等命令按钮。3、 出库：出库主要包括出库单的录入、修改以及相应的查询打印功能。单位是本的输入本数，是份的输入份数。出库单中物资属性是重要空白凭证的按入库时间由小到大的顺序自动跳出起始号码，同时根据单位数量自动生成终止号码。若出库数量大于该段号码的自动复制一行跳出下段起始号码及需出库的数量；若出库数量大于该品种物资合计库存数量时则自动提示最大可出库数量并以最大出库数量替换操作人员输入的出库数量。其它非重要空白凭证物资出库数量大于库存数量时自动提示最大可出库数量，同时根据物资属性是一般物资的则无需输入号码字段。在出库单的下方按出库物资的属性的分类产生各物资属性的汇总金额，便于领用单位分类核算的需要。在操作功能排列中提供存盘新建、查找、删除行、复制单、作废单、打印、退出等共性命令按钮4、 库存：库存主要包括库存的即时查询以及其它查询，物资的转仓、组装、折分，库存的盘点和重要空白凭证的作废、销毁。在库存的即时查询中按“物资仓库代码”查库存明细，对于重要空白凭证的则按“入库时间”分段显示各段数量。在操作功能排列中有统计库存金额、查找、打印、退出等命令按钮。在库存的盘点中有帐面数量、盘点数量、盈亏数量、盘点单价、盘点金额、盈亏金额，操作员只需输入盘点数量和盘点单价，其它根据平衡关系自动生成。盈亏数量盘点数量帐面数量，盘点金额盘点数量盘点单价，盈亏金额盘点金额帐面金额（帐面金额帐面数量进货单价）。对于物资属性为重要空白凭证的，如果出现盘点数量不等于帐面数量则出现“重要凭证帐实不符不能继续，请查找原因，并请主管授权?”提示框。功能菜单主要有调出库存、更新库存、打印盈亏等菜单。重要空白凭证的作废、销毁需主管授权进入，输入作废重要空白凭证物资代码，起始号码与数量。打印作废、销毁清单后选择临时存盘，换人复核输入复核作废、销毁清单完全正确后才能真正存盘，更新库存。系统信息设置设置系统初始化系统数据整理数据备份、恢复入库入库单录入修改入库单分类查询出库单录入修改出库库房管理信息系统出库单分类查询转仓、折分、组装库存即时库存查询、打印库存盘点、作废销毁财务财务应付财务应收综合月终报表帮助等其它功能说明报表格式修改 ( 图一 ) 5、 财务：财务主要包括财务应收、财务应付、月终报表以及各种明细帐、汇总帐等。财务应付主要包括应付款查询（对应入库单）、查欠付供方汇总、付款单录入（对应入库单）财务应收中包括应收款查询（对应出库单）、查欠收客户汇总、单笔结帐（对应出库单）和批量划帐（对应欠收单位）。月终重要空白凭证报表主要是统计本月各种重要空白凭证的入库数量、出库数量、作废销毁数量以及库存结余。6、 综合：综合包括其他报表的打印以及其它报表格式的修改和其它一些功能。如：系统的帮助说明、版本信息等。（三）、数据分析当库房管理信息系统中的某种物资库存数量少于库存数量临界值时就应该定货,入库操作使库存数量增加，同时产生财务应付帐。仓库管理员根据领用单位的的物资领用申请单进行出库，出库操作使相应物资的库存数量减少，同时产生财务应收款。因此入库、出库、财务三个子系统功能的实现均是围绕库存物资进行的。功能级系统流程图如下( 图二 )。 d3 付款信息2.1登记财务应付付款单 应付日记帐付款单供货单位 入库单 1.4产生定货清单1.2更新库存清单1.1接收入库操作作采购人员2.2付款单录入1.3处理定货仓库管理员 送货单 入库单 定货 清单领 用3.2登记财务应收3.1接收出库操作 申 库存清单 定货信息 定货信息请 出库单 单 d1 库存清单 d2 定货信息 领用单位3.3收款单录入 应收日记帐 出库单 收款单 收款单 d4 收款信息系统功能流程图（ 图二 ）三、 系统的实现（一）、用户界面的设计与实现库房管理信息系统用户界面的设计力求相对统一，操作简单。主菜单采用的流行的主菜单嵌套下拉式菜单形式，并且提供热键快击功能。会用键盘鼠标即可操作。下面简单介绍菜单程序使用的菜单命令的语法结构。（1） definemenu|pad|bar(定义菜单项命令)definepad菜单项名1ofprompt skip for color scheme key 热键标签,示例：definepadjxcmenu1ofmsysmenu prompt 设置(s) color scheme 3 key alt+s , 示例：define bar 1 of 设置s prompt a. 物资属性 skip for .not. super key alt+a , alt+a（2） on pad (激活当前菜单项的一个弹出式菜单)on pad 菜单项名1of 菜单名activatepopup示例：on pad jxcmenu1 of _msysmenu activate popup 设置s（3）on selection menu|popup|pad|bar (指定选中一个对象以后需要执行的操作) on selection bar 1 of 设置s do dm_sx（物资属性定义程序）根据库房管理信息系统主要功能模块设计系统主菜单如下( 图三 )。 （ 图三 ）（二）、数据库及相关系统功能模块的设计简介vfp6.0是一种典型的关系数据库管理系统，利用它可以对一系列数据项目进行建立和维护。同时vfp6.0利用数据库容器（dbc）文件来控制数据库表格（dbf）文件的各种关系。下面我们利用项目管理器可视化地创建库房管理系统的数据库容器njxc1.dbc。第一步：建立项目1、 启动vfp6.0,然后单击“文件”菜单，选择“新建”，选中“项目”单击“新项目”按钮。2、 项目命名为kfgl,并保存在d:kfgl目录下，单击“保存”按钮，这样就建立了一个“项目管理器”窗口，以后所有的操作都围绕kfgl这个项目管理器进行。第二步：建立数据库模型1、 在项目管理器中，选择“数据”选项卡，单击“新建”，弹出“创建”对话框，在对话框的“数据库名”栏中，填入数据库名njxc1,单击“保存”按钮。2、 在“数据库设计器”窗口中右击鼠标，在弹出的快捷菜单中选择“新表”进一步选择“新表”按钮，在“输入表名”处填写表名如：dm_wz。单击“保存”按钮。3、 进入到“表设计器”窗口，输入字段名、类型、宽度、小数位等信息如下( 图四 ) （ 图四 ）各字段名的定义如下表格：字段名类型宽度小数位数索引nulldm字符型15mc字符型35jldw字符型8sx字符型2sxmc字符型16up数值型80dn数值型80dj数值型122dwsl数值型50yxrq日期型8bz备注型4dj_gf字符型40dj_rq日期型8 4、 在“显示”项的“标题”一栏内分别填写上对应字段的中文含义如下表格：dm物资代码dj入库单价mc物资名称dwsl单位数量jldw单位yxrq有效日期sx物资属性bz备注sxmc属性名称dj_gf供方名称up最高库存dj_rq供方日期dn最底库存5、 在“索引”选项卡，在mc栏选择升序，确定后可不输入数据退出。每三步：建立应用程序窗体 这里我们利用vfp6.0强大的表单设计器功能为应用程序可视化地建立和修改各种表单和表单集。利用vfp6.0的表单控件（form controls）将各种所需的控件（如：标签控件、正文框控件、编辑框控件、命令按钮控件、组合框控件、网格控件等等）放置到表单设计器的布局（layout）里面，再对相应控件的属性进行编缉，建立相应事件和方法的代码即可设计出交互式的应用程序窗体。在vfp6.0面向对象的程序设计中我们可以设计类（class）以便在不同的应用程序窗体中引用它们，并且把它们加到可视类库里。1、 可视类库的设计语法结构：建立vcx可视类库createclasslib类库名在vcx可视类库里增加一个类addclass类名to类库名例如：我们可以把查找、打印、添加、删除、复制、退出等命令按钮定义为一个类gridbtns,存储于wizstyle类库中，（如下图五）类gridbtns的对象名分别为cmdfind、cmdprint、cmdadd、cmddelete、cmdcopy、cmdexit。在属性中修改caption分别为查找（f）、打印（r）、添加（a、删除（d）、复制（c）、退出（x）。然后还要建立相应事件的代码：如cmddelete的过程click event的代码（code）如下：类的示例图五if messagebox(是否删除此记录？,36,) = 6 delete if this.parent.updaterows() &确定对行的改动 if .not. eof() skip 1 endif if eof() and .not. bof() skip -1 endif endif endif thisform.refresh()刷新表单 if thisform.showwindow = 2 activate window (thisform.name) endif这样我们就可在表单设计器中根据需要引用可视类库中的定义的类了。2、 表单的设计：这里我们以入库单(ins1.scx)为例:(1)、在项目管理器中，选择“文档”“表单”单击“新建”按钮，选择“新建表单”弹出“表单设计器”窗口。（2）、单击菜单“显示”“数据环境”在弹出的“添加表或视图”对话框中选择njxc1数据库，in_stru和ins1表，单击“添加”按钮，将表添加到数据环境中。然后关闭对话框。in_stru（入库临时表）和ins1（入库单表）的结构一样，字段名和中文含义如下表格：no_序号wzdm物资代码sele_tag标志sx属性代码in_no进货单号sxmc属性名称in_date进货日期dwsl单位数量gfdm供方代码qshm起始号码fp_no发票号码zzhm终止号码czdm操作代码in_sl进货数量be_pay已付金额in_danj进货单价notpay未付金额in_jine进货金额ckdm仓库代码bz备注fkdm付款方式（3）、利用标签控件、正文框控件、命令按钮控件、列表框控件、网格控件等控件画出下（图六）的表单界面。并在属性框中修改相应的caption 、controlsource、readonly为相应的值。如在标题栏的caption中输入“入库单”并在前加空格把它居中。readonly选择“t”的，其相应的backcolor的值设为192，192，192（灰色）。（ 图六 ）如图：在表单对象ins1的过程init event中定义thisform.command5.enabled = .f.复制单（k）初始隐成灰按钮thisform.command8.enabled = .f.作废单（c）初始隐成灰按钮在load event过程中我们定义了内存变量的初值和相应的工作区private i m_save = .f. m_in_no = 新 单 m_beginrec = 1 &开始记录为1 m_endrec = 80 &最大记录为80，即一次入库品种不超过80 if used(dm_gf) &dm_gf为供方表 select dm_gf &选定工作区 else select 0 use shared dm_gf以共享方式打开 endif set order to dm if used(dm_ck)&dm_ck为仓库表 select dm_ck else select 0 use shared dm_ck endif set order to dm if used(dm_yw)dm_yw为业务员表 select dm_yw else select 0 use shared dm_yw endif set order to dm if used(dm_wz)dm_wz为物资表 select dm_wz else select 0 use shared dm_wz endif set order to dmif used(dm_sx)dm_sx为属性表 select dm_sx else select 0 use shared dm_sx endif set order to dm if used(cun)&cun为库存表 select cun else select 0 use shared cun endif set order to wzck if used(in_stru)in_stru为入库临时表 select in_stru else select 0 use exclusive in_stru以独占方式打开 endif if .not. file(in_stru.cdx) index on wzdm tag wzdm endif set order to thisform.clearbuffer清除缓存 go m_beginrec set relation additive to gfdm into dm_gf&保留工作区关系的同 set relation additive to ckdm into dm_ck&时与相应表建立关系 set relation additive to sx into dm_sxset relation additive to ywman into dm_yw set relation additive to wzdm into dm_wz set relation additive to wzdm + ckdm into cun在unload event过程中定义select in_stru set filter to对当前活动文件内需要处理的文件记录进行选择 set relation off into dm_gf关闭工作区与相应文件的联系 set relation off into dm_ck set relation off into dm_sx set relation off into dm_yw set relation off into dm_wz set relation off into cun use select dm_gf use select dm_ck use select dm_sx use select dm_yw use select dm_wz use select cun use exitsy_ = .t. return同时在clearbuffer过程中定义了一些初始值oldrec = recno()记录条数 scatter blank memvar 将空行传输至内存变量 m.czdm = m_czdm m.in_date = m_date m.fkdm = 转帐 for i = m_beginrec to m_endrec go i m.no_ = i - m_beginrec + 1序号数递增 if rlock()锁定表格头，防止其它用户在表格内增加新记录 gather memvar 将内存变量的内容传送到当前表格的记录的字段里面 unlock 打开锁 endif endfor m_jine = 0 m_in_no = 新 单 m_yfjine = 0 go oldrec thisform.refreshtext1的 controlsource值为in_stru.czdm、txtin_date的controlsource为in_stru.in_date、并且在valid event选择用户自定义过程如下：m_oldrec = recno() m_in_date = in_datem_in_date为全局内存日期变量for i = m_beginrec to m_endrecm_beginrec和m_endrec为全局 go i内存记录范围变量 if rlock() replace in_date with m_in_date unlock endif endfor go m_oldrec thisform.refresh对于其它的的对象的过程不再一一介绍，这里给出入库单的数据流程图如下( 图七 )：入库初始信息选择选择或输入入库一个物资号码输入入库数量 是否重要空白凭证 入库金额是否相同 否 是是库存累加保留较小日期输入起始号码，自动产生终止号码 否 是 与库存是否重号 否把该入库记录按入库时间添加到表中 是 是否继续录入存盘、打印等相关处理（ 图七 ）这样为相应的过程添加程序代码的工作就占据着了编码的大部分工作。3、 报表的设计：利用vfp6.0强大的报表设计器功能我们能方便、灵活地设计出我们所需的各种报表。这里我们以入库单为例说明报表的设计过程。（1）、点击“文件”下的“新建”菜单，在弹出的菜单中选择“报表”，单击“新建报表按钮”就打开了报表设计器窗口。（2）、点击“显示”菜单下的“报表控件工具栏”弹出控件按钮，主要有：选定对象、标签、域控件、线条等。点击数据环境，点击右键“添加”把所需的表如dm_gf(供方表)、in_stru(入库临时表)添加到数据环境中。（3）、根据所需的表格要求分别在不同的带区（band）添加各种标签和域控件，在标签中输入各种名称，在数据环境中的表中选择所需的各种域控件，在大写表达式处还需调用相应的表达式过程。过程见第12页的系统实现技术要点。入库单示例如下( 图八 )（ 图八 ）通过上面几个方面的介绍，我们已经设计出了入库单这个功能模块了。出库单功能模块的设计与入库单相似。同样我们可以根据已有的表，利用表单设计器或查询设计器设计出灵活多样的查询功能。库存的盘点仅仅是对库存中非重要空白凭证的盘点。对重要空白凭证只能进行作废和销毁。在作废和销毁表单设计中应该设计授权和换人复核菜单，加强重要空白凭证的管理。月终处理是把本月的数据拷入历史库，便于生成重要空白月报表所需的本月和上月的衔接数据。同时生成各领用单位批量应收特种转帐传票。同时修改财务应收、已收的数据。这些功能模块的实现就不一一详细介绍了。四、 系统的使用。经过近二个月的的设计，我们实现了系统的部分功能，让用户提出再修改、完善意见时，用户对操作界面的简洁、易使用表示满意。用数据进行测试时，亦发现重要空白凭证按先进先出、入库，出库自动跳出号码与数量存在问题。这说明局部的编码还存在一定的问题。五、 系统实现的技术要点。库房管理系统涉及重要空白凭证和一般凭证、计算机耗材等其它物资的集中管理，同时要实现自动销号、自动统计各种历史数据、生成重要空白凭证月报表。因此工作量很大，程序代码编写的工作量和难度都很大。在一个njxc1数据库中包括28个表，文件有200多个，同时在系统实现中也采用了一些方法和算法。例如：小写金额转化为大写金额的实现方法见下面的numchg、appedigt、appenum三个过程：procedure numchg &过程函数为numchg parameter money tmp_money = money if tmp_money = 0 digit = int(monbuf / 10 * pow)mounbuf除以10的pow次方如digit4 string = string + appenum(digit) + appedigt(pow)4肆3仟 monbuf = monbuf - digit * 10 * pow余值为320.50 pow = pow 1pow值减1即为2 enddo 循环 if round(monbuf,2) 0monbuf0.50对小数部分作进位处理 digit = int(round(monbuf * 10,1) string = string + appenum(digit) + 角 monbuf = monbuf * 10 - digit if round(monbuf,2) 0 digit = round(monbuf * 10,0) string = string + appenum(digit) + 分 endif endif if tmp_money 0 string = (负) + string endif return stringendproc*-procedure appedigt parameter numbuf do case case numbuf = 0 return 元 case numbuf = 1 return 拾 case numbuf = 2 return 佰 case numbuf = 3 return 仟 case numbuf = 4 return 万 case numbuf = 5 return 拾 case numbuf = 6 return 佰 case numbuf = 7 return 仟 case numbuf = 8 return 亿 case numbuf = 9 return 拾 case numbuf = 10 return 佰 case numbuf = 11 return 仟 case numbuf = 12 return 万 endcase endproc*-procedure appenum parameter numbuf do case case numbuf = 0 return 零 case numbuf = 1 return 壹 case numbuf = 2 return 贰 case numbuf = 3 return 叁 case numbuf = 4 return 肆 case numbuf = 5 return 伍 case numbuf = 6 return 陆 case numbuf = 7 return 柒 case numbuf = 8 return 捌 case numbuf = 9 return 玖 endcase endproc六、 体会和小结体会：经过二个多月的设计和开发，金融库房管理系统的数据库设计、用户界面和主要功能模块的设计基本完成。其功能基本符合用户需求，能够完成入库、出库和财务核算和相关报表的查询、并提供部分系统维护功能,使库房管理人员能够方便地进行数据备份和恢复、库存的盘点和核销，对于数据的一致性的问题也通过程序进行了有效的解决。存在的问题:但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如部分功能模块的编码工作还未全部完成，联机文档比较少，出错处理不够等多方面问题。这些都有待进一步完善。 设想：为了满足今后库房管理的需要，本系统应支持前台开单、后台管理控制。应采用客户机/服务器的模式，用远程视图与数据库建立连接。结束语:在本次毕业设计中，我从江都电大陈秀祥老师等指导老师身上学到了