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

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

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

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

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

5、验步骤骤1 编一程程序，程程序运行行的初始始界面如如图所示示，当用用户在文文本框中中输入姓姓名，例例如输入入“张三”，单击击“确定”按钮，则则程序的的运行情情况如图图1-22所示，如如果单击击“结束”按钮，即即结束程程序运行行。源代码：Privaate Subb Coommaand11_Cllickk()Commaand22.Ennablled = FFalsseText11.Teext = End SSubPrivaate Subb Coommaand22_Cllickk()EndEnd SSub2 设计一一个猜数数字游戏戏软件，点点击出题题按钮，产产生一个个10到到99的的随机数数，然后后

6、在文本本框中由由用户输输入数字字，如果果结果不不对，应应提示是是大了，还还是小了了，否则则提示正正确。运运行界面面如图33-1所所示。程序源代码码为：Dim aa Ass SiingllePrivaate Subb Coommaand11_Cllickk() a = Innt(RRnd * 990) + 110End SSubPrivaate Subb Coommaand22_Cllickk()Dim bb Ass SiinglleDim cc Ass Siingllec = aab = TTextt1.TTexttIf c bb Thhen MsggBoxx (您猜的的数字小小了，加加油加油

7、油)If c = bb Thhen MsggBoxx (您猜对对了，恭恭喜恭喜喜)Text11.Teext = End SSubPrivaate Subb Coommaand33_Cllickk()EndEnd SSub3 设计一一个登陆陆界面，包包含用户户名、密密码及文文本框，确确定按钮钮，退出出按钮，并并编写代代码实现现，用户户名和密密码正确确时弹出出对话框框，提示示“欢迎使使用该系系统”，否则则提示“用户名名和密码码错误，请请重新输输入”截图如下：写入实现上上述内容容的一段段代码:Dim aa Ass SiinglleDim bb Ass SiingllePrivaate Subb Co

8、ommaand11_Cllickk()a = 1233b = 4566If Teext11.Teext = aa Annd TTextt2.TTextt = b TThenn MsgBBox (欢欢迎使用用该系统统)Else MsgBBox (密密码错误误，请重重新输入入)End IIfText11.Teext = Text22.Teext = End SSub一、实验名名称物流信息技技术上机机二、时间2013年年10月112日三、地点 交通与与物流工工程实验验中心，机机房（662077、62205室室）四、指导教教师 张良智智五、实验目目的掌握Forr语句的的使用,掌握DDoLooopWWh

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

10、Dim ii Ass Inntegger FFor i = 1000 TTo 9999 If (i 1100) 3 + (ii 10 Modd 100) 3 + (i MMod 10) 3 = i Theen PPrinnt ii NNexttEnd SSub2、设计一一个程序序，将用用户输入入的100个数字字进行倒倒置。截图如下：程序源代码码为：Privaate Subb Foorm_cliick()Dim ss Ass Sttrinngs = IInpuutBoox(请输入入要倒置置的数字字, 测试试)If s Theens = SStrRReveersee(s)MsgBoox ssEnd

11、 IIfEnd SSub3、设计一一个程序序，定义义一个555的二二维数组组，随机机存放110-660之间间的整数数，输出出内容如如下：1）按矩阵阵形式输输出所有有数组元元素。2）在每行行结尾输输出各行行元素之之和。3）在每列列的下面面输出主主对角线线上的元元素。截图如下：程序源代码码为：Privaate Subb Foorm_cliick()Dim II Ass Inntegger, J As InttegeerDim IIntSSumHH Ass InnteggerDim IIntSSj(11 Too 5, 1 To 5) As InttegeerRandoomizzeFor II = 1

12、 TTo 55 InttSummH = 0 Priint |; Forr J = 11 Too 5 IIntSSj(II, JJ) = Innt(RRnd() * 511 + 10) IIntSSumHH = InttSummH + InntSjj(I, J) PPrinnt IIntSSj(II, JJ); Nexxt JJ Priint |; Priint InttSummHNext IFor II = 1 TTo 55Printt ;Next IPrinttPrintt ;For II = 1 TTo 55 Prinnt IIntSSj(II, II);Next IPrinttPrint

