校园快递派件标准管理系统分析报告.doc

1.可行性分析
1.1快递背景
“快、准”是快递公司最大特色,更是快递公司赖以生存保障。以计算机及网络为核心管理技术为快递公司提供了较好管理平台,同步,RFID技术快捷、高效及资源共享等特性,为公司管理带来了以便,快递管理系统应运而生。信息化推动和电子商务迅速崛起,快递在国内物流行业和社会经济发展中地位越来越重要。快递公司服务以快捷、及时为重要特性,配送科学性与合理性是其生存和发展核心,也是其应对竞争、开拓市场基本途径。
国内快递行业起步晚,存在诸多局限性,如:公司规模小,自动化限度低,解决速度慢,快件自动分拣技术落后;专业物流人才局限性,对配送过程效率和质量缺少有效控制;配送模式单一,配送时间和配送量没有科学根据,物流成本不断增长,服务质量提高缓慢。当前,学者对快递配送定量研究严重滞后于快递发展速度,可以真正协助快递公司提供科学决策根据办法比较少。
因而,建立一种适合于普通快递公司配送过程结合RFID技术派件管理系统,进行快件收、货位分派、快件领取、快件查询等意义重大。

1.2校园快递调查
1.2.1校园快递存在问题
(1)校园快递派件速度缓慢，派件时间较长
(2)校园快递派件管理比较混乱，单据记录不明晰
(3)校园快递设备如PDA等不能实时更新快递信息
(4)校园快递时间安排不能按照学生作息时间安排
1.2.2快递使用数据：
(1)使用快递频率：每月使用2次达64.5%；
(2)常使用哪些快递公司：申通83.3%、圆通46.6%、韵达46.6%
(3)海大快递量前三名：申通（200~300）、圆通（200~300）、韵达（100~300）
(4)包裹总量每天大概：1000个，平均每天领快递人数：800个
1.2.3快递设备数据：
校园派件员普通和其她大公司合伙，作为她们一种区域代理，系统一定要使用上级公司，设备也要按照她们规定配备，使用专用快递信封（和包装袋）、多层带背胶票据、手持终端等、扫描仪、相机（解决问题件需拍照做证据）。运送工具准备微型车、货车等，仓库需监控设备，保障货品出进被影像记录。

1.3 RFID在快递派件应用
对物流业而言，全面使用RFID意指在所有物流商品上贴上RFID标签，多数业者也都但愿可以这样做，然而，由于RFID标签价格依然偏高、读取率无法达到100%等因素，涉及联邦快递、UPS等，至今依然无法全面在物流商品上使用RFID；多数都还停留在评估与测试阶段。
但是，尽管有多重障碍， RFID技术终有一天会在物流业普及应用。虽然当前还不具备高度功能完备性，但通过咱们课程设计，结合了VISUAL BASIC和SQL软件，系统全面考虑了校园快递派件作业流程，进行了严格定义和逻辑程序编写，与实际业务紧密结合，使RFID技术与实际快递派件业务接轨。

1.4快递派件管理系统目的：
普通说来，本组校园快递派件管理系统功能涉及两方面：一方面是快递管理信息系统中心，另一方面也是快递公司对外查询解决系统。客户通过程序能与快递派件管理系统进行信息共享，提供动态信息交互和信息服务，并在此基本上实现对订单下达、实时查询等业务支持。因而，系统应把开放性、协调性、有效性作为系统开发总体目的。
快递信息平台必要适应快递设施地区变化。时间上可扩充性是指当顾客需求、技术进步、公司组织构造随着时间变化而变化时，系统可以对既有某些功能模块进行改造或增长某些功能模块，以适应新变化。
对内部人员，系统应当提供整体快递所需要业务信息以及快递查询支持界面和管理界面，对外，快递对客户重要提供快递查询信息以及作业进度信息反馈信息。

2.系统分析某些
2.1业务流程图:

图1.收件流程

图2.派件流程

2.2功能分析图

图3.功能分析图

2.3数据流程图

图4.数据流程图（顶层）

图5.快件收取（第二层）

图6.货位分派（第二层）

图7.快件领取（第二层）

图8.快件查询（第二层）

