udm.pas

此功能是集资对付系统,为一单位要求而做,此能实现了实时对付

unit uDm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    Atbl_Dzrq: TADOTable;
    Atbl_hqb: TADOTable;
    Atbl_Jzry: TADOTable;
    Atbl_tmp: TADOTable;
    Atbl_Nlx: TADOTable;
    Atbl_Wd: TADOTable;
    ds_Dzrq: TDataSource;
    ds_hqb: TDataSource;
    ds_Jzry: TDataSource;
    ds_tmp: TDataSource;
    ds_Nlx: TDataSource;
    ds_Wd: TDataSource;
    Atbl_JzryID: TIntegerField;
    Atbl_Jzryxm: TWideStringField;
    Atbl_Jzryzz: TWideStringField;
    Atbl_Jzrysfz: TWideStringField;
    Atbl_Jzryjzhm: TWideStringField;
    Atbl_Jzrycrsj: TDateTimeField;
    Atbl_Jzryje: TFloatField;
    Atbl_Jzryqx: TIntegerField;
    Atbl_Jzrylxze: TCurrencyField;
    Atbl_Jzrydf1_lx: TFloatField;
    Atbl_Jzrydf2_lx: TFloatField;
    Atbl_Jzrydf3_lx: TFloatField;
    Atbl_Jzrydf4_lx: TFloatField;
    Atbl_Jzrydf5_lx: TFloatField;
    Atbl_Jzrydf6_lx: TFloatField;
    Atbl_Jzrydf1_sj: TDateTimeField;
    Atbl_Jzrydf1_bj: TFloatField;
    Atbl_Jzrydf1_ye: TFloatField;
    Atbl_Jzrydf1_ll: TFloatField;
    Atbl_Jzrydf2_sj: TDateTimeField;
    Atbl_Jzrydf2_bj: TFloatField;
    Atbl_Jzrydf2_ye: TFloatField;
    Atbl_Jzrydf2_ll: TFloatField;
    Atbl_Jzrydf3_sj: TDateTimeField;
    Atbl_Jzrydf3_bj: TFloatField;
    Atbl_Jzrydf3_ye: TFloatField;
    Atbl_Jzrydf3_ll: TFloatField;
    Atbl_Jzrydf4_sj: TDateTimeField;
    Atbl_Jzrydf4_bj: TFloatField;
    Atbl_Jzrydf4_ye: TFloatField;
    Atbl_Jzrydf4_ll: TFloatField;
    Atbl_Jzrydf5_sj: TDateTimeField;
    Atbl_Jzrydf5_bj: TFloatField;
    Atbl_Jzrydf5_ye: TFloatField;
    Atbl_Jzrydf5_ll: TFloatField;
    Atbl_Jzrydf6_sj: TDateTimeField;
    Atbl_Jzrytpdf: TFloatField;
    Atbl_JzrytBj: TCurrencyField;
    Atbl_JzrytYe: TCurrencyField;
    aQry_General: TADOQuery;
    procedure Atbl_JzryCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation
     uses main;
{$R *.dfm}

procedure Tdm.Atbl_JzryCalcFields(DataSet: TDataSet);
begin
Atbl_Jzrylxze.Value :=Atbl_Jzrydf1_lx.Value +Atbl_Jzrydf2_lx.Value
                       +Atbl_Jzrydf3_lx.Value+Atbl_Jzrydf4_lx.Value
                       +Atbl_Jzrydf5_lx.Value;
Atbl_JzrytBj.Value := Atbl_Jzrydf1_bj.Value +Atbl_Jzrydf2_bj.Value
                      +Atbl_Jzrydf3_bj.Value +Atbl_Jzrydf4_bj.Value
                      +Atbl_Jzrydf5_bj.Value ;
Atbl_JzrytYe.Value := Atbl_Jzryje.Value -Atbl_JzrytBj.Value;
{Atbl_JzrytYe.Value := Atbl_Jzrydf1_ye.Value +Atbl_Jzrydf2_ye.Value
                      +Atbl_Jzrydf3_ye.Value +Atbl_Jzrydf4_ye.Value
                      +Atbl_Jzrydf5_ye.Value ;}
end;

end.