《校园快递派件管理系统分析报.pdf》由会员分享，可在线阅读，更多相关《校园快递派件管理系统分析报.pdf（36页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、物流管理信息系统实践报告09物工 2 班第七小组1 1.可行性分析1.1 快递背景“快、准”是快递公司最大的特色,更是快递企业赖以生存的保障。以计算机及网络为核心的管理技术为快递公司提供了很好的管理平台,同时,RFID 技术的快捷、高效及资源共享等特性,为公司管理带来了方便,快递管理系统应运而生。信息化的推进和电子商务的迅速崛起,快递在我国物流行业和社会经济发展中的地位越来越重要。快递企业的服务以快捷、及时为主要特征,配送的科学性与合理性是其生存和发展的关键,也是其应对竞争、开拓市场的基本途径。我国快递行业起步晚,存在诸多局限性,如:企业规模小,自动化程度低,处理速度慢,快件自动分拣技术落后;
2、专业物流人才不足,对配送过程的效率和质量缺乏有效的控制;配送模式单一,配送时间和配送量没有科学依据,物流成本不断增加,服务质量提高缓慢。目前,学者对快递配送的定量研究严重滞后于快递的发展速度,能够真正帮助快递企业提供科学决策依据的方法比较少。因此,建立一个适合于一般快递企业配送过程的结合RFID 技术的派件管理系统,进行快件收、货位分配、快件领取、快件查询等意义重大。1.2 校园快递调查1.2.1校园快递存在的问题(1)校园快递派件速度缓慢，派件时间较长(2)校园快递的派件管理比较混乱，单据的记录不明晰(3)校园快递的设备如PDA等不能实时更新快递信息(4)校园快递的时间安排不能按照学生作息时
3、间安排1.2.2快递使用数据：(1)使用快递的频率：每月使用2 次达 64.5%；(2)常使用哪些快递公司：申通83.3%、圆通 46.6%、韵达 46.6%(3)海大快递量前三名：申通（200300）、圆通（200300）、韵达（100300）(4)包裹总量每天大概：1000 个，平均每天领快递人数：800 个1.2.3快递设备数据：校园派件员一般和其他大公司合作，作为他们的一个区域代理，系统一定要使用上级公司的，设备也要按照他们的要求配置，使用专用的快递信封（和包装袋）、多层带背胶的票据、手持终端等、扫描仪、相机（处理问题件需拍照做证据）。运输工具准备微型车、货车等，仓库需监控设备，保障货
4、物出进被影像记录。1.3 RFID 在快递派件应用对物流业而言，全面使用RFID 意指在所有物流商品上贴上RFID 标签，多数业者也都希物流管理信息系统实践报告09物工 2 班第七小组2 望可以这么做，然而，由于RFID 标签价格仍然偏高、读取率无法达到100%等因素，包括联邦快递、UPS等，至今仍然无法全面在物流商品上使用RFID；多数都还停留在评估与测试阶段。不过，尽管有多重障碍，RFID 技术终有一天会在物流业普及应用。虽然现在还不具有高度的功能完备性，但通过我们的课程设计，结合了VISUAL BASIC 和 SQL软件，系统全面考虑了校园快递派件的作业流程，进行了严格定义和逻辑程序编写
5、，与实际业务紧密结合，使 RFID 技术与实际快递的派件业务接轨。1.4 快递派件管理系统目标：一般说来，本组校园快递派件管理系统功能包括两方面：一方面是快递管理信息系统中心，另一方面也是快递企业对外的查询处理系统。客户通过程序能与快递派件管理系统进行信息共享，提供动态信息交互和信息服务，并在此基础上实现对订单下达、实时查询等业务的支持。因此，系统应把开放性、协调性、有效性作为系统开发的总体目标。快递信息平台必须适应快递设施的地域变化。时间上的可扩充性是指当用户需求、技术进步、企业组织结构随着时间的变化而变化时，系统能够对现有的某些功能模块进行改造或增加某些功能模块，以适应新的变化。对内部人员
6、，系统应当提供整体快递所需要的业务信息以及快递查询的支持界面和管理界面，对外，快递对客户主要提供快递查询信息以及作业进度信息反馈信息。2.系统分析部分2.1 业务流程图:图 1.收件流程物流管理信息系统实践报告09物工 2 班第七小组3 图 2.派件流程2.2 功能分析图图 3.功能分析图物流管理信息系统实践报告09物工 2 班第七小组4 2.3 数据流程图图 4.数据流程图（顶层）图 5.快件收取（第二层）物流管理信息系统实践报告09物工 2 班第七小组5 图 6.货位分配（第二层）图 7.快件领取（第二层）物流管理信息系统实践报告09物工 2 班第七小组6 图 8.快件查询（第二层）2.4
7、 数据字典2.4.1外部实体表 1.外部实体表名称：收、派件员编号：C01 说明：快递的集中、派发者输入数据流：输出数据流：个数：10 名称：收件人编号：C02 说明：快递的接收者输入数据流：输出数据流：个数：n 名称：快递公司编号：C03 说明：多家快递公司输入数据流：输出数据流：个数：X 名称：货架编号：C04 说明：放快递的货架输入数据流：输出数据流：个数：X 物流管理信息系统实践报告09物工 2 班第七小组7 2.4.2数据元素表 2.数据元素表编号数据元素名类别/长度E01 收件人姓名Char10 E02 收件人地址Char10 E03 收件人电话Int4 E04 收件（派）员姓名C
8、har10 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 扫描
9、信息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 物流管理信息系统
10、实践报告09物工 2 班第七小组8 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 企业数据库E01E17 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、
11、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 处理：检查派件是否正确名称：交付快件编号：
12、P3-3 输入数据流：P3-2、D10 输出数据流：C02 处理：客户签字确认名称：网络查询编号：P4-1 输入数据流：C01、D11 输出数据流：C01 处理：反馈查询信息名称：人工服务编号：P4-4 输入数据流：C01、D11 输出数据流：C01 处理：反馈查询信息物流管理信息系统实践报告09物工 2 班第七小组9 2.5 数据加工处理的描述2.5.1快件交接：(1)各大快递公司将快件交给业务员（点数交接），数量确实多的，可以当业务员的面，逐个包裹进行扫描(2)收件员清点快件数量并核对是否有外包装破损，分错件、地址错误、超范围、件数明显有误、到付价格明显有问题等异常快件(3)校园派件员确认
13、客户寄递的快件是否在我司可提供服务的范围内(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.快递公司货架分配表物流管理信息系统实践报告09物工 2 班第七小组10 图 12.货物类别分配表(4)货位编码举例说明:图 13.货物编码举例2.5.2.2货位分配操
14、作:(1)将随货运单贴放在快件指定位置(2)根据快件类型将各种贴纸按要求贴在快件的指定位置(3)将运单完整单号写在运单下方的外包装处(4)对于大件的包裹，按照体积大小存放于货架的指定区域(5)对于正常大小的包裹，按照姓名排序，分放于货架A-Z 的货物格中图 14.货位分配决策树物流管理信息系统实践报告09物工 2 班第七小组11 2.5.3快件派送与收件：2.5.3.1收件工作(1)确认托寄物品是否在我司规定的范围内业务员须向客户说明需进行托寄物品检查(2)并在取得客户同意后，按要求对托寄物品进行全面检查(3)如包装未达到标准，须要求客户改进包装(4)指导客户填写相应运单内容(5)检查客户填写
15、的运单内容是否完整，若填写不完整的须指导客户补充相关的内容(6)使用弹簧秤、卷尺测量快件的实际重量和轻抛重量，确定正确的计费重量(7)如果大件，在客户处没有称重工具,如客户同意将快件拉回公司称重，必须在第一时间将重量、运费告知客户,如客户不同意将快件拉回公司称重，则只能将件退还给客户(8)将需要业务员填写的运单内容填写完整：始发地、目的地、件数、重量、运费、工号、收件日期、时间、付款方式、托寄物详细资料(9)运费结算2.5.3.2派件工作(10)客户确认运单信息，确认无误后须要求客户在“收件件人签署或盖章”栏内签字确认，不得代替或伪造客户签字(11)须将运单的“寄件公司存根”联交寄件客户留底，
16、业务员留取“结账联”，其他几联运单随货图 15.快件领取决策树2.5.4快件查询：(1)公司员工输入运单号，或者输入员工号进行查询(2)客户根据快递单据的运单号码，在客户查询界面上输入运单号进行查询(3)若输入不正确，系统提示可重新输入再次进行查询物流管理信息系统实践报告09物工 2 班第七小组12(4)查询信息以表格的形式显示在用户查询界面上图 16.快件查询决策树3.系统设计部分3.1 功能模块结构图设计图 17.模块结构图3.2 模块结构图3.2.1收件模块物流管理信息系统实践报告09物工 2 班第七小组13 图 18.输入模块结构图模块名称：收件管理模块标识：A 处理逻辑：对每一个快递
17、的收取进行登记账处理调用 B 模块，获得有效收件账调用 C 模块，获得有效返件账调用 D 模块，获得有效收件清单台账模块名称：收件数据录入模块标识：B 处理逻辑：显示快递取件账屏幕输入日期，运单号，快递公司名称，取货人姓名，收件单编号若有效在屏幕相应位置显示该快递收件成功，并登记收件台帐。否则显示无效收件模块名称：返件数据录入模块标识：C 处理逻辑：显示返件账屏幕输入日期，运单号，快递公司名称，取货人姓名，返件单编号若有效在屏幕相应位置显示该快递返件成功，并登记返件台帐。否则显示无效返件无效返件出库账有效返件无效收件收 件 清有效收件有效返件账有效收件台账有效收件A 收件管理F 验证返件有效性
18、E 验证收件有效性C 返件录入B 收件数据录入D 收件台账登记G 验证收件台账有效性库存台账物流管理信息系统实践报告09物工 2 班第七小组14 3.2.2货位模块图 19.货位模块结构图模块名称：货位管理模块标识：H 处理逻辑：对每次的货位请求，选择快递公司名称，查询该快递公司对应货架空位量模块名称：货位核查模块标识：I 处理逻辑：显示查询请求屏幕调用 M模块，读取数据查询模块名称：货位管理模块标识：J 处理逻辑：输入货位号调用 N 模块，读取剩余空货位数据模块名称：验证货位有效性模块标识：K 处理逻辑：接受快递收件台账查领取中心仓库若有效收件查询请求运单号运单号货架号货位分配H 货位管理J
19、 货位核查I 获取货位请求K 货位核查L 返件台账核查M 读取货位请求N 读取剩余货位数据O 读取货位收件P 读取返件数据物流管理信息系统实践报告09物工 2 班第七小组15 发送有效收件清单台账给模块D 否则发送“无效收件台账”3.2.3取件模块图 20.取件模块结构图（具体说明略，可以参考数据流程图）3.2.4查询模块图 21.查询模块结构图（具体说明略，可以参考数据流程图）3.3 输入设计无效取件货位状态表有效取件无效收件收 件 清有效收件有效取件账有效取件台账有效收件A 取件管理F 验证取件件有效E 验证取件有效性C 货位状态改变录B 取件数据录入D 派件完成情况登记G 验证取件台账有
20、效性库存台账查询请求运单号运单号快递公司名称查询请求H 查询管理J 货位核查I 获取查询请求K 收件台账核查L 返件台账核查M 读取查询请求N 读取剩余货位数据O 读取收件数据P 读取返件数据物流管理信息系统实践报告09物工 2 班第七小组16 3.3.1输入界面设计图 22.收件人录入界面图 23.收派件员信息录入界面图 24.派件完成情况录入界面图 25.收件清单录入界面物流管理信息系统实践报告09物工 2 班第七小组17 图 26.RFID 信息录入界面3.3.2输入设备选择(1)终端输入：采用RFID 终端设备扫描包裹信息(2)光电阅读器：采用光笔读入光学标记条形码或用扫描仪录入纸上文
21、字3.3.3输入数据正确性校验。(1)对照校验：采用人工核对包裹的运单信息，核对信息正确性(2)重复校对：由两名以上快递员通过RFID 终端读取信息后由程序核对3.3.4输入设计的评价(1)输入界面明晰、美观、大方(2)便于填写，符合工作习惯(3)便于操作(4)有保证输入数据正确性的校验措施3.4 输出设计3.4.1输出设计的内容(1)包裹信息的状态情况(2)包裹的接受者(3)包裹信息的目的地(4)包裹的派送员信息情况物流管理信息系统实践报告09物工 2 班第七小组18(5)输出信息的时间地点(6)包裹派送的运行时间长度3.4.2输出信息内容(1)输出项目的信息形式：文字、数字(2)输出格式：
22、表格、报告等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 20110
23、102 图 27.输出信息物流管理信息系统实践报告09物工 2 班第七小组19 3.5 ER 图及数据表3.5.1ER 图图 28.ER 图3.5.2 数据表图.快递公司表物流管理信息系统实践报告09物工 2 班第七小组20 3.6 存储文件格式设计表 7.存储文件格式表文件格式收件人姓名Char10 收件人地址Char10 收件人电话Float8 收件人 ID Int4 收件（派）员姓名Char10 收件（派）员电话Float8 收件时间Char10 完成时间Char10 快递公司Char10 快递公司送件员姓名Char10 送件员电话Float8 运单 ID Int4 运单号Float8
24、物流管理信息系统实践报告09物工 2 班第七小组21 运单货物名称Char10 货物重量Int4 物品类别Char10 货架区Char10 货架（编号）Int4 货格编号Int4 扫描地点Char10 地址Char10 3.7 数据库设计图 29.数据库关系图物流管理信息系统实践报告09物工 2 班第七小组22 此系统的数据库设计十分详细，界面上每一个模块中的每一项功能基本都对应了一个基本表，没有数据冗余的现象，实现了表信息的查询。例如：派件信息资源管理菜单下，我们可以查看一位员工的员工号等信息；在货位状态表中，可以查询货物存放位置、存放的状态等。4 系统实施部分4.1 程序框图图 30.程序
25、框图4.2 代码设计4.2.1登陆界面物流管理信息系统实践报告09物工 2 班第七小组23 图 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 E
26、nd If End Sub 4.2.2管理系统界面物流管理信息系统实践报告09物工 2 班第七小组24 图 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 A
27、dodc2.RecordSource=strquery Adodc2.Refresh Set DataGrid1.DataSource=Adodc2 End Sub 4.2.4收件人信息界面物流管理信息系统实践报告09物工 2 班第七小组25 图 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 收
28、件人信息 where 收件人信息.电 话号码=&DataCombo1.BoundText Adodc1.RecordSource=strquery Adodc1.Refresh Set DataGrid1.DataSource=Adodc1 End Sub 4.2.5收件清单录入物流管理信息系统实践报告09物工 2 班第七小组26 图 35.收件清单录入Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum,adStatus As ADODB.EventStatusEnum,ByVal pRecordset As
29、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 A
30、dodc1.Recordset .Delete .MoveNext If.BOF=True Then .MoveLast End If End With End If End Sub 物流管理信息系统实践报告09物工 2 班第七小组27 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 Comman
31、d6_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货位状态信息物流管理信息系统实践报告09物工 2
32、 班第七小组28 图 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 货
33、位状态信息表 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 物流管理信息系
34、统实践报告09物工 2 班第七小组29 图 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=s
35、elect*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
36、strquery As String Adodc1.CommandType=adCmdText 物流管理信息系统实践报告09物工 2 班第七小组30 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%
37、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.CommandTyp
38、e=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
39、 Command2_Click()Form11.Hide End Sub Private Sub Command3_Click()Dim strquery As String Adodc1.CommandType=adCmdText 物流管理信息系统实践报告09物工 2 班第七小组31 strquery=select*from 货位分配表 where 货位号 like A02%Adodc1.RecordSource=strquery Adodc1.Refresh End Sub Private Sub Command4_Click()Dim strquery As String Adodc1.
40、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 Privat
41、e 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%Adod
42、c1.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 物流管理信息系统实践报告09物工 2 班第七小组32 End Sub Private Sub Command9_Click()Dim strquery As Str
43、ing 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 strquer
44、y=select*from 派件完成情况表 where 派件完成情况表.运单=&DataCombo1.BoundText Adodc1.RecordSource=strquery Adodc1.Refresh Set DataGrid1.DataSource=Adodc1 End Sub 物流管理信息系统实践报告09物工 2 班第七小组33 4.2.8查询统计图 39.查询统计Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum,adStatus As ADODB.EventStatusEnum,ByVal pR
45、ecordset 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.Abso
46、lutePosition&/&_ Adodc2.Recordset.RecordCount End Sub 物流管理信息系统实践报告09物工 2 班第七小组34 4.2.9收件清单图 40.收件清单Private Sub Command1_Click()Dim strquery As String Adodc1.CommandType=adCmdText strquery=select*from 收 件 清 单where 收 件 清 单.运 单 号=&DataCombo1.BoundText Adodc1.RecordSource=strquery Adodc1.Refresh Set Dat
47、aGrid1.DataSource=Adodc1 End Sub Private Sub Command2_Click()Form14.Hide End Sub 物流管理信息系统实践报告09物工 2 班第七小组35 实践心得这个短学期我们做了系统的设计，感觉受益不浅。首先，我们经过对题目的深入分析和老师的悉心指导下，对校园快递系统进行了初步的了解和基本设计思路。我们的目的就是为了以最便捷的派件方式，运送和配送到指定的目的地或学生手中。经过我们的讨论和尝试以及整个团队的配合，成员间的互相合作，我们做出了我们比较满意的系统。经过一个多星期的课程设计，收获颇多。也经过课程设计才使我们明白做程序需要的
48、东西是很多的，你既要懂程序而且还要有耐心和恒心。课程设计是对我的一次全面的测试，它既锻炼了我的动手的能力也磨练了我的心理素质。在课程设计中，我们组所选择的是设计一个校园快件派件管理系统，需要运用到VB、SQL 以及管理信息系统的诸多知识，并结合 RFID 条码的读取。这对我们来说是一次尝试与创新的过程，也可以说是一个挑战的过程，毕竟以前没有作过，缺少经验。现在利用自己学到的知识设计并制作一个校园快件派件管理系统，这本身就是一个知识转化为生产力的过程，所以大家都很兴奋，不同程度的投入了很高的热情与努力。在具体的设计与实施中，我们看到并感受到了一个校园快件派件管理系统从无到有的过程，对具体的设计步
49、骤、思路、方法、技巧都有了进一步的了解，并感受深刻。在设计中我们基本能按照规范的方法和步骤进行，首先对现有的校园快递情况进行调查，并查阅有关资料，进行系统详细的分析，最后确定设计方案，然后设计并制作，实施过程中我们深刻的认识到制定详细的系统分析计划和设计计划的重要性。由于缺乏相关的管理系统设计经验，我们制作系统的过程中，方法不太成熟，一些步骤出现错误，但经过修改，已经完成了任务。在这次课程设计中，我们被分配以小组为单位去完成校园快件派件管理系统的设计与制作，所以小组内的分工和相互协调很重要，大家可以在分工中扬长避短，个及所长，这样可以很好的提高大家的积极性，和合作意识，并有效的缩短开发时间。不
50、足之处就是我们在沟通这方面做的还不够，有时候制作系统时效率不高，导致时间浪费。若今后有类似的课程设计，相信通过此次经验，我们会做得更好。通过这次的设计，我们小组学到了很多，同时也学会了细心与耐心的培养。我想这在将来的工作和学习中都将起到很大的帮助。更多的是团队的合作不仅是一个能够更好的完成任务的前提，同时也使我明白了如何与他人配合，如何与他人相处。各成员的具体分工：宋亚培（组长）VB系统设计与数据库设计雷李念慈报告和PPT 陈宇辉数据库设计和报告李坚报告和PPT 物流管理信息系统实践报告09物工 2 班第七小组36 参考资料1 李玉林，Visual Basic毕业设计指南与项目实践M，北京：科