VB物流管理系统毕业论文

1、本科毕业设计（论文）VB物流管理系统的设计与实现第一章 绪论1. 研究的目的和意义当今时代的两个显著特点就是世界经济一体化和以计算机为代表的信息技术的快速发展。管理信息系统的应用能够提供这种有效的决策支持。以管理技术和计算机技术为基础的管理信息系统已经步入中国工业企业的经营生产活动中。因此,现代管理信息系统在社会主义市场经济竞争中有深远的战略地位和目标。运输管理信息系统是为企业提供有关内部经营，外部环境和决策支持信息而建立起来的信息保障体系。目前，在欧美发达国家，绝大多数企业都在不同程度上建立起来了自已的企业管理信息系统，以确保在竞争中处于有利的地位。在我国，随着市场经济的发展，企业技术进步和

2、管理水平的不断提高，市场的作用不断扩大，中小个业急需要管理信息软件来管理个业的日常经营活动。但是， 伴随着信息产业技术的发展，某些传统的方式在处理庞大的信息量时已经显得力不从心，人们对于运用计算机来辅助协调和管理的需求正逐步提高人们希望能借助计算机技术实现某些方面的自动化管理。因此本系统主要针对物流的运输开展分析设计，开发了一套方便快捷的物流运输管理系统。该系统是集现代运输、调度、跟踪为一体的网络系统。2. 国内外发展现状及趋势随着社会的进步，现代物流行业有了突飞猛进的发展，在中国，物流行业作为经济发展的一个重要热点和新的经济增长点，得到越来越多人的重视，各大物流企业的成立，标志着我国的物流事

3、业已经进入了一个新的历史时期，我国国民经济连续多年高速增长，为现代物流发展创造了良好地条件。但同时也要看到的是，中国物流业由于受多方面因素的影响,物流质量总体水平比较低，物流成本占到 GDP 的比重为 20%。随着我国加入 WTO 的脚步日益临近，世界物流业强手正纷纷抢占我国市场，国内物流企业面临着前所未有的严峻挑战。我国各类物流企业有 70 万家左右，如何实现最佳的物流，已成为社会各行各业最富挑战意义的作业领域之一。目前，我国的物流发展还存在着很多问题，交通运输业发展缓慢，物流领域的信息化程度低，物流管理水平低，物流流程不规范，物流布局不合理，技术含量不高等因素都成为了我国物流行业的瓶颈。现

4、代物流的发展已从只注重分散的物流功能，发展到越来越重视物流过程的整合。它不仅是物资流的整合，更是一个信息流的整合过程。建立一个高速畅通、动态互联的标准化信息系统，便成为提升整个物流企业的竞争力、加速物流企业发展的重要因素之一。党的十六大提出，以信息化带动工业化。信息化不是一个纯技术性的问题，也是管理理念、管理方法的问题。物流信息化成为物流发展的灵魂，没有物流的信息化，就谈不上物流的现代化。信息技术是现代物流的基础也是核心。面对日趋激烈的、国际化的竞争，物流企业需要及时跟踪货物的运输状态；准确实时地了解库存信息；合理地调配和使用车辆、库房、人员等各种资源；为客户提供实时的信息查询等。可以说信息系

5、统是物流企业生存的必要条件，许多跨国企业及国内的大型生产企业在选择第三方物流企业时，其首要条件就是物流服务企业要具有信息系统。中国的物流企业，特别是传统的物流企业要想在这新一轮的竞争中立于不败之地，必须从业务流程整合着手，引入国际标准的、与中国具体实践相结合的信息管理。一套适合于中国国情的物流信息系统软件既是物流企业保证其各项职能相互协调并保持高效的必要条件，同时也是实现与其它企业联盟使得物流服务整体化的必要条件。3. 可行性研究技术可行性本系统使用现有的技术就可以实现。物流运输管理系统后台数据库采用access2003，以保证数据的安全、高效和稳定。前台采用Microsoft公司的Visua

6、l Basic6.0作为系统主要的开发工具，它可与access数据库无缝连接。数据库使用access，而VB对数据库的访问通过微软开发的0DBC来提供连接。从现有的技术来看是完全可行的。经济可行性一一本系统的用途是用来使物流企业信息化，通过信息化来提高专业物流企业的运作效率，而物流对于经济的高效运行是存在非常关键的制约作用的，提高物流业的运行效率。 而且由于本系统是为物流企业使用的系统，装上该应用软件，即可使用系统，系统成本主要集中在系统软件的开发上，当系统投入运行后可以为物流公司节约大量的人力，物力。所带来的效益远远大于系统软件的开发成本。在经济上是完全可行的。操作可行性界面设计充

7、分考虑管理人员的工作方式和习惯，使得操作简单方便；操作方式的设计采用很多通用己被人们所接受的方式。数据录入方面要做到迅速、规范、可靠；统计准确；适应力强；容易扩充。对于物流工作人员来说操作简便易行，操作可行性是肯定的。由于本系统是针对物流公司具体现状进行开发。具有特色和鲜明的针对性，且在技术可行性、经济可行性、操作可行性上都可以实现，可以进一步实现了。35第二章 系统开发环境及数据库工具介绍1. 开发环境及编译环境Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它

8、源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VB访问数据库通常有三种途径：第一，通过数据库控制控件Data Control访问；第二，通过VB提供的数据库对象变量编程访问系统开发平台：Visual Basic 6.0系统开发语言：VB语言数据库管理系统软件：Microsoft access 2003运行平台：Microsoft Windows XP/ Windows 7分辨率：最佳效果：1024×768

9、2. 数据库工具的简介及相关技术Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理 系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2012年12月4日,最新的微软Office Access 2003在微软Office 2013里发布,微软Office Access 2003 是前一个版本。软件开发人员和数据架构师可以使用Microsoft Access开发应用软件,“高级用户”可以使用它来构建软件应用程序。和其他办公应用程序一样，ACCESS支持Visual Basic宏语言,

10、它是一个面向对象的编程语言,可以引用各种对象，包括DAO(数据访问对象),ActiveX数据对象,以及许多其他的ActiveX组件。可视对象用于显示表和报表，他们的方法和属性是在VBA编程环境下，VBA代码模块可以声明和调用Windows操作系统函数。第三章 需求的分析1. 引言本系统就是根据中小型企业的实际需求而开发的一套物流运输管理系统。系统的开发能够帮助企业实现对物流全过程的优化调度和动态控制，高效整合企业的物流业务，以全面提高经济效益和效率的为目的，提供高效、实用、科学的物流运输管理系统和运营手段。2. 系统总体设计目标利用现代物流信息技术对配送业务的需要，开发研制出物流运输管理系统。

11、系统分为货物托运申请、车辆调度管理、托运管理、在途跟踪、信息查询等日常处理业务。高效性通过系统的实用，实现了手工管理与计算机管理的无缝连接，使物流企业的日常管理更加规范、缜密，能有效提高工作效率，降低成本；避免工作漏洞；是业务人员不可多得的好工具、是管理人员值得依赖的好管家。使用本系统后，可有效提高物流公司的服务质量和竞争力。使用功能强大的操作系统和数据库平台，最大限度的保证系统效率和安全。用户权限验证使用口令验证，保证用户在规定权限内操作。实现物流管理的计算机自动化，系统应符合物流管理制度，并达到操作直观、方便、实用、安全等要求。物流运输管理系统遵循企业管理的方法，利用计算机技术，数据库技术

12、，数据通讯技术。全面收集和处理数据，提供各类信息，并利用现代化管理方法，建立具有多种辅助决策功能的模块，为现代物流的管理提供决策支持，从而提高企业现代管理水平，达到提高企业整体素质，提高经济效益的目的。本系统在设计的时候应该满足以下几个目标:(1)采用人机对话的操作方式，界面设计美观友好、信息查询灵活、方便、快捷、准确、数据存储安全可靠。(2)满足键盘和鼠标的双重操作，快速响应。(3)在操作时响应热键。(4)采用模糊查询查询数据。(5)操作员可以随时修改自己的口令。(6)管理员可以设置操作员的权限。(7)对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。(8)数据保密性强，为每个

