物流管理系统中封仓功能的设计与实现论文.docx

南 开 大 学

本 科 生 毕 业 论 文（设 计）

题 目：津菱物流管理系统中封仓功能的设计与实现

学 号：
0010301

姓 名：
韩晓玮

年 级：
2000级

学 院：
软件学院

系 别：
软件工程

专 业：
软件工程

完成日期：
2004年5月31日

指导教师：
张波副教授

津菱物流系统库内管理封仓部分的改进
软件学院软件工程系 软件工程专业 韩晓玮 学号：0010301
指导教师：张波 副教授

摘要:
津菱物流管理系统对良菱物流管理系统的二次开发，笔者主要负责对封仓部分的改进设计和实现。主要是根据津菱物流公司的实际业务流程修改了原有的手动封仓解封功能，并在此基础上增加了过保质期自动封仓以及解封的功能。并对整个封仓部分做了功能测试，保证了与其他各个部分的兼容性。
本文主要从项目背景和对原有系统的描述入手，介绍了津菱物流系统的总体业务流程，根据封仓部分的需求分析，分析并描述了所需使用的主要技术。着重对封仓部分设计，系统实现进行了介绍，并简单介绍了对系统所进行的功能测试以及完成项目后的一些心得。
关键字：
物流系统，封仓，Sybase，PowerBuilder

Abstract
JinLing Logistics Management System is a revision version of the LiangLin Logistics Management System. Redesigning and implementing the warehouse frozening is the objective of this thesis. Based on JinLing Corp’s business flow, we mainly modify the origin manual warehouse freezing and unfrozening functions, and add the warehouse auto-frozening and auto-unfrozening functions when the goods passed the period of validation into the system. We also do the testing of the warehouse frozening sub-system, and make sure my works won’t have any compatibility problems with the other parts of the whole system.
This thesis starts with the introduction of the project background and the origin system, followed by the description of the main business flow of JinLing Corp. Based on the requirement of warehouse frozening, it analyses the primary techniques which are demanded, and emphasizes on the parts of system designing and implementation. At last, the system testing and prospect parts are touched upon.
Key Words：
Logistics System, Warehouse frozening，Sybase, PowerBuilder

目 录
第一章 绪论 1
1.1 项目背景 1
1.2津菱物流管理系统概述 1
第二章 系统功能及需求 5
2.1 封仓部分功能概述 5
2.2 封仓部分原有功能描述 5
2.3 封仓部分需求分析 6
第三章 系统改进设计 8
3.1 开发环境描述 8
3.2 津菱系统总体设计 8
3.3 封仓部分主要技术 9
3.4 PowerBuilder窗口设计 11
3.5 数据库相关设计 13
第四章 系统开发实现 16
4.1 PowerBuilder窗口实现 16
4.2 存储过程实现 21
第五章 系统功能测试 26
5.1 封仓及解封功能测试 26
5.2 Sybasse数据库的复制技术 30
第六章 项目总结与展望 33
6.1 项目心得 33
6.2项目开发展望 33
致 谢 35
参考文献 36

第一章 绪论
第一章 绪论
1.1 项目背景
20世纪90年代中期，第三方物流（3PL）的概念开始传入我国。什么是第三方物流呢？第三方物流是由物品供、需两方以外的企业提供物流服务的业务模式，是在供应链中，企业以合同的形式在一定期限内提供用户所需的全部或部分物流服务。第三方物流企业的利润不是来自运费、仓储等直接费用收入，而是来源于信息和知识。它可能包括、也可能不包括运费 、仓储资产的所有权。津菱物流公司就是一个以第三方物流为主，兼营其他几种物流方式的现代物流公司。
物流产业的发展已经到了这样一个阶段：现代物流的信息系统已经成为企业物流管理和操作的一个不可或缺的要件。到2002年底，我国的IT业和电子商务市场约达到150亿美元，供应链管理的软件和服务市场也达到40亿美元。实际上，有没有IT系统的支持已经成为现代物流运作的重要标志之一。许多企业在选择第三方物流服务供应商的时候往往把它作为重要的前提条件。所以，企业选择物流IT系统，与其说是一种信息技术选择，不如说是一种企业管理模式和市场竞争战略的选择。
一般来说，物流/供应链管理系统的建立有两条路径：一是量身定制的开发；二是集成系统的导入。众所周知，物流IT系统量身定制开发的前提是企业物流运作流程的设计；集成系统的导入也往往要求企业改变现有的物流运作流程。所以，无论走哪条路，企业建立物流IT系统的前提都是要确定其物流运作流程。津菱物流管理系统就是在这种背景下从原有良菱物流管理系统的基础上按照津菱物流公司业务流程度身改造而来。
1.2津菱物流管理系统概述
津菱物流管理系统是为津菱物流公司度身改造的全方位物流管理软件。它的原型是上海良菱物流公司所采用的物流管理软件，其功能涵盖了津菱物流公司的所有业务流程，从进货，到库内管理、盘点，到出货、退货，均可在此软件中完成。且此软件可按照公司内不同的角色提供不同的功能和权限。且此软件对于公司简化工作流程，加快工作进度，以适应日益发展的业务以及企业信息化起到了非常积极的作用。
津菱物流管理系统按其角色可分为库内管理操作员，系统操作员，采购操作员，其中库内管理功能操作频率可分为系统操作、进货、门店要货、配送、仓库管理、各类查询和基本信息管理，如图1-1所示：

