物流信息系统实验报告(DOC 33)

1、PAGE 实 验 报 告 书课程名称称：物流信信息系统统学生姓名名：学 号：所在班级级：所在在系（部部）：物物流工程程系指导教师师：实验学期期：2011320114学年 第一学期山东交通通学院交交通与物物流工程程一、实验验名称物流信息息系统认认识上机机二、时间间20133年9月14日三、地点点 交通通与物流流工程实实验中心心，机房房（62207、62205、61003室）四、指导导教师刘建磊五、实验验目的通过一般般的物流流信息系系统软件件的实际际操作，认识这这类软件件的常见见主要功功能，了了解物流流过程中中的库存存管理、运输管管理、配配送管理理流程，学会这这类软件件的基本本操作。六、实验验用仪

2、器器设备计算机、相关物物流信息息系统软件件七、实验验内容与与实验步步骤1 使用用物流管管理系统统软件，获知其其主要功功能有：1部门资资料设置置：对部部门资料料进行增增加、删删除、修修改、查查询等操操作，截截图如下下：2车辆调调度安排排：随时时掌握司司机以及及车辆的的动态，对车辆辆进行合合理的安安排，截截图如下下：3车辆资资料设置置：将车车辆以及及司机的的资料电电子化，方便、快捷的的对车辆辆信息进进行及时时的更新新，来对对车辆的的信息做做到进一一步的完完善，截截图如下下：4密码修修改：对对密码进进行简单单的修改改工作，截图如如下：5货物托托运管理理：进行行货物托托运的各各项内容容设置，比如对对托

3、运的的货物进进行增减减，承运运单位的的各种信信息，以以及收货货单位的的各种信信息，截截图如下下：除以上功功能外，该物流流管理系系统软件件还具有有货物验验收管理理、客户户资料设设置、司司机资料料设置等等。使用物流流物流管管理系统统软件，获知其其主要功功能有：1物资入入库单填填写：主主要记录录物资的的编号、数量、名称等等项目，截图如如下：2物资出出库单填填写：主主要内容容和入库库单的大大体相同同，截图图如下：3用户管管理：通通过密码码设置来来进行用用户的识识别与管管理，截截图如下下：3 使用用钢材行行业物流流管理软软件，获获知其主主要功能能有： 1审核核报损出出库单：对报损损物品进进行备注注与审核

4、核，截图图如下：2查询存存款单，截图如如下：一、实验验名称物流信息息技术上机机二、时间间20133年9月月18日三、地点点 交通通与物流流工程实实验中心心，机房房（62207、62005、661033室）四、指导导教师刘建磊五、实验验目的熟悉VBB的系统统环境，了解VVB程序序的编写写、保存存和编译译的方法法过程；掌握基基本语句句的使用用；掌握握表达式式的正确确书写方方法及函函数、运运算符的的正确使使用；掌掌握逻辑辑表达式式及关系系表达式式的正确确书写形形式，掌握IIF语句句单行和和块书写写格式及及其正确确使用。六、实验验用仪器器设备计算机、VisuualBBasiic软件件七、实验验内容与与

5、实验步步骤1 编一一程序，程序运运行的初初始界面面如图所所示，当当用户在在文本框框中输入入姓名，例如输输入“张三”，单击击“确定”按钮，则程序序的运行行情况如如图1-2所示示，如果果单击“结束”按钮，即结束束程序运运行。源代码：Privvatee Suub CCommmandd1_CClicck()Commmandd2.EEnabbledd = FallseTextt1.TTextt = End SubbPrivvatee Suub CCommmandd2_CClicck()EndEnd Subb2 设计计一个猜猜数字游游戏软件件，点击击出题按按钮，产产生一个个10到到99的的随机数数，然后后

6、在文本本框中由由用户输输入数字字，如果果结果不不对，应应提示是是大了，还是小小了，否否则提示示正确。运行界界面如图图3-11所示。程序源代代码为：Dim a AAs SSingglePrivvatee Suub CCommmandd1_CClicck() a = IInt(Rndd * 90) + 10End SubbPrivvatee Suub CCommmandd2_CClicck()Dim b AAs SSinggleDim c AAs SSingglec = ab = Texxt1.TexxtIf cc b TThenn MssgBoox (您猜猜的数字字小了，加油加加油)If cc

