计算机信息管理系统库存管理系统毕业论文

论文提纲论文题目库存管理系统摘要4第一章 绪论41.1 管理信息系统的概述41.2 库存管理系统5第二章 数据库理论基础6 2.1 数据库系统设计6第三章 应用系统开发工具73.1 Visual Basic简介及实现原理7第四章 库存管理系统设计分析7 4.1 需求分析7 4.2 模块划分8 4.3 数据库设计11第五章 应用程序设计135.1 程序结构135.2 程序源代码13第六章 全文总结27第七章 致谢27参考文献27主要参考书目或资料来源1 汉清计算机工作室, Visual Basic 6.0 数据库开发实例 ,机械工业出版社 2000.32 何旭洪,Visual Basic 数据库开发实例导航,人民邮电出版社 20023 孙健鹏,VB数据库开发实例解析,机械工业出版社4 王汉新,Visual Basic程序设计,科学出版社 20025 陈惟斌,Visual Basic 6.0开发指南,清华大学出版社 2001.16 张春葆,VB数据库系统设计与开发,清华大学出版社7 Buczek,Access 2002数据库开发即时应用,人民邮电出版社 20028 Visual Basic 6 Harry M. Deitel, Paul J. Deitel, Tem R. Nieto 电子工业出版社9 李晓黎,张巍,Visual Basic + SQL Server 数据库应用系统开发与实例,人民邮电出版社 2003.810潇湘工作室 Access2002中文版从入门到精通 人民邮电出版社 2001.10摘要：随着现代工业的发展，计算机信息管理系统越来越受到企业重视。本文主要分析了库存管理系统的一些基本功能和组成情况，包括系统的需求分析、系统结构，功能模块划分以及数据库模式分析等，重点对应用程序的实际开发实现作了介绍。达到了数据的一致性和安全性，且应用程序功能完备，符合了库存管理系统作为典型的信息管理系统(MIS)的要求。同时简单介绍了Visual Basic编程环境和Access数据库管理系统的功能特点，库存管理系统是企业物流管理中不可或缺的一部分。关键词：库存管理，数据库，信息管理，VB第一章 绪论库存管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的，因此，库存管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理库存，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学不断发展，其强大的功能已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对产品库存信息进行管理，具有着人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品库存的管理效率，也是企业库存管理科学化、正规化，与世界接轨的重要条件。因此，开发一个库存管理系统是很有必要的，具有其特有的技术意义和管理意义。1.1管理信息系统的概述管理信息系统（简称MIS）是在管理科学、系统科学、计算机科学等的基础上发展起来的综合性边缘科学。在21世纪信息高速发展的时代中，管理信息系统具有很重要的作用，它的预测和辅助决策的功能，即利用现代管理的决策和支持。管理信息系统是一个由人、机（计算机）组成的能进行管理信息的收集、传递、存储、加工、维护和使用的系统。它能观测企业或组织的各种运动情况，利用过去的数据预测未来；从全局出发辅助决策；利用信息控制企业或组织行为，帮助其实现长远的规划目标。简言之，管理信息系统是一个以计算机为工具，具有数据处理、预测、控制和辅助决策功能的信息系统。管理信息系统是一个人机系统，同时它又是一个一体化集成系统。管理信息系统是信息系统的一个子系统，它以计算机技术、通讯技术和软件技术为技术基础，同时将现代管理理论、现代管理方法及各级管理人员融为一体，最终为某个组织整体的管理与决策服务，是由人和计算机组成的能进行管理信息的收集、传递、存储、加工、维护和使用的系统。管理信息系统的基本结构可以概括为四大部件，即信息源、信息处理器、信息用户和信息管理者。因此，一个成功的管理信息系统应该具有可靠的硬件、实用的软件、强有力的现代化管理水平。具体讲，管理信息系统的三大支柱是：计算机网络、数据库和现代化的管理，这三打支柱称为管理信息系统的扩展部件。1.2库存管理系统当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息处理系统的环境。计算机最大的好处在于利用它能够进行信息管理，使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。仓库作为一总货品资源的集散地，货品的种类繁多，包含很多的信息数据的管理。据调查得知，以前仓库进行信息管理的方式主要是基于文本、表格等纸介质的手工处理，对于货品的出入库情况的统计和核实等往往采用对账本的人工检查，对管理者的管理权限等不受约束，任何人都可查看，这样容易引起资料外泄。另外，数据信息处理工作量大，容易出错，由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统、规范的信息管理手段。而且，一般的存储情况是记录在账本上的，仓库的工作人员和管理员也只是当时记得比较清楚，时间一长，如果再要进行查询，就得在众多的资料中翻阅查找了，这样造成费时、费力，如要对很长时间以前的货品进行更改就更加困难了。因此，很有必要建立一个库存管理系统，使货品管理工作规范化，系统化，程序化。提高信息处理的速度和准确性。现在国内外对此类系统的开发与研究也是很有实用性的，基本上能满足各企业的自身特点，来进行库存方面的管理，同时，改类系统又都在不断地深入与发展，来适用更多的企业，一般都能运用于各个企业的库存管理，但是都没有针对大众的广泛应用，只能运用某个企业或单位，这一点还有待于今后的进一步开发与实践。1、技术应用于库存管理是实现仓库管理自动化的有效途径库存品种多，数量大。因此，要实现收发作业的快速、准确、高效，仓储管理自动化势在必行。而实现管理自动化的“瓶颈”则是产品信息的采集、输入。传统手工作业方式，在信息采集量加大的情形下，半因信息不能及时的反馈，给收发作业造成一定的困难。利用条码技术，在入库及其包装上加贴条码，配之以仓库信息管理系统进行作业，不仅可提高效率，降低作业强度，也将大大提高产品收发作业准确率（如键盘输入仅为百分之一），进而实现仓库管理的全面自动化。2、技术应用于库存管理对提高仓库作业效率有重要作用将条码技术和仓库管理信息系统结合起来，用于产品收、发、保管等全过程控制管理，不仅可改变信息采集的传统手工作业方式，降低作业强度，还可避免由此造成的各种差错，提高作业效率和科学管库水平。比较发现，信息输入时，条码输入速度是键盘输入的5倍。入库时，通常保管员根据产品上的条码所反映出的册序号、出厂期、生产厂家、单价、封存（保管）期等信息，进行实物点验，同时将条码信息录入到管理信息系统；出库时，保管员根据航材发付单内容，持条码扫描装置进行器材拣选，并完成信息录入；清库盘点时，保管员可持扫描装备进行数质量等内容核对，并半采集的信息录入管理系统中进行自动盘点，生成清库对帐单等，完成清库盘点作业。3、技术应用于库存管理是完善产品保障信息网络的重要手段储存产品信息是产品保障信息网络的重要组成部分，是做好产品供应保障工作的基础。产品保障信息网是实现物资储运全过程可视化的前提。目前，有些仓库内部局域网已经建成并投入使用，并与业务主管部门实现了信息沟通，库存保障信息网在日常航材保障工作中实现了信息沟通，库存保障信息网在日常产品保障工作中的作用日趋明显。条码技术在储存管理中的应用，可进一步完善系统各仓库之间及各仓库与作业主管部门之间的信息共享和交换功能，最终达到对产品的全程跟踪管理，充分发挥条码技术在整个流通中的作用。同时，在软件系统的研发过程中，将会融入一种EPR的企业管理思想。大量的研究与实践已经充分表明，ERP作为一种现代企业管理的思想和方法，将其大力地推广应用就是有效的促使我国企业管理朝着更加科学化、合理化和规范化方向发展的一种具体方法和途径。另外，库存管理的信息化和可视化，每个企业将会拥有两个仓库，一个是装满货物的仓库，还有一个就是管理系统里的数据库，对上万种货物分别编码，使其成为计算机可识别的语言，形象地说，货架上的号码就是货物的地址，从而避免了货物的分拣和提取时的翻箱倒柜式的查找。随着我国经济的飞速发展，各种类型规模的公司企业迅速崛起，许多从事生产和经营管理的企业都有自己生产和销售的产品，而这些产品都需要储存在仓库中，对于每个企业来说，随着企业规模的不断扩大，产品数量的急剧增加，所生产产品的种类也会不断地更新与发展，有关产品的各种信息量也会成倍增长。面对庞大的产品信息量，如何有效地管理库存产品，对这些企业来说是非常重要的，库存管理的重点是销售信息能否及时反馈，从而确保企业运行效益。而库存管理又涉及入库、出库的产品、经办人员及客户等方方面面的因素，如何管理这些信息数据，是一项复杂的系统工程，充分考验着仓库管理员的工作能力，工作量的繁重是可想而知的，所以这就需要由库存管理系统来提高库存管理工作的效率，这对信息的规范管理、科学统计和快速查询，减少管理方面的工作量，同时对于调动广大员工的工作积极性，提高企业的生产效率，都具有十分重要的现实意义。第二章数据库理论基础2.1数据库系统设计一个成功的信息管理系统，是建立在许多条件之上的，而数据库是其中一个非常重要的条件和关键技术。信息管理系统所涉及的数据库设计分五个步骤：数据库需求分析、概念设计、逻辑设计、物理设计与加载测试。（1）数据库需求分析的任务是将业务管理单证流化为数据流，划分主题之间的边界，绘制出DFD图，并完成相应的数据字典。（2）概念设计的任务是从DFD出发，绘制出本主题的实体关系图，并列出各个实体与关系的纲要表。（3）逻辑设计的任务是从E-R图与对应的纲要表出发，确定各个实体及关系的表名属性。（4）物理设计的任务是确定所有属性的类型、宽度与取值范围，设计出基本表的主键，将所有的表名与字段名英文化（现在很多软件能支持中文字段，如Access 2000），实现物理建库，完成数据库物理设计字典。（5）加载测试工作贯穿于程序测试工作的全过程，整个录入、修改、查询、处理工作均可视为对数据库的加载测试工作。数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存档数据和数据需求，分析各个数据之间的关系，按照DBMS提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型。数据库设计的步骤主要是：（1）数据库结构定义：目前的数据库管理系统（DBMS）有的是支持联机事务处理CLTP（负责对事务数据进行采集、处理、存储）的操作型DBMS，有的可支持数据仓库、有联机分析处理CLAP（指为支持决策的制定对数据的一种加工操作）功能的大型DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的DBMS，进行数据库结构定义。（2）数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。（3）存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。（4）数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安全。（5）数据字典设计：用数据字典描述数据库的设计，便于维护和修改。第三章应用系统开发工具3.1 Visual Basic简介及实现原理Visual Basic（简称VB）是美国微软公司（Microsoft）于1990年推出的一套完整的Windows系统软件开发工具，可用于开发Windows环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。至今以升级到了6.0版。VB的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。用户通过在屏幕上生成窗体，在窗体中绘制所需要的控件和按钮，设计菜单和对话框，VB会自动生成相应的代码。VB的另一重要特点是事件驱动。当窗体或控件上发生一个事件时，VB立即把控制权交给程序员。程序员不必担心如何判断事件是否已发生，只需要编写一段代码告诉计算机在事件发生以后应该做什么工作就可以了。这样，设计一个Windows应用程序简化为用鼠标在屏幕上点击、拖拽并添加少量的代码就可以完成了，大大降低了对程序设计的要求，提高了应用程序的开发效率。利用VB的可视性特点，可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件。如要修改窗体或控件的某项属性，只需在相应的窗体或控件的属性窗口修改相应的参数便可达到需要的设计效果。利用VB的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少量的代码，便可达到告诉当在相应的窗体或控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。例如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相应的代码，来达到当在几个按钮上出现单击（Click）事件后，相应按钮实现添加、删除、返回的功能的。第四章 库存管理系统设计分析4.1需求分析本套应用程序名称为“库存管理系统”，主要用于仓库货品信息的管理，系统包括仓库管理、入库、出库、一些统计查询和报表等几部分组成。库存管理系统需满足仓库管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登陆本模块进行更多的考虑，设计不同用户的操作权限和登陆方法。对于一个仓库来说，最大的功能就是存储货品，所以仓库管理就是对货品信息，仓库信息，短线货品及超储货品的管理，用户可以根据实际情况对各种货品信息进行分类管理，包括添加，删除更新数据库等。当然，仓库中货品入库也是常有的事，入库管理操作就是对于货品入库情况的管理，用户可以方便地输入一些货品的信息。有了货品的入库，自然也就有货品的出库，这部分提供的功能与入库操作流程差不多，有所区别的只是对一些出库货品的管理，也很方便数据的输入。仓库货品的信息量大，数据安全性和保密性要求高。本系统实现对货品信息的管理和总体的统计等，仓库信息，供货单位和经办人员信息的查看及维护。仓库管理人员可以浏览、查询、添加、删除等货品的基本信息以及统计等，并可以对一些基本的信息生成报表形式，并打印输出的功能。报表是一个数据库中最重要的功能之一，有了报表才能清楚地知道货品的出入库情况，在数据报表功能中包括出库报表，库存报表及经办人员报表等一些基本信息的打印，方便简洁。本系统基本涵盖了库存管理的主要需求，具有完善细致的功能、友好的用户界面、强大的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。 系统特色： 1.设置系统用户登陆功能，即时对系统数据进行安全设置与保护。 2.友好的用户界面，业务操作简单，进入系统即能使用。3.成熟先进的技术和系统构架，采用先进的数据库访问方式，数据更安全，性能更稳定。4.强大的数据处理能力和开放的数据接口，选用具有大型数据库安全机制的数据库系统，提供各种级别的数据保护和权限控制方式，确保数据的安全可靠。5.系统每种操作都可以通过菜单来进行。操作快捷、方便。易懂易会。系统集输入、维护、查询、统计和各种处理为一体，信息导入导出方便共享。库存管理系统仓库管理入库管理出库管理盘存管理综合管理附项分类历史数据管理打印、查询系统货品信息管理货品库存管理短线货品管理超储货品管理出库登记管理货品出库年度统计收货单位年度收货金额统计盘存录入货品出入库期间汇总表仓库信息管理供货单位管理收货单位管理经办人员管理4.2模块划分基本模块与功能：1.系统包括用户管理，密码管理，关闭系统，以及数据的备份与恢复，可以根据需要对整个数据库进行备份，以确保数据的安全性。帮助：本系统的帮助信息，包括应用程序的版本信息；2.库存管理货品信息管理：对仓库里的货品进行登记；货品库存管理：管理仓库的库存情况；短线货品管理：对仓库里短线的货品进行登记，以便及时采购补货；超储货品管理：对仓库里超储的货品进行登记，控制库存量，减少进货；3.入库管理入库登记管理：能对货品的入库登记，删除，更改等；入库期间统计：货品入库期间年度的统计；供货单位期间供货金额统计：对货品供应的金额进行统计；4.出库管理对货品出库期间的年度统计，出库登记，及收获单位金额统计等；5.盘存管理对盘存货品信息的盘存录入；6.综合管理可根据同一货品的出入库情况，对库存情况的汇总；7.附项管理对供货单位情况，经办人员，收货单位情况，仓库信息进行登记管理，可进行添加，删除等操作；8.历史数据管理对历史库存，历史出库，历史出库情况进行管理；9.打印与查询可根据输入的条件，对货品的入库信息，库存信息等进行简单查询和组合查询。据流程图：登陆库存管理系统验证用户信息系统主窗体仓库管理入库管理出库管理盘存管理综合管理附项分类历史数据管理打印、查询系统货品入库单经办人员报表货品出库单数据备份备份输出库存汇总图41 库存管理系统数据流程图货品登记基本信息录入货品基本信息管理货品调配汇总出库货品信息管理入库货品信息管理货品其他信息管理图42 货品信息管理数据流程图货品信息管理数据流程图： 4.3数据库设计本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述如下：货品信息表字段名数据类型字段长度是否为空货品编码文本5货品名称文本10类别文本8型号文本4单位文本2仓库编码文本5存放仓库文本12入库计划单价货币出库计划单价货币原始库存数字长整型默认货位文本5警戒底线库存数字长整型警戒高线库存数字长整型表1货品信息表入库登记表字段名数据类型字段长度是否为空入库日期日期/时间入库单号文本10货物编码文本5数量数字长整型进货价货币总额货币已付货款货币供货单位编码文本5供货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表2入库登记表出库登记表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币已收获款货币收货单位编码文本5收货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表3货品出库表仓库信息表字段名数据类型字段长度是否为空仓库编号文本5仓库名称文本12存货种类文本2存货价值货币表4仓库信息表供货单位信息表（收货单位表）字段名数据类型字段长度是否为空单位编号文本5单位名称文本50单位地址文本50电话文本15联系人文本8表5供货单位信息表经办人员表字段名数据类型字段长度是否为空编号文本5姓名文本8家庭住址文本50办公电话文本15家庭电话文本15表6经办人员表用户表字段名数据类型字段长度是否为空UserID文本10userPWD文本6表7用户表第五章应用程序设计5.1程序结构本应用程序由33个窗体组成，主要的分别是：主窗体，欢迎界面，登陆窗体，入库窗体，出库窗体，库存汇总，打印及查询等窗体组成。通过运行程序首先进入欢迎界面和登陆窗体，通过输入密码，验证身份后进入主窗体，在主窗体上有10个菜单项，分别对应各自的功能模块窗体，包括系统，库存管理，入库管理，出库管理，盘存管理，综合管理，附项管理，历史数据管理，打印和查询。需要哪个功能的时候就点哪个菜单，相对应的窗体会自动弹出。5.2 程序源代码程序实现的部分代码如下：主窗体的程序代码图51 主窗体界面Private Sub a1_Click()Form1.ShowEnd SubPrivate Sub a2_Click()Dim fAdd As New frmAddUser fAdd.Show fAdd.ZOrder 0End SubPrivate Sub a3_Click()Dim fChangePWD As New frmChangePWD fChangePWD.ShowEnd SubPrivate Sub a4_Click()frmAbout.ShowEnd SubPrivate Sub a5_Click() 调入数据备份 Load main_sjbf main_sjbf.Show main.Enabled = FalseEnd SubPrivate Sub a6_Click() 调入数据恢复 Load main_sjhf main_sjhf.Show main.HideEnd SubPrivate Sub b1_Click()frm货品信息.ShowEnd SubPrivate Sub b12_Click() sql = select * from 货品信息 order by 货品编码 frmProInfo.createList (sql) frmProInfo.ShowEnd SubPrivate Sub b2_Click()frm货品库存.ShowEnd SubPrivate Sub B3_Click()frm超储货品.ShowEnd SubPrivate Sub b4_Click()frm短线货品.ShowEnd SubPrivate Sub c1_Click()frm入库登记.ShowEnd SubPrivate Sub c2_Click()frm货品入库年度统计.ShowEnd SubPrivate Sub c3_Click()frm供货单位供货分类金额统计.ShowEnd SubPrivate Sub c4_Click()frm供货单位年度供货金额统计.ShowEnd SubPrivate Sub Command1_Click()date1 = Text1.Text & / & Text3.Text & / & Text2.Textdate2 = Text6.Text & / & Text4.Text & / & Text5.TextText7.Text = date1End SubPrivate Sub d1_Click()frm出库登记.ShowEnd SubPrivate Sub d2_Click()frm货品出库年度统计.ShowEnd SubPrivate Sub d3_Click()frm收货单位期间收货统计.ShowEnd SubPrivate Sub d4_Click()frm收货单位年度收货金额统计.ShowEnd SubPrivate Sub e1_Click()frm盘存录入.ShowEnd SubPrivate Sub e2_Click()frm盘存表.ShowEnd SubPrivate Sub f1_Click()frm货品出入汇总表.ShowEnd SubPrivate Sub g1_Click()frm经办人员.ShowEnd SubPrivate Sub g2_Click()frm供货单位.ShowEnd SubPrivate Sub g3_Click()frm仓库信息.ShowEnd SubPrivate Sub g5_Click()Form6.ShowEnd SubPrivate Sub h1_Click()frm历史库存.ShowEnd SubPrivate Sub h2_Click()frm历史入库.ShowEnd SubPrivate Sub h3_Click()frm历史出库.ShowEnd SubPrivate Sub i1_Click()DataReport1.ShowEnd SubPrivate Sub i2_Click()DataReport2.ShowEnd SubPrivate Sub i3_Click()DataReport3.ShowEnd SubPrivate Sub j1_Click()Form2.ShowEnd SubPrivate Sub j2_Click()Form3.ShowEnd SubPrivate Sub j3_Click()Form4.ShowEnd SubPrivate Sub j4_Click()Form5.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.KeyCase Is = rk 调入入库登记c1_ClickCase Is = ck 调入出库登记d1_ClickCase Is = kchz 调入库存汇总f1_ClickCase Is = zhcx 调入组合查询j4_ClickCase Is = sjbf 调入数据备份a5_ClickEnd SelectEnd SubPrivate Sub x_Click()EndEnd Sub登陆模块的实现Private Sub cmdLogin_Click()denlu_name = txtUserName.Textdenlu_pass = txtPassword.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kucun.mdb;myrs.Open SELECT * FROM 用户 where userID= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查无此人, , 登陆信息Else If myrs(userPWD) = denlu_pass Then MsgBox 身份正确, , 登陆信息 main.Show Unload Me Else MsgBox 密码不正确, , 登陆信息 End If End If End Sub添加用户模块的实现Option ExplicitPrivate Sub Command1_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text) = Then 判断用户名称是否为空 MsgBox 请输入用户名称!, vbOKOnly + vbExclamation, 警告 Exit Sub UserName.SetFocus Else sql = select * from 用户 where UserID= & UserName & Set rs = transactSQL(sql) If rs.EOF = False Then 判断是否已经存在用户 MsgBox 这个用户已经存在！请重新输入用户名称！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = PassWord.Text = ConfirmPWD.Text = Exit Sub Else If Trim(PassWord.Text) Trim(ConfirmPWD.Text) Then 判断两次密码是否相同 MsgBox 两次输入的密码不一致，请重新输入密码！, vbOKOnly + vbExclamation, 警告 PassWord.Text = ConfirmPWD.Text = PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = Then 判断密码是否为空 MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 PassWord.Text = ConfirmPWD = PassWord.SetFocus Else 添加用户 sql = insert into 用户 (UserID,UserPWD) values( & UserName sql = sql & , & PassWord & ) transactSQL (sql) MsgBox 添加成功！, vbOKOnly + vbExclamation, 添加结果 重新设置初始化为空 UserName.Text = PassWord.Text = ConfirmPWD.Text = UserName.SetFocus End If End If End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()UserName.Text = PassWord.Text = ConfirmPWD.Text = End Sub对于货品信息的浏览，主要采用了MSFlexGrid控件，它是一种Active控件，该控件提供了表格式界面，处理数据相当灵活，具有只读数据绑定、对表格数据进行显示和操作、数据分组排序、Data控件赋值、文本自动换行等功能。但它无法对数据进行动态输入，只能提供浏览功能。图52 货品信息界面具体代码如下：Option ExplicitPrivate Sub Command1_Click()rsGrid.RefreshEnd SubPrivate Sub Form_Load() Dim sql As String sql = select * from 货品信息 order by 货品编码 createList (sql)End SubPublic Sub createList(sql As String) Dim rs As New ADODB.Recordset Dim i As Integer Dim rsGird As MSFlexGrid 设置表头 rsGrid.TextMatrix(0, 0) = 货品编码 rsGrid.TextMatrix(0, 1) = 货品名称 rsGrid.TextMatrix(0, 2) = 类别 rsGrid.TextMatrix(0, 3) = 型号 rsGrid.TextMatrix(0, 4) = 单位 rsGrid.TextMatrix(0, 5) = 仓库编码 rsGrid.TextMatrix(0, 6) = 存放仓库 rsGrid.TextMatrix(0, 7) = 入库计划单价 rsGrid.TextMatrix(0, 8) = 出库计划单价 rsGrid.TextMatrix(0, 9) = 原始库存 rsGrid.TextMatrix(0, 10) = 默认货位 rsGrid.TextMatrix(0, 11) = 警戒底线库存 rsGrid.TextMatrix(0, 12) = 警戒高线库存 For i = 0 To 12 设置所有表格对齐方式 rsGrid.ColAlignment(i) = 4 Next i For i = 0 To 11 设置每列宽度 rsGrid.ColWidth(i) = 1400 Next i rsGrid.ColWidth(12) = 2000 Set rs = transactSQL(sql) If rs.EOF = False Then 显示信息内容 rsGrid.Rows = 1 While Not rs.EOF rsGrid.Rows = rsGrid.Rows + 1 rsGrid.TextMatrix(rsGrid.Rows - 1, 0) = rs(0) rsGrid.TextMatrix(rsGrid.Rows - 1, 1) = rs(1) rsGrid.TextMatrix(rsGrid.Rows - 1, 2) = rs(2) rsGrid.TextMatrix(rsGrid.Rows - 1, 3) = rs(3) rsGrid.TextMatrix(rsGrid.Rows - 1, 4) = rs(4) rsGrid.TextMatrix(rsGrid.Rows - 1, 5) = rs(5) rsGrid.TextMatrix(rsGrid.Rows - 1, 6) = rs(6) rsGrid.TextMatrix(rsGrid.Rows - 1, 7) = rs(7) rsGrid.TextMatrix(rsGrid.Rows - 1, 8) = rs(8) rsGrid.TextMatrix(rsGrid.Rows - 1, 9) = rs(9) rsGrid.TextMatrix(rsGrid.Rows - 1, 10) = rs(10) rsGrid.TextMatrix(rsGrid.Rows - 1, 11) = rs(11) rsGrid.TextMatrix(rsGrid.Rows - 1, 12) = rs(12) rs.MoveNext Wend rs.Close End IfEnd Sub货品入库登记模块的实现图53 入库登记窗口Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 错误处理程序代码置于此处 想要忽略错误，注释掉下一行 想要捕获它们，在此添加代码以处理它们 MsgBox Data error event hit err: & DescriptionEnd SubPrivate Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 为这个 recordset 显示当前记录位置 datPrimaryRS.Caption = Record: & CStr(datPrimaryRS.Recordset.AbsolutePosition)End SubPrivate Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 验证代码置于此处 下列动作发生时该事件被调用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancelEnd SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd Sub出库登记模块的实现图54 出库登记窗口Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpCo