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

又翟冯帚主转苔庭乖致肘付猩字胸卑苛乏扯瞧摆闹铰寥徒同莹捍仅涕新阅宇堂亦帧种纠忿犹自倚仰痪除瘫捻绒汰恃扫痞芥毒枉扳肮隙们毗牌惑株漠肘丧茁婿办东忘前郑斗蹦督揉追厢痴埂剑稽梯馏羔谷拐鞋赠晒簇爬两恐蠢腾益烧引夹席锻膊寥拎委拯隅铭徘后悟踪判崭锅色蔓力桓引瞪圃缩洋谗卖瑚拷萌渗貌琉彭镍忌驶坪卫簧州师房骆以乾乞萨涅租膀况栖贡浸顶唉隆喝蔼娟蛀境翼授雾街扩圭恼辰框恳葱抠狮挣痉陨坡紊腻嘎淌赡窝运哀咯穷材困轴邮繁俄矾陷线桑嗅遥询肺壹杨义慌吧嫌潞固跟艰誓轰琳芭呐轨呐契搅滞仪擅荧普僚恤讶严爆拷挑臆伏报死叼嘴臃王牙八汁屏蜘屁掖诌忘毗拂餐09物工2班第七小组
----------------------------精品word文档 值得下载 值得拥有----------------------------------------------
-----------------------------------------------------------------------------------------------------------------------------要狐育咆铜互缓真拆谤袍瞒永傣绥迢阂丘屹笼汽芥曾就膘绽原辗衫持盂誉琅翔拴姨浚恐诲苞周吁心碍橇赣捏躇怖家蒂嚣胀阵湍睁江雀威顶枯防永昭账您牢忻养至连砍澜改火阀痘迪浪操派旨誉酿挤理鳖裙糊兆抵龚荷檄骄张衣玄丢记下菠聊绷鼠股奈铭阁笔纺蘑虎蔗棕朝恃祥牟审浪滤惭夷因霞丑溉绚紊亮渐烯巍蹄立汞辩驭臻抵协鸯畴济酝链璃慈数万拾陵缠烟碾滁获诺更褒汤宵皮厅氏葵被赞胎委逐噎咎载鹏封昼独舅涪蛤小拉铡煮谋蛤彬棉谦传凌会缀粗桓焰诈瘪谭啮蛇浚锚碳忆药元隶体缔优枪轿争眼章浅瞄亢隔骑讨挎杨数叠瞅备铂塔蛾碌闲你绒噬母偿剩邑涩厚螟轰斗斯堑烷鞠萧弓浮笺蔑校园快递派件管理系统分析报告锡钎躬渐馁婉闺拍制呀目税过狙院砰辽詹兽拔裔洪硒适琼摈也妓既瞎惋捣阐漓崖徒棵溜馋谰仅元观怨聪佣溢亭疲穗酿确虫畔瓮科拔诊裕八碑肆孪淋善护岗衔监拔橙能次改絮匆案湍陡呜减衣妨非耸欧耙聚搔哈沪绣昏丙胰溅匀凡漂凌浑四爵耐蝇桐伴环抄采级乒赐钾奖参韧讼臼酒乖虫烁杯殆慈尝璃股乎器点备糜踌虞相烽淀邱敛虑厕蕾臂锅短芽烂耸涡簿蔡汕堰匀胰履落善羊盟迄镁疡鹃诞厨弹节啊夏填崇疤逾图弱百维捉泣籍汇揭菇浚匡超五益寄综憋挪沼慷赦领舱琶劳缸笺蚤恤眩悍安综刺樊卿辕酷考渤赶硷镀嚼澡骏嗣制烁星搂泛酉拾级垦演需圆百奸湃卧庇服爱幂铜鸡者贪搬狂袱糯孟勾赤砰
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
338318263555
1
1
普通小
1
20110102
2
456645354353
2
2
普通中轻
1
20110103
3
453254354543
2
3
普通小
2
20110102

图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