u_scadenziario_form.pas

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

unit U_scadenziario_form;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, Db, ExtCtrls, Grids, DBGrids, StdCtrls, Mask, Buttons, ActnList,
  ppCtrls, ppVar, ppPrnabl, ppClass, ppBands, ppProd, ppReport, ppDB,
  ppComm, ppCache, ppDBPipe, ppDBBDE, ppEndUsr, ppRelatv, ToolWin, ComCtrls,
  DBGridEh, ppStrtch, ppSubRpt;

type
  TScadenziario_form = class(TForm)
    Panel2: TPanel;
    DsEconto: TDataSource;
    Label17: TLabel;
    ordinamento: TDBComboBox;
    DSParam: TDataSource;
    Label20: TLabel;
    DBEdit17: TDBEdit;
    Label21: TLabel;
    DBEdit18: TDBEdit;
    DBComboBox2: TDBComboBox;
    Label24: TLabel;
    Label19: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Tutti: TButton;
    ActionList1: TActionList;
    Cercatutto: TAction;
    elencatutto: TAction;
    Stampa: TAction;
    Scadenziario: TppBDEPipeline;
    Scadenziario_report: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppLabel2: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppLabel3: TppLabel;
    ppDBText5: TppDBText;
    ppLabel4: TppLabel;
    ppDBText6: TppDBText;
    ppLabel5: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLine1: TppLine;
    ppLabel10: TppLabel;
    TTPappp: TDBComboBox;
    Label22: TLabel;
    Aggiorna: TAction;
    Modifica_scadenziario: TppDesigner;
    Personalizza: TAction;
    Soggetti: TAction;
    Documento: TAction;
    Chiudi: TAction;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Registra: TAction;
    ToolButton8: TToolButton;
    GrigliaEconto: TDBGridEh;
    Totali: TAction;
    DBNavigator1: TDBNavigator;
    RegistraMulti: TAction;
    Pnota: TAction;
    ToolButton10: TToolButton;
    Parametri: TppBDEPipeline;
    ppDBText9: TppDBText;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppLabel13: TppLabel;
    ppDBText12: TppDBText;
    ppLabel14: TppLabel;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    Note: TAction;
    ToolButton9: TToolButton;
    ppSummaryBand1: TppSummaryBand;
    dsPrimanota: TDataSource;
    ppMovimenti: TppBDEPipeline;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    ppDetailBand2: TppDetailBand;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    Aiuto: TAction;
    DBEdit1: TDBEdit;
    procedure TuttiClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CercatuttoExecute(Sender: TObject);
    procedure elencatuttoExecute(Sender: TObject);
    procedure StampaExecute(Sender: TObject);
    procedure AggiornaExecute(Sender: TObject);
    procedure Modifica_scadenziarioCustomSaveDoc(Sender: TObject);
    procedure PersonalizzaExecute(Sender: TObject);
    procedure SoggettiExecute(Sender: TObject);
    procedure DocumentoExecute(Sender: TObject);
    procedure ChiudiExecute(Sender: TObject);
    procedure RegistraExecute(Sender: TObject);
    procedure TotaliExecute(Sender: TObject);
    procedure PnotaExecute(Sender: TObject);
    procedure NoteExecute(Sender: TObject);
    procedure AiutoExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Scadenziario_form: TScadenziario_form;

implementation

uses scade_mod, Umenu, ana_mod, Doc_mod, Uelenco, Ucerca, pagamenti_u,
  gestModExt, Enquiry_Pnota_U, note_scadenziario, aboutOS;

{$R *.DFM}

procedure TScadenziario_form.TuttiClick(Sender: TObject);
begin
     ModuloDatiScadenziario.TTParam.Edit ;
     ModuloDatiScadenziario.TTParamSoggetto.asString := '' ;
end;

procedure TScadenziario_form.FormShow(Sender: TObject);
begin
     ModuloDatiScadenziario.TTParam.edit ;
     ModuloDatiScadenziario.Rinfresca_scadenze ;
end;

procedure TScadenziario_form.CercatuttoExecute(Sender: TObject);
begin
     Cerca_form.Trova(self) ;
end;

procedure TScadenziario_form.elencatuttoExecute(Sender: TObject);
begin
     Elenco_form.Mostraelenco(self) ;
end;

procedure TScadenziario_form.StampaExecute(Sender: TObject);
Var
   nome_report : string ;
begin
     Nome_report := '' ;
     If ModuloDatiAnagrafiche.LeggiChiave('Layout scadenziario',nome_report) then
       begin
        If FileExists(nome_report) then
         begin
          Scadenziario_report.Template.filename := nome_report ;
          Scadenziario_report.Template.LoadFromFile ;
          Scadenziario_report.AllowPrintToFile := TRUE ;
          //AboutBox.TestVersion('A') or AboutBox.TestVersion('P') ;
         end ;
       end ;
     Scadenziario_report.Print ;
end;

procedure TScadenziario_form.AggiornaExecute(Sender: TObject);
begin
     try
      ModulodatiScadenziario.TTParam.Post ;
     except
      ShowMessage('Dati gi