7、= b TThenn MssgBoox (您猜猜对了，恭喜恭恭喜)Textt1.TTextt = End SubbPrivvatee Suub CCommmandd3_CClicck()EndEnd Subb3 设计计一个登登陆界面面，包含含用户名名、密码码及文本本框，确确定按钮钮，退出出按钮，并编写写代码实实现，用用户名和和密码正正确时弹弹出对话话框，提提示“欢迎使使用该系系统”，否则则提示“用户名名和密码码错误，请重新新输入”截图如下下：写入实现现上述内内容的一一段代码码:Dim a AAs SSinggleDim b AAs SSingglePrivvatee Suub CCommman

8、dd1_CClicck()a = 1223b = 4556If TTextt1.TTextt = a AAnd Texxt2.Texxt = b Theen MsggBoxx (欢迎使使用该系系统)Elsee MsggBoxx (密码错错误，请请重新输输入)End IfTextt1.TTextt = Textt2.TTextt = End Subb一、实验验名称物流信息息技术上机机二、时间间20133年100月12日三、地点点 交通通与物流流工程实实验中心心，机房房（62207、62005室）四、指导导教师 张良良智五、实验验目的掌握Foor语句句的使用用,掌握握DoLooopWWhille|

9、UUntiil两两种形式式的使用用。掌握握如何控控制循环环条件，防止死死循环或或不循环环。熟练练掌握循循环条件件设置及及循环的的控制方方法。掌掌握数组组的声明明、数组组元素的的引用,掌握静静态数组组和动态态数组的的使用差差别,应用数数组解决决与数组组有关的的常用问问题。六、实验验用仪器器设备计算机、VisuualBBasiic软件件七、实验验内容与与实验步步骤1、编一一程序，显示出出所有的的水仙花花数。所所谓水仙仙花数是是指：一一个三位位数的各各位数字字立方和和等于该该数字本本身。如如：1553=，因此1153是是一个水水仙花数数。截图如下下：程序源代代码为Privvatee Suub FFo

10、rmm_cllickk()Dim i AAs IInteegerr Forr i = 1100 To 9999 Iff (ii 1000) 3 + (i 100 Mood 110) 33 + (i Modd 100) 3 = ii Thhen Priint i NexxtEnd Subb2、设计计一个程程序，将将用户输输入的110个数数字进行行倒置。截图如下下：程序源代代码为：Privvatee Suub FFormm_cllickk()Dim s AAs SStriings = InpputBBox(请输输入要倒倒置的数数字, 测测试)If ss Thhens = StrrRevversse

11、(ss)MsgBBox sEnd IfEnd Subb3、设计计一个程程序，定定义一个个55的二二维数组组，随机机存放110-660之间间的整数数，输出出内容如如下：1）按矩矩阵形式式输出所所有数组组元素。2）在每每行结尾尾输出各各行元素素之和。3）在每每列的下下面输出出主对角角线上的的元素。截图如下下：程序源代代码为：Privvatee Suub FFormm_cllickk()Dim I AAs IInteegerr, JJ Ass InnteggerDim InttSummH AAs IInteegerrDim InttSj(1 TTo 55, 11 Too 5) Ass Inntegg

12、erRanddomiizeFor I = 1 To 5 InntSuumH = 00 Prrintt |; Foor JJ = 1 TTo 55 InttSj(I, J) = IInt(Rndd() * 551 + 100) InttSummH = InntSuumH + IIntSSj(II, JJ) Priint InttSj(I, J); Neext J Prrintt |; Prrintt InntSuumHNextt IFor I = 1 To 5Prinnt ;Nextt IPrinntPrinnt ;For I = 1 To 5 Priint InttSj(I, I);Nextt

13、 IPrinntPrinnt ;For I = 1 To 5 Priint InttSj(6 - I, I);Nextt IEnd Subb一、实验验名称数据库操操作上机机二、时间间20133年100月16日三、地点点 交通通与物流流工程实实验中心心，机房房（62207、62005室）四、指导导教师 张良良智五、实验验目的理解关系系数据库库的基本本概念，掌握AAcceess数数据管理理系统的的基本操操作。练练习建立立数据表表，熟悉悉各数据据类型的的内容。六、实验验用仪器器设备计算机、ACCCESSS软件七、实验验内容与与实验步步骤1 ACCCESSS数据据库软件件的主要要功能有有：新建数据据库

