cassa.pas

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

unit cassa;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ToolWin, ComCtrls, ExtCtrls, DBGridEh, Grids, DBGrids,
  DBSumLst, ActnList, StdCtrls, Mask, ToolEdit, CurrEdit, RxMemDS;

type
  TCassa_Form = class(TForm)
    ToolBar1: TToolBar;
    QCassa: TQuery;
    QCassaNumeroscontrino: TFloatField;
    QCassaData: TDateField;
    QCassaTotaleL: TCurrencyField;
    QCassaTotaleE: TCurrencyField;
    QGiorni: TQuery;
    QGiorniGIORNO: TDateField;
    dsGiorni: TDataSource;
    Qbuoni: TQuery;
    dsCassa: TDataSource;
    dsBuoni: TDataSource;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Splitter1: TSplitter;
    DBGridEh2: TDBGridEh;
    QCassaPagatoL: TCurrencyField;
    QCassaPagatoE: TCurrencyField;
    QbuoniID: TIntegerField;
    QbuoniDATA: TDateField;
    QbuoniCLIENTE: TStringField;
    QbuoniImportoL: TCurrencyField;
    QbuoniImportoE: TCurrencyField;
    SumCassa: TDBSumList;
    ActionList1: TActionList;
    Chiudi: TAction;
    ToolButton1: TToolButton;
    SumBuoni: TDBSumList;
    Totale: TLabel;
    TotL: TCurrencyEdit;
    TotE: TCurrencyEdit;
    GiorniDb: TRxMemoryData;
    GiorniDbGiorno: TDateField;
    Qgiorni2: TQuery;
    Qgiorni2GIORNO: TDateField;
    Buono: TAction;
    ToolButton2: TToolButton;
    procedure ChiudiExecute(Sender: TObject);
    procedure dsGiorniDataChange(Sender: TObject; Field: TField);
    procedure BuonoExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SumCassaRecalcAll(Sender: TObject);
    procedure SumBuoniRecalcAll(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Prepara;
    { Public declarations }
  end;

var
  Cassa_Form: TCassa_Form;

implementation

uses main, buoni;

{$R *.DFM}

procedure TCassa_Form.ChiudiExecute(Sender: TObject);
begin
 Release ;
end;

procedure TCassa_Form.dsGiorniDataChange(Sender: TObject; Field: TField);
begin
 if field = nil then
  begin
   TotL.Value :=  SumCassa.SumCollection.Items[0].SumValue +
                  SumBuoni.SumCollection.Items[0].SumValue ;
   TotE.Value :=  SumCassa.SumCollection.Items[1].SumValue +
                  SumBuoni.SumCollection.Items[1].SumValue ;

  end ;
end;

procedure TCassa_Form.Prepara;
begin
 GiorniDb.DisableControls ;
 Main_form.StatusBar.SimpleText := 'Estrazione dati in corso, attendere prego....' ;
 Qgiorni.Open ;
 Qgiorni2.Open ;
 giorniDb.open ;
 While Not QGiorni.Eof do
  begin
   Application.ProcessMessages ;
   GiorniDb.Insert ;
   GiorniDbGiorno.asDateTime := QgiorniGiorno.asDateTime ;
   GiorniDb.post ;
   Qgiorni.Next ;
  end;
 Qgiorni.Close;
 While Not Qgiorni2.Eof do
  begin
   Application.ProcessMessages ;
   if Not GiorniDb.Locate('Giorno',QGiorni2Giorno.asDateTime,[]) then
    begin
     GiorniDb.Insert ;
     GiorniDbGiorno.asDateTime := Qgiorni2Giorno.asDateTime ;
     GiorniDb.post ;
    end;
   Qgiorni2.next ;
  end;
 Qgiorni2.Close ;
 GiorniDb.SortOnFields('Giorno') ;
 GiorniDb.last ;
 main_form.StatusBar.simpleText := 'Dati pronti...' ;
 GiorniDb.EnableControls ;
 Qcassa.open ;
 QBuoni.Open ;
   TotL.Value :=  SumCassa.SumCollection.Items[0].SumValue +
                  SumBuoni.SumCollection.Items[0].SumValue ;
   TotE.Value :=  SumCassa.SumCollection.Items[1].SumValue +
                  SumBuoni.SumCollection.Items[1].SumValue ;
end;

procedure TCassa_Form.BuonoExecute(Sender: TObject);
begin
 main_form.Buoni.Execute ;
 buoni_form.TTBuoni.FindKey([QbuoniId.asinteger]) ;
end;

procedure TCassa_Form.FormShow(Sender: TObject);
begin
   TotL.Value :=  SumCassa.SumCollection.Items[0].SumValue +
                  SumBuoni.SumCollection.Items[0].SumValue ;
   TotE.Value :=  SumCassa.SumCollection.Items[1].SumValue +
                  SumBuoni.SumCollection.Items[1].SumValue ;
end;

procedure TCassa_Form.SumCassaRecalcAll(Sender: TObject);
begin
    TotL.Value :=  SumCassa.SumCollection.Items[0].SumValue +
                  SumBuoni.SumCollection.Items[0].SumValue ;
   TotE.Value :=  SumCassa.SumCollection.Items[1].SumValue +
                  SumBuoni.SumCollection.Items[1].SumValue ;
end;

procedure TCassa_Form.SumBuoniRecalcAll(Sender: TObject);
begin
   TotL.Value :=  SumCassa.SumCollection.Items[0].SumValue +
                  SumBuoni.SumCollection.Items[0].SumValue ;
   TotE.Value :=  SumCassa.SumCollection.Items[1].SumValue +
                  SumBuoni.SumCollection.Items[1].SumValue ;
end;

end.