2.4数据字典
2.4.1外部实体
表1.外部实体表

名称：收件人
编号：C02
阐明：快递接受者
输入数据流：
输出数据流：
个数：n
名称：收、派件员
编号：C01
阐明：快递集中、派发者
输入数据流：
输出数据流：
个数：10

名称：货架
编号：C04
阐明：放快递货架
输入数据流：
输出数据流：
个数：X
名称：快递公司
编号：C03
阐明：多家快递公司
输入数据流：
输出数据流：
个数：X

2.4.2数据元素
表2.数据元素表
编号
数据元素名
类别/长度
E01
收件人姓名
Char10
E02
收件人地址
Char10
E03
收件人电话
Int4
E04
收件（派）员姓名
Char10
E05
收件（派）员电话
Int4
E06
快递公司
Char10
E07
快递公司送件员姓名
Char10
E08
送件员电话
Int4
E09
运单ID
Int4
E10
运单货品名称
Char10
E11
货品重量
Int4
E12
货品类别
Char10
E13
货架区
Char10
E14
货架（编号）
Int4
E15
货格编号
Int4
E16
扫描地点
Char10
E17
扫描时间
Datetime8

2.4.3数据流
表3.数据流表
编号
名称
数据流水源
数据流去向
包括内容
B01
收件信息
D1
D3
E01-E10
B02
派件信息
D8
D10
E04、E05、E09-E17
B03
扫描信息
D1
D7
E09-E17

2.4.5数据储存
表4.数据储存表
编号
名称
构造
有关数据流
D1
送件清单
E01、E02、E03、E06
D1-1.1，D1-2.1，
D2
数量质量记录
E10、E11、E12
D2-1.2，D2-2.2
D3
收货记录
E01、E03、E04、E05、E06、E07、E08、E09
1.3-D3
D4
回执单
E01、E09、E16、E17
D4-1.3
D5
分类记录
E09、E12
D5-2.2
D6
货品状态
E09、E13、E14、E15、E16、E17
D6-2.3
D7
货位分派记录
E09、E10、E11、E12、E13、E14
2.3-D7
D8
派件分析表
E01、E02、E03、E04、E05、E09
2.3-D8，D8-3.1
D9
客户记录
E01、E02、E03、E09
D9-3.2
D10
签收记录
E01、E09
D10-3.3
D11
公司数据库
E01—E17
D11-4.1，D11-4.2

2.4.6过程
表5.系统过程表
名称：收件准备
编号：P1-1
输入数据流：C03、D1
输出数据流：P1-2
解决：整顿等待派件快递
名称：包裹检查
编号：P1-2
输入数据流：P1-1、D2
输出数据流：C3、P1-3
解决：检查快递状态并记录解决
名称：填写收货清单
编号：P1-3
输入数据流：D4、P1-2
输出数据流：D3、C03
解决：记录收件数量、类型等
名称：订单核对
编号：P2-1
输入数据流：C01、D1
输出数据流：P2-2
解决：确认收货人
名称：快递分类
编号：P2-2
输入数据流：D2、P2-1
输出数据流：D5
解决：将快递分类以以便货位分派
名称：扫描信息
编号：P2-3
输入数据流：P2-3、D6
输出数据流：D7、D8、C04
解决：将快件信息扫描进数据库
名称：派件
编号：P3-1
输入数据流：C01、D08
输出数据流：P3-2
解决：将快递交给收件人
名称：身份核对
编号：P3-2
输入数据流：P3-1、D9
输出数据流：P3-3
解决：检查派件与否对的
名称：交付快件
编号：P3-3
输入数据流：P3-2、D10
输出数据流：C02
解决：客户签字确认
名称：网络查询
编号：P4-1
输入数据流：C01、D11
输出数据流：C01
解决：反馈查询信息
名称：人工服务
编号：P4-4
输入数据流：C01、D11
输出数据流：C01
解决：反馈查询信息