14、，截截图如下下：图1 供供应商表表设计视视图图2 货货物表设设计视图图图3 货货物出库库表设计计视图图4 货货物入库库表设计计视图图5 客客户表设设计视图图图6 运运货商设设计视图图图7 货货物表数数据视图图图8 货货物出库库表数据据视图图9 货货物入库库表数据据视图一、实验验名称数据库操操作上机机二、时间间20133年100月30日三、地点点 交通通与物流流工程实实验中心心，机房房（62207、62005室）四、指导导教师 张良良智五、实验验目的通过在VVB和AACCEESS的的交互操操作，练练习高级级语言操操作数据据库的多多种方法法，重点点掌握使使用DAATA控控件、AADODDC控件件和

15、DAATAGGRIDD控件、数据窗窗体设计计器三种种方法连连接数据据库，并并了解使使用ADDO对象象编写代代码连接接数据的的方法。六、实验验用仪器器设备计算机、ACCCESSS软件、VissuallBassic软软件七、实验验内容与与实验步步骤1、使用用DATTA控件件连接数数据库在硬盘的的用户盘盘上建立立一个用用户目录录（如EE:WWORKK），用用于保存存所有实实验文件件。启动动ACCCESSS，找到到数据库库“仓储管管理信息息系统”,确认认有货物物表，并并已经录录入了多多条数据据。将“仓储管管理信息息系统”数据库库打开，转化997格式式的数据据库，取取名“仓储管管理信息息系统-97”，复

16、制制到用户户目录下下。启动VBB，在窗窗体上加加入DAATA控控件daata11，文本本框控件件texxt1，保存文文件和工工程到用用户目录录下。设置DAATA控控件的ddataabassenaame属属性为“仓储管管理信息息系统997”，设置置DATTA控件件的Reecorrdsoourcce属性性为货物物表。设设置文本本框控件件的daatassourrce属属性为ddataa1,设设置文本本框控件件的daataffielld属性性为货物物名称。运行程序序，查看看结果。修改上上述文本本框控件件的daataffielld属性性，查看看结果。添加其其他文本本框控件件，设置置属性，显示更更多的货货

17、物表内内容。显示多个个货物表表信息的的界面截截屏如下下：图10 货物出出库查询询2、使用用ADOODC控控件连接接数据库库在硬盘的的用户盘盘上建立立一个用用户目录录（如EE:WWORKK），用用于保存存所有实实验文件件。启动动ACCCESSS，找到到数据库库“仓储管管理信息息系统”,确认认有货物物表，并并已经录录入了多多条数据据。复制制到用户户目录下下。启动VBB,通过过菜单 工程部件控件添添加控件件Miccrossoftt ADDO DDATAA COONTRROL 6.00 和MMicrrosooft DATTAgrrid CONNTROOL 66.0。通过工工具箱加加两个控控件到窗窗体上

18、。设置ADDODCC的属性性，生成成提供程程序Miccrossoftt JEET 44.0 OLEE DBB；连接接WLGGL测试连连接成功功；记录录源命令类类型：22表名称称：货物物表。设设置daataggridd控件属属性daatassourrce为为ADOODC11.运行程序序，显示示货物表表全部内内容的界界面如下下：图11 物资查查询3、使用用数据窗窗体设计计器操作作数据库库在硬盘的的用户盘盘上建立立一个用用户目录录（如EE:WWORKK），用用于保存存所有实实验文件件。启动动ACCCESSS，找到到数据库库“仓储管管理信息息系统”,确认认有货物物表，并并已经录录入了多多条数据据。将“

19、仓储管管理信息息系统”数据库库打开，转化997格式式的数据据库，取取名“仓储管管理信息息系统997”，复制制到用户户目录下下。启动VBB,通过过菜单 外接程程序可视化化数据管管理器，在viisdaata界界面上文文件打开数数据库Miccrossoftt ACCCESSS- “仓储管管理信息息系统997”,实用用程序数据据窗体设设计器窗体名名称:hhuowwu记录源源：货物物表添加使使用的多多个字段段到右侧侧生成窗窗体关闭。对自动生生成的窗窗体，重重新排列列位置、设置字字体大小小，颜色色，控件件长度等等，调整整界面美美观大方方，不留留空白，不显拥拥挤。运行程序序，得到到操作数数据库的的界面设设计