13、用户设置权限级别。(9)系统最大限度地实现了易安装性、易维护性和易操作性。(10)系统运行稳定、安全可靠。3. 物流运输管理系统需求分析通过市场调查，需要本系统具有以下功能。(1)统一友好的操作界面，能保证系统的易用性。(2) 规范、完善的基础信息设置。(3) 灵活的报表设计及打印功能。(4)实现货物申请、托运、跟踪及验收的全过程。(5)全方位的信息查询功能。(6) 系统日志详细记录各种操作，提供追查的有力依据。(7) 完善的权限管理，增强系统的安全性。(8) 强大的数据备份功能，保证系统数据的安全性。4. 系统可行性分析由于传统物流行业操作过程复杂，手续繁多，业务信息多，围绕这些信息的处理也

14、很纷杂。而且，物流行业竞争激烈，这种竞争，一方面表现在发展客户的市场开拓上，另一方面也存在于收集处理信息的速度、广度和深度，以及在业务操作中对业务数据处理的准确性和严密性，而更高层次上，还牵涉到公司决策层对整体业务的控制和协调。物流运输管理系统从物流行业的实际需求出发，参照先进的物流理念和多家领先的物流公司实际的运营流程开发而成，系统从完善的基础信息设置到货物的托运管理、信息查询、到最后各种报表的生成,清晰的业务流程,使操作人员能够按照流程清晰的进行实际的操作,保证物流运作有序而高效的进行。5. 系统功能结构物流运输管理系统的系统功能结构如图3-1所示。物流管理系统基本信息设置退出系统信息查询

15、系统管理客户资料设置车辆资料设置托运申请查询车辆调度查询货物托运查询货物验收查询用户管理系统备份重新登录退出系统员工资料设置托运申请车辆调度货物托运货物验收退出系统在线跟踪用户管理 图3-1 物流运输管理系统功能结构图第四章 总体设计1. 项目规划物流管理系统由基本信息设置、货物托运管理、信息查询、系统管理等模块组成，规划系统功能模块如下：基本信息设置模块：该模块主要负责完成员工资料设置、客户资料设置、车辆资料设置。货物托运管理模块：该模块主要有车辆调度安排、托运申请单管理、货物托运单管理、货物验收单管理、车辆配送跟踪记录单几部分组成。信息查询模块：该模块由货物申请单查询、车辆调度信息查询、货

16、物托运信息查询、货物托运验收查询几部分组成。系统管理模块：该模块用户管理、数据备份部分组成。2. 数据库表结构设计本系统的数据库采用ACCESS 2003，新建系统数据库名称为物流管理系统，数据库中包含员工信息表，用户信息表，客户信息表，车辆信息表，车辆调度信息表，货物申请单信息表，托运单信息表，在线跟踪信息表，客户验收表。下面列出主要表的结构:表4-1用户信息表字段名数据类型数据长度描 述user_bhiduser_nameuser_codecharvarcharchar102010编号用户名用户密码员工信息表：表4-2 员工信息表字段名数据类型数据长度描述ygxx_ygidygxx_ygx

17、mygxx_xbygxx_lxdhygxx_zwygxx_bzvarcharvarcharcharvarcharvarchartext203010303016员工编号员工姓名性别联系电话职务备注客户验收数据表：表4-3 客户验收数据表字段名数据类型数据长度描述khys_idkhys_ysbhkhys_khmckhys_tydhkhys_ysrqkhys_ysdwkhys_ysrkhys_bzvarcharvarcharvarcharvarchardatetimevarcharvarchartext303020308502016记录编号客户验收编号客户名称托运单号验收日期验收单位验收人备注在途调

18、度信息表：表4-4 在途调度信息表字段名数据类型数据长度描述ztdd_ddbhztdd_rwdhztdd_cphmztdd_sjxmztdd_lxdhztdd_jsrwvarcharvarcharvarcharvarcharcharvarchar302020302050在途调度编号接受任务单号车牌号码司机姓名联系电话接受任务货物申请单信息表：表4-5 货物申请单信息表字段名数据类型数据长度描述husqd_sqdhhusqd_khbhhusqd_khmchusqd_chrqhusqd_zjmchusqd_tjhusqd_kprqhusqd_ddbhhusqd_zjslhusqd_yfhusqd_

