DELPHI4的DEMOS/DB/MASTAPP例子细节求教!(50分)

  • 主题发起人 主题发起人 chen_ke
  • 开始时间 开始时间
C

chen_ke

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TMastData.OrdersAfterPost(DataSet: TDataSet);
begin
if Cust.Locate('CustNo', OrdersCustNo.Value, []) and
(CustLastInvoiceDate.Value < OrdersShipDate.Value) then
begin
Cust.Edit;
CustLastInvoiceDate.Value := OrdersShipDate.Value;
Cust.Post;
end;
Database.ApplyUpdates([Orders, Items, Parts, Cust]);
end;
该过程中CustLastInvoiceDate.Value 与 OrdersShipDate.Value这
两个字段之间是什么关系?即该if语句是什么作用?还有
Cust.Locate('CustNo', OrdersCustNo.Value, []) 语句怎么解释?
 
CustLastInvoiceDate 与 OrdersShipDate 这两字段
分别是 Cust 和 Order 表重用 fieldEditor 得到的.
而 CustLastInvoiceDate.Value 与 OrdersShipDate.Value
则是 这两个变量得值.
至于Cust.Locate('CustNo', OrdersCustNo.Value, []) 语句的解释,
你可以参见delphi 的Help.用于查询.
 
我是想知道两者的具体含义和联系,为什么程序要这样写?
 
呵呵,
chen_ke,
自杀了;)
一个是上一次的开发票的时期,一个是定货单的执行日期。
这个是属于应用的具体规则,
可以不用太深入了。
多看看程序流程和实现的技术吧。
 
谢了,amo,你还在吗?
 
接受答案了.
 
后退
顶部