20、如下下：图12 客户管理理表一、实验验名称物流信息息系统开开发上机机二、时间间20133年111月13日三、地点点 交通通与物流流工程实实验中心心，机房房（62207、62005室）四、指导导教师 张良良智五、实验验目的通过编制制系统可可行性分分析报告告了解物物流信息息系统可可行性分分析的内内容，通通过系统统业务流流程图的的绘制，熟悉系系统业务务过程，学会绘绘制业务务流程图图；通过过界面设设计熟练练输入设设计、输输出设计计的方法法，掌握握基本的的界面设设计方法法。六、实验验用仪器器设备计算机、ACCCESSS、WOORD、VB、DiaagraamDeesiggnerr软件七、实验验内容与与实验

21、步步骤1 系统统可行性性分析（1）方方案的可可行性 本系统统方案是是适应现现代仓储储业高效效仓储化化作业而而设计的的，且系系统界面面友好， 系统统功能比比较简单单，任何何人都可可以很快快掌握操操作原理理并使用用，不存存在太大大难度。（2）技技术的可可行性系统的总总体架构构将采用用三层架架构模型型，数据据库采用用微软的的Acccesss，其工工作稳定定，功能能强大，资源耗耗费较少少，所以以能够充充分满足足目前的的需要。采用VVB语言言进行编编程。VVB是安安全的、稳定的的、简单单的面向向对象的的编程语语言。因因此，开开发本系系统在技技术上是是可行的的。（3）经经济的可可行性由于本系系统的开开发以

22、课课程设计计为依托托，参与与人员的的目的以以学习为为主，投投入成本本比较小小。本系系统比较较简单且且只在本本机使用用，暂不不考虑网网络，因因而开发发费用小小。同时时无纸化化办公可可以节省省资源，减少后后期资源源浪费。因此，开发本本系统在在经济上上是可行行的。（4）社社会的可可行性在社会生生产飞速速发展的的今天，物流己己经成为为国民经经济的支支柱，尤尤其是仓仓储管理理，信息息化是发发展物流流、提高高效率的的关键。仓储管管理系统统数据逻逻辑设计计规范，系统功功能健全全，数据据标准化化，可以以满足企企业物流流仓储业业务的实实际需要要，提高高仓储工工作的效效率。这这些需求求成为发发展物流流的关键键因素

23、。因此，本系统统在社会会上具有有可行性性。2.业务务流程图图图13 入库作作业流程程图图14 出库库作业流流程图图15 盘点作作业流程程图3界面面设计截截图如下下：图16 用户登登录界面面图17 仓储管管理系统统主界面面图18 客户管管理界面面图19 供应商商查询界界面图20 供应商商管理界界面一、实验验名称物流信息息系统开开发上机机二、时间间20133年111月28日三、地点点 交通通与物流流工程实实验中心心，机房房（62207、62005室）四、指导导教师 张良良智五、实验验目的通过系统统分析（含业务务流程分分析和数数据流程程分析）、系统统设计（含数据据库设计计、界面面设计）、系统统实施等

24、等环节，让学生生全面掌掌握物流流信息系系统开发发的全部部内容，并初步步掌握一一些关键键技术，了解系系统开发发的整体体流程。六、实验验用仪器器设备计算机、ACCCESSS、WOORD、VB、DiaagraamDeesiggnerr软件七、实验验内容与与实验步步骤（一）系系统分析析采购入库库时由仓仓储部门门开出会会验收通通知单，交相关关检验人人员进行行检验（验收标标准由使使用部门门即生产产科给定定，在本本系统中中不进行行管理），开出出验收单单，如果果验收合合格，则则进行移移仓，并并记入仓仓库台帐帐，然后后财务根根据具体体情况进进行付款款操作，当然付付款作业业并不包包括在本本仓储管管理系统统内，本本

25、系统仅仅仅在此此预留与与财务系系统的接接口而已已；如果果验收不不合格，则视具具体情况况进行处处理，根根据需要要进行退退货作业业，在此此本系统统只负责责退货单单的维护护。领料出库库有多种种形式，生产领领料和其其他领料料如设备备维修领领料等的的领料作作业流程程和领料料单都相相同。领领料出库库时，由由相关检检验人员员查可用用库存量量，如果果领料量量小于可可用库存存量则进进行发料料，从而而入仓库库台账；如果领领料单不不小于库库存量则则重新填填写领料料单并且且填写请请购单。（二）系系统设计计1.物理理配置方方案设计计随着信息息技术的的飞速发展展，各种种计算机机软、硬硬件产品品竞相投投向市场场。多种多多样