19、cfddhusqd_fjmchusqd_fsfyhusqd_clbhvarcharvarcharvarchardatetimevarcharIntdatetimevarcharIntvarcharvarcharvarcharvarcharvarchar303030850483042050502030申请单号客户编号客户名称出货日期主件名称体积开票日期订单编号主件数量运费出发地点附件名称分送费用车辆编号在线跟踪信息表: 表4-6 在途跟踪信息表字段名数据类型数据长度描述ztgz_idztgz_tydhztgz_sjxmztgz_cphmztgz_ddsjztgz_sjsjztgz_ddddvar

20、charvarcharvarcharvarchardatetimecharvarchar2030203082030编号托运单号司机姓名车牌号码到达时间司机手机到达地点3. 运输管理系统业务流程图用户判断用户名、密码N登录基本资料设置信息查询系统管理退出系统Y物流管理系统数据库图4-2 系统业务流程图第五章 系统的详细设计与实现1. 系统登录设计系统登录主要用于登录物流运输管理系统的用户进行安全性检查，以防止非法用户登录系统。系统登录界面如图5-1所示。图5-1系统登录设计在登录系统时验证操作员及其密码，主要通过ADO控件中记录集对象结合If语句判断用户选定的用户，及其输入的密码与数据库中的操作

21、员和密码是否相同来实现。2. 物流管理系统主界面设计系统主界面主要包括菜单栏、工具栏（由ToolBar控件实现）和状态栏（由Statusbar控件实现）三部分组成，是整个管理系统流程实现的主窗体，界面设计简单明了，为用户提供了便捷的访问途径。状态栏将显示系统运行时间、日期、操作员信息，其中状态栏的操作信息主要是通过“系统登录”窗体中的“登录操作员”传递而得到的。通过菜单和工具栏可以控制系统中的各个功能的子窗体，完成相关的功能操作。主窗体运行结果如图5-2所示。图5-2物流运输管理系统主窗体主要实现代码如下：Private Sub MDIForm_Load()Me.StatusBar1.Pane

22、ls(2).Text = "系统当前使用者：" & Form1.Combo1.TextMe.StatusBar1.Panels(1).Text = "欢迎使用本系统 制作人 ：夏磊"End SubPrivate Sub tcxt_Click()EndEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(3).Text = "系统当前时间：" & NowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSCom

23、ctlLib.Button)Select Case Button.IndexCase 1tysq.Show 1Case 2cldd.Show 1Case 3hwtyy.Show 1Case 4hwys.Show 1Case 5yhgl.ShowCase 6zxgz.Show 1Case 7EndEnd SelectEnd SubPrivate Sub TYS_Click()tysqcx.Show 1End SubPrivate Sub xt_Click()xtbeifen.Show 1End Sub3. 货物托运申请管理在正式托运货物之前，需要进行托运货物申请，在进行托运货物申请时需要填写托运

24、货物申请单，托运申请单经过核对之后，才可以填写货物托运单进行托运货物。可以按照托运单号有序的对托运货物有效地处理，在托运申请单中记录托运货物的详细信息，以便托运货物时进行核对。当启动窗体时，通过ADO控件的ConnectionString属性连接到后台数据库access中。货物托运申请管理模块如图5-3所示。图5-3 货物托运申请窗体主要实现代码如下：Private Sub save()If Text1(0).Text = "" ThenMsgBox "请输入客户编号", 48, "提示信息"ElseIf Text1(1).Text

25、= "" ThenMsgBox "请输入客户名称", 48, "提示信息"ElseDim ConStr As StringDim cnn As New ADODB.ConnectionDim rss As New ADODB.RecordsetConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "sjk.mdb"cnn.Open ConStrrss.Ope

26、n "select * from hwty where 客户编号='" + Text1(0).Text + "'", cnn, adOpenKeyset, adLockUnspecifiedIf rss.RecordCount = 0 ThenDim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcc = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App

27、.Path & "sjk.mdb"cn.Open cccn.CursorLocation = adUseClientrs.Open "insert into hwty(客户编号,客户名称,出货日期,主件名称,体积,开号日期,订单编号,主件数量,运费,合同编号,出发地点,附件名称,分送费用,车牌号码,目的地点,附件数量,合计金额,车辆编号,距离,吨位,备注 )values('" + Text1(0).Text + "','" + Text1(1).Text + "','"

28、; + Str(DTPicker1.Value) + "','" + Text2(0).Text + "','" + Text2(1).Text + "','" + Str(DTPicker2.Value) + "','" + Text2(2).Text + "','" + Text2(3).Text + "','" + Text2(4).Text + "',&#