图1-1：津菱系统库内管理操作员用例图
系统操作部分的功能分为系统操作、基本信息管理、物价管理、结算、各类查询和统计分析。如图1-2所示：

图1-2：系统操作员用例图
采购操作部分的功能分为系统操作、基本信息管理、进货和各类查询，如下图1-3所示：

图1-3：采购操作员用例图
仓库（即库内管理）又分为配送中心库存维护，配送中心商品封仓，配送中心移库，配送中心库存盘点，仓库损益，分拣仓位优化6个部分的操作以及库存查询功能。如下图1-4所示：
仓库
管理
配送中
心库存
维护
配送中
心商品
封仓
配送
中心
移库
配送中心库存盘点
仓库
损溢
分拣
仓位
优化
配送中心库存查询

图1-4：仓库内管理模块

- 35 -
第三章 系统改进设计
第二章 系统功能及需求
2.1 封仓部分功能概述
封仓是津菱物流管理系统库内管理中相当重要的一部分。当物流公司仓库内的商品保质期临近，而商品按照正常的配送出库方式尚需一定时间，因此即使立即出库，当商品运达要货门店的时候已经过了保质期。所以对于即将到达保质期的商品，需要进行封仓操作，使其不能参加出库。而当改进了运输路线或者由于其他原因使得商品可以在保质期前送达的时候，又需要对指定日期之前过期的商品进行解封，使其可以参加配送出库。由于可能在指定日期过期的商品进行封仓和解封操作的商品较多，所以需要对此操作实现批处理，即可以一次性对多个商品进行封仓和解封。
另外，由于一些其他原因，可能有一些个别商品不能参加配送，因此需要对这些商品进行单独的封仓操作。由于不能参加配送，所以称此类封仓为“配送封仓”。
2.2 封仓部分原有功能描述
现系统中封仓部分只有“配送中心封仓商品查询”，“配送中心自动封仓解封”，“配送中心手工封仓解封”三个界面。只能对单个商品进行个别的封仓。其用例图如图2-1所示：

图2-1：原有的封仓部分用例图
操作员：即由系统提供的配送经理郭颂的权限登陆
配送封仓：对仓库内存储仓位上的货物进行封仓，使其不能参加配送出库，一次只能操作一条记录的商品。
点菜封仓：对仓库内存储仓位上的货物进行封仓，使其不能参加点菜配送，一次只能操作一条记录的商品。
解封：解封可以对已经被封仓的商品进行解封操作，可以一次解封一条商品记录，或者用Ctrl或Shift键选择多条记录进行解封。
封仓查询：可以查询出被任何封仓类型所封的商品记录（包括配送封仓，保留库存封仓，调换封仓，反品封仓，退货封仓等）。
2.3 封仓部分需求分析
总体描述：增加保质期封仓功能，并根据实际业务情况修改手工封仓部分的功能，并保证封仓部分与配送部分能够兼容。其用例图如图2-2所示：

图2-2：改进后的封仓部分用例图
自动封仓：对所有商品按照有效期进行查询，并对距离有效期在一定时间之内（默认值为14天，可根据实际情况进行修改）的商品进行批处理封仓。
自动封仓解封：对所有被保质期自动封仓的商品根据其有效期在某一时间段内进行查询，并对这些商品进行批处理解封。也可以对查询出来的商品进行选中单个或多个商品进行解封。
配送封仓：与原有功能相同，检查其兼容性。根据津菱公司的实际业务情况，取消点菜封仓一项，使手动封仓只能对商品进行配送封仓，而不能进行点菜封仓。
手工解封：在维持原有功能的基础上，将手工解封的功能扩大至既可以解封手工封仓的商品，也可以解封自动封仓的商品。
封仓查询：在维持原有功能的基础上，在封仓查询功能中添加自动封仓栏，并取消点菜封仓相关栏目。如图2-3所示：

图2-3：封仓与配送出库状态图
第三章 系统改进设计
3.1 开发环境描述
3.1.1 服务器端环境
l 硬件环境：稳定服务器
l 软件环境：Redhat Linux 7.3, Sybase 12.5
3.1.2 客户端环境
l 硬件环境：普通PC机
l 软件环境：Microsoft公司Windows操作系统
3.1.3 开发环境
l 硬件环境：奔腾2.4G Hz CPU，512M DDR内存，17寸纯平显示器、显存64M，80G硬盘。
l 软件环境：Windows2003 Server，Powbuilder7，Sybase Central3.1，ER Win4.0
3.2 津菱系统总体设计
津菱物流管理系统的是专门针对公司内部资源进行管理，业务逻辑比较复杂，并且局限在公司局域网内部使用，所以此管理系统在总体结构设计上采取C/S的模式即能比较好的满足客户需求，采用此架构模式能充分发挥客户端PC的处理能力，很多工作可以在客户端处理后再提交给服务器，减轻了服务器的负担，因而客户端响应速度快。相比较于目前流行的B/S架构模式，在开发上更简单易行，系统的安全性也更高。其体系架构如图3-1所示：

Redhat Linux 7.3 服务器
Sybase12.5
数据库
Windows
操作系统客户端
发出SQL到服务器
返回查询结果到客户端
TCP/IP

图3-1:津菱物流管理系统体系结构

3.3 封仓部分主要技术
3.3.1 PowerBuilder中的DataWindow技术
纵观PowerBuilder技术，数据窗口（DataWindow）可是说是其核心的核心，它使得数据库的开发和应用变得更加简单，快捷。DataWindow能够让用户在输入数据和制作报表时，以多种不同的风格来显示数据。DataWindow是一种为正在被观察的数据保留数据信息的特有对象，因此，它为生成一个带有高质量的数据库事务应用程序提供了强大的处理工具。数据窗口对象的主要功能是显示数据并允许用户修改，因为在数据窗口对象中包含两个主要组件：数据信息和显示格式。数据窗口需要数据库和其他非数据库的数据资源来组装自己，它按照定义时制定的表现风格显示。用户定义了表现风格后，可以对其进行进一步的修改，以增强数据窗口的功能。数据窗口不但自身显示数据还可以作为生成所有报表的数据源。在一个实际的应用程序处理过程中，数据窗口一般位于应用程序和数据库中间，按应用程序的要求来检索，操纵并显示数据。除了数据库之外，数据窗口还可以通过ODBC，DDE（动态数据交换），OLE（对象嵌入与连接）等方法访问文件中的数据。
数据窗口为应用程序提供了数据源和检索，操纵数据的方法与途径。它包括数据窗口对象和数据窗口控件两个方面。
1．数据窗口对象
数据窗口对象是由数据窗口画板创建，并作为一个独立的对象存入PowerBuilder库文件中。在实际应用中，数据窗口对象通过数据窗口控件被放置在窗口中。数据窗口对象可以看成是封装数据的容器，数据窗口控件可以看作是窗口和数据窗口之间的连接件。数据窗口控件拥有自己独立的属性，函数和事件，拥有读取和修改数据窗口对象属性的函数（Describe和Modify）。数据窗口画板是创建和修改数据窗口对象的地方。数据窗口对象创建以后，被定义为独立对象，而不必将它们限定到某个特殊窗口，甚至不必将它们限定到某个应用程序中。数据窗口对象可以在窗口间进行共享，可以在需要访问相同表的不同应用程序中使用相同的数据窗口对象，这体现了PowerBuilder的可重复使用性。
2．数据窗口控件
数据窗口对象是通过一个数据窗口控件来引用的，通过数据窗口控件将数据窗口对象放置到窗口中，并通过数据窗口控件实现对数据窗口对象的操纵。在窗口中添加放置数据窗口控件和添加放置其他控件一样。
1) 将数据窗口控件放置到窗口上，设定其位置和大小。
2) 将数据窗口控件连接到某个特定的数据窗口对象。
3) 编写脚本代码，处理数据窗口控件和操纵数据窗口对象。
3.3.2 Sybase数据库中的存储过程
存储过程是存储在数据库中的一段存储程序。当创建存储过程时，系统会对其进行编译，并将执行代码存储到数据库中。
存储过程的优点：
1）安全性
当创建了存储过程之后，可以将执行该过程的权限授予其它用户，从而使得他可以执行特定的数据库操作，而不能访问其它模式对象（例如表）。例如，你可以将执行过程（更新表）的权限授予其它用户，但不授予它们直接访问该表的权限。
2) 性能
存储过程只被发送到数据库一次，相对于SQL语句或PL/SQL块而言，其网络通信量更小。
当调用存储过程时，数据库会直接运行该存储过程，无需进行编译。相对于SQL语句而言，其执行速度更快。
3) 内存分配 
存储过程充分利用了Sybase共享内存的能力。在将存储过程装载到内存中后，多个用户可以同时调用该存储过程，从而降低了应用对Sybase的实际内存需求。
3.3.3面向对象的软件设计
由于PowerBuilder是完全支持面向对象的开发工具，所以此系统的开发运用了大量的面向对象的思想。如系统中的大部分窗口以及按钮都是从同一个基类继承下来，大大减少了重复的工作量，增强了软件的复用性，加快了开发进程。
3.4 PowerBuilder窗口设计
3.4.1 过保质期自动封仓窗口设计
此窗口可以对预警天数进行设定（默认值是14天），设定完毕后可以对选定仓库编号和仓位编号进行查询未被封仓的商品。预警日期显示的为系统当前日期与预警天数相加的日期。在数据窗口中可以对查询所得的商品进行判断，通过checkbox决定是否将此商品自动封仓（默认值为选中），点击封仓按钮则可将约束条件下的商品进行批处理封仓。
窗口对象：w_stkloc_autoclose_alarm
数据窗口控件：dw_1
数据窗口对象：d_stkloc_autoclose_alarm
数据源存储过程：Spq_Stk_CloseAlarm
涉及表：Tbb_StkLoc

表3-1：封仓窗口总体设计
PB中的对象
含义
类型
w_stkloc_autoclose_alarm
主窗口
sy_w_sheet
sle_2
预警天数录入框
singlelineedit
st_4
预警天数
statictext
cbx_1
打印复选框
sy_u_cbx
dw_2
仓库编号数据窗口
sy_u_dw
dw_1
数据输出窗口
sy_u_dw
em_1
预警日期显示框
sy_u_em
st_3
进度条
statictext
sle_1
仓位编号输入框
sy_u_sle
st_2
仓位编号
statictext
st_1
仓库编号
statictext

3.4.2过保自动封仓解封设计
此窗口可以设置解封起始日期和解封终止日期（默认值解封起始日期为系统当前日期，解封终止日期为系统当前日期14天以后的日期），并在选定仓库信息和仓位编号（可以不填）后，点击查询，可以在数据窗口中得到当前仓库和仓位中有效期在解封起始日期和解封终止日期之间的被自动封仓商品。按住Ctrl和Shift键可对此数据窗口中的记录进行单选或者多选，点击解封按钮可以将选中商品解封。
窗口对象：w_stkloc_autoclose_unclose
数据窗口控件：dw_list
数据窗口对象：d_stkloc_autoclose_unclose
涉及存储过程：Spu_stkloc_unclose
涉及表：Tbb_StkLoc

表3-2：解封窗口总体设计
PB中的对象：
含义
类型
w_stkloc_autoclose_unclose
主窗口
sy_w_sheet
dw_storage
仓库信息下拉框
dw_u_storage_query
st_1
“仓位编号”
statictext
sle_stkcell
仓位编号输入框
sy_u_sle
dw_list
数据输出窗口
sy_u_dw
st_2
进度条外框
statictext
st_3
进度条
statictext
em_1
起始日期输入窗口
editmask
em_2
终止日期输入窗口
editmask
st_4
解封起始日期
statictext
st_5
解封终止日期
statictext

