VB+SQLServer2000物流管理系统课程设计任务书
物流管理系统是由基本信息设置、货物托运管理、信息查询、报表管理、系统管理等模块组成，规划系统功能模块如下1. 基本信息设置模块
该模块主要负责完成部门资料设置、公司资料设置、员工资料设置、客户资料设置和车辆资料设置。
2．货运托运管理模块
该模块主要由车辆调度安排、托运申请单管理、货物托运单管理、货物验收单管理和车辆配送跟踪管理几部分组成。
3.信息查询由货物申请单查询、车辆调度信息查询、货物托运信息查询、货物托运验收查询和车辆在途跟踪查询几部分组成。
第一章 系统概述
1.1 系统开发的目的
物流需求与产品或服务的销售（或采购）数量直接相关。产品方面的估计一般由营销、市场或专门的计划人员完成。通常物流管理者主要是制定库存控制或车辆调度之类的短期计划，包括对提前期、价格和物流成本等进行预测，并不需要独自为企业做综合预测。物流需求特性不同，预测方法也不同。
如果需求是来自许多客户的，而且各客户彼此独立，需求量只构成企业物流总量的很少部分，此时的需求就具有随机性，被称为独立需求。第三方物流企业的物流服务需求就是一种市场需求，具有一定的独立性。
近年来随着国民经济的迅速发展和人民生活水平的提高，消费者的需求日益向精化、个性化方向发展。制造商为了满足大众的需求纷纷采用多样少量的生产方式，相应地，高频、少量的配送方式也随之产生。国内大多数企业都面临物流成本上升、投资物流现代化能力不足以及专业人才缺乏等物流问题。面对上述种种因素，今后流通业将向"专业化分工重效率"、"同业或异业合作重互补"、"聚集合作经营重综效"等三大趋势发展。因此，如何整合社会资源以提升物流作业的效率、降低物流成本，已成为目前商业自动化目标中最关键的话题之一。
1.2系统开发的背景
软件系统的名称：物流管理系统
软件系统的任务提出者：物流公司
软件系统的开发者：太原科技大学软件工程课程设计小组,本系统可管理整个物流公司的的所有业务及相关信息。
1.3系统开发的意义
随着经济全球化及现代物流业发展的系统化、信息化、仓储运输的现代化和综合化等趋势，对我国物流业的发展提出了全方位的挑战。传统物流行业的操作模式已经不适应现代的物流行业，如何缩短物流过程，降低产品库存，加速对市场的反应，这是所有企业所面临的问题。吉林省明日科技有限公司开发的《物流管理系统》就是针对这些问题并根据中小型企业的实际需求而开发的，本系统能够帮助企业实现对物流全过程的优化调度和动态控制，高效整合企业的物流业务，以全面提高经济效益和效率为目的，提供高效、实用、技术的物流管理系统和运营手段。
《物流管理系统》从物流行业的实际需求出发，参照先进的物流理念和多家领先的物流公司实际的运营流程，集现代运输、仓储配送、搬运、调度、跟踪为一体的网络系统。系统从完善的基础信息设置到货物的托运管理、在线跟踪，信息查询、到最后各种报表的生成，清晰的业务流程，使操作人员能够按照流程清晰的进行实际的操作，保证物流运作有序并高效地进行。
1.4系统开发的任务
对于典型的数据库管理系统，尤其是对像物流这样的数据流量特别大的管理系统，必须要满足使用方便、操作灵活等设计需求，实现一些初步的计算机化的管理。
1.5系统开发的环境
1.5.1 硬件环境
计算机必须满足的条件：
1） CPU: Intel Pentium 166MHz或更高的处理器（推荐赛扬或更高的处器），或任何运行于Microsoft Windows NT Workstation的Alpha的处理器。
2）操作系统： Microsoft Windows98/me/XP/2000或 Microsoft Windows NT Service/Workstation 4.0(推荐Service Pack 5)或更高版本。
3）监视器： Microsoft Windows支持的VGA或分辨率更高的监视器。
4）内存：128MB内存以上。
1.5.2 软件环境
本系统适用于Microsoft Windows98/XP/2000 下开发的，所采用的开发工具是Visual Basic6.0中文企业版。由于考虑到该学校每天的数据处理量，我们后台采用可SQLServer2000数据库。推荐桌面显示方式：1024*768像素。408
VB+SQLServer2000物流管理系统
第二章 系统的可行性研究与需求分析
2.1系统可行性研究
2.1.1 技术可行性
机器本身没有太高的要求，一般当前学校或个人电脑完全可满足要求。对于软件技术要求，现在的程序设计语言已非常成熟，系统开发平台：Visual Basic 6.0。数据库选择：SQL server2000；所以和当前使用的运行环境具有一定的兼容性。本系统是由熟悉现有系统的学生开发，现有技术可完全承担开发任务，软件能被原有工作人员快速接受，可以避免开发的软件与需求不相符的可能性。
2.1.2 经济可行性
由于本系统是为物流企业使用的系统，装上该应用软件，即可使用系统，系统成本主要集中在系统软件的开发上，当系统投入运行后可以为物流公司节约大量的人力，物力。所带来的效益远远大于系统软件的开发成本。在经济上完全可行。
2.1.3 操作可行性
界面设计时充分考虑管理人员的习惯，使得操作简单；数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充。
2.1.4 可行性研究结论
由于本系统是针对物流公司具体现状进行开发。具有特色和鲜明的针对性，且在技术可行性、经济可行性、操作可行性上都可以实现，可以进一步实现了。
2.2物流系统需求分析
物流需求与产品或服务的销售（或采购）数量直接相关。产品方面的估计一般由营销、市场或专门的计划人员完成。通常物流管理者主要是制定库存控制或车辆调度之类的短期计划，包括对提前期、价格和物流成本等进行预测，并不需要独自为企业做综合预测。物流需求特性不同，预测方法也不同。
如果需求是来自许多客户的，而且各客户彼此独立，需求量只构成企业物流总量的很少部分，此时的需求就具有随机性，被称为独立需求。第三方物流企业的物流服务需求就是一种市场需求，具有一定的独立性。
物流系统的需求分析：
１）企业物流系统中信息流的作用范围更为拓宽，不再仅仅是传统意义上企业内部物流系统的运行基础，而是随着“供应链”概念的提出，变成了整个供应链系统运营的环境基础。网络是平台，供应链是主体，电子商务是手段。信息环境对供应链的一体化起着控制和主导的作用。
2）物流系统将会更大程度上由客户需求拉动。如果假设物流系统内的所有方面都能得到网络技术的有效支持时，产品对终端客户来说，其实际可得性将极大地提高，显然此时客户的需求会发生“量”和“质”的变化，反过来会拉动物流系统更高效率的运行。同时，也可以在物流系统的各个功能环节上降低成本，如降低采购成本、减少库存成本、缩短产品开发周期、为客户提供有效的服务、降低销售和营销成本以及增加销售的机会等。
3）传统物流系统运行环节（点）将会有所变化。由于在电子商务环境下，网上客户可以直接面对制造商（即原始供应商），并可获得个性化定制服务，故传统物流渠道中的批发商和零售商等中介环节将逐步淡出，但是区域销售代理商还将受制造商委托，并会逐步加强其在渠道和地区性市场中的地位，作为制造商产品营销和服务功能的直接延伸。
4）对物流系统即时信息交换的更高要求。电子商务的一个基本的优点，就是要求在客户咨询服务的界面上，能保证企业（制造商）与各级客户间的即时互动。网站主页的设计不仅要宣传企业和介绍产品，而且要能够与客户一起就产品的设计、质量、包装、改装、交付条件、售后服务等进行“一对一”的交流，帮助客户拟定个性化的产品可行性解决方案，帮助客户下订单。这就要求得到物流系统中每一个功能环节的即时信息支持，因此，对物流系统的建设、运行提出了更高的要求，而且在很大程度上，这一要求的满足与否决定了该物流系统的效率如何，也决定了电子商务的实际价值程度。
2.2.1 系统的目标
本系统在设计的时候应该满足以下几个目标：
q 采用人机对话的操作方式，界面设计美观友好、信息查询灵活、方便、快捷、准确、数据存储安全可靠。
q 满足键盘和鼠标的双重操作，快速响应。
q 在操作时响应热键。
q 采用模糊查询查询数据。
q 操作员可以随时修改自己的口令。
q 管理员可以设置操作员的权限
q 对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。
q 数据保密性强，为每个用户设置权限级别。
q 系统最大限度地实现了易安装性、易维护性和易操作性。
q 系统运行稳定、安全可靠。
2.2.2数据要求
本系统需要的输入数据：货品信息（物品编号,物品规格,物品形式（是否易碎等等）,接收信息时间,要发送时间,运输要求（是否需冷冻）,物品数量,物主电话）、出货信息(物品编号,物品规格,物品形式（是否易碎等等）,发送时间,运输要求（是否需冷冻）,物品数量,物主电话,汽车牌号,车主姓名,车主电话)、车辆信息（汽车牌号，物品规格，物品形式（是否易碎等等），发送时间物品数量，物主电话，车主姓名，车主电话，物主电话，物主姓名）
2.2.3功能要求
处理要求：指用户要完成什么处理功能。
本系统功能需求可归纳如下：
数据登记：
登记功能用于把各种数据及时登记系统定义表中，还能修改这些数据（出货时间等）。
数据浏览：
能浏览每天的发货信息，待发货信息。
数据修改删除：
能够对已经录入的数据进行修改，还可以删除已有的数据，不会对系统造成任何损害。
性能要求:维护数据的安全性.
设定密码,限制非法用户的使用；还能修改密码，维护系统的安全性。
2.2.4编程环境的选择
本系统采用Visual Basic语言来实现， VB是一种可视化的、事件驱动型的Windows应用程序开发工具，它在GUI设计、绘图、制表、运算、通信和多媒体开发方面都具有简单易行、功能强大等优点，所以越来越受到开发人员的亲睐。VB能够读取和访问Access、Excel、DbaseX、Foxpro、Btrieve和ODBC等多种数据库，并能利用VB自身所带的数据库引擎创建数据库。所以VB在管理信息系统（MIS）的开发和建设方面得到了是益广泛的应用。
VB访问数据库通常有三种途径：第一，通过数据库控制控件Data Control访问；第二，通过VB提供的数据库对象变量编程访问；第三，通过ODBC接口访问ODBC API函数。
微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前使用最为广泛，易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。
2.2.5数据描述
1)、 数据录入和处理的准确性和实时性
数据的输入是否准确是数据处理的前提，错误的输入会导致系统输出的不正确和不可用，从而使系统的工作失去意义。数据的输入来源是手工输入。手工输入要通过系统界面上的安排系统具有容错性，并且对操作人员要进行系统的培训。
在系统中，数据的输入往往是大量的，因此系统要有一定的处理能力，以保证迅速的处理数据。
2)、 数据的一致性与完整性
由于系统的数据是共享的，在不同的题库类别中，题库是共享数据，所以如何保证这些数据的一致性，是系统必须解决的问题。要解决这一问题，要有一定的人员维护数据的一致性，在数据录入处控制数据的去向，并且要求对数据库的数据完整性进行严格的约束。
对于输入的数据，要为其定义完整性规则，如果不能符合完整性约束，系统应该拒绝该数据。
3)、 数据的共享与独立性
VB+SQLServer2000物流管理系统
整个题库发布系统的数据是共享的。然而，从系统开发的角度上看，共享会给设计和调试带来困难。因此，应该提供灵活的配置，使各个分系统能够独立运行，而通过人工干预的手段进行系统数据的交换。这样，也能提供系统的强壮性。
2.2.6数据流图
数据流图（DFD）是一种图形化技术，它描绘信息流和数据从输入移动到输出的过程中所经受的变换。数据流图有四种基本符号：正方形表示数据的源点或终点；圆角矩形代表变换数据的处理；开口矩形代表数据存储；箭头表示数据流。 若图片无法显示请联系站长QQ3710167
图2.1 物流系统数据流图
图2.2 细化了的基本信息数据流图
图2.3 细化了的货运托运管理系统数据流图
图2.4 细化了的报表生成数据流图
2.2.7数据字典
数据字典是关于数据的信息集合，也就是对数据流图中包含的所有元素的定义的集合。
主要的数据流定义
基本信息
数据流名称：基本信息
说明：公司员工、客户、车辆部门等基本资料。
定义：基本信息=公司员工资料+部门资料+车辆资料+客户资料
位置：基本信息清单
货运信息
数据流名称：货运信息
说明： 货物的实际信息。
定义：货运信息=货物数量+货物形式+目的地址+客户名称+客户编号++发票号码+流水账号
位置：货运管理表
报表信息
数据流名称：报表信息
说明： 运出货物的实际信息。
定义：报表信息=货物数量+货物形式+目的地址+客户名称+客户编号
+发票号码+流水账号
位置：报表信息表
货运申请信息
数据流名称：货运申请信息
说明： 准备运出货物的实际信息。
定义：货运申请信息=货物数量+货物形式+目的地址+客户名称+客户编号
+发票号码+流水账号+申请单号+出货日期+主件名称+体积+开票日期+订单票号
+合同编号+车辆编号+货物数量
位置：货运申请信息表
第三章 总体设计
3.1总体设计的任务
总体设计概要地说明了系统如何实现，物流管理系统是由基本信息设置、货物托运管理、信息查询、报表管理、系统管理等模块组成，规划系统功能模块如下。
图3.1 系统功能模块图若图片无法显示请联系站长QQ3710167
基本信息设置模块
VB+SQLServer2000物流管理系统
该模块主要负责完成部门资料设置、公司资料设置、员工资料设置、客户资料设置和车辆资料设置。
货运托运管理模块
该模块主要由车辆调度安排、托运申请单管理、货物托运单管理、货物验收单管理和车辆配送跟踪管理几部分组成。
信息查询模块
该模块由货物申请单查询、车辆调度信息查询、货物托运信息查询、货物托运验收查询和车辆在途跟踪查询几部分组成。
报表管理模块
该模块由货物申请单报表、货物托运单报表和货物验收单报表3部分组成。
系统管理模块
该模块由查看日志、删除日志、用户管理、数据备份、数据恢复和系统数据清理几部分组成。
3.2系统流程图
图3.2系统流程图（若图片无法显示请联系站长QQ3710167）
第四章 详细设计
4.1详细设计的任务
详细设计阶段的根本任务是确定应该怎样具体地实现所要求的试卷管理系统，包括接口的设计、程序流程图的设计、数据库的设计等。但此阶段不是具体地编写代码仅仅是设计程序的蓝图。
4.2接口设计
4.2.1外部接口
为使系统的用户界面作到可靠性、简单性、易学习和使用，系统将使用VB6、0提供的对SQL server 2000的接口，进行对数据库的数据进行访问。使用的数据库SQL server 2000的备份命令来做到对数据的保存。
在输入/输出方面，对于键盘、鼠标的输入，可以用VB的标准输入/输出，对输入进行处理。在输出方面，打印机的连接及使用，也可以用VB的标准输入/输出对其进行处理。
4.2.2内部接口
内部接口方面，各模块之间采用函数调用、参数传递、返回值的方式进行信息传递。具体参数的结构将在下面数据设计的内容中说明。接口传递的信息将是以数据结构封装了的数据，以参数传递或返回值的形式在各模块间传输。
4.3 程序流程图
（若图片无法显示请联系站长QQ3710167）
图4.1程序流程图
图4.2基本信息管理程序流程图
图4.3报表管理程序流程图
本系统是物流管理系统，是为物流公司开发设计的。用户从登录模块开始需要输入用户名以及相应的密码，如正确无误就会进入系统。反之重新输入用户名和密码重新登录超限后自动退出系统。用户进入系统后需要进行选择，用户可以进行基本资料设置（包括添加、修改、删除）、货运托运管理（车辆调度安排、托运申请单管理、货物托运单管理、货物验收单管理和车辆配送跟踪等）、信息查询（货物申请单查询、车辆调度信息查询、货物托运信息查询、货物托运验收查询和车辆在途跟踪查询）、报表管理（申请单报表、货物托运单报表和货物验收单报表）、系统管理（查看日志、删除日志、用户管理、数据备份、数据恢复和系统数据清理）。用户可以有选择的进行以上操作，在进行完上述操作后可以退出系统，也可以返回进行之前没有进行的操作。结束所有操作后就可退出系统。
VB+SQLServer2000物流管理系统
4.4数据库设计
4.4.1 数据库的库表
管理员信息（用户名、密码）
员工表(员工编号、员工姓名、员工性别、员工职务、员工部门、员工电话)
客户验收表（记录编号、客户验收编号、客户名称、托运单编号、验收日期、验收单位、验收 人）
在途调度信息表(在途调度编号、接受任务单号、车辆号码、司机姓名、联系电话、接受任务)
货物申请单信息表（申请单号、客户编号、出货日期、主件名称、体积、开票日期、订单编号、主件数量、运费、合同编号、车辆编号、目的地址、车牌号码、吨位、发票号码、所属部门）
客户表（客户编号、联系电话、客户名称、客户地址、所运物品）
部门表（部门编号、部门名称）
车辆信息表(车辆编号、车牌号码、车主姓名、车主电话、车主住址、出公司时间、回公司时间)
（1） 数据项
表4-1员工信息(employee)
列名
列标识
数据类型
长 度
主 键
空 值
员工编号
Emp_id
VARCHAR
20
Y
NO
员工姓名
Emp_name
VARCHAR
20
NO
员工性别
Emp_sex
CHAR
10
NO
员工职务
Emp_duty
VARCHER
50
员工部门
Emp_dept
VARCHER
30
员工电话
Emp_tel
VARCHAR
20
备 注
Emp_add
TEXT
16
表4-2 客户验收数据(checked)
列名
列标识
数据类型
长 度
主 键
空 值
记录编号
checked_id
VARCHAR
20
Y
NO
客户验收编号
cliechecked_id
VARCHAR
20
NO
客户名称
Clie_name
CHAR
10
NO
托运单编号
tralist_id
VARCHER
50
验收日期
Checked_date
date
8
验收单位
Checked_name
VARCHAR
20
验 收 人
Checked_person
VARCHAR
30
备 注
Checked_add
TEXT
16
表4-3在途调度信息(running)
列名
列标识
数据类型
长 度
主 键
空 值
在途调度编号
running_id
VARCHAR
20
Y
NO
接受任务单号
acceptlist_id
VARCHAR
20
NO
车辆号码
Truck_number
VARCHAR
30
NO
司机姓名
Driver_name
VARCHER
30
联系电话
Contact_tel
VARCHER
20
接受任务
Accept_task
VARCHAR
30
备 注
add
TEXT
16
表4-4货物申请单信息(applicationlist)
列名
列标识
数据类型
长 度
主 键
空 值
申请单号
application_id
VARCHAR
30
NO
客户编号
Clie_id
CHAR
30
NO
出货日期
Exgoods_date
date
8
主件名称
Goods_name
VARCHAR
30
体积
Goods_vom
CHAR
10
开票日期
Application_date
date
8
订单编号
Tesklist_id
VARCHAR
30
NO
主件数量
Goods_amount
CHAR
10
运费
Teskfree
CHAR
10
合同编号
conferid
VARCHAR
30
NO
车辆编号
Truck_id
VARCHAR
30
目的地址
Aim_address
VARCHAR
30
车牌号码
Truck_number
VARCHAR
30
吨位
Ton_amount
CHAR
10
发票号码
List_number
VARCHAR
30
所属部门
Department
VARCHER
30
备注
add
TEXT
16
表4-5客户(client)
列名
列标识
数据类型
长 度
主 键
空 值
客户编号
client_id
VARCHAR
20
Y
NO
联系电话
Client_tel
VARCHAR
20
客户名称
Client_name
VARCHAR
30
客户地址
Client_address
VARCHER
30
所运物品
Client_goods
VARCHER
20
备 注
add
TEXT
16
表4-6部门(department)
列名
列标识
数据类型
长 度
主 键
空 值
部门编号
department_id
VARCHAR
20
Y
NO
部门名称
Department_name
VARCHAR
20
NO
表4-7车辆信息(truck)
列名
列标识
数据类型
长 度
主 键
空 值
车辆编号
Truck_id
VARCHAR
20
Y
NO
车牌号码
truck_number
VARCHAR
20
NO
车主姓名
Truck_hostname
VARCHAR
30
NO
车主电话
Truck_hosttel
VARCHER
30
车主住址
Truck_hostaddress
VARCHER
20
出公司时间
Export_date
DATE
8
回公司时间
Back_date
DATE
8
备注
add
TEXT
16
4.4.2实体-联系图（ER图）
若图片载法显示请联系站长QQ3710167
图4.4总体ER图
图4.5货物申请实例
图4.6调度信息实例
图4.7车辆信息实例
图4.8员工信息实例
图4.9客户信息实例
图4.10验收单实例
图4.11部门实例
VB+SQLServer2000物流管理系统
第五章 代码实现
5.1 系统各文件功能的介绍和详解
如图5.2所示 本界面管理了各个界面，其他界面都从此界面中直接或间接调出。
系统主界面如下
图5.1系统主界面
代码如下:若图片无法显示请联系站长QQ3710167
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000&
Private Const SC_MAXIMIZE = &HF030
Private Sub BMZLSZ_Click() '部门信息设置
Frm_Bmzl.Show 1
End Sub
Private Sub CKRZ_Click()
frm_rz.Show 1
End Sub
Private Sub CLDDAP_Click()
Frm_Cldd.Show 1 '车辆调度
End Sub
Private Sub CLDDXXCX_Click()
StrCx = 2
Frm_Xxcx.Show 1
End Sub
Private Sub CLXXSZ_Click()
Frm_Clxx.Show 1
End Sub
Private Sub CXDL_Click()
Unload Me
frm_xtdl.Show
End Sub
Private Sub END_Click()
End
End Sub
Private Sub Form_Activate()
StatusBar1.Panels.Item(3).Text = Format(Now, "yyyy年mm月dd日")
AdoRs.Open "select * from tb_user where user_Name='" + Name1 + "'", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
If AdoRs.Fields("1") = 1 Then
BMZLSZ.Enabled = True
ElseIf AdoRs.Fields("1") = 0 Then
BMZLSZ.Enabled = False
End If
If AdoRs.Fields("2") = 1 Then
zwxxsz.Enabled = True
ElseIf AdoRs.Fields("2") = 0 Then
zwxxsz.Enabled = False
End If
If AdoRs.Fields("3") = 1 Then
GSZLSZ.Enabled = True
ElseIf AdoRs.Fields("3") = 0 Then
GSZLSZ.Enabled = False
End If
If AdoRs.Fields("4") = 1 Then
YGZLSZ.Enabled = True
ElseIf AdoRs.Fields("4") = 0 Then
YGZLSZ.Enabled = False
End If
If AdoRs.Fields("5") = 1 Then
KHZLSZ.Enabled = True
ElseIf AdoRs.Fields("5") = 0 Then
KHZLSZ.Enabled = False
End If
If AdoRs.Fields("6") = 1 Then
SJZLSZ.Enabled = True
ElseIf AdoRs.Fields("6") = 0 Then
SJZLSZ.Enabled = False
End If
If AdoRs.Fields("7") = 1 Then
CLXXSZ.Enabled = True
ElseIf AdoRs.Fields("7") = 0 Then
CLXXSZ.Enabled = False
End If
If AdoRs.Fields("8") = 1 Then
CLDDAP.Enabled = True
Toolbar1.Buttons(4).Enabled = True
ElseIf AdoRs.Fields("8") = 0 Then
CLDDAP.Enabled = False
Toolbar1.Buttons(4).Enabled = False
End If
If AdoRs.Fields("9") = 1 Then
SQDGL.Enabled = True
Toolbar1.Buttons(1).Enabled = True
ElseIf AdoRs.Fields("9") = 0 Then
SQDGL.Enabled = False
Toolbar1.Buttons(1).Enabled = False
End If
If AdoRs.Fields("10") = 1 Then
HWTYDGL.Enabled = True
Toolbar1.Buttons(6).Enabled = True
ElseIf AdoRs.Fields("10") = 0 Then
HWTYDGL.Enabled = False
Toolbar1.Buttons(6).Enabled = False
End If
If AdoRs.Fields("11") = 1 Then
HWYSDGL.Enabled = True
Toolbar1.Buttons(12).Enabled = True
ElseIf AdoRs.Fields("11") = 0 Then
HWYSDGL.Enabled = False
Toolbar1.Buttons(12).Enabled = False
End If
If AdoRs.Fields("12") = 1 Then
PSJLDGL.Enabled = True
Toolbar1.Buttons(9).Enabled = True
ElseIf AdoRs.Fields("12") = 0 Then
PSJLDGL.Enabled = False
Toolbar1.Buttons(9).Enabled = False
End If
If AdoRs.Fields("13") = 1 Then
HWSQDCX.Enabled = True
ElseIf AdoRs.Fields("13") = 0 Then
HWSQDCX.Enabled = False
End If
If AdoRs.Fields("14") = 1 Then
CLDDXXCX.Enabled = True
ElseIf AdoRs.Fields("14") = 0 Then
CLDDXXCX.Enabled = False
End If
If AdoRs.Fields("15") = 1 Then
HWTYXXCX.Enabled = True
Toolbar1.Buttons(14).Enabled = True
ElseIf AdoRs.Fields("15") = 0 Then
HWTYXXCX.Enabled = False
Toolbar1.Buttons(14).Enabled = False
End If
If AdoRs.Fields("16") = 1 Then
HWTYYSCX.Enabled = True
ElseIf AdoRs.Fields("16") = 0 Then
HWTYYSCX.Enabled = False
End If
If AdoRs.Fields("17") = 1 Then
PSHWBGCX.Enabled = True
ElseIf AdoRs.Fields("17") = 0 Then
PSHWBGCX.Enabled = False
End If
If AdoRs.Fields("18") = 1 Then
HWSQDBB.Enabled = True
ElseIf AdoRs.Fields("18") = 0 Then
HWSQDBB.Enabled = False
End If
If AdoRs.Fields("19") = 1 Then
HWTYDBB.Enabled = True
Toolbar1.Buttons(16).Enabled = True
ElseIf AdoRs.Fields("19") = 0 Then
HWTYDBB.Enabled = False
Toolbar1.Buttons(16).Enabled = False
End If
If AdoRs.Fields("20") = 1 Then
HWYSDBB.Enabled = True
VB+SQLServer2000物流管理系统
ElseIf AdoRs.Fields("20") = 0 Then
HWYSDBB.Enabled = False
End If
If AdoRs.Fields("21") = 1 Then
SCRZ.Enabled = True
ElseIf AdoRs.Fields("21") = 0 Then
SCRZ.Enabled = False
End If
If AdoRs.Fields("22") = 1 Then
YHGL.Enabled = True
Toolbar1.Buttons(19).Enabled = True
ElseIf AdoRs.Fields("22") = 0 Then
YHGL.Enabled = False
Toolbar1.Buttons(19).Enabled = False
End If
If AdoRs.Fields("23") = 1 Then
SJBF.Enabled = True
ElseIf AdoRs.Fields("23") = 0 Then
SJBF.Enabled = False
End If
If AdoRs.Fields("24") = 1 Then
SJHF.Enabled = True
ElseIf AdoRs.Fields("24") = 0 Then
SJHF.Enabled = False
End If
If AdoRs.Fields("25") = 1 Then
SJQL.Enabled = True
ElseIf AdoRs.Fields("25") = 0 Then
SJQL.Enabled = False
End If
End If
AdoRs.Close
If TWidth <= 800 Or THeigth <= 600 Then
Me.BorderStyle = 2
Me.WindowState = 2
Else
RemoveMenu GetSystemMenu(Frm_Main.hwnd, 0), SC_MAXIMIZE, MF_REMOVE '最大化按钮不可用
End If
End Sub
Private Sub GSZLSZ_Click() '公司资料设置
Frm_Gszl.Show 1
End Sub
Private Sub HWSQDBB_Click()
On Error Resume Next
DEvr1.rsCom_sqd.Open "select * from tb_Goods_sqd"
If DEvr1.rsCom_sqd.RecordCount > 0 Then
DRP_Sqd.Show 1
End If
End Sub
Private Sub HWSQDCX_Click()
StrCx = 1
Frm_Xxcx.Show 1
End Sub
Private Sub HWTYDBB_Click()
DEvr1.rsCom_tyd.Open "select * from tb_Goods_tyd"
If DEvr1.rsCom_tyd.RecordCount > 0 Then
DRP_Tyd.Show 1
End If
End Sub
Private Sub HWTYDGL_Click()
Frm_Hpty.Show 1 '货品托运
End Sub
Private Sub HWTYXXCX_Click()
StrCx = 3
Frm_Xxcx.Show 1
End Sub
Private Sub HWTYYSCX_Click()
StrCx = 4
Frm_Xxcx.Show 1
End Sub
Private Sub HWYSDBB_Click()
DEvr1.rsCom_Ysd.Open "select * from tb_Goods_khys"
If DEvr1.rsCom_Ysd.RecordCount > 0 Then
DRP_Ysd.Show 1
End If
End Sub
Private Sub HWYSDGL_Click()
Frm_Hpys.Show 1
End Sub
Private Sub KHZLSZ_Click() '客户资料信息
Frm_Khxx.Show 1
End Sub
Private Sub PSHWBGCX_Click()
Frm_ZtgzCx.Show 1
End Sub
Private Sub PSJLDGL_Click()
Frm_Ztgz.Show 1
End Sub
Private Sub SCRZ_Click()
Dim del
Dim Temp1 As String
On Error Resume Next '错误处理语句
del = MsgBox("确认要清除系统的日志信息吗?", 17, "提示信息")
If del = vbOK Then
Kill (App.Path & "\系统日志.ini")
Open (App.Path & "\系统日志.ini") For Output As #1
Temp1 = " 操作员姓名 日期时间 操作类型"
Print #1, Temp1
Print #1,
Close #1
MsgBox "日志清理成功完成!!", , "提示信息"
Else
End If
End Sub
Private Sub SJBF_Click()
frm_backup.Show 1
End Sub
Private Sub SJHF_Click()
Dim iTask As Long
MsgBox "请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序", 64, "提示信息"
'调用数据恢复可执行文件
iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)
End
End Sub
Private Sub SJQL_Click()
frm_sfyz.Show 1
End Sub
Private Sub SJZLSZ_Click()
Frm_Sjxx.Show 1
End Sub
Private Sub SQDGL_Click()
Frm_Tysq.Show 1 '托运申请
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "SQ"
Frm_Tysq.Show 1
Case "DD"
Frm_Cldd.Show 1
Case "TY"
Frm_Hpty.Show 1
Case "GZ"
Frm_Ztgz.Show 1
Case "YS"
Frm_Hpys.Show 1
Case "CX"
StrCx = 3
Frm_Xxcx.Show 1
Case "BB"
DRP_Tyd.Show 1
Case "RZ"
frm_systemer.Show 1
Case "TC"
End
End Select
End Sub
Private Sub YGZLSZ_Click() '员工资料信息
Frm_Ygzl.Show 1
End Sub
Private Sub YHGL_Click()
frm_systemer.Show 1
End Sub
Private Sub zwxxsz_Click()
Frm_Zwxx.Show 1
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels.Item(4).Text = Time
End Sub
Private Sub ChangeScreen() '改变屏幕分辨率函数
MsgBox "您桌面的分辨率并不是800*600,建议您将桌面的分辨率调整成800*600之后，再运行此程序!", 64, "提示信息"
End Sub
VB+SQLServer2000物流管理系统
5.1.2车辆调度安排模块的实现
图5.2 车辆调度安排模块运行结果
代码如下:
Dim i As Integer
Dim c
Private Sub Cmd_Select_Click()
frm_T_Cldd.Left = 4700
frm_T_Cldd.Top = 3000
frm_T_Cldd.Show 1
End Sub
Private Sub Dgr_Sjll_Click()
On Error Resume Next
If Adodc1.Recordset.RecordCount > 0 Then
Txt_id.Text = Adodc1.Recordset.Fields("cldd_id")
Text1(0).Text = Adodc1.Recordset.Fields("cldd_cphm")
Text1(1).Text = Adodc1.Recordset.Fields("cldd_czxm")
Text1(2).Text = Adodc1.Recordset.Fields("cldd_sjxm")
Text1(3).Text = Adodc1.Recordset.Fields("cldd_zxrw")
Text1(4).Text = Adodc1.Recordset.Fields("cldd_phmc")
DT1.Value = Adodc1.Recordset.Fields("cldd_rwsj")
Text1(5).Text = Adodc1.Recordset.Fields("cldd_shdd")
Txt_bz.Text = Adodc1.Recordset.Fields("cldd_bz")
End If
For i = 0 To 6
Text1(i).Locked = False
Next i
End Sub
Private Sub DT1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1(4).SetFocus
End If
End Sub
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Call LoadFile
For i = 1 To 5
Text1(i).Locked = True
Next i
Adodc1.ConnectionString = PublicStr
Adodc1.RecordSource = "select * from tb_Goods_cldd order by cldd_id"
Adodc1.Refresh
DT1.Value = Date
Call DBGCon
Call Tbr_cortrol(Tbr_xxcz, True)
End Sub
Private Sub Tbr_xxcz_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Call Tbr_cortrol(Tbr_xxcz, False)
For i = 0 To 5 '单击“添加”按钮，锁定文本框控件
Text1(i).Text = ""
Txt_bz.Text = ""
Text1(0).SetFocus
Text1(i).Locked = False
Txt_id.Locked = False
Txt_bz.Locked = False
Next i
AdoRs.Open "select * from tb_Goods_cldd order by cldd_id", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
AdoRs.MoveLast
StrNum = Mid(AdoRs.Fields("cldd_id"), 2, Len(AdoRs.Fields("cldd_id")))
Call Con_PublicNum '调用位数转换函数
Txt_id.Text = "A" & StrIn
Else
Txt_id.Text = "A0001"
End If
AdoRs.Close
Case 2 '删除信息
Call Deletes
Call DBGCon
Case 3 '修改信息
Call Edits
Call DBGCon
Case 4 '保存信息
Call Saves
Call DBGCon
Case 5
Call Tbr_cortrol(Tbr_xxcz, True)
For i = 0 To 5
Text1(i).Text = ""
Txt_id.Text = ""
Txt_bz.Text = ""
Txt_id.SetFocus
Text1(i).Locked = True
Txt_id.Locked = True
Txt_bz.Locked = True
Next i
Adodc1.RecordSource = "select * from tb_Goods_cldd order by cldd_id"
Adodc1.Refresh
Call DBGCon
Case 6 '打印信息
On Error Resume Next
DEvr1.rsCom_cldd.Open "select * from tb_Goods_cldd where cldd_id='" + Txt_id + "'"
If DEvr1.rsCom_cldd.RecordCount > 0 Then
DRP_Cldd.Show 1
Else
MsgBox "该车辆调度单信息不存在", 48, "提示信息"
End If
Case 7
Unload Me
End Select
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
If Index = 0 Then
Cmd_Select_Click
Exit Sub
End If
End If
If KeyCode = 13 Or KeyCode = 40 Then
If Index = 3 Then
DT1.SetFocus
Exit Sub
End If
End If
If Index = 5 Then
If KeyCode = 13 Or KeyCode = 40 Then
Txt_bz.SetFocus
End If
End If
If Index = 4 Then
If KeyCode = 38 Then
DT1.SetFocus
Exit Sub
End If
End If
If Index < 6 And KeyCode = 38 Then Text1(Index - 1).SetFocus
If Index >= 0 And KeyCode = 40 Then Text1(Index + 1).SetFocus
If Index >= 0 And KeyCode = 13 Then Text1(Index + 1).SetFocus
End Sub
Private Sub Saves() '保存信息的事件过程
If Text1(0).Text = "" Or Text1(3).Text = "" Then
MsgBox "重要信息不能为空值", 48, "提示信息"
Else
AdoRs.Open "select * from tb_Goods_cldd where cldd_cphm='" + Text1(0).Text + "'", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
MsgBox "该车辆已经被派出", 48, "提示信息"
AdoRs.Close
Else
AdoRs.Close
c = MsgBox("确认保存信息吗", 33, "提示信息")
If c = vbOK Then
Set AdoRs = Cnn.Execute("insert into tb_Goods_cldd values('" & Txt_id & "','" & Text1(0) _
& "','" & Text1(1) & "','" & Text1(2) & "','" & Text1(3) & "','" _
& STR(DT1.Value) & "','" & Text1(4) & "','" & Text1(5) & "','" & Txt_bz & "')")
MsgBox "数据保存成功", 64, "提示信息"
Else
End If
Adodc1.RecordSource = "select * from tb_Goods_cldd order by cldd_id"
Adodc1.Refresh
VB+SQLServer2000物流管理系统
Call DBGCon
End If
Call Tbr_cortrol(Tbr_xxcz, True)
End If
End Sub
Private Sub Edits() '修改信息的事件过程
c = MsgBox("确认修改信息吗", 33, "提示信息")
If c = vbOK Then
Set AdoRs = Cnn.Execute("UPDATE tb_Goods_cldd SET cldd_id='" + Txt_id + "',cldd_cphm='" + Text1(0) + "',cldd_czxm='" + Text1(1) + "',cldd_sjxm='" + Text1(2) + "',cldd_rwsj='" _
+ STR(DT1.Value) + "',cldd_phmc='" + Text1(4) + "',cldd_shdd='" + Text1(5) + "',cldd_bz='" + Txt_bz + "' where cldd_id='" + Txt_id.Text + "'")
MsgBox "数据修改成功", 64, "提示信息"
Adodc1.RecordSource = "select * from tb_Goods_cldd order by cldd_id"
Adodc1.Refresh
StrId = Txt_id.Text
StrTitle = Text1(0).Text
Call joinRZ
Call DBGCon
Else
' AdoRs.Close
End If
End Sub
Private Sub LoadFile()
AdoRs.Open "select * from tb_Goods_cldd", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
Txt_id.Text = AdoRs.Fields("cldd_id")
Text1(0).Text = AdoRs.Fields("cldd_cphm")
Text1(1).Text = AdoRs.Fields("cldd_czxm")
Text1(2).Text = AdoRs.Fields("cldd_sjxm")
Text1(3).Text = AdoRs.Fields("cldd_zxrw")
Text1(4).Text = AdoRs.Fields("cldd_phmc")
DT1.Value = AdoRs.Fields("cldd_rwsj")
Text1(5).Text = AdoRs.Fields("cldd_shdd")
Txt_bz.Text = AdoRs.Fields("cldd_bz")
End If
AdoRs.Close
End Sub
Private Sub Deletes() '删除信息
c = MsgBox("确认删除该信息吗", 17, "提示信息")
If c = vbOK Then
On Error Resume Next
Set AdoRs = Cnn.Execute("Delete tb_Goods_cldd from tb_Goods_cldd where cldd_id='" + Txt_id.Text + "'")
Adodc1.Refresh
End If
For i = 0 To 5
Text1(i).Text = ""
Next i
Txt_bz.Text = ""
End Sub
Private Sub DBGCon()
Dgr_Sjll.Columns(0).Caption = "编号"
Dgr_Sjll.Columns(1).Caption = "车牌号码"
Dgr_Sjll.Columns(2).Caption = "车主姓名"
Dgr_Sjll.Columns(3).Caption = "司机姓名"
Dgr_Sjll.Columns(4).Caption = "执行任务"
Dgr_Sjll.Columns(5).Caption = "执行任务日期"
Dgr_Sjll.Columns(6).Caption = "配送货物名称"
Dgr_Sjll.Columns(7).Caption = "配送地点"
Dgr_Sjll.Columns(8).Caption = "备注"
End Sub
Private Sub Txt_bz_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
Text1(5).SetFocus
ElseIf KeyCode = 13 Then
Call Saves
End If
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Lbl_Num.Caption = "当前数据表中共有 " & Adodc1.Recordset.RecordCount & " 条记录"
End Sub
Private Sub Txt_id_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Adodc1.RecordSource = "select * from tb_Goods_cldd where cldd_id='" + Txt_id.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Txt_id.Text = Adodc1.Recordset.Fields("cldd_id")
Text1(0).Text = Adodc1.Recordset.Fields("cldd_cphm")
Text1(1).Text = Adodc1.Recordset.Fields("cldd_czxm")
Text1(2).Text = Adodc1.Recordset.Fields("cldd_sjxm")
Text1(3).Text = Adodc1.Recordset.Fields("cldd_zxrw")
Text1(4).Text = Adodc1.Recordset.Fields("cldd_phmc")
DT1.Value = Adodc1.Recordset.Fields("cldd_rwsj")
Text1(5).Text = Adodc1.Recordset.Fields("cldd_shdd")
Txt_bz.Text = Adodc1.Recordset.Fields("cldd_bz")
End If
Call DBGCon
End If
End Sub
5.1.3货运申请单模块的实现
图5.3 货运申请单安排
代码如下:
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
'将相应的数据信息赋值到相应窗体中相对应的文本框当中
' On Error Resume Next
If KeyCode = 13 Then
If StrNums = 0 Then '将信息赋值给货品出库窗体中的文本框
Frm_Hpty.Text1(0).Text = Adodc1.Recordset.Fields("sqd_sqdh")
Frm_Hpty.Text1(2).Text = Adodc1.Recordset.Fields("sqd_zjmc")
Frm_Hpty.Text1(14).Text = Adodc1.Recordset.Fields("clxx_id")
Frm_Hpty.Text1(12).Text = Adodc1.Recordset.Fields("clxx_sjxm")
Frm_Hpty.Text1(13).Text = Adodc1.Recordset.Fields("clxx_cphm")
Frm_Hpty.Text1(15).Text = Adodc1.Recordset.Fields("clxx_sjsj")
Frm_Hpty.Text1(18).Text = Adodc1.Recordset.Fields("sqd_yf")
Frm_Hpty.Text1(1).Text = Adodc1.Recordset.Fields("khxx_mc")
Frm_Hpty.Text1(4).Text = Adodc1.Recordset.Fields("khxx_lxr")
Frm_Hpty.Text1(3).Text = Adodc1.Recordset.Fields("khxx_gsdh")
Unload Me
Frm_Hpty.Text1(5).SetFocus
End If
End If
End Sub
Private Sub Form_Load()
' rtn = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现使窗体置前的功能
Adodc1.ConnectionString = PublicStr
Adodc1.RecordSource = "select * from View_Tyxx"
Adodc1.Refresh
DataGrid1.Columns(0).Caption = "申请单号"
DataGrid1.Columns(1).Caption = "主件名称"
DataGrid1.Columns(2).Caption = "车辆编号"
DataGrid1.Columns(3).Caption = "司机姓名"
DataGrid1.Columns(4).Caption = "车牌号码"
DataGrid1.Columns(5).Caption = "司机手机"
DataGrid1.Columns(6).Caption = "客户名称"
DataGrid1.Columns(7).Caption = "联系人"
DataGrid1.Columns(8).Caption = "单位电话"
DataGrid1.Columns(9).Visible = False
End Sub
Private Sub Text1_Change() '实现模糊查询
On Error Resume Next
Adodc1.RecordSource = "select * from view_tyxx where sqd_sqdh like '%" + Text1.Text + "%'"
Adodc1.Refresh
End Sub
VB+SQLServer2000物流管理系统
第六章 测试用例设计、测试与运行记录
6.1测试目的
在软件的开发过程中存在许多复杂的问题，为了保证软件在投入运行中；保证软件的质量和运行的安全行，测试过程是必不可少的，同时也是关键的。测试是为了发现软件在运行过程中所出现的问题，并在出现问题时能够及时的做出相应的修改。
6.2 测试目标
测试的目标是保证软件在投入运行中的安全性和稳定行。
6.3 测试方法
测试方法是测试过程中至关重要的环节，采用的测试方法不同所产生的效果和所用的测试经费也是不同的。一个好的测试方法能够提高测试的效率，缩短测试的时间，也能够减少测试的经费。本次测试采用白盒测试与黑盒测试相结合的方法。
6.4 测试项目
测试的项目主要有以下几个方面的内容：
1．基本管理员登陆测试
2．基本的输入和输出操作测试
3．输入错误时系统的正确反应
4．插入、删除及查询测试
6.5 测试记录与运行结果
连接数据库失败:若图片无法显示请联系站长QQ3710167
图6.1连库错误
货运管理调出信息：
图6.2 货运管理调出信息：
测试货运申请报表信息：
图6.3测试货运申请报表信息
本系统经过各个模块详细测试，经过修改和调整通过以后，进行总体测试。测试结果各项功能均已经或基本达到设计要求
VB+SQLServer2000物流管理系统
课程设计总结
在本系统的开发过程中，由于本人开发软件在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。虽然教师科研管理系统未能实现网络管理，但是未来的发展方向，在本次开发过程由于硬件的限制，未能实现网络功能，因此在以后的系统更新过程中可能会造成一些不必要的数据损失。
尽管本管理系统存在着很多不足，但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本教师科研管理系统是学校科研项目管理必不可少的管理软件，通过开发这个系统，我掌握了的项本过程，了解了的基本知识，巩固了我对Visual Basic 6.0的学习，但在这次课程设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。
通过本次系统的设计到编码，我学到了很多东西，现在我总结如下：
1. 当接到一个系统时，不要急于编程而是要充分的做好需求分析，然后从总体上进行设计，详细的考虑到系统实施的每一步。这样做可使的你在后面的设计中感到得心应手，也不可能因为某一个未知的错误而使的系统难于修改，难于调试。
2. 在编码的过程中要养成一种好的编码风格，代码的简单易懂，为自己也是为别人能够更好的了解你的代码，便于查错，便于调试。
3. 要特别的留心易错的代码，如在应用程序中编写SQL代码，编译器是不会检查代码的完整性，所以有时候你认为这个SQL语句是没有错误的但是程序就是不按照你的意愿去执行，这时你就应该仔细的检查你的语句是否有非语法上的错误
4. 编程序是一件比较乏闷工作，所以一定要有耐心去认真的写每一个程序，耐心的去调试每一段程序，这样你就可以解决你所遇到的任何问题。
5. 多和同学们交流，也许这个你不了解，也许你的同学对此特别的了解，这样你就可以省去很多的不必要的时间浪费。
参考文献
[1]柳青等编,Visual Basic 程序设计教程,高等教育出版社,2002
[2]柳青等编,Visual Basic 程序设计实验与实训, 高等教育出版社,2002
[3]谭浩强主编, Visual Basic 程序设计(二级)教程,清华大学出版社,2002
[4]孙燕等编, Visual Basic 程序设计,高等教育出版社,2000
[5]佟伟光主编, Visual Basic 程序设计教程,电子工业出版社,2001
[6]谭浩强主编,Visual Basic 程序设计,清华大学出版社,2000
[7]龚沛曾等编, Visual Basic 程序设计简明教程,高等教育出版社,2001
[8]柳青主编,VB程序设计,人民交通出版社,2004
[9]郭瑞军,唐邦民等编,Visual Basic数据库开发实例精粹,电子工业出版社,2004