29、39;" + Text2(5).Text + "','" + Text2(6).Text + "','" + Text2(7).Text + "','" + Text2(8).Text + "','" + Combo1.Text + "','" + Text2(9).Text + "','" + Text2(10).Text + "','&quo

30、t; + Text3.Text + "','" + Text4.Text + "','" + Text2(11).Text + "','" + Text2(12).Text + "','" + Text2(13).Text + "')", cn, adOpenKeyset, adLockUnspecifiedMsgBox ("添加成功")For i = 0 To 1Text1(i).Text = &quo

31、t;"Next iFor i = 0 To 13Text2(i).Text = ""Next iFor i = 0 To 1Text1(i).Enabled = FalseNext iFor i = 0 To 13Text2(i).Enabled = FalseNext iToolbar1.Buttons(3).Enabled = FalseToolbar1.Buttons(1).Enabled = TrueElseMsgBox "该员工信息已经存在", 48, "提示信息"For i = 0 To 1Text1(i).Te

32、xt = ""Next iFor i = 0 To 13Text2(i).Text = ""Next iEnd IfEnd IfEnd IfEnd Sub4. 车辆调度安排车辆调度安排是物流运输管理系统中的重要环节，物流公司再接收到货物托运信息之后，首要的问题是安排托运货物的车辆。在本系统中通过车辆调度安排填写好安排托运车辆的信息，司机根据调度通知单上的信息执行托运任务。通过车辆资料设置选择车牌号码，然后输入一些辅助信息，最后保存车辆调度安排信息。工具栏中的控制按钮控制着窗体的各项操作，在ToolBar控件的ButtonClick事件中，车辆调度安排的模

33、块运行结果如图5-4所示。图5-4 车辆调度安排窗体5. 货物托运管理在货物托运申请完成之后，就可以填写货物托运单，托运司机根据货物托运单将货物托运到客户手中。对于同一张货物托运单，可以托运多种不同的货物，在托运管理中可以添加或删除托运货物，还可以通过ListView控件浏览货物托运单信息。如图5-5所示。图5-5 货物托运单管理窗体6. 在线跟踪管理在途跟踪是对正在进行托运的货物信息进行管理，托运司机在托运货物的过程中，每到一个地方或者在托运过程中出现某些异常情况，就会给托运公司反馈一个信息，托运公司将反馈回来的信息进行记录，并且对反馈回来的异常情况进行处理，整个过程实现在途跟踪。在途跟踪管

34、理模块运行结果如图5-6所示。图5-6 在途跟踪管理窗体主要实现代码如下：Private Sub Combo1_Click()Dim rss As New ADODB.RecordsetDim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "sjk.mdb"cn.CursorLocation = adU

35、seServerrs.Open "select * from hwtygl where 托运单号='" + Combo1.Text + "'", cn, adOpenKeyset, adLockUnspecifiedText2.Text = rs.Fields(1).ValueText3.Text = rs.Fields(12).ValueText4.Text = rs.Fields(11).ValueText5.Text = rs.Fields(13).Valuerss.Open "select * from cldd whe

36、re 车牌号码='" + rs.Fields(11) + "'", cn, adOpenKeyset, adLockUnspecifiedText1.Text = rss.Fields(8).ValueEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "sjk.mdb;Persist Security Info=False"

37、'Adodc1.CommandType = adCmdText 'Adodc1.RecordSource = "select * from zxgz"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1Frame1.Enabled = FalseToolbar1.Buttons(3).Enabled = FalseDim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.Jet.OLEDB.4

38、.0;" & "Data Source=" & App.Path & "sjk.mdb"cn.CursorLocation = adUseServerrs.Open "select 托运单号 from hwtygl", cn, adOpenKeyset, adLockUnspecified With Combo1 Do While Not rs.EOF .AddItem rs("托运单号").Value rs.MoveNext Loop End With Dim dd As New