26、的计计算机技技术产品品为信息息系统的的建设提提供了极极大的灵灵活性，其性价价比也是是五年前前甚至是是半年前前所无法法比拟的的，使我我们可以以根据应应用的需需要灵活活选用不不同生产产者的性性能各异异的软、硬件产产品。该系统采采用Clliennt/SServver、Broowseer/SServver结结构，采采用了最最先进的的三层结结构设计计，使应应用层和和数据库库逻辑分分离，进进而使核核心数据据库更安安全，升升级和扩扩展可不不受原系系统的局局限。服服务器采采用Wiindoows220000 Seerveer操作作系统，数据库库是SQQL SServver220000，中间间层服务务器和客客户端

27、开开发语言言为VBB6.00。2.系统统设计原原则系统设计计遵循的的原则：（1）系统的的标准化化和规范范化，系系统的标标准化和和规范化化是信息息系统建建设基本本而又关关键的一一步，要要实现信信息通讯讯与共享享，必须须规范信信息技术术标准。（2）系统的的实用性性、稳定定和可靠靠性，系系统建设设要以满满足工作作的业务务需求为为首要目目标，建建设方案案以实际际可接受受能力为为尺度，避免盲盲目追求求新技术术。系统统中的软软硬件及及信息资资源要满满足可靠靠性设计计要求，系统必必须可靠靠地长期期安全运运行，即即系统的的设计必必须在成成本可以以接受的的条件下下，从系系统结构构、设计计方案、设备选选型、厂厂商

28、的技技术服务务与维护护响应能能力、备备件供应应能力等等方面考考虑，使使得系统统故障发发生的可可能性尽尽可能少少，对各各种可能能出现的的紧急情情况有应应急的工工作方案案和对策策。（33）系统统的安全全性。遵遵循有关关信息安安全标准准，系统统具有很很强的安安全防卫卫机制，应提供供多方式式、多层层次、多多渠道的的安全保保密措施施，防止止各种形形式与途途径的非非法侵入入和机密密信息泄泄露；同同时要有有备份机机制，保保证客户户信息的的安全。（4）系统的的灵活性性和可扩扩充性。计算机机技术发发展迅速速，日新新月异，系统的的设计要要保证软软件兼容容的情况况下，利利用最小小代价，使网络络系统结结构平滑滑过渡到

29、到新的网网络结构构体系，可以灵灵活扩充充。系统统能有较较强的应应变能力力，实现现程序与与处理数数据分离离，处理理数据的的变化不不需要修修改应用用程序软软件，如如表格、数据结结构的定定义，既既满足上上级的要要求，又又满足用用户自己己的特殊殊需要，用户可可以灵活活定义和和变化。 3.网络络结构网络主要要由企业业内部网网和信息息发布系系统两部部分组成成。根据据企业客客户信息息管理系系统的需需求，在在网络系系统的设设计中，采用目目前先进进成熟的的快速以以太网技技术，以以最优的的性能价价格比实实现整个个网络系系统的高高性能和和高可靠靠性。这这样，客客户随时时随地都都可通过过公众网网访问本本信息系系统。网

30、网络设计计的目标标是：（1）系系统采用用星型网网络结构构，因此此单机损损坏对整整个系统统无影响响；（22）采用用高容错错技术，系统可可以不间间断的运运；（33）星型型布线使使站点不不受限制制，在站站点增加加、减少少的情况况下，系系统不停停机；（4）采采用实用用的客户户机/服服务器和和浏览器器/服务务器结构构；（55）服务务器采用用易于管管理的WWinddowss NTT系统；（6）客户端端采用方方便实用用的Wiindoows 98、20000和XXP。 4.系统统软件（1）操操作系统统Winndowws NNT SServver。该系统统为各种种组织的的计算环环境提供供了一个个完整的的方案。从

31、文件件/打印印操作，到Inntraanett和Innterrnett服务，关键任任务的应应用程序序支持，所有的的服务被被嵌入操操作系统统。从基基本点着着手，WWinddowss NTT Seerveer设计计成为最最具有集集成性，完整性性和便捷捷性的服服务器操操作系统统，并提提供了对对关键任任务应用用程序所所必备的的评测性性，可靠靠性和管管理性。 （2）数数据库系系统SQQLSeerveer 220000。SQQL SServver 20000是一一个综合合的分布布式管理理框架结结构，允允许你集集中地管管理组织织机构中中所有数数据库服服务器。通过增增强的基基于Wiindoows的的管理工工具和