2.5数据加工解决描述
2.5.1快件交接：
(1)各大快递公司将快件交给业务员（点数交接），数量的确多，可以当业务员面，逐个包裹进行扫描
(2)收件员清点快件数量并核对与否有外包装破损，分错件、地址错误、超范畴、件数明显有误、到付价格明显有问题等异常快件
(3)校园派件员确认客户寄递快件与否在我司可提供服务范畴内
(4)收件地址超过我司服务区域，但收件地址附近有我司服务网点，应询问客户与否乐意改
为自取件，并向客户详细简介自取件操作流程。
(5)数量等信息确认无误后交接，双方在《派件表》上签名确认

图10.快件接受决策树

2.5.2货位分派及操作
2.5.2.1货位分派:
(1)货区别为A、B、C3个货区
(2)A区有1-4号货架，B区有5-8号货架，C区有9-12号货架
(3)分派如下表

图11.快递公司货架分派表

图12.货品类别分派表
(4)货位编码举例阐明:

图13.货品编码举例
2.5.2.2货位分派操作:
(1)将随货运单贴放在快件指定位置
(2)依照快件类型将各种贴纸按规定贴在快件指定位置
(3)将运单完整单号写在运单下方外包装处
(4)对于大件包裹，按照体积大小存储于货架指定区域
(5)对于正常大小包裹，按照姓名排序，分放于货架A-Z货品格中

图14.货位分派决策树
2.5.3快件派送与收件：
2.5.3.1收件工作
(1)确认托寄物品与否在我司规定范畴内业务员须向客户阐明需进行托寄物品检查
(2)并在获得客户批准后，按规定对托寄物品进行全面检查
(3)如包装未达到原则，须规定客户改进包装
(4)指引客户填写相应运单内容
(5)检查客户填写运单内容与否完整，若填写不完整须指引客户补充有关内容
(6)使用弹簧秤、卷尺测量快件实际重量和轻抛重量，拟定对的计费重量
(7)如果大件，在客户处没有称重工具,如客户批准将快件拉回公司称重，必要在第一时间将重量、运费告知客户,如客户不批准将快件拉回公司称重，则只能将件退还给客户
(8)将需要业务员填写运单内容填写完整：始发地、目地、件数、重量、运费、工号、收件日期、时间、付款方式、托寄物详细资料
(9)运费结算

2.5.3.2派件工作
(10)客户确认运单信息，确认无误后须规定客户在 “收件件人订立或盖章”栏内签字确认，不得代替或伪造客户签字
(11)须将运单“寄件公司存根”联交寄件客户留底，业务员留取“结账联”，其她几联运单随货

图15.快件领取决策树

2.5.4快件查询：
(1)公司员工输入运单号，或者输入员工号进行查询
(2)客户依照快递单据运单号码，在客户查询界面上输入运单号进行查询
(3)若输入不对的，系统提示可重新输入再次进行查询
(4)查询信息以表格形式显示在顾客查询界面上

图16.快件查询决策树

3.系统设计某些
3.1功能模块构造图设计

图17.模块构造图

3.2模块构造图
3.2.1收件模块
无效返件
出库账
有效返件
无效收件
收件清单
有效收件
有效返件账
有效收件台账
有效收件
A
收件管理
F
验证返件有效性
E
验证收件有效性
C
返件录入
B
收件数据录入
D
收件台账登记
G
验证收件台账有效性
库存台账

图18.输入模块构造图

模块名称：收件管理
模块标记：A
解决逻辑：
对每一种快递收取进行登记账解决
调用B模块，获得有效收件账
调用C模块，获得有效返件账
调用D模块，获得有效收件清单台账

模块名称：收件数据录入
模块标记：B
解决逻辑：
显示快递取件账屏幕
输入日期，运单号，快递公司名称，取货人姓名，收件单编号
若 有效
在屏幕相应位置显示该快递收件成功，并登记收件台帐。
否则
显示无效收件

模块名称：返件数据录入
模块标记：C
解决逻辑：
显示返件账屏幕
输入日期，运单号，快递公司名称，取货人姓名，返件单编号

若 有效
在屏幕相应位置显示该快递返件成功，并登记返件台帐。
否则
显示无效返件

3.2.2货位模块
查询祈求
运单号
运单号
货架号
货位分派
H
货位管理
J
货位核查
I
获取货位祈求
K
货位核查
L
返件台账核查
M
读取货位祈求
N
读取剩余货位数据
O
读取货位收件数据
P
读取返件数据