39、 ADODB.Recordsetdd.Open "select 托运单号 from zxgz", cn, adOpenKeyset, adLockUnspecifiedDo While Not dd.EOFSet add = ListView1.ListItems.add(, , dd.Fields(0)dd.MoveNextLoopEnd SubPrivate Sub ListView1_Click()Dim rss As New ADODB.RecordsetDim cn As New ADODB.ConnectionDim rs As New ADODB.Record

40、setcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "sjk.mdb"cn.CursorLocation = adUseServerrs.Open "select * from zxgz where 托运单号='" + ListView1.SelectedItem.Text + "' ", cn, adOpenKeyset, adLockUnspecifi

41、edCombo1.Text = rs.Fields(0).ValueText2.Text = rs.Fields(1).ValueText3.Text = rs.Fields(2).ValueText4.Text = rs.Fields(3).ValueText5.Text = rs.Fields(4).ValueText6.Text = rs.Fields(5).ValueDTPicker1.Value = rs.Fields(6).ValueText7.Text = rs.Fields(7).Valuerss.Open "select * from cldd where 车牌号码

42、='" + rs.Fields(3).Value + "'", cn, adOpenKeyset, adLockUnspecifiedText1.Text = rss.Fields(8).Value & Chr(13) & Chr(10) & "车辆到达: " + rs.Fields(5).Value + " "End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case B

43、utton.IndexCase 1Frame1.Enabled = TrueToolbar1.Buttons(3).Enabled = TrueToolbar1.Buttons(1).Enabled = FalseCase 2Call deleteCase 3Call saveCase 4Text2.Text = ""Text3.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Combo1.Text = ""Case

44、 5Unload MeEnd SelectEnd SubPrivate Sub save()If Combo1.Text = "" ThenMsgBox "请输入托运单号", 48, "提示信息"ElseDim rr As New ADODB.RecordsetDim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=&q

45、uot; & App.Path & "sjk.mdb"cn.CursorLocation = adUseServerrs.Open "select * from zxgz where 托运单号='" + Combo1.Text + "' ", cn, adOpenKeyset, adLockUnspecifiedIf rs.RecordCount = 0 Then rr.Open "insert into zxgz(托运单号,编号,司机姓名,车牌号码,司机手机,到达地点,到达时间,备注) va

46、lues('" + Combo1.Text + "','" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Str(DTPicker1.Value) + "','"

47、 + Text7.Text + "')", cn, adOpenKeyset, adLockUnspecifiedMsgBox "保存成功", 48, "提示信息"Adodc1.RefreshFrame1.Enabled = FalseToolbar1.Buttons(3).Enabled = FalseToolbar1.Buttons(1).Enabled = TrueText2.Text = ""Text3.Text = ""Text5.Text = ""Text

48、6.Text = ""Text7.Text = ""Combo1.Text = ""ListView1.ListItems.ClearDim dd As New ADODB.Recordsetdd.Open "select 托运单号 from zxgz", cn, adOpenKeyset, adLockUnspecifiedDo While Not dd.EOFSet add = ListView1.ListItems.add(, , dd.Fields(0)dd.MoveNextLoopElseMsgBox &

49、quot;数据已存在", 48, "提示信息"End IfEnd IfEnd SubPrivate Sub delete()If Combo1.Text = "" ThenMsgBox "输入要删除的托运单号", 48, "提示信息"ElseDim delet As New ADODB.RecordsetDim ConStr As StringDim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetConStr = "Provider

50、=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "sjk.mdb"cn.Open ConStr Set rs = cn.Execute("select * from zxgz where 托运单号='" + Combo1.Text + "'")If rs.BOF ThenMsgBox ("没有该数据")Else C = MsgBox("确认删除该信息吗", 17

51、, "提示信息") If C = vbOK Then Set delet = cn.Execute("delete from zxgz where 托运单号='" + Combo1.Text + "'") MsgBox "数据修改成功" Adodc1.RefreshListView1.ListItems.ClearDim dd As New ADODB.Recordsetdd.Open "select 托运单号 from zxgz", cn, adOpenKeyset, adLo

52、ckUnspecifiedDo While Not dd.EOFSet add = ListView1.ListItems.add(, , dd.Fields(0)dd.MoveNextLoopEnd IfEnd IfEnd IfText2.Text = ""Text3.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Combo1.Text = ""Text1.Text = ""7. 客户验收单管

53、理当货物到达客户手中时，便产生客户验收单，客户验收单生成时，同时反馈到货物托运单管理中的验收人，验收时间，是否验收等文本框。客户验收单管理运行结果如图5-7所示。图5-7 货物验收单管理窗体8. 信息查询在信息查询模块设计中，由于各个查询功能形式相同，所以将同一项功能放到同一个窗体中，可以减少运输管理系统中窗体的数量和代码数量，提高程序的运行速度。窗体的设计主要通过在主窗体查询模块的菜单中设置一个标识变量，然后在查询窗体中根据这个标识变量设置具体实现的查询功能，如将托运申请单查询的标识变量设置为1，车辆调度信息查询的标识变量设置为2等。这样在查询窗体中，当窗体启动时进行判断，如果标识变量是1，

54、则进行托运申请信息查询的相关操作，如果标识变量是2，则进行车辆调度信息查询的相关操作。9. 货物托运单信息查询当窗体启动时，通过接受不同的标识变量值，将相应的查询字段信息添加到ComboBox控件中，完成窗体上显示数据表中所有数据的功能，实现的代码如附录所示。信息查询模块运行结果如图5-8所示。图5-8 货物托运单查询10. 用户管理系统设计 系统用户管理模块的功能是管理用户信息，主要包括用户的用户名、密码，注册新用户、修改密码，用户管理运行结果如图5-9所示。图5-9 用户管理窗体主要实现代码如下：Private Sub Command3_Click()Dim cn As New ADODB

55、.ConnectionDim rs As New ADODB.RecordsetDim ins As New ADODB.Recordsetcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "sjk.mdb"cn.CursorLocation = adUseServerIf Text5.Text = "" ThenMsgBox ("用户名不能为空！")ElseIf Text6

56、.Text = "" ThenMsgBox ("密码不能为空！")ElseIf Text7.Text = "" ThenMsgBox ("确认密码不能为空！")Elsers.Open "select * from users where username='" + Text5.Text + "'", cn, adOpenKeyset, adLockPessimisticIf rs.RecordCount > 0 ThenMsgBox ("用户已

57、存在！")ElseIf Text6.Text = Text7.Text Thenins.Open "insert into users(username,password)values('" + Text5.Text + "','" + Text6.Text + "')", cn, adOpenKeyset, adLockPessimisticMsgBox ("注册成功！请登录")Unload MeUnload mainForm1.ShowElseMsgBox ("

58、;两次密码不符！请重新输入")End IfEnd IfEnd IfEnd IfEnd Ifcn.CloseEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Command7_Click() If Text5.Text = "" Then MsgBox "请输入你要注册的用户名！", 64, "提示信息"Dim cn As New ADODB.ConnectionD

59、im rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "sjk.mdb"cn.CursorLocation = adUseServerrs.Open "select * from users where username='" + Text5.Text + "'", cn, adOpenKeyset, adL

60、ockPessimisticIf rs.RecordCount = 0 ThenLabel8.Visible = TrueLabel9.Visible = FalseElseLabel8.Visible = FalseLabel9.Visible = TrueEnd Ifrs.Closecn.CloseEnd IfEnd Sub第六章 系统维护处理及测试1. 系统维护为了提高系统的安全性和对异常情况的处理能力，要求对数据库实现备份与恢复可实现增量备份备份，对部分数据如数据库中的表进行导入、导出操作，将重要信息可以以多种文件格式保存。为了满足原有系统或不同格式表的相互操作对格式相同的表实现导入操

61、作，方便客户和管理员以多种格式文件对数据库的数据进行管理。另外，对于管理员而言，从系统的安全性考虑，每一次当有用户登录时，便将用户名、登录时间和离开时间记录在系统的操作日志中，以便于在系统出现问题或者发生故障时及时查询和处理，而日志的操作只有具有该权限的人员才能完成。在系统中为了方便用户的日常管理，在系统工具中调用操作系统的记事本，以方便用户及时、快捷的核对数据和记录想记录的信息。2. 系统测试软件测试的目标是为了发现软件中的错误，而发现错误并不是最终的目标，通过测试发现错误之后还必须诊断并改正错误，这就是测试的目的。测试方法：软件的测试方法，分为黑盒和白盒测试。首先，我先进行黑盒测试，即功能测试。因为我已经知道了产品所应具有的功能，通过测试来检验是否每个功能都能正常使用。对各模块分别测试中，输入大量数据并