main.pas

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

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ActnList, Menus, DBCtrls, StdCtrls, Mask, Db, DBTables, Grids, DBGrids,
  ExtCtrls, ImgList, ToolWin, ComCtrls, DBSumLst, ComPort, DBGridEh,
  RXCtrls, CurrEdit, ToolEdit, RXDBCtrl, ppModule, raCodMod, ppRichTx,
  ppCtrls, ppStrtch, ppMemo, ppEndUsr, ppDB, ppDBPipe, ppDBBDE, ppBands,
  myChkBox, ppVar, ppPrnabl, ppClass, ppCache, ppComm, ppRelatv, ppProd,
  ppReport, math ;

type
  TMain_form = class(TForm)
    Azioni: TActionList;
    Nuovo: TAction;
    Stampa: TAction;
    NCliente: TAction;
    Fine: TAction;
    MainMenu1: TMainMenu;
    File_menu: TMenuItem;
    Scontrino1: TMenuItem;
    Fine1: TMenuItem;
    TTScontrino: TTable;
    DSScontrino: TDataSource;
    TTDettaglio: TTable;
    DSDettaglio: TDataSource;
    TTScontrinoNumeroscontrino: TFloatField;
    TTScontrinoCassa: TStringField;
    TTScontrinoOperatore: TStringField;
    TTScontrinoData: TDateField;
    TTScontrinoScontovalore: TCurrencyField;
    TTScontrinoSconto: TFloatField;
    TTScontrinoPagamento: TStringField;
    TTScontrinoPassato: TBooleanField;
    TTDettaglioNumeroscontrino: TFloatField;
    TTDettaglioRiga: TAutoIncField;
    TTDettaglioArticolo: TStringField;
    TTDettaglioQuantita: TFloatField;
    TTDettaglioAliquotaiva: TFloatField;
    TTDettaglioSconto: TFloatField;
    TTDettaglioSconto2: TCurrencyField;
    TTDettaglioPassato: TBooleanField;
    TTClienti: TTable;
    DSClienti: TDataSource;
    TTScontrinoDenominazioneCliente: TStringField;
    TTArticoli: TTable;
    TTDettaglioDescrizione: TStringField;
    TTDettaglioImporto: TCurrencyField;
    TTScontrinoTotaleL: TCurrencyField;
    TTScontrinoTotaleE: TCurrencyField;
    TTPagamenti: TTable;
    TTScontrinoDescrizionepagamento: TStringField;
    Configurazione: TAction;
    Configurazione1: TMenuItem;
    Scontrino2: TMenuItem;
    Cliente2: TMenuItem;
    Nuovo1: TMenuItem;
    TTconfig: TTable;
    TTconfigValutastandard: TStringField;
    TTconfigPagamentostandard: TStringField;
    TTconfigDeposito: TStringField;
    TTconfigCassa: TStringField;
    TTconfigOperatore: TStringField;
    TTconfigContatorescontrini: TFloatField;
    TTScontrinoValuta: TStringField;
    Modifica_cliente: TAction;
    TTClientiNominativo: TStringField;
    TTClientiIndirizzo: TStringField;
    TTClientiCap: TStringField;
    TTClientiProvincia: TStringField;
    TTClientiPunteggio: TFloatField;
    Modifica1: TMenuItem;
    TTconfigDescrizionepagamento: TStringField;
    TTScontrinoPunteggio: TFloatField;
    TTDettaglioPunteggio: TFloatField;
    TTDettaglioPrezzoivato: TCurrencyField;
    TTClientiTel: TStringField;
    TTClientiDatadinascita: TDateField;
    TTClientiLuogodinascita: TStringField;
    TTClientiProfessione: TStringField;
    TTClientiConiugato: TBooleanField;
    TTClientiFigli: TBooleanField;
    TTClientiEt: TStringField;
    TTClientiAnnihobby: TFloatField;
    TTClientiBarca: TBooleanField;
    TTClientiSocieta: TStringField;
    TTClientiFIPSAS: TBooleanField;
    TTClientiGarista: TBooleanField;
    TTClientiSpecialita: TStringField;
    TTClientiFrequenza: TStringField;
    clienti: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    Elenco: TAction;
    Nuovo2: TMenuItem;
    ppClienti: TppDesigner;
    Imposta_elenco: TAction;
    Impostaelenco1: TMenuItem;
    TTClientiLocalita: TStringField;
    ppHeaderBand1: TppHeaderBand;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel12: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppLabel13: TppLabel;
    ppDetailBand1: TppDetailBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppLabel1: TppLabel;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    myDBCheckBox1: TmyDBCheckBox;
    ppLabel6: TppLabel;
    myDBCheckBox2: TmyDBCheckBox;
    ppLabel7: TppLabel;
    myDBCheckBox3: TmyDBCheckBox;
    ppLabel8: TppLabel;
    myDBCheckBox4: TmyDBCheckBox;
    ppLabel9: TppLabel;
    myDBCheckBox5: TmyDBCheckBox;
    ppLabel10: TppLabel;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppLabel11: TppLabel;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppFooterBand1: TppFooterBand;
    ppSummaryBand1: TppSummaryBand;
    ppDBCalc1: TppDBCalc;
    ppLabel14: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppLabel15: TppLabel;
    ppDBCalc3: TppDBCalc;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppDBCalc4: TppDBCalc;
    TTSpeciali: TTable;
    TTSpecialiOrdine: TSmallintField;
    TTSpecialiCampo: TStringField;
    TTSpecialiValore: TStringField;
    DSSpecial: TDataSource;
    TTSpecialBase: TTable;
    TTSpecialBaseOrdine: TSmallintField;
    TTSpecialBaseCampo: TStringField;
    TTSpecialBaseValore: TStringField;
    DSSpecialBase: TDataSource;
    Articoli: TAction;
    Articoli1: TMenuItem;
    TTScontrinoDeposito: TStringField;
    TTconfigMaxLunCod: TFloatField;
    Stampe1: TMenuItem;
    Incassi: TAction;
    Incassi1: TMenuItem;
    TTconfigStampaIncassi: TStringField;
    TTconfigEuro2000: TBooleanField;
    TTDett: TTable;
    TTDettNumeroscontrino: TFloatField;
    TTDettRiga: TAutoIncField;
    TTDettArticolo: TStringField;
    TTDettQuantita: TFloatField;
    TTDettPrezzoivato: TCurrencyField;
    TTDettAliquotaiva: TFloatField;
    TTDettSconto: TFloatField;
    TTDettSconto2: TCurrencyField;
    TTDettPunteggio: TFloatField;
    TTDettPassato: TBooleanField;
    ToolBar1: TToolBar;
    Listaimmagini: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    TTconfigStampascontrino: TBooleanField;
    TTconfigPortascontrino: TStringField;
    TTconfigStringaNuovo: TStringField;
    TTScontrinoStampato: TBooleanField;
    TTconfigStringaRiga: TStringField;
    TTconfigStringaTotale: TStringField;
    TTconfigStringaFine: TStringField;
    TTconfigAliquotaR1: TFloatField;
    TTconfigAliquotaR2: TFloatField;
    TTconfigAliquotaR3: TFloatField;
    TTconfigAliquotaR4: TFloatField;
    TTconfigR1: TStringField;
    TTconfigR2: TStringField;
    TTconfigR3: TStringField;
    TTconfigR4: TStringField;
    TTconfigNomefileconfigurazione: TStringField;
    Porta: TComPort;
    TTconfigVelocitporta: TStringField;
    TTconfigParita: TStringField;
    TTconfigDatabits: TStringField;
    TTconfigStopbits: TStringField;
    GiacenzaDB: TTable;
    GiacenzaDBArticolo: TStringField;
    GiacenzaDBDeposito: TStringField;
    GiacenzaDBCausale: TStringField;
    GiacenzaDBQtainiziale: TFloatField;
    GiacenzaDBQtacarico: TFloatField;
    GiacenzaDBQtascarico: TFloatField;
    GiacenzaDBDataultimoMovimento: TDateField;
    GiacenzaDBDataultimoinventario: TDateField;
    GiacenzaDBArticolointerno: TStringField;
    TotaliDb: TTable;
    TotaliDbScontrino: TIntegerField;
    TotaliDbAliquota: TFloatField;
    TotaliDbImponibile: TCurrencyField;
    TotaliDbImposta: TCurrencyField;
    TotaliDbTotale: TCurrencyField;
    TTScontrinoBonus: TIntegerField;
    SocietaDb: TTable;
    SocietaDbSocieta: TStringField;
    TTClientiSocietaLookUp: TStringField;
    ProfessioneDb: TTable;
    ProfessioneDbProfessione: TStringField;
    TTClientiProfessioneLookUp: TStringField;
    Listanozze: TAction;
    ListaNozze1: TMenuItem;
    ToolButton12: TToolButton;
    TTconfigLista_Nozze: TFloatField;
    TTScontrinoIdGiornale: TStringField;
    TTClientiIdGiornale: TStringField;
    TTDettaglioIdGiornale: TStringField;
    TotaliDbIdGiornale: TStringField;
    ProfessioneDbIdGiornale: TStringField;
    TTSpecialBaseIdGiornale: TStringField;
    TTconfigIdGiornale: TStringField;
    TTSpecialiIdGiornale: TStringField;
    TTDettIdGiornale: TStringField;
    SocietaDbIdGiornale: TStringField;
    GiacenzaDBIdGiornale: TStringField;
    Giornale: TTable;
    GiornaleIdGiornale: TStringField;
    GiornaleData: TDateField;
    GiornaleOra: TTimeField;
    GiornaleTipoOperazione: TStringField;
    GiornaleOperatore: TStringField;
    TTNumera: TTable;
    TTNumeraNumeratore: TStringField;
    TTNumeraAnno: TStringField;
    TTNumeraMese: TStringField;
    TTNumeraGiorno: TStringField;
    TTNumeraValore: TIntegerField;
    TTNumeraIdGiornale: TStringField;
    TTSoggetti: TTable;
    TTSoggettiCodice: TStringField;
    TTSoggettiTiporapporto: TStringField;
    TTSoggettiRagionesociale: TStringField;
    TTSoggettiRagionesocialeMerce: TStringField;
    TTSoggettiIndirizzo: TStringField;
    TTSoggettiCap: TStringField;
    TTSoggettiLocalita: TStringField;
    TTSoggettiProvincia: TStringField;
    TTSoggettiStato: TStringField;
    TTSoggettiPartitaIVA: TStringField;
    TTSoggettiCodiceFiscale: TStringField;
    TTSoggettiEL: TStringField;
    TTSoggettiIndirizzofatture: TStringField;
    TTSoggettiCapfatture: TStringField;
    TTSoggettiLocalitafatture: TStringField;
    TTSoggettiProvinciafatture: TStringField;
    TTSoggettiStatofatture: TStringField;
    TTSoggettiPersonadacontattare: TStringField;
    TTSoggettiTelefono: TStringField;
    TTSoggettiFax: TStringField;
    TTSoggettiDati: TStringField;
    TTSoggettiEmail: TStringField;
    TTSoggettiURL: TStringField;
    TTSoggettiLogin: TStringField;