3.4.3 其他窗口的修改
1．在“配送中心手工封仓”窗口w_stkloc_close中去掉“点菜封仓”选项：
主要对其数据窗口控件d_stkloc_list进行修改，使其中的“点菜封仓”选项为不可见，但是保留代码，以留作以后的接口之用。
2．在“配送中心封仓商品查询”窗口w_stkloc_close_query中去掉“点菜封仓”复选框：
主要对其数据窗口d_stkloc_close_query进行修改，去掉“点菜封仓”一栏。
3.5 数据库相关设计
3.5.1 数据库表
封仓部分功能的实现主要是编写存储过程对数据库中配送中心商品库存表（Tbd_StkLoc）的进行修改操作。
表Tbd_StkLoc包含的各个字段：
l 表示商品所属标识的字段：DeptId（配送中心部门标识），StkLocId（配送中心库存标识），StkRegId（配送中心进货登记标识），StorageId（配送中心仓库标识），StkCellId（配送中心仓位标识），ProvId（供应商标识），ArtiId（基商品标识），ImpArtiId（进货类商品标识）
l 表示商品基本信息的字段：ArtiClassCode（商品分类码），ImpInclQty（进货包装基商品含量），ImpUnit（进货包装计量单位），DistInclQty（配送包装基商品含量），DistUnit（配送包装计量单位）
l 表示现存该商品信息的字段：StkQty（配送中心库存单品数量），TolQty（配送中心库存单品可配送数量），TaxPrice（库存商品含税进价），UnTaxPrice（库存商品无税进价），ITaxRate（商品进项税率），ImpDate（配送中心入库日期），ProcDate（配送中心商品生产日期），ValidDate（配送中心商品有效日期），BatchCode（配送中心商品批号），GiftTypeId（赠品类型标识）
l 表示库内该商品状态的字段：AutoCloseMark（自动封仓允许标志），CloseDate（封仓日期），EmptyDate（仓卡结零日期），StkStatus（配送中心库存状态），Note（配送中心库存说明），OptrId（操作员标识）
此表中的StkStatus为商品的库存状态值，其具体含义如下：
0-正常（可配送）
1-正在配送（不可出库）
2-手工点菜封仓（可配送）
4-手工配送封仓（不可点菜，不可配送）
8-到有效期自动封仓（不可点菜，不可配送）
16-配送中心内部返品封仓（不可点菜，不可配送）
32-配送返品封仓（不可点菜，不可配送）
64-保留库存封仓（不可点菜，不可配送）
128-退货封仓（不可点菜，不可配送）
256-与供应商调换封仓（不可点菜，不可配送）
512-配送中心内部移库过程封仓（中间状态）
注: 由于现有需求中对于点菜封仓不做要求，所以在用户操作界面上将与点菜封仓有关的操作取消，但是考虑到由于公司以后业务的发展或者别的需求，点菜封仓可能会在以后有所要求，所以在系统内部实现中保留与点菜封仓有关的字段及属性，以留作做将来功能扩展之用。

3.5.2存储过程
存储过程主要完成对表的各种操作和修改，根据需求分析的要求，增加或修改了以下存储过程：
Spu_StkLoc_AutoClose：实现过保质期封仓操作
Spq_Stk_CloseAlarm：d_stkloc_autoclose_alarm的数据源
Spu_stkloc_unclose：实现了对单个商品的解封操作

