毕业设计-基于vb的仓库数据库管理系统开发

基于VB的仓库数据库管理系统开发摘要仓库作为一种信息资源的集散地，用户和货物资料繁多，包含很多的信息数据的管理。高效率、科学化地管理仓库成为提高生产经营效率的有效途径。采用计算机管理信息系统能有效地避免仓库管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效地查询和修改仓库信息情况，并给企业管理带来了明显的经济效益和社会效益，成为当今仓库管理科学化和现代化的重要标志。数据库是六十年代末期开始发展起来的一门新技术，是管理信息资源的先进工具。仓库数据库管理系统便是这样一种信息管理系统。它能对仓库所涉及的数据进行提取和综合。仓库数据库管理系统不仅反映数据本身，而且反映数据之间的联系，也是事物之间的联系的反映。该系统以SQLSEVER作为后台数据库，VISUALBASIC60为前台开发工具,做到对仓库数据的查询，更新和安全保密。关键词数据库，仓库管理系统，VISUALBASICTHEDEVELOPMENTOFGARAGEDATABASEMANAGEMENTSYSTEMBASEDONVBGARAGE,ASAKINDOFMESSAGERESOURCESDISTRIBUTINGCENTRE,ITHASANUMBEROFCUSTORMANGOODSINFERMATIONSTHOSEINFERMATIONSCONTAINSMANYDATEMANAGEMENTSGARAGEMANAGEHIGHEFFICIENTLYANDSCIENCELYISAUSEFULWAYTOIMPROVEPRODUCTIONEFFICIENCYGARAGEMANAGEMENTISRANDOMCOMPUTERINFORMATIONMANAGESYSTEMCANAVOIDTHISRANDOMEFFECTUALLY,SPEEDUPTHEINFORMATIONPROCESSINGANDSCANANDRENEWTHEGARAGEINFORMATIONACCURATLLYANDONTIMEITALSOBRINGSOBVIOUSLYECONOMICBENEFITSANSOCIALBENEFITSFORTHEENTERPRISEWHOUSECOMPUTERINFORMATIONMANAGESYSTEMCOMPUTERINFORMATIONMANAGESYSTEMHASBEENTHEIMPORTANTMAJOROFGARAGEMANAGEMENTSSCIENTIFICANDMODERNIZEDDATABASEISAKINDOFNEWTECHNOLOGYWHICHWASBEGINNINGDEVELOPINGINTHEENDOF1970SITSAKINDOFADVANCEDINSTRUMENTOFINFORMATIONMANAGEMENTSOGARAGEDATEBASEMANAGEMENTSYSTEMISSUCHAKINDOFNEWTECHNOLOGYITHASTHEFUNCTIONOFDRAWINGANDMULTIPINGTHEDATAWHICHWASTOUCHEDUPONBYGARAGEGARAGEDATEBASEMANAGEMENTSYSTEMNOONLYREFLECTIONINGTHEDATAITSELF,BUTOLSOREFLECTIONINGTHERELETIONSHEEPOFDATAANDITCANREFLECTIONTHERELETIONSHEEPOFOBJECTTOOTHISSYSTEMUSESQLSEVERASITSBACKGROUNDDATABASEANDTHEVISUALBASIC60ISUSEDASTHEFROUNTGROUNDDEVELOPTOOLITWILLHAVETHEFUNCTIONOFINQURYING,RENEWINGANDPROTECTINGTHEGARAGEDATAKEYWORDSDATABASEGARAGEMANAGEMENTSYSTEMVISUALBASIC目录第1章绪论111数据库系统发展概况112数据库系统简介1121数据、数据库1122数据库管理系统2123数据库系统2第2章仓库设备数据库方案设计421数据模型的确定422运行环境和开发工具423基本组成5第3章仓库设备数据库开发设计631设计方法和步骤632需求分析633功能模块设计734创建数据库8341创建设备数据库8342创建用户信息数据库935创建应用工程文件1036用户管理模块设计10361用户登录10362修改密码13363添加用户14364删除用户1737信息管理模块设计18371创建仓库管理系统主窗体（MAINFORMFRM）18372创建查询信息窗体（FORMCHAXUNFRM）19373创建添加信息窗体（FORMTIANJIAFRM）20374创建修改信息窗体（FORMXIUGAIFRM）24375创建删除信息窗体（FORMSHANCHUFRM）25376创建报表窗体3038创建应用文件包30第4章仓库设备数据库管理系统使用说明3141系统3142信息查询3143信息管理31结论32致谢33参考文献34第1章绪论11数据库系统发展概况数据库是六十年代末期开始发展起来的一门新技术，是管理信息资源的先进工具。这门技术已广泛应用于各个方面，如科技情报检索、图书管理、库存管理、企业管理与经营决策、财会统计、银行存取、管理、人事材料管理、旅游管理、海关进出口情报收集与管理、地图数据库、种子数据库等多个方面。信息指的是各种形式的数据、资料、消息、信号中所包含的意义，而载荷信息的物理符号（如数字、字母、文字、图形、声音）称为数据。所谓信息处理或数据处理，就是对信息（数据）进行加工处理，它包括对于数据进行操作的一系列活动，如数据的收集、存储、传播、检索、分类、加工或计算，打印各种报表或输出各种所需要的图形。数据处理并不是有了电子计算机以后才出现的。自1890年发明第一台卡片制表机并用其编制人口普查表以来，就已经开始了数据处理的历史。通常把这种用机械设备来进行数据处理的系统称为机械数据处理系统。自七十年代初以来，在数据处理领域中广泛采用数据库技术，使数据处理进人了一个新的阶段，这就是以数据库系统为核心机构的数据处理阶段。这一阶段实现了计算机的全面信息管理。其特点是把一个组织（企业和部门）有关的各种数据集中存储与管理，建立起综合化的数据库，并提供了管理数据库的软件，使各个部门方便地使用数据库的数据；同时采用计算机网络技术，进行分布式处理，通过计算机网络把不同部门、不同地区、不同国家的计算机或终端联系在一起，共享丰富的信息资源，使信息的交换、传递和处理变得更为方便，从而更有效地利用信息资源。由于数据库技术在信息（数据）处理中显示了巨大的威力，所以许多计算机科学家把这个阶段称为“数据库时代”。12数据库系统简介121数据、数据库1数据DATA数据是数据库中存储的基本对象。数据按通常的理解表现为数字形式，这是对数据的一种传统和狭义的理解。广义的理解，数字只是数据的一种表现形式，在计算机中可表示数据的种类很多，文字、图形、图像、声音都可以数字化，所以这些都是数据。为了了解世界、交流信息，人们在计算机中需要并且也能够描述、存储和处理这些表现形式多样和内容复杂的数据。2数据库DATABASE，缩写为DB数据库，可以直观地理解为存放数据的仓库，只不过这个仓库是在计算机的大容量存储器上，如硬盘就是一类最常见计算机大容量存储设备。数据必须按一定的格式存放，因为它不仅需要存放，而且还要便于查找。所以可以认为数据是被长期存放在计算机内、有组织的、可以表现为多种形式的可共享的数据集合。数据库技术使数据能按一定格式组织、描述和存储，且具有较小的冗余度、较高的数据独立性和易扩展性，并可为多个用户所共享。122数据库管理系统利用计算机有效地组织和存储数据、获取和管理数据就是数据库管理系统DATABASEMANAGEMENTSYSTEM，缩写为DBMS，它属于一类计算机系统软件。数据库管理系统是位于用户与操作系统之上的一层数据管理软件，它的主要功能包括以下几个方面1数据定义功能DBMS提供数据定义语言DATADEFINITIONLANGUAGE，缩写为DDL，用户通过它可以方便地对数据库中的相关内容进行定义，如对数据库、基本表、视图和索引进行定义。2数据操纵功能DBMS向用户提供数据操纵语言DATAMANIPULATIONLANGUAGE,缩写为DML,实现对数据库的基本操作，如对数据库中数据的查询、插入、删除和修改。3数据库的运行管理这是DBMS的核心部分，它包括并发控制，即处理多个用户同时使用某些数据时可能产生的问题、安全性检查、完整性约束条件的检查和执行、数据库的内部维护如索引、数据字典的自动维护等。所有数据库的操作都要在这些控制程序的统一管理下进行，以保证数据的安全性、完整性以及多个用户对数据库的并发使用。4数据库的建立和维护功能包括数据库初始数据的输入、转换功能，数据库的转储、恢复功能，数据库的重新组织功能和性能监视、分析功能等，这些功能通常是由一些实用程序完成的，它是数据库管理系统的一个重要组成部分。5数据字典数据字典DATADICTIONARY，缩写为DD是存放数据库各级模式结构的描述，也是访问数据库的接口。在大型系统中，DD也可单独成为一个系统。6数据通信功能包括与OS的联机处理、分时处理和远程作业传输的相应接口等，这一功能对分布式数据库系统尤为重要。123数据库系统数据库系统DATABASESYSTEM，缩写为DBS通常是指带有数据库的计算机应用系统，因此，数据库系统不仅包括数据库本身，即实际存储在计算机中的数据，还包括相应的硬件、软件。1硬件由于一般数据库系统数据量很大，加之DBMS丰富的强有力的功能使得自身的体积就很大，因此整个数据库系统对硬件资源提出了较高的要求，这些要求是1有足够大的内存以存放操作系统、DBMS的核心模块，数据缓冲区和应用程序。2有足够大的直接存取设备存放数据如磁盘，有足够的磁带或其它存储设备来进行数据备份。3要求计算机有较高的数据传输能力2软件数据库系统的软件主要包括1DBMS是数据库系统的核心软件，它实现数据库的建立、使用和维护。2支持DBMS运行的操作系统。通常，DBMS运行时都是基于某一操作系统并通过操作系统来实现对数据的存取。3一般来讲，数据库管理系统的数据处理能力较弱，所以需要提供与数据库接口的高级语言及其编译系统，以便于开发应用程序。这种高级语言称为“数据库的主语言”。4以DBMS为核心的应用开发工具。应用开发工具是系统为应用开发人员和最终用户提供的高效率，多功能的应用生成器、第四代语言等各种软件工具，如报表生成系统、表格软件，图形系统等。它们为数据库系统的开发和应用提供了有力的支持。5为特定应用开发的数据库应用软件。数据库软件为数据的定义、存储、查询和修改提供支持，而数据库应用软件是对数据库中的数据进行处理和加工的软件，它面向特定应用，如基于数据库的各种管理软件、管理信息系统MIS、决策支持系统（DSS）和办公自动化OA等都属于数据库应用软件。3数据数据是数据库基本组成内容，是对客观世界所存在事物的一种表征，也是数据库用户操作的对象。数据是数据库系统，也是企业或组织的真正的财富。数据应按照需求进行采集并有结构地存入数据库。由于数据类型多样性，数据的采集方式和存储方式也会不同。数据作为一种资源是数据库系统最稳定的成分，即硬件可能更新，甚至软件也可以更换，但只要企业或组织的性质不改变，数据将是可以长期使用的财富。第2章仓库设备数据库方案设计21数据模型的确定数据模型DATAMODEL以实际事物的数据特征的抽象来刻画事物，描述的是事物数据的表征及其特性。在数据库中是用数据模型对现实世界进行抽象的，现有的数据库系统均是基于某种数据模型的。仓库设备数据库是仓库设备所涉及的数据的提取和综合，它不仅反映数据本身，而且反映数据之间的联系，也是事物之间的联系的反映。如何在数据库系统的形式化结构中抽象表示和处理仓库中设备的数据是非常重要的问题。数据库领域中过去和现在最常见的数据模型有三种，它们是层次模型HIERACHICALMODEL，网状模型NETWORKMODEL和关系模型RELATIONALMODEL。其中层次模型和网状模型统称为非关系模型，在关系模型出现以前，它们是常用的数据模型。关系模型是目前数据库领域所讨论的模型中最重要的模型。仓库设备数据库数据模型采用关系模型，既用二维表结构来表示实体及实体间的联系。如表21表21仓库设备信息表列名数据类型说明NUMBERNUMERIC设备编号TYPENUMBERNUMERIC类型编号NAMEVARCHAR设备名称TYPEVARCHAR设备类型SIZENUMERIC设备大小PRICENUMERIC设备单价FACTORYVARCHAR生产厂家22运行环境和开发工具1运行环境随着数据库应用的日益广泛，数据库产品市场呈现非常繁荣的景象。目前的关系数据库产品基本可分为桌面数据库和大型数据库应用系统两大类。本系统采用桌面数据库方式，利用学校现有软硬件资源，运行于PC机的WINDOWS98/2000/XP下，具有对硬件要求低、容易操作、开发成本低等特点。2开发工具本系统使用VISUALBASIC60和SQLSEVER作为开发工具。VISUALBASIC是一个通用程序开发工具，但具有强大的数据库访问能力，可以通过MICROSOFT数据库访问对象ADO访问数据库对象，而且由于其本身的优点（如可视化编程、面向对象、事件驱动、结构化程序设计、集成的开发环境），常常被用于数据库应用程序的开发。VISUALBASIC提供了管理数据库对象和创建报表的工具，并且使用简单方便。随着MICROSOFT不断地推出VISUALBASIC的新版本，VISUALBASIC对数据库的访问和编程也变得越来越容易，而且支持多种数据库系统的访问，是一个很好的数据库应用程序开发工具。SQLSEVER是MICROSOFT公司另一个成功的数据库产品。SQLSEVER本身是一个可视化的数据库管理系统，提供了很多非常实用的向导，初学者也很容易学会如何用SQLSEVER建立数据库的各种对象，如创建表、查询和报表等。SQLSEVER使用内嵌VISUALBASIC语言作为开发工具，完全面向对象编程，可以可视化地创建数据库应用程序。SQLSEVER数据库是目前应用十分广泛的桌面型关系数据库，它主要应用于各种中小型的管理信息系统中，虽然它无法支持较大数据量，不支持数据库的高级特性（并发访问、事务处理等），但是它快速、小巧、灵活，经常被小型信息管理系统作为后台数据库。23基本组成仓库设备数据库应用程序的主要作用是存放数据、从数据库中检索和统计数据，以得到各种各样的信息。本系统完整的数据库应用程序按照功能可分为四个部分的内容数据库（单表）；应用程序窗体；查询和更新；报表和图表仪器领用单。数据库是数据库应用程序的基础，主要用来存放原始数据。一般来说。用户不直接对原始数据进行操作。如果需要检索和更新数据，先用查询将数据检索出来放在缓冲区或临时表中，用户对缓冲区和临时表中的数据进行操作，在所有的操作完成后，再将数据的更改更新到数据库中。窗体用来完成用户和数据库之间、与程序之间交互。报表和图表的数据来自查询和统计，是定制的。它们之间的相互作用如图21所示。图21数据库应用程序的基本组成数据库报表和图表应用程序窗体查询和统计第3章仓库设备数据库开发设计31设计方法和步骤数据库设计是开发数据库及其应用系统的技术，也是本系统开发和建设的重要组成部分。具体说，数据库设计是要在一个给定的应用环境中，通过合理的逻辑设计和有效的物理设计，构造较优的数据库模式，建立数据库及其应用系统，满足用户的各种信息需求。这里从数据库应用系统和开发的全过程来考虑，根据本系统的实际情况，将数据库及其应用系统的设计分为以下几个阶段需求分析，功能模块设计，创建数据库，创建应用工程文件，创建应用窗体文件，创建应用文件包。32需求分析在设计一个数据库之前，首先要对数据库的设计目的和应用背景进行分析。在进行设计目的分析时，应搞清楚该数据库要解决一个什么样的问题、需要存储哪些数据、能够提供哪些信息、完成哪些自动化功能等。应用背景指数据库应用于一个什么样场合。在对本系统应用环境和需求进行收集和分析后所形成的抽象的系统概貌图如图31。图31系统概貌图本系统是为仓库开发的设备管理系统，根据任务书的要求，应设计一个可行的数据库结构和数据库管理系统。该数据库管理系统应具有数据查询功能多种关键词查询；数据更新功能修改,增加,删除等；数据安全性设计。概括层的数据流图如图3232数据流图数据存储处理数据输出数据来源数据流采购部门仓库管理系统领用人1领用人2领用人N采购部门负责采购仪器设备，将仪器设备的相关信息提供给实验室。仓库管理系统负责仪器的统一管理。通过该系统可以直接对数据库进行操作，进行业务处理，以记录每套仪器设备的相关信息；负责仪器设备的配入与发放，并记录仪器的发放与归还。领用人1、2、3N领用人领用设备时要作相应记录，以便管理部门可以查询每套仪器的情况。33功能模块设计在软件设计中，程序设计分为两个阶段完成，首先进行结构设计，以确定程序由那些模块组成，然后进行过程设计，过程设计是确定每个模块的处理过程。本系统共有两个数据库，一个是仪器性能指标数据库，另一个是用户标识和鉴定数据库。设计中规定了数据库的结构（表、记录、字段、关键字）、制订了数据所应满足的条件、规定了用户的使用密码和用户名,帮助用户方便地对数据库中数据进行操作。以下是本系统的功能模块图33。仓库设备数据库管理系统用户信息数据库仪器信息数据库工程文件报表信息界面查询信息界面修改信息界面添加信息界面删除信息界面修改用户界面添加用户界面删除用户界面用户登录界面功能管理主界面图33系统功能模块图在数据库管理系统的应用程序中有十个应用窗体文件，分别是1、用户登陆应用窗体文件，完成用户登录进入管理系统的功能；2、修改用户应用窗体文件，完成对已有记载的用户进行密码重新设定的功能。3、添加用户应用窗体文件，完成添加用户信息功能，记录用户名和用户密码；4、删除用户应用窗体文件，完成删除用户信息功能；5、信息管理和用户管理的主窗体，完成用户对系统功能的全局控制；6、查询信息应用窗体文件，完成通过仪器编号和名称对仪器进行查询的功能；7、修改信息应用窗体文件，完成修改仪器设备信息的功能；8、添加信息应用窗体文件，完成信息的添加功能；9、删除信息应用窗体文件，完成删除仪器设备信息的功能；10、报表信息应用窗体文件，完成报表提交功能。34创建数据库在使用VISUALBASIC开发数据库应用程序时，其后台数据库可以选用多种格式，本系统使用MICROSOFTACCESS的数据库格式，因为SQLSEVER数据库和VISUALBASIC数据库都是MICROSOFTJET数据库，其数据库对象的层次结构和编程方法是完全相同的，用SQLSEVER创建的数据库可以原封不动地用到VISUALBASIC应用程序中。SQLSEVER数据库表的建立方法是准备好设计资料，先在纸上设计好数据库的结构，即由哪几个表组成，每个表包含哪几个字段，各个字段的属性如何，哪个字段是关键字，共有多少个记录。下面介绍本系统中两个数据库的创建方法。341创建设备数据库本系统的仪器数据库是用MICROSOFTSQLSEVER创建的。下面示例的表中主关键字是“NUMBER”。创建步骤如下创建一个新的空数据库，确定数据库的名称及数据库的保存类型；向空数据库添加表，将数据进行分类和量化，并设置表单的主键；使数据便于计算机处理。列出每一个表所包含的数据字段名称，确定每个字段的数据类型和字段大小；在表单中输入和修改数据；保存数据库。如图34所示图34创建关键字为“NUMBER”的表其ER图为设备类型编号设备编号设备编号设备类型设备大小设备单价生产厂家图35仓库设备ER图342创建用户信息数据库安全性问题是所有计算机系统都有的问题，只是在数据库系统中大量数据集中存放，而且是多用户共享，使安全性问题更为突出。数据库安全与恢复是数据库保护的组成部分，数据库保护一般包括四个方面的内容，其中安全性主要是对用户的存取数据库中数据权限的控制，以保证数据库的安全和保密。本系统根据任务书的要求，主要是对数据库的安全性进行了设计。在计算机系统中，一般说来安全措施是分级设置的，本系统安全性设计中采用的是用户标识和鉴定。用户标识和鉴定是系统提供的最外层的安全保护措施，其方法是由系统提供一定的方式让用户标识自己的名字或身份，每次用户要进入系统时，系统对用户身份进行核实，通过鉴定后才提供系统使用权。本系统采用的方法具体是用一个用户名来标明用户身份，系统鉴别此用户是否是合法的用户，若是，则可进入下一步的核实；若不是，则不能使用系统。为了进一步核实用户，系统要求用户输入密码，为保密起见，用户在终端上输入的口令不显示在屏幕上，系统核定密码以鉴别用户身份。其ER图为用户密码用户帐号用户密码图36用户信息ER图35创建应用工程文件本系统的应用工程文件是用VISUALBASIC60创建的，选定“标准的可执行文件”单击“打开”进入工程的窗体文件设计。36用户管理模块设计用户管理模块主要实现1用户登录。2修改密码。3添加用户。4删除用户361用户登录系统启动后，将首先出现如图所示的用户登录窗体，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。如图37图37用户登录窗口用户登录窗体中放置了二个文本框TEXTBOX，用来输入用户名和用户密码二个按钮COMMANDBUTTON用来确定或者取消登录三个标签LABEL用来标示窗体的信息。为窗体定义全局变量OK，用来判断登录是否成功，定义MICOUNT，用来记载输入密码的次数，并且在载入窗体时初始化这二个全局变量，代码如下OPTIONEXPLICITPUBLICOKASBOOLEAN记录确定次数DIMMICOUNTASINTEGERPRIVATESUBFORM_LOADOKFALSEMICOUNT0ENDSUB当用户输入用户名和密码后，单击CMDOK按钮将对用户信息进行判断。用户单击该按钮，将触发该按钮CMDOK的CLICK事件，代码如下DIMTXTSQLASSTRINGDIMMRCASADODBRECORDSETDIMMSGTEXTASSTRINGTODOCREATETESTFORCORRECTPASSWORDCHECKFORCORRECTPASSWORDUSERNAME“IFTRIMTXTUSERNAMETEXT“THENMSGBOX“没有这个用户，请重新输入用户名“,VBOKONLYVBEXCLAMATION,“警告“TXTUSERNAMESETFOCUSELSETXTSQL“SELECTFROMUSER_INFOWHEREUSER_ID“USERIDADMINDATASOURCEF仓库管理系统YONGHUXINXIMDBPERSISTSECURITYINFOFALSE“SETRSTDENGLUNEWADODBRECORDSETSETRSTDENGLUACTIVECONNECTIONDENGLURSTDENGLUOPEN“SELECTFROMYONGHUXINXI“,DENGLU,ADOPENSTATIC,ADLOCKOPTIMISTICENDSUB37信息管理模块设计371创建仓库管理系统主窗体（MAINFORMFRM）在VISUALBASIC中新建一个FORM。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性。当用户登录进系统，将进入仓库系统的主窗体，如图311图311仓库管理系统主窗体372创建查询信息窗体（FORMCHAXUNFRM）在VISUALBASIC中新建一个FORM，保存为FORMCHAXUNFRM。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性。如图312图312查询信息窗体当用户需要查询某个设备时，只需要输入该设备的设备名称或者设备编号，如果该设备存在，则会显示该设备的详细信息，否则显示输入错误。其流程图如下输入名称或编号和数据库信息对比显示设备详细信息END查询YESNO图313信息查询流程图373创建添加信息窗体（FORMTIANJIAFRM）在VISUALBASIC中新建一个FORM，保存为FORMTIANJIAFRM。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性。如图314图314添加信息窗体将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下DIMXINXIASNEWADODBCONNECTIONDIMRSTXINXIASNEWADODBRECORDSETPRIVATESUBFORM_LOADSETXINXINEWADODBCONNECTIONXINXICURSORLOCATIONADUSECLIENTXINXIOPEN“PROVIDERMICROSOFTJETOLEDB40USERIDADMINDATASOURCEF仓库管理系统CANGKUZLMDBPERSISTSECURITYINFOFALSE“SETRSTXINXINEWADODBRECORDSETSETRSTXINXIACTIVECONNECTIONXINXIRSTXINXIOPEN“SELECTFROMYIQIXINXI“,XINXI,ADOPENSTATIC,ADLOCKOPTIMISTICENDSUBPRIVATESUBA11_CLICKINDEXASINTEGERSELECTCASEINDEXCASE0UNLOADMELOADFORMTIANJIAFORMTIANJIASHOWCASE2UNLOADMELOADFORMXIUGAIFORMXIUGAISHOWCASE3UNLOADMELOADFORMSHANCHUFORMSHANCHUSHOWENDSELECTENDSUBPRIVATESUBCOMMAND1_CLICKTXTYQBHTEXT“TXTFLHTEXT“TXTYQMCTEXT“TXTXHTEXT“TXTGGTEXT“TXTDJTEXT“TXTCJTEXT“TXTGZRQTEXT“TXTXZTEXT“TXTJSRTEXT“TXTLYRTEXT“TXTRKSJTEXT“ENDSUBPRIVATESUBCOMMAND2_CLICKSETXINXINEWADODBCONNECTIONXINXICURSORLOCATIONADUSECLIENTXINXIOPEN“PROVIDERMICROSOFTJETOLEDB40USERIDADMINDATASOURCEF仓库管理系统CANGKUZLMDBPERSISTSECURITYINFOFALSE“SETRSTXINXINEWADODBRECORDSETSETRSTXINXIACTIVECONNECTIONXINXIRSTXINXIOPEN“SELECTFROMYIQIXINXI“,XINXI,ADOPENSTATIC,ADLOCKOPTIMISTICIFTRIMTXTYQBHTEXT“THENMSGBOX“请输入仪器编号“,VBOKONLYVBEXCLAMATION,“信息提示“TXTYQBHSETFOCUSEXITSUBENDIFIFTRIMTXTYQMCTEXT“THENMSGBOX“请输入仪器名称“,VBOKONLYVBEXCLAMATION,“信息提示“TXTYQMCSETFOCUSEXITSUBENDIFIFTRIMTXTXHTEXT“THENMSGBOX“请输入仪器型号“,VBOKONLYVBEXCLAMATION,“信息提示“TXTXHSETFOCUSEXITSUBENDIFIFTRIMTXTDJTEXT“THENMSGBOX“请输入仪器单价“,VBOKONLYVBEXCLAMATION,“信息提示“TXTDJSETFOCUSEXITSUBENDIFIFTRIMTXTGZRQTEXT“THENMSGBOX“请输入购置日期“,VBOKONLYVBEXCLAMATION,“信息提示“TXTGZRQSETFOCUSEXITSUBENDIFIFTRIMTXTDJTEXT“THENMSGBOX“请输入领用单位号“,VBOKONLYVBEXCLAMATION,“信息提示“TXTDJSETFOCUSEXITSUBENDIFIFTRIMTXTLYRTEXT“THENMSGBOX“请输入领用人“,VBOKONLYVBEXCLAMATION,“信息提示“TXTLYRSETFOCUSEXITSUBENDIFIFTRIMTXTJSRTEXT“THENMSGBOX“请输入经手人“,VBOKONLYVBEXCLAMATION,“信息提示“TXTJSRSETFOCUSEXITSUBENDIFRSTXINXIMOVEFIRSTRSTXINXIFIND“YIQIBIANHAO“TXTYQBHTEXT“IFRSTXINXIFIELDS“YIQIBIANHAO“TRIMTXTYQBHTEXTTHENMSGBOX“此仪器编号已经存在“,VBOKONLYVBEXCLAMATION,“警告“TXTYQBHTEXT“TXTYQBHSETFOCUSELSERSTXINXIMOVELASTRSTXINXIADDNEWRSTXINXIFIELDS“YIQIBIANHAO“TRIMTXTYQBHTEXTRSTXINXIFIELDS“FENLEIHAO“TRIMTXTFLHTEXTRSTXINXIFIELDS“XINGHAO“TRIMTXTXHTEXTRSTXINXIFIELDS“YIQIMINGCHENG“TRIMTXTYQMCTEXTRSTXINXIFIELDS“GUIGE“TRIMTXTGGTEXTRSTXINXIFIELDS“DANJIA“TRIMTXTDJTEXTRSTXINXIFIELDS“CHANGJIA“TRIMTXTCJTEXTRSTXINXIFIELDS“GOUZHIRIQI“TRIMTXTGZRQTEXTRSTXINXIFIELDS“XIANZHUANG“TRIMTXTXZTEXTRSTXINXIFIELDS“LINGYONGREN“TRIMTXTLYRTEXTRSTXINXIFIELDS“JINGSHOUREN“TRIMTXTJSRTEXTRSTXINXIFIELDS“RUKUSHIJIAN“TRIMTXTRKSJTEXTRSTXINXIUPDATEMSGBOX“添加信息成功“,VBOKONLYVBEXCLAMATION,“信息提示“CALLCOMMAND1_CLICKRSTXINXICLOSEXINXICLOSEENDIFENDSUBPRIVATESUBCOMMAND3_CLICKCALLCOMMAND1_CLICKENDSUBPRIVATESUBF11_CLICKINDEXASINTEGERSELECTCASEINDEXCASE0UNLOADMELOADMAINFORMMAINFORMSHOWCASE2DIMIASBYTEBEEPIMSGBOX“你确定要退出仓库管理系统吗“,VBYESNO,“退出系统“IFIVBYESTHENENDENDIFENDSELECTENDSUBPRIVATESUBS11_CLICKINDEXASINTEGERSELECTCASEINDEXCASE0UNLOADMELOADFORMCHAXUNFORMCHAXUNSHOWENDSELECTENDSUBPRIVATESUBTIMER1_TIMERLABELSJCAPTIONNOWENDSUB374创建修改信息窗体（FORMXIUGAIFRM）在VISUALBASIC中新建一个FORM，保存为FORMXIUGAIFRM。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性。如图315图315修改信息窗体当用户需要修改某个设备的信息时，只需将修改后设备的详细信息填上，然后电击“修改”即可。其流程图如下输入修改后信息和数据库信息对比，看设备是否存在显示设备详细信息END修改YESNO图316信息修改流程图375创建删除信息窗体（FORMSHANCHUFRM）在VISUALBASIC中新建一个FORM，保存为FORMSHANCHUFRM。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性。如图317图317删除信息窗体将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下DIMXINXIASNEWADODBCONNECTIONDIMRSTXINXIASNEWADODBRECORDSETPRIVATESUBCOMMAND3_CLICKOPTION1VALUEFALSEOPTION2VALUEFALSETXTYQBHTEXT“TXTFLHTEXT“TXTYQMCTEXT“TXTXHTEXT“TXTGGTEXT“TXTDJTEXT“TXTCJTEXT“TXTGZRQTEXT“TXTXZTEXT“TXTJSRTEXT“TXTLYRTEXT“TXTRKSJTEXT“ENDSUBPRIVATESUBFORM_LOADSETXINXINEWADODBCONNECTIONXINXICURSORLOCATIONADUSECLIENTXINXIOPEN“PROVIDERMICROSOFTJETOLEDB40USERIDADMINDATASOURCEF仓库管理系统CANGKUZLMDBPERSISTSECURITYINFOFALSE“SETRSTXINXINEWADODBRECORDSETSETRSTXINXIACTIVECONNECTIONXINXIRSTXINXIOPEN“SELECTFROMYIQIXINXI“,XINXI,ADOPENSTATIC,ADLOCKOPTIMISTICENDSUBPRIVATESUBCOMMAND1_CLICKIFOPTION1VALUETRUETHENOPTION2VALUEFALSETEXT1SETFOCUSSETXINXINEWADODBCONNECTIONXINXICURSORLOCATIONADUSECLIENTXINXIOPEN“PROVIDERMICROSOFTJETOLEDB40USERIDADMINDATASOURCEF仓库管理系统CANGKUZLMDBPERSISTSECURITYINFOFALSE“SETRSTXINXINEWADODBRECORDSETSETRSTXINXIACTIVECONNECTIONXINXIRSTXINXIOPEN“SELECTFROMYIQIXINXI“,XINXI,ADOPENSTATIC,ADLOCKOPTIMISTICIFTEXT1TEXT“THENMSGBOX“请输入仪器编号“,VBOKONLY,“警告“TEXT1SETFOCUSELSERSTXINXIFIND“YIQIBIANHAO“TEXT1TEXT“IFRSTXINXIEOFTHENMSGBOX“此仪器编号不存在，请重新输入“,VBOKONLY,“警告“TEXT1TEXT“ELSETXTYQBHTEXTRSTXINXIFIELDS“YIQIBIANHAO“TXTFLHTEXTRSTXINXIFIELDS“FENLEIHAO“TXTYQMCTEXTRSTXINXIFIELDS“YIQIMINGCHENG“TXTXHTEXTRSTXINXIFIELDS“XINGHAO“TXTGGTEXTRSTXINXIFIELDS“GUIGE“TXTDJTEXTRSTXINXIFIELDS“DANJIA“TXTCJTEXTRSTXINXIFIELDS“CHANGJIA“TXTGZRQTEXTRSTXINXIFIELDS“GOUZHIRIQI“TXTXZTEXTRSTXINXIFIELDS“XIANZHUANG“TXTLYRTEXTRSTXINXIFIELDS“LINGYONGREN“TXTJSRTEXTRSTXINXIFIELDS“JINGSHOUREN“TXTRKSJTEXTRSTXINXIFIELDS“RUKUSHIJIAN“RSTXINXICLOSEXINXICLOSETEXT1TEXT“TEXT1SETFOCUSENDIFENDIFELSEIFOPTION2VALUETRUETHENOPTION1VALUEFALSETEXT2SETFOCUSSETXINXINEWADODBCONNECTIONXINXICURSORLOCATIONADUSECLIENTXINXIOPEN“PROVIDERMICROSOFTJETOLEDB40USERIDADMINDATASOURCEF仓库管理系统CANGKUZLMDBPERSISTSECURITYINFOFALSE“SETRSTXINXINEWADODBRECORDSETSETRSTXINXIACTIVECONNECTIONXINXIRSTXINXIOPEN“SELECTFROMYIQIXINXI“,XINXI,ADOPENSTATIC,ADLOCKOPTIMISTICIFTEXT2TEXT“THENMSGBOX“请输入仪器名称“,VBOKONLY,“警告“TEXT2SETFOCUSELSERSTXINXIFIND“YIQIMINGCHENG“TEXT2TEXT“IFRSTXINXIEOFTHENMSGBOX“此仪器名称不存在，请重新输入“,VBOKONLY,“警告“TEXT2TEXT“ELSETXTYQBHTEXTRSTXINXIFIELDS“YIQIBIANHAO“TXTFLHTEXTRSTXINXIFIELDS“FENLEIHAO“TXTYQMCTEXTRSTXINXIFIELDS“YIQIMINGCHENG“TXTXHTEXTRSTXINXIFIELDS“XINGHAO“TXTGGTEXTRSTXINXIFIELDS“GUIGE“TXTDJTEXTRSTXINXIFIELDS“DANJIA“TXTCJTEXTRSTXINXIFIELDS“CHANGJIA“TXTGZRQTEXTRSTXINXIFIELDS“GOUZHIRIQI“TXTXZTEXTRSTXINXIFIELDS“XIANZHUANG“TXTLYRTEXTRSTXINXIFIELDS“LINGYONGREN“TXTJSRTEXTRSTXINXIFIELDS“JINGSHOUREN“TXTRKSJTEXTRSTXINXIFIELDS“RUKUSHIJIAN“RSTXINXICLOSEXINXICLOSETEXT2TEXT“TEXT2SETFOCUSENDIFENDIFENDIFENDIFENDSUBPRIVATESUBCOMMAND2_CLICKIFTXTYQBHTEXT“THENMSGBOX“请选择一条记录“,VBOKONLYVBEXCLAMATION,“信息提示“ELSESETXINXINEWADODBCONNECTIONXINXICURSORLOCATIONADUSECLIENTXINXIOPEN“PROVIDERMICROSOFTJETOLEDB40USERIDADMINDATASOURCEF仓库管理系统CANGKUZLMDBPERSISTSECURITYINFOFALSE“SETRSTXINXINEWADODBRECORDSETSETRSTXINXIACTIVECONNECTIONXINXIRSTXINXIOPEN“SELECTFROMYIQIXINXI“,XINXI,ADOPENSTATIC,ADLOCKOPTIMISTICRSTXINXIFIND“YIQIBIANHAO“TXTYQBHTEXT“IFVBYESMSGBOX“您确定要删除该纪录吗,这可能回导致数据的丢失“,VBYESNOVBQUESTION,“信息提示“THENRSTXINXIDELETECALLCOMMAND3_CLICKMSGBOX“删除信息成功“,VBOKONLYVBEXCLAMATION,“信息提示“RSTXINXICLOSEXINXICLOSEENDIFENDIFENDSUBPRIVATESUBA11_CLICKINDEXASINTEGERSELECTCASEINDEXCASE0UNLOADMELOADFORMTIANJIAFORMTIANJIASHOWCASE2UNLOADMELOADFORMXIUGAIFORMXIUGAISHOWCASE3UNLOADMELOADFORMSHANCHUFORMSHANCHUSHOWENDSELECTENDSUBPRIVATESUBF11_CLICKINDEXASINTEGERSELECTCASEINDEXCASE0UNLOADMELOADMAINFORMMAINFORMSHOWCASE2DIMIASBYTEBEEPIMSGBOX“你确定要退出仓库管理系统吗“,VBYESNO,“退出系统“IFIVBYESTHENENDENDIFENDSELECTENDSUBPRIVATESUBS11_CLICKINDEXASINTEGERSELECTCASEINDEXCASE0UNLOADMELOADFORMCHAXUNFORMCHAXUNSHOWENDSELECTENDSUBPRIVATESUBTIMER1_TIMERLABELSJCAPTIONNOWENDSUB376创建报表窗体在VISUALBASIC中新建一个FORM，保存为FORMSHANCHUFRM。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性。如图318图318报表信息窗体38创建应用文件包由于“仓库设备管理系统”运行需要VISUALBASIC和MICROSOFTSQLSEVER等软件的支持，为了使得没有安装VB和MICROSOFTSQLSEVER支持软件的用户也可以使用“实验室设备管理系统”，故用WISEINSTALLATIONSYSTEM90版（专业级）安装程序制作软件，将所设计的软件，以及软件运行所需要的支持软件进行打包，做成安装包。这个安装包在PC机上直接安装后就可以正常运行使用。使用WISEINSTALLATIONSYSTEM90版（专业级）安装程序制作软件，操作简单明了。本系统所使用的是汉化后的软件，根据提示进行一步步操作，将所有软件依次打包，最终生成可独立安装运行及卸载的应用文件包。第4章仓库设备数据库管理系统使用说明41系统1添加用户此功能可以添加此系统的用户，首先在用户栏输入要添加的用户的用户名，然后输入用户的密码，然后再次输入相同的密码，两次输入的密码必须相同。点击“确定”就会提示添加用户成功。2修改密码此功能可以修改此系统用户的登录密码，首先选择要修改的用户名，输入原始密码，然后再次输入新密码，点击“确定”就会提示修改密码成功，则该用户下次登录此系统时就要输入修改后的新密码。3删除用户此功能可以删除此系统的用户，首先选择要删除的用户名，然后在密码输入框里输入选中用户的密码，点击“确定”就会提示删除用户成功。4退出退出本系统。42信息查询此功能可以根据用户需求查找用户需要的资料。此功能有两个选项一是根据仪器编号查询,首先选择仪器编