udm1.pas

专项拨款逐级下发系统的主要功能：对专项拨款申请系统审批通过的专项拨款进行资金下发和签收

unit UDM1;

interface

uses
  SysUtils, Classes, DB, ADODB, MemTableDataEh, MemTableEh, DataDriverEh,
  DBTables, EhLibADO ,EhLibMTE{过滤单元} ;

type
  TDM1 = class(TDataModule)
    aconn: TADOConnection;
    Unitquery: TADOQuery;
    Levelsource: TDataSource;
    DataSource2: TDataSource;
    levelquery: TADOQuery;
    ADOQuery1: TADOQuery;
    tempquery: TADOQuery;
    paymentquery: TADOQuery;
    showpayment: TADOQuery;
    DataSource1: TDataSource;
    MemTableEh1: TMemTableEh;
    DataSetDriverEh1: TDataSetDriverEh;
    MemTableEh1item_name: TWideStringField;
    MemTableEh1bumf_no: TWideStringField;
    MemTableEh1item_no: TWideStringField;
    MemTableEh1out_u_no: TWideStringField;
    MemTableEh1out_u_name: TWideStringField;
    MemTableEh1in_u_no: TWideStringField;
    MemTableEh1in_u_name: TWideStringField;
    MemTableEh1date_no: TWideStringField;
    MemTableEh1payment_time: TDateTimeField;
    MemTableEh1center_money: TBCDField;
    MemTableEh1municipality_money: TBCDField;
    MemTableEh1city_money: TBCDField;
    MemTableEh1county_money: TBCDField;
    MemTableEh1self_money: TBCDField;
    MemTableEh1receive_affirm: TBooleanField;
    MemTableEh1finallyed: TBooleanField;
    MemTableEh1sum_money: TBCDField;
    inpayment: TADOQuery;
    DataSource3: TDataSource;
    MemTableEh2: TMemTableEh;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    WideStringField3: TWideStringField;
    WideStringField4: TWideStringField;
    WideStringField5: TWideStringField;
    WideStringField6: TWideStringField;
    WideStringField7: TWideStringField;
    WideStringField8: TWideStringField;
    DateTimeField1: TDateTimeField;
    BCDField1: TBCDField;
    BCDField2: TBCDField;
    BCDField3: TBCDField;
    BCDField4: TBCDField;
    BCDField5: TBCDField;
    BooleanField1: TBooleanField;
    BooleanField2: TBooleanField;
    BCDField6: TBCDField;
    DataSetDriverEh2: TDataSetDriverEh;
    MemTableEh1receive_time: TDateTimeField;
    MemTableEh2receive_time: TDateTimeField;
    MemTableEh1ID: TAutoIncField;
    MemTableEh2ID: TAutoIncField;
    MemTableEh1paymentno: TWideStringField;
    MemTableEh1parentno: TWideStringField;
    MemTableEh2paymentno: TWideStringField;
    MemTableEh2parentno: TWideStringField;
    subqry: TADOQuery;
    itemaq: TADOQuery;
    itemds: TDataSource;
    procedure Query1UpdateRecord(DataSet: TDataSet;
      UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM1: TDM1;

implementation

{$R *.dfm}

procedure TDM1.Query1UpdateRecord(DataSet: TDataSet;
  UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
//
end;

end.