第四章 系统开发实现
第四章 系统开发实现
4.1 PowerBuilder窗口实现
4.1.1 过保质期自动封仓窗口主要实现
1．创建窗口主体w_stkloc_autoclose_alarm
在PB中创建Object->Window->w_stkloc_autoclose_alarm,按照设计，增各个控件：sle_2(singlelineedit), st_4(statictext), cbx_1(sy_u_cbx), dw_2(sy_u_dw), dw_1(sy_u_dw), em_1(sy_u_em), st_3(statictext), sle_1(sy_u_sle), st_2(statictext), st_1(statictext) 。
2．数据窗口的构建
编写存储过程Spq_Stk_CloseAlarm，根据存储过程的设计确定传递参数：
@m_DeptId int, /*配送中心部门标识*/
@m_StorageId int, /*配送中心仓库标识*/
@m_StkCellNo varchar(20), /* 配送中心仓位编码 */
@m_ValidDays datetime /* 预计封仓日 */
在实现查询功能的事件sy_query中调用此数据窗口控件的retrieve函数，并确定定此四个参数后数据窗口即调用存储过程进行查询，并将结果显示在数据窗口控件dw_1。参数值均从主窗口中的输入控件取得，主要代码如下：
li_storageid = dw_2.object.storageid [ dw_2.getrow ( ) ]
s_stkcellno = sle_1.text
ls_stkcellno = sle_1.text
ld_em1 = date(em_1.text)
ld_date = datetime(ld_em1)
li_bak = dw_1.retrieve ( il_storeid , li_storageid , '%' + trim ( ls_stkcellno ) + '%' , ld_date )
3．封仓功能的实现（sy_autofengcang）
封仓功能是通过事件sy_autofengcang实现的，在此事件中调用存储过程Spu_Stkloc_AutoClose，传递两个参数：
@m_AlarmDay int, --过保预警天数
@m_CloseDate datetime = null --当前日期
该存储过程实现对有效期在封仓日期之前的商品进行封仓操作。事件在调用存储过程完毕之后，再次调用查询函数，刷新数据窗口：
this.triggerevent ( ' sy_query ' )
4．关闭窗口事件（closequery）
当用户改变了商品的自动封仓状态后如果没有保存就关闭窗口，则系统回提示用户进行保存：
if dw_1.getnextmodified ( 0 , primary! ) > 0 then
ll_result = messagebox ( '提示' , '数据已经修改 ，是否保存？' , Question! , yesnocancel! , 3 )
5．其他功能
此窗口中的其他功能按钮均从系统中的父类继承，分别实现了复位，保存，另存，预览，打印，关闭等功能。并能对数据窗口中的选中记录进行到首，向前，向后，到尾操作。

