updbase.pas

拥有全套神州数码马易飞ERP源码,现上传部分源码

unit updBASE;

interface

uses sysUtils, dbtables, db, LibStrs,Constdef ;

const
  C_MAXFLAG = 999;

type
  PArrayData = ^TArrayData;
  TArrayData = array[0..2] of string;

type
  TBaseUpdateUnit = class(TObject)
   procedure Query1BeforeOpen(DataSet: TDataSet);
   procedure Query2BeforeOpen(DataSet: TDataSet);
  private
    FVarSaved: Boolean;
  protected
    SourceTxnCode: string;
    Action: string;         //絋粄┪