13、t ;For II = 1 TTo 55 Prinnt IIntSSj(66 - I, I);Next IEnd SSub一、实验名名称数据库操作作上机二、时间2013年年10月116日三、地点 交通与与物流工工程实验验中心，机机房（662077、62205室室）四、指导教教师 张良智智五、实验目目的理解关系数数据库的的基本概概念，掌掌握Acccesss数据据管理系系统的基基本操作作。练习习建立数数据表，熟熟悉各数数据类型型的内容容。六、实验用用仪器设设备计算机、AACCEESS软软件七、实验内内容与实实验步骤骤1 ACCCESSS数据库库软件的的主要功功能有：新建数据库库，截图图如下：图1

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

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

16、控件ddataa1，文文本框控控件teext11，保存存文件和和工程到到用户目目录下。设置DATTA控件件的daatabbaseenamme属性性为“仓储管管理信息息系统997”，设置置DATTA控件件的Reecorrdsoourcce属性性为货物物表。设设置文本本框控件件的daatassourrce属属性为ddataa1,设设置文本本框控件件的daataffielld属性性为货物物名称。运行程序，查查看结果果。修改改上述文文本框控控件的ddataafieeld属属性，查查看结果果。添加加其他文文本框控控件，设设置属性性，显示示更多的的货物表表内容。显示多个货货物表信信息的界界面截屏屏如下：图

17、10 货货物出库库查询2、使用AADODDC控件件连接数数据库在硬盘的用用户盘上上建立一一个用户户目录（如如E:WORRK），用用于保存存所有实实验文件件。启动动ACCCESSS，找到到数据库库“仓储管管理信息息系统”,确认认有货物物表，并并已经录录入了多多条数据据。复制制到用户户目录下下。启动VB,通过菜菜单 工工程部件控件添添加控件件Miccrossoftt ADDO DDATAA COONTRROL 6.00 和MMicrrosooft DATTAgrrid CONNTROOL 66.0。通通过工具具箱加两两个控件件到窗体体上。设置ADOODC的的属性，生生成提供程程序Miccrosso

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

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

20、发上机二、时间2013年年11月13日三、地点 交通与与物流工工程实验验中心，机机房（662077、62205室室）四、指导教教师 张良智智五、实验目目的通过编制系系统可行行性分析析报告了了解物流流信息系系统可行行性分析析的内容容，通过过系统业业务流程程图的绘绘制，熟熟悉系统统业务过过程，学学会绘制制业务流流程图；通过界界面设计计熟练输输入设计计、输出出设计的的方法，掌掌握基本本的界面面设计方方法。六、实验用用仪器设设备计算机、AACCEESS、WWORDD、VBB、DiiagrramDDesiigneer软件件七、实验内内容与实实验步骤骤1 系统可可行性分分析（1）方案案的可行行性 本本系统

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

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

23、.业务流流程图图13 入入库作业业流程图图图14 出库作作业流程程图图15 盘盘点作业业流程图图3界面设设计截图图如下：图16 用用户登录录界面图17 仓仓储管理理系统主主界面图18 客客户管理理界面图19 供供应商查查询界面面图20 供供应商管管理界面面一、实验名名称物流信息系系统开发发上机二、时间2013年年11月28日三、地点 交通与与物流工工程实验验中心，机机房（662077、62205室室）四、指导教教师 张良智智五、实验目目的通过系统分分析（含含业务流流程分析析和数据据流程分分析）、系系统设计计（含数数据库设设计、界界面设计计）、系系统实施施等环节节，让学学生全面面掌握物物流信息息

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

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

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

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

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

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

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

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

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

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

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

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

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

37、器窗体名名称:hhuowwu记录源源：货物物表添加使使用的多多个字段段到右侧侧生成窗窗体关闭。对自动生成成的窗体体，重新新排列位位置、设设置字体体大小，颜颜色，控控件长度度等，调调整界面面美观大大方，不不留空白白，不显显拥挤。（四）系统统实现（1）实现现对供应应商管理理的代码码Privaate Subb cmmdAddd_CClicck() Datta1.Reccorddsett.AdddNeewEnd SSubPrivaate Subb cmmdDeelette_CClicck() 如果果删除记记录集的的最后一一条记录录 记录录或记录录集中唯唯一的记记录 Datta1.Reccorddset