4.1.2 过保质期自动封仓解封窗口主要实现
1．创建窗口主体w_stkloc_autoclose_unclose
在PB中创建Object->Window-> w_stkloc_autoclose_unclose,按照设计，增各个控件：dw_storage(dw_u_storage_query), st_1(statictext), sle_stkcell(sy_u_sle), dw_list(sy_u_dw), st_2(statictext), st_3(statictext), em_1(editmask), em_2(editmask), st_4(statictext), st_5(statictext)。
2．数据窗口的构建
l 通过SQL Query形式构造数据窗口对象d_stkloc_autoclose_unclose，从表:
dbo.Tbb_Article（商品基表）
dbo.Tbd_StkCell（仓位类型表）
dbo.Tbd_StkLoc（配送中心商品库存明细表）
dbo.Tbd_StkStorage（配送中心仓库表）
中选取数据，返回给数据窗口控件，作为查询调用的结果。
l 检索参数：
li_deptid number 配送中心部门标识
li_storgeid number 配送中心仓库标识
ls_stkcellno string 配送中心仓位编号
ld_datestart Datetime 解封起始日期
ld_dateend Datetime 解封终止日期
l 确定检索条件（即已被封仓，且有效期在规定的时间段内的商品）：
Where ( dbo.Tbd_StkLoc.StkStatus & 8 < > 0 ) ) AND /*按位操作取StkStatus为8的商品*/
( dbo.Tbd_StkLoc . ValidDate > = :ld_datestart and dbo . Tbd_StkLoc . ValidDate < = :ld_dateend ) /*即有效期在解封其实日期与解封终止日期之间*/
3．查询事件（sy_query）的实现：
l 取得用户输入的“解封起始日期”和“解封终止日期”，并转化称字符串：
ld_em1 = date ( em_1 . text )
ld_datestart = datetime ( ld_em1 )
ls_datestart = string ( ld_datestart , ' yyyy/mm/dd ' )
ld_em2 = date ( em_2 . text )
ld_dateend = datetime ( ld_em2 )
ls_dateend = string ( ld_dateend , ' yyyy/mm/dd ' )
l 对用户输入的日期进行判断其正确性
if ls_datestart < = '1900/01/01' then /*起始日期不得早于1900年1月1日*/
messagebox ( ' 提示信息 ' , ' 起始日期不合法 ' )
em_1 . setfocus ( )
return -1
end if
if ls_dateend < ls_datestart then /*终止日期不得早于起始日期*/
messagebox ( ' 提示信息 ' , ' 终止日期不可以比起始日期小 ' )
em_2 . setfocus ( )
return -1
end if
if ls_dateend > ' 2050/12/31 ' or ls_dateend = ' 1900/01/01 ' then /*终止日期不得晚于2050年12月31日或者等于1900年1月1日*/
messagebox ( ' 提示信息 ' , ' 终止日期不合法 ' )
em_2 . setfocus ( )
return -1
end if
l 根据用户输入的检索信息对数据库进行检索，主要由调用数据窗口控件，并传给其参数实现：
if isnull ( ls_stkcellno ) or ls_stkcellno = ' ' then
ls_stkcellno = ' '
li_bak = dw_list.retrieve ( ll_deptid , ll_storageid , ls_stkcellno , ld_datestart , ld_dateend )
else
li_bak = dw_list.retrieve ( ll_deptid , ll_storageid , ' % ' + ls_stkcellno + ' % ' , ld_datestart , ld_dateend )
end if
l 对于窗口菜单及工具栏按钮是否可用的设置：
lm_menu . of_disable ( lm_menu . m_oper.m_next )
lm_menu . of_disable ( lm_menu.m_oper . m_bottom )
lm_menu . of_disable ( lm_menu . m_oper . m_previous )
lm_menu . of_disable ( lm_menu . m_oper . m_top )
4．解封事件（sy_jiefeng）的实现：
主要由存储过程Spu_Stkloc_unclose实现对单个商品的解封，由于需要实现可以对单个或者多各选中商品的批处理解封，故需要在解封事件中循环调用此存储过程。
l 与存储过程Spu_Stkloc_unclose的参数传递：
DECLARE fengcang PROCEDURE FOR dbo . Spu_stkloc_unclose
@m_DeptId = :li_deptid, /*配送中心部门标识*/
@m_StkLocId = :ll_stklocid, /*配送中心库存标识*/
@m_StkStatus = :li_stkstatus, /*配送中心库存状态*/
@m_Note = :ls_note, /*配送中心库存说明*/
@m_OptrId = :li_optrid , /*操作员编号*/
@m_error = :li_bak output; /*出错信息*/
sqlca . autocommit = true
execute fengcang ;
l 循环调用存储过程：
for ll_row = 1 to ll_maxrow
if dw_list . isselected ( ll_row ) then
/*调用存储过程具体实现代码*/
end if
next
l 解封结果处理：
if ll_rowpoint = ii_rowall then /*解封成功*/
messagebox ( ' 提示信息 ' , ' 解封成功! ' )
st_3 . visible = false
lm_menu . of_disable ( lm_menu . m_edit . m_item_1 )
ib_firstquery = false
this . triggerevent ( ' sy_query ' )
return 1
else
if ll_rowpoint = 1 then /*解封失败*/
messagebox ( ' 提示信息 ' , ' 解封失败! ' )
elseif ll_rowpoint > 1 then
messagebox ( ' 提示信息 ' , ' 所选中的记录没有完全解封成功! ' )
ib_firstquery = false
this . triggerevent ( ' sy_query ' )
end if
st_3 . visible = false
lm_menu . of_disable ( lm_menu . m_edit . m_item_1 )
return -1
end if
5．其他功能
此窗口中的其他功能按钮亦从系统中的父类继承，分别实现了复位，保存，另存，预览，打印，关闭等功能。并能对数据窗口中的选中记录进行到首，向前，向后，到尾操作。

4.1.3 手工封仓解封及查询主要实现
1．在手工封仓中去掉点菜封仓的下拉菜单项：
打开数据窗口控件d_stkloc_list,修改其中下拉列表控件tbd_stkloc_stkstatus的edit属性中的code table内容，去掉“点菜封仓”。
2．在配送中心封仓商品查询中去掉点菜封仓的复选框
打开数据窗口控件的d_stkloc_close_query,去掉其中的obj_34688604控件即可。
4.2 存储过程实现
4.2.1 Spq_Stk_CloseAlarm