图19.货位模块构造图
模块名称：货位管理
模块标记：H
解决逻辑：
对每次货位祈求，
选取快递公司名称，查询该快递公司相应货架空位量

模块名称：货位核查
模块标记：I
解决逻辑：
显示查询祈求屏幕
调用M模块，读取数据查询

模块名称：货位管理
模块标记：J
解决逻辑：
输入货位号
调用N模块，读取剩余空货位数据

模块名称：验证货位有效性
模块标记：K
解决逻辑：
接受快递收件台账
查领取中心仓库
若 有效收件
发送有效收件清单台账给模块D
否则
发送“无效收件台账”

3.2.3取件模块
无效取件
货位状态表
有效取件
无效收件
收件清单
有效收件
有效取件账
有效取件台账
有效收件
A
取件管理
F
验证取件件有效性
E
验证取件有效性
C
货位状态变化录入
B
取件数据录入
D
派件完毕状况登记
G
验证取件台账有效性
库存台账

图20.取件模块构造图
（详细阐明略，可以参照数据流程图）
3.2.4查询模块
查询祈求
运单号
运单号
快递公司名称
查询祈求
H
查询管理
J
货位核查
I
获取查询祈求
K
收件台账核查
L
返件台账核查
M
读取查询祈求
N
读取剩余货位数据
O
读取收件数据
P
读取返件数据

图21.查询模块构造图
（详细阐明略，可以参照数据流程图）

3.3输入设计
3.3.1输入界面设计

图22.收件人录入界面

图23.收派件员信息录入界面

图24.派件完毕状况录入界面

图25.收件清单录入界面

图26.RFID信息录入界面

3.3.2输入设备选取
(1)终端输入：采用RFID终端设备扫描包裹信息
(2)光电阅读器：采用光笔读入光学标记条形码或用扫描仪录入纸上文字
3.3.3输入数据对的性校验。
(1)对照校验：采用人工核对包裹运单信息，核对信息对的性
(2)重复校对：由两名以上快递员通过RFID终端读取信息后由程序核对
3.3.4输入设计评价
(1)输入界面明晰、美观、大方
(2)便于填写，符合工作习惯
(3)便于操作
(4)有保证输入数据对的性校验办法

3.4输出设计
3.4.1输出设计内容
(1)包裹信息状态状况
(2)包裹接受者
(3)包裹信息目地
(4)包裹派送员信息状况
(5)输出信息时间地点
(6)包裹派送运营时间长度
3.4.2输出信息内容
(1)输出项目信息形式：文字、数字
(2)输出格式：表格、报告等
3.4.3输出设备和介质：设备如打印机、显示屏等；介质如：磁盘、U盘、纸张（普通、专用）等
3.4.4输出设计办法
(1)系统输出阐明:表格信息。表格信息是系统对快递公司员工以及顾客查询包裹信息时输出，以表格形式提供应信息使用者，用来表达详细信息，能较为直观表达包裹快递信息

表6.输出信息
运单ID
运单号
快递公司ID
收件人ID
物品类别
收件员ID
收件时间
1

1
1
普通小
1
0102
2

2
2
普通中轻
1
0103
3

2
3
普通小
2
0102

图27.输出信息
3.5 ER图及数据表
3.5.1ER图

图28.ER图
3.5.2数据表

图.快递公司表

3.6存储文献格式设计
表7.存储文献格式表
文献
格式
收件人姓名
Char10
收件人地址
Char10
收件人电话
Float8
收件人ID
Int4
收件（派）员姓名
Char10
收件（派）员电话
Float8
收件时间
Char10
完毕时间
Char10
快递公司
Char10
快递公司送件员姓名
Char10
送件员电话
Float8
运单ID
Int4
运单号
Float8
运单货品名称
Char10
货品重量
Int4
物品类别
Char10
货架区
Char10
货架（编号）
Int4
货格编号
Int4
扫描地点
Char10
地址
Char10

3.7数据库设计

图29.数据库关系图

