cassa_periodo.pas

基于OOP设计的一套较好的ERP系统

unit cassa_periodo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, ToolEdit, ExtCtrls, CurrEdit, Db, DBCtrls, DBTables,
  Buttons, ComCtrls;

type
  TCassa_periodo_form = class(TForm)
    Dal: TDateEdit;
    Label1: TLabel;
    Label2: TLabel;
    al: TDateEdit;
    Button1: TButton;
    QCassaPeriodo: TQuery;
    QCassaPeriodoPagatoL: TCurrencyField;
    QCassaPeriodoPagatoE: TCurrencyField;
    QbuoniPeriodo: TQuery;
    QbuoniPeriodoImportoL: TCurrencyField;
    QbuoniPeriodoImportoE: TCurrencyField;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    DataSource2: TDataSource;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    TotaleL: TCurrencyEdit;
    Label7: TLabel;
    Label8: TLabel;
    TotaleE: TCurrencyEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    Animate1: TAnimate;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Cassa_periodo_form: TCassa_periodo_form;

implementation

{$R *.DFM}

procedure TCassa_periodo_form.Button1Click(Sender: TObject);
begin
 Animate1.active := true ;
 QCassaPeriodo.Close ;
 QBuoniPeriodo.Close ;
 QCassaPeriodo.ParamByName('dataIni').Value := Dal.date ;
 QcassaPeriodo.ParamByName('dataFin').Value := Al.Date ;
 QBuoniPeriodo.ParamByName('dataIni').Value := Dal.date ;
 QBuoniPeriodo.ParamByName('dataFin').Value := Al.Date ;
 QcassaPeriodo.Prepare ;
 QBuoniPeriodo.Prepare ;
 QCassaPeriodo.Open ;
 QBuoniPeriodo.Open ;
 TotaleL.Value := QcassaPeriodoPagatoL.AsCurrency + QBuoniPeriodoImportoL.AsCurrency ;
 TotaleE.Value := QcassaPeriodoPagatoE.AsCurrency + QBuoniPeriodoImportoE.AsCurrency ;
 Animate1.active := False ;
end;

procedure TCassa_periodo_form.FormCreate(Sender: TObject);
Var
   Anno,Mese,Giorno : Word ;
begin

 DecodeDate(Now,Anno,Mese,Giorno) ;
 dal.Date := EncodeDate(Anno,Mese,1) ;
 al.Date := Now;
end;

end.