32、强强大的基基于服务务器的作作业日程程安排，你可以以直观地地控制多多个服务务器，并并且实现现分布式式环境命命令构成成的远程程操作的的自动执执行。考考虑到与与Intternnet的的集成，SQLL Seerveer还提提供了高高性能的的Webb页面信信息访问问机制。它的新新组件WWeb Asssisttantt能使你你通过多多种方式式利用SSQL数数据推广广你的WWeb服服务，允允许在一一个私有有Inttrannet网网或在世世界范围围网（IInteerneet）的的Webb上分发发公司数数据。 （3）客客户端系系统软件件。客户户端操作作系统可可采用WWinddowss NTT Woorkssta

33、ttionn 4.0 或或Winndowws 998中文文版。（三）数数据库设设计1.使用用DATTA控件件连接数数据库在硬盘的的用户盘盘上建立立一个用用户目录录（如EE:WWORKK），用用于保存存所有实实验文件件。启动动ACCCESSS，找到到数据库库“仓储管管理信息息系统”,确认认有货物物表，并并已经录录入了多多条数据据。将“仓储管管理信息息系统”数据库库打开，转化997格式式的数据据库，取取名“仓储管管理信息息系统-97”，复制制到用户户目录下下。启动VBB，在窗窗体上加加入DAATA控控件daata11，文本本框控件件texxt1，保存文文件和工工程到用用户目录录下。设置DAATA控

34、控件的ddataabassenaame属属性为“仓储管管理信息息系统997”，设置置DATTA控件件的Reecorrdsoourcce属性性为货物物表。设设置文本本框控件件的daatassourrce属属性为ddataa1,设设置文本本框控件件的daataffielld属性性为货物物名称。运行程序序，查看看结果。修改上上述文本本框控件件的daataffielld属性性，查看看结果。添加其其他文本本框控件件，设置置属性，显示更更多的货货物表内内容。2.使用用ADOODC控控件连接接数据库库在硬盘的的用户盘盘上建立立一个用用户目录录（如EE:WWORKK），用用于保存存所有实实验文件件。启动动AC

35、CCESSS，找到到数据库库“仓储管管理信息息系统”,确认认有货物物表，并并已经录录入了多多条数据据。复制制到用户户目录下下。启动VBB,通过过菜单 工程部件控件添添加控件件Miccrossoftt ADDO DDATAA COONTRROL 6.00 和MMicrrosooft DATTAgrrid CONNTROOL 66.0。通过工工具箱加加两个控控件到窗窗体上。设置ADDODCC的属性性，生成成提供程程序Miccrossoftt JEET 44.0 OLEE DBB；连接接WLGGL测试连连接成功功；记录录源命令类类型：22表名称称：货物物表。设设置daataggridd控件属属性da

36、atassourrce为为ADOODC11.3.使用用数据窗窗体设计计器操作作数据库库在硬盘的的用户盘盘上建立立一个用用户目录录（如EE:WWORKK），用用于保存存所有实实验文件件。启动动ACCCESSS，找到到数据库库“仓储管管理信息息系统”,确认认有货物物表，并并已经录录入了多多条数据据。将“仓储管管理信息息系统”数据库库打开，转化997格式式的数据据库，取取名“仓储管管理信息息系统997”，复制制到用户户目录下下。启动VBB,通过过菜单 外接程程序可视化化数据管管理器，在viisdaata界界面上文文件打开数数据库Miccrossoftt ACCCESSS- “仓储管管理信息息系统99

37、7”,实用用程序数据据窗体设设计器窗体名名称:hhuowwu记录源源：货物物表添加使使用的多多个字段段到右侧侧生成窗窗体关闭。对自动生生成的窗窗体，重重新排列列位置、设置字字体大小小，颜色色，控件件长度等等，调整整界面美美观大方方，不留留空白，不显拥拥挤。（四）系系统实现现（1）实实现对供供应商管管理的代代码Privvatee Suub ccmdAAdd_Cliick() Daata11.Reecorrdseet.AAddNNewEnd SubbPrivvatee Suub ccmdDDeleete_Cliick() 如如果删除除记录集集的最后后一条记记录 记记录或记记录集中中唯一的的记录 D