此系统数据库设计十分详细，界面上每一种模块中每一项功能基本都相应了一种基本表，没有数据冗余现象，实现了表信息查询。
例如：派件信息资源管理菜单下，咱们可以查看一位员工员工号等信息；在货位状态表中，可以查询货品存储位置、存储状态等。

4系统实行某些
4.1程序框图

图30.程序框图

4.2代码设计
4.2.1登陆界面

图31.登陆界面
Private Sub cmdCancel_Click()
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
If txtPassword = "1" And txtUserName = "SA" Then
LibInfoSerSys.Show
LoginSucceeded = True
Me.Hide
Else
MsgBox "无效密码，请重试!"，，"登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

4.2.2管理系统界面

图32.管理系统界面
4.2.3收派件员信息界面

图33.收派件员信息界面

Private Sub Command2_Click()
Form2.Hide
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Dim strquery As String
Adodc2.CommandType = adCmdText
strquery = "select * from 收派件员信息 where 收派件员信息.工号=" & DataCombo1.BoundText
Adodc2.RecordSource = strquery
Adodc2.Refresh
Set DataGrid1.DataSource = Adodc2
End Sub
4.2.4收件人信息界面

图34. 收件人信息界面

Private Sub Command2_Click()
Form3.Hide
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 收件人信息 where 收件人信息.电话号码=" & DataCombo1.BoundText
Adodc1.RecordSource = strquery
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

4.2.5收件清单录入

图35. 收件清单录入
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum，adStatus As ADODB.EventStatusEnum，ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "记录:" & Adodc1.Recordset.AbsolutePosition & "/" & _
Adodc1.Recordset.RecordCount
End Sub

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Dim msg As String
msg = MsgBox("拟定要删除该项记录吗？"，vbQuestion + vbYesNo，"提示")
If msg = vbYes Then
With Adodc1.Recordset
.Delete
.MoveNext
If .BOF = True Then
.MoveLast
End If
End With
End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.MoveLast
End Sub

Private Sub Command7_Click()
With Adodc1.Recordset
.MovePrevious
If .BOF = True Then
.MoveFirst
End If
End With
End Sub
Private Sub Command8_Click()
With Adodc1.Recordset
.MoveNext
If .BOF = True Then
.MoveLast
End If
End With
End Sub

4.2.6货位状态信息

图36.货位状态信息
Private Sub Command1_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位状态信息表 where 货架号 like 'A%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位状态信息表 where 货架号 like 'B%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位状态信息表 where 货架号 like 'C%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub
Private Sub Command4_Click()
Form6.Hide

图37.货位状态信息
Private Sub Command1_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'A01%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command10_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'B06%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command11_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'B07%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command12_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'B08%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command13_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'C09%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command14_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'C10%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command15_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'C11%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command16_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'C12%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command2_Click()
Form11.Hide
End Sub

Private Sub Command3_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'A02%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command4_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'A%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command5_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'B%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command6_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'C%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command7_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'A03%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh

End Sub

Private Sub Command8_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'A04%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

Private Sub Command9_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 货位分派表 where 货位号 like 'B05%'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
End Sub

4.2.7派件状况

图38.派件状况
Private Sub Command2_Click()
Form8.Hide
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 派件完毕状况表 where 派件完毕状况表.运单=" & DataCombo1.BoundText
Adodc1.RecordSource = strquery
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

4.2.8查询记录

图39. 查询记录

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum，adStatus As ADODB.EventStatusEnum，ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "记录:" & Adodc1.Recordset.AbsolutePosition & "/" & _
Adodc1.Recordset.RecordCount
End Sub

Private Sub Adodc2_WillMove(ByVal adReason As ADODB.EventReasonEnum，adStatus As ADODB.EventStatusEnum，ByVal pRecordset As ADODB.Recordset)
Adodc2.Caption = "记录:" & Adodc2.Recordset.AbsolutePosition & "/" & _
Adodc2.Recordset.RecordCount
End Sub

4.2.9收件清单

图40. 收件清单

Private Sub Command1_Click()
Dim strquery As String
Adodc1.CommandType = adCmdText
strquery = "select * from 收件清单 where 收件清单.运单号=" & DataCombo1.Boun