38、t.Deelette Datta1.Reccorddsett.MooveNNexttEnd SSubPrivaate Subb cmmdReefreesh_Cliick() 这仅仅对多用用户应用用程序才才是需要要的 Datta1.ReffresshEnd SSubPrivaate Subb cmmdUppdatte_CClicck() Datta1.UpddateeReccordd Datta1.Reccorddsett.Boookmmarkk = Datta1.Reccorddsett.LaastMModiifieedEnd SSubPrivaate Subb cmmdCllosee_Cll

39、ickk()Unloaad MMe Forrm2.ShoowEnd SSubPrivaate Subb Daata11_Errrorr(DaataEErr As Inttegeer, Ressponnse As Inttegeer) 这就就是放置置错误处处理代码码的地方方 如果果想忽略略错误，注注释掉下下一行代代码 如果果想捕捉捉错误，在在这里添添加错误误处理代代码 MsggBoxx 数数据错误误事件命命中错误误： & EErroor$(DattaErrr) Ressponnse = 00 忽略错错误End SSubPrivaate Subb Daata11_Reepossitiion() S

40、crreenn.MoouseePoiinteer = vbbDeffaullt On Errror Ressumee Neext 这将将显示当当前记录录位置 为动动态集和和快照 Datta1.Capptioon = 记记录： & (Daata11.Reecorrdseet.AAbsooluttePoosittionn + 1) 对于于 Taablee 对象象，当记记录集创创建后并并使用下下面的行行时， 必须须设置 Inddex 属性 Daata11.Caaptiion = 记录： & (DDataa1.RRecoordsset.ReccorddCouunt * (Datta1.Reccordd

41、sett.PeerceentPPosiitioon * 0.01) + 1End SSubPrivaate Subb Daata11_Vaaliddatee(Acctioon AAs IInteegerr, SSavee Ass Inntegger) 这是是放置验验证代码码的地方方 当下下面的动动作发生生时，调调用这个个事件 Sellectt Caase Acttionn CCasee vbbDattaAcctioonMooveFFirsst CCasee vbbDattaAcctioonMoovePPrevviouus CCasee vbbDattaAcctioonMooveNNextt C

42、Casee vbbDattaAcctioonMooveLLastt CCasee vbbDattaAcctioonAdddNeew CCasee vbbDattaAcctioonUppdatte CCasee vbbDattaAcctioonDeelette CCasee vbbDattaAcctioonFiind CCasee vbbDattaAcctioonBoookmmarkk CCasee vbbDattaAcctioonCllosee Endd Seelecct Scrreenn.MoouseePoiinteer = vbbHouurgllasssEnd SSub（2）实现现用户注注

43、册的单单击事件件Privaate Subb Coommaand11_Cllickk()If Teext11.Teext Andd Teext22.Teext Andd Teext33.Teext Andd Teext33.Teext = TTextt2.TTextt ThhenpubCoonn.ConnnecctioonSttrinng = PProvvideer=MMicrrosooft.Jett.OLLEDBB.4.0; & Daata Souurcee= & AApp.Patth & 仓储管管理信息息系统.mdbb & ; & PPerssistt Seecurrityy Innfo=F

44、allsepubCoonn.ConnnecctioonTiimeoout = 330pubCoonn.Opeenrs.CuursoorLoocattionn = adUUseCClieentstrSQQL = sseleect * froom uuserr rs.Oppen strrSQLL, ppubCConnn, aadOppenDDynaamicc, aadLoockOOptiimissticc rrs.AAddNNew rrs!用用户名 = TTextt1.TTextt rrs!密密码 = Teext22.Teext rrs.UUpdaate MMsgBBox 注册册成功！, vbEE

45、xcllamaatioon + vbbOKOOnlyy, 警告 FFormm4.HHidee EElsee mm = MsggBoxx(错错误,请请重新登登录, vbbExcclammatiion) TTextt1.TTextt = TTextt2.TTextt = TTextt3.TTextt = End IIfEnd SSub（3）实现现货物出出库管理理的代码码Privaate Subb cmmdAddd_CClicck() Datta1.Reccorddsett.AdddNeewEnd SSubPrivaate Subb cmmdDeelette_CClicck() 如果果删除记记录集的的最后一一条记录录 记录录或记录录集中唯唯一的记记录 Datta1.