main.pas

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

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, DBGridEh, ComCtrls, ExtCtrls, TeEngine,
  Series, TeeProcs, Chart, DBChart, DBCtrls, StdCtrls, Mask, Buttons,
  ppCtrls, ppBands, ppVar, myChkBox, ppPrnabl, ppClass, ppProd, ppReport,
  ppDB, ppComm, ppRelatv, ppCache, ppDBPipe, ppDBBDE;

type
  Tmain_form = class(TForm)
    QEstrazione: TQuery;
    dsEstrazione: TDataSource;
    QEstrazioneImponibileL: TCurrencyField;
    QEstrazioneImponibileE: TCurrencyField;
    Pagine: TPageControl;
    Panel1: TPanel;
    Risultato: TTabSheet;
    DBGridEh1: TDBGridEh;
    Selezione: TTabSheet;
    SoggettiDB: TTable;
    StatisticaDB: TTable;
    StatisticaDBSoggetto: TStringField;
    StatisticaDBTutti_Soggetti: TBooleanField;
    StatisticaDBDal: TDateField;
    StatisticaDBAl: TDateField;
    StatisticaDBTutti_movimenti: TBooleanField;
    StatisticaDBArticolo: TStringField;
    StatisticaDBTutti_Articoli: TBooleanField;
    StatisticaDBCategoria: TStringField;
    StatisticaDBTutte_Categorie: TBooleanField;
    StatisticaDBTipo: TStringField;
    StatisticaDBTutti_Tipi: TBooleanField;
    StatisticaDBMarca: TStringField;
    StatisticaDBTutte_Marche: TBooleanField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    dsStatistica: TDataSource;
    DBCheckBox1: TDBCheckBox;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBCheckBox2: TDBCheckBox;
    StatisticaDBRagionesociale: TStringField;
    Label9: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    ArticoliDB: TTable;
    StatisticaDBDescrizione: TStringField;
    CatMerDB: TTable;
    StatisticaDBCategoria_LookUp: TStringField;
    TipoDB: TTable;
    StatisticaDBTipoLookUp: TStringField;
    MarcheDB: TTable;
    StatisticaDBMarcaLookUp: TStringField;
    StatisticaDBVenduto: TBooleanField;
    StatisticaDBAcquistato: TBooleanField;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    StatisticaDBDocumento: TStringField;
    StatisticaDBTutti_documenti: TBooleanField;
    TipiDocDB: TTable;
    StatisticaDBDocumentoLookUp: TStringField;
    Label8: TLabel;
    DBLookupComboBox6: TDBLookupComboBox;
    DBCheckBox9: TDBCheckBox;
    Centrifuga: TBitBtn;
    BitBtn1: TBitBtn;
    RisultatoDB: TTable;
    StatisticaDBAgente: TStringField;
    StatisticaDBTutti_Agenti: TBooleanField;
    AgentiDB: TTable;
    StatisticaDBAgenteLookUp: TStringField;
    Label11: TLabel;
    DBLookupComboBox7: TDBLookupComboBox;
    DBCheckBox10: TDBCheckBox;
    Label13: TLabel;
    estrazione: TProgressBar;
    Soggetto: TTabSheet;
    QSoggetto: TQuery;
    batchRisultato: TBatchMove;
    RisultatoDBDocumento: TIntegerField;
    RisultatoDBData: TDateField;
    RisultatoDBNumero: TIntegerField;
    RisultatoDBDescrizione: TStringField;
    RisultatoDBSoggetto: TStringField;
    RisultatoDBRagionesociale: TStringField;
    RisultatoDBAgente: TStringField;
    RisultatoDBImponibile: TCurrencyField;
    RisultatoDBImposta: TCurrencyField;
    RisultatoDBValuta: TStringField;
    RisultatoDBImponibileL: TCurrencyField;
    RisultatoDBImponibileE: TCurrencyField;
    RisultatoDBImpostaL: TCurrencyField;
    RisultatoDBImpostaE: TCurrencyField;
    dsSoggetto: TDataSource;
    DBGridEh2: TDBGridEh;
    QSoggettoRagionesociale: TStringField;
    QSoggettoImponibileE: TCurrencyField;
    QSoggettoImponibileL: TCurrencyField;
    QSoggettoImpostaE: TCurrencyField;
    QSoggettoImpostaL: TCurrencyField;
    Giorno: TTabSheet;
    QGiorno: TQuery;
    CurrencyField1: TCurrencyField;
    CurrencyField2: TCurrencyField;
    CurrencyField3: TCurrencyField;
    CurrencyField4: TCurrencyField;
    QGiornoData: TDateField;
    Mensile: TTabSheet;
    QMensile: TQuery;
    CurrencyField5: TCurrencyField;
    CurrencyField6: TCurrencyField;
    CurrencyField7: TCurrencyField;
    CurrencyField8: TCurrencyField;
    MesiDB: TTable;
    MesiDBAnno: TIntegerField;
    MesiDBMese: TIntegerField;
    MesiDBDatainizio: TDateField;
    MesiDBDatafine: TDateField;
    MesiDBDescrizione: TStringField;
    MesiDBSettimana: TIntegerField;
    dsMensile: TDataSource;
    QMinMax: TQuery;
    QMinMaxMaxData: TDateField;
    QMinMaxMinData: TDateField;
    QMensileAnno: TIntegerField;
    QMensileMese: TIntegerField;
    QMensileDescrizione: TStringField;
    PagineMensile: TPageControl;
    Tabella: TTabSheet;
    Grafico: TTabSheet;
    GraficoMensile: TDBChart;
    Series2: TLineSeries;
    MesiDBID: TAutoIncField;
    QMensileID: TIntegerField;
    PagineGiorno: TPageControl;
    TabellaGiorno: TTabSheet;
    GraficoGiorno: TTabSheet;
    GraficoGiornaliero: TDBChart;
    Series1: TLineSeries;
    dsGiorno: TDataSource;
    ppSoggetto: TppBDEPipeline;
    SoggettoReport: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppLabel1: TppLabel;
    myDBCheckBox1: TmyDBCheckBox;
    ppLabel2: TppLabel;
    myDBCheckBox2: TmyDBCheckBox;
    ppLabel3: TppLabel;
    myDBCheckBox3: TmyDBCheckBox;
    ppLabel4: TppLabel;
    myDBCheckBox4: TmyDBCheckBox;
    ppLabel5: TppLabel;
    myDBCheckBox5: TmyDBCheckBox;
    ppLabel6: TppLabel;
    myDBCheckBox6: TmyDBCheckBox;
    ppLabel7: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppLine1: TppLine;
    ppSummaryBand1: TppSummaryBand;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppDBCalc4: TppDBCalc;
    ppLabel15: TppLabel;
    GiornoReport: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppLabel16: TppLabel;
    myDBCheckBox7: TmyDBCheckBox;
    ppLabel17: TppLabel;
    myDBCheckBox8: TmyDBCheckBox;
    ppLabel18: TppLabel;
    myDBCheckBox9: TmyDBCheckBox;
    ppLabel19: TppLabel;
    myDBCheckBox10: TmyDBCheckBox;
    ppLabel20: TppLabel;
    myDBCheckBox11: TmyDBCheckBox;
    ppLabel21: TppLabel;
    myDBCheckBox12: TmyDBCheckBox;
    ppLabel22: TppLabel;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppLabel28: TppLabel;
    ppLabel29: TppLabel;
    ppDetailBand2: TppDetailBand;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppLine2: TppLine;
    ppSummaryBand2: TppSummaryBand;
    ppDBCalc6: TppDBCalc;
    ppDBCalc7: TppDBCalc;
    ppDBCalc8: TppDBCalc;
    ppLabel30: TppLabel;
    ppGiorno: TppBDEPipeline;
    ppDBText21: TppDBText;
    SpeedButton1: TSpeedButton;
    MensileReport: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppLabel31: TppLabel;
    myDBCheckBox13: TmyDBCheckBox;
    ppLabel32: TppLabel;
    myDBCheckBox14: TmyDBCheckBox;
    ppLabel33: TppLabel;
    myDBCheckBox15: TmyDBCheckBox;
    ppLabel34: TppLabel;
    myDBCheckBox16: TmyDBCheckBox;
    ppLabel35: TppLabel;
    myDBCheckBox17: TmyDBCheckBox;
    ppLabel36: TppLabel;
    myDBCheckBox18: TmyDBCheckBox;
    ppLabel37: TppLabel;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppLabel38: TppLabel;
    ppLabel39: TppLabel;
    ppSystemVariable3: TppSystemVariable;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppDetailBand3: TppDetailBand;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppDBText30: TppDBText;
    ppDBText31: TppDBText;
    ppLine3: TppLine;
    ppSummaryBand3: TppSummaryBand;
    ppDBCalc10: TppDBCalc;
    ppDBCalc11: TppDBCalc;
    ppDBCalc12: TppDBCalc;
    ppLabel45: TppLabel;
    ppMensile: TppBDEPipeline;
    ppRisultato: TppBDEPipeline;
    RisultatoReport: TppReport;
    DBGridEh3: TDBGridEh;
    DBGridEh4: TDBGridEh;
    ppLabel12: TppLabel;
    ppDBText8: TppDBText;
    ppDBCalc1: TppDBCalc;
    ppLabel27: TppLabel;
    ppDBText18: TppDBText;
    ppDBCalc5: TppDBCalc;
    ppLabel42: TppLabel;
    ppDBText29: TppDBText;
    ppDBCalc9: TppDBCalc;
    AreaDB: TTable;
    AreaDBArea: TStringField;
    AreaDBIdGiornale: TStringField;
    StatisticaDBArea: TStringField;
    StatisticaDBTutte_Aree: TBooleanField;
    StatisticaDBAreaLookUp: TStringField;
    DBLookupComboBox2: TDBLookupComboBox;
    Label4: TLabel;
    DBCheckBox3: TDBCheckBox;
    ppParametri: TppBDEPipeline;
    ppHeaderBand5: TppHeaderBand;
    ppLabel61: TppLabel;
    myDBCheckBox25: TmyDBCheckBox;
    ppLabel62: TppLabel;
    myDBCheckBox26: TmyDBCheckBox;
    ppLabel63: TppLabel;
    myDBCheckBox27: TmyDBCheckBox;
    ppLabel64: TppLabel;
    myDBCheckBox28: TmyDBCheckBox;
    ppLabel65: TppLabel;
    myDBCheckBox29: TmyDBCheckBox;
    ppLabel66: TppLabel;
    myDBCheckBox30: TmyDBCheckBox;
    ppLabel67: TppLabel;
    ppDBText42: TppDBText;
    ppDBText43: TppDBText;
    ppDBText44: TppDBText;
    ppDBText45: TppDBText;
    ppDBText46: TppDBText;
    ppLabel68: TppLabel;
    ppLabel69: TppLabel;
    ppSystemVariable5: TppSystemVariable;
    ppLabel70: TppLabel;
    ppLabel71: TppLabel;
    ppLabel73: TppLabel;
    ppLabel74: TppLabel;
    ppLabel76: TppLabel;
    ppLabel77: TppLabel;
    ppLabel72: TppLabel;
    ppDetailBand5: TppDetailBand;
    ppDBText47: TppDBText;
    ppDBText48: TppDBText;
    ppDBText50: TppDBText;
    ppDBText51: TppDBText;
    ppLine5: TppLine;
    ppDBText52: TppDBText;
    ppDBText53: TppDBText;
    ppDBText49: TppDBText;
    ppSummaryBand5: TppSummaryBand;