38、aata11.Reecorrdseet.DDeleete Daata11.Reecorrdseet.MMoveeNexxtEnd SubbPrivvatee Suub ccmdRRefrreshh_Cllickk() 这这仅对多多用户应应用程序序才是需需要的 Daata11.ReefreeshEnd SubbPrivvatee Suub ccmdUUpdaate_Cliick() Daata11.UppdatteReecorrd Daata11.Reecorrdseet.BBookkmarrk = Daata11.Reecorrdseet.LLasttModdifiiedEnd SubbPri

39、vvatee Suub ccmdCClosse_CClicck()Unlooad Me Foorm22.ShhowEnd SubbPrivvatee Suub DDataa1_EErroor(DDataaErrr Ass Inntegger, Reespoonsee Ass Inntegger) 这这就是放放置错误误处理代代码的地地方 如如果想忽忽略错误误，注释释掉下一一行代码码 如如果想捕捕捉错误误，在这这里添加加错误处处理代码码 MssgBoox 数据错错误事件件命中错错误： & Errror$(DaataEErr) Reespoonsee = 0 忽略略错误End SubbPrivvat

40、ee Suub DDataa1_RRepoosittionn() Sccreeen.MMoussePoointter = vvbDeefauult Onn Errrorr Reesumme NNextt 这这将显示示当前记记录位置置 为为动态集集和快照照 Daata11.Caaptiion = 记录： & (DDataa1.RRecoordsset.AbssoluutePPosiitioon + 1) 对对于 TTablle 对对象，当当记录集集创建后后并使用用下面的的行时， 必必须设置置 Inndexx 属性性 DDataa1.CCapttionn = 记录录： & (Datta1.Recc

41、orddsett.ReecorrdCoountt * (Daata11.Reecorrdseet.PPerccenttPossitiion * 00.011) + 11End SubbPrivvatee Suub DDataa1_VValiidatte(AActiion As Inttegeer, Savve AAs IInteegerr) 这这是放置置验证代代码的地地方 当当下面的的动作发发生时，调用这这个事件件 Seelecct CCasee Acctioon Casse vvbDaataAActiionMMoveeFirrst Casse vvbDaataAActiionMMoveePr

42、eevioous Casse vvbDaataAActiionMMoveeNexxt Casse vvbDaataAActiionMMoveeLasst Casse vvbDaataAActiionAAddNNew Casse vvbDaataAActiionUUpdaate Casse vvbDaataAActiionDDeleete Casse vvbDaataAActiionFFindd Casse vvbDaataAActiionBBookkmarrk Casse vvbDaataAActiionCClosse Ennd SSeleect Sccreeen.MMoussePoointt

43、er = vvbHoourgglasssEnd Subb（2）实实现用户户注册的的单击事事件Privvatee Suub CCommmandd1_CClicck()If TTextt1.TTextt Annd TTextt2.TTextt Annd TTextt3.TTextt Annd TTextt3.TTextt = Texxt2.Texxt TThennpubCConnn.CoonneectiionSStriing = Proovidder=Miccrossoftt.Jeet.OOLEDDB.44.0; & DDataa Soourcce= & Appp.Paath & 仓储储管理信信息

44、系统统.mddb & ; & Perrsisst SSecuuritty IInfoo=FaalseepubCConnn.CoonneectiionTTimeeoutt = 30pubCConnn.Oppenrs.CCurssorLLocaatioon = addUseeCliienttstrSSQL = sellectt * frrom useer rs.OOpenn sttrSQQL, pubbConnn, adOOpennDynnamiic, adLLockkOpttimiistiic rs.AdddNeww rs!用户名名 = Texxt1.Texxt rs!密码 = TTextt2.

45、TTextt rs.Upddatee MsggBoxx 注注册成功功！, vbbExcclammatiion + vvbOKKOnlly, 警告告 Forrm4.Hidde Elsse m = MssgBoox(错误,请重新新登录, vvbExxclaamattionn) Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = End IfEnd Subb（3）实实现货物物出库管管理的代代码Privvatee Suub ccmdAAdd_Cliick() Daata11.Reecorrdseet.AAddNNewEnd SubbPrivvatee Suub ccmdDDeleete_Cliick() 如如果删除除记录集集的最后后一条记记录 记记录或记记录集中中唯一的的记录 Daata11.Reecorrdseet.DD