main.pas

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

    Informazioni1: TMenuItem;
    Help: TAction;
    Help2: TMenuItem;
    TTDettagliPZConf: TFloatField;
    TTconfigId: TStringField;
    TTconfigIntestazione: TBlobField;
    DsTTConfig: TDataSource;
    ppConfig: TppBDEPipeline;
    Operatore: TAction;
    TTOperatori: TTable;
    TTOperatoriOperatore: TStringField;
    TTOperatoriDenominazione: TStringField;
    TTOperatoriPasswd: TStringField;
    Nuovocontessera2: TMenuItem;
    ToolButton4: TToolButton;
    StatusBar: TStatusBar;
    TTBuoni: TTable;
    TTBuoniId: TAutoIncField;
    TTBuoniData: TDateField;
    TTBuoniCliente: TStringField;
    TTBuoniDescrizione: TMemoField;
    TTBuoniImporto: TCurrencyField;
    TTBuoniValuta: TStringField;
    TTBuoniUsato: TBooleanField;
    TTBuoniNominativo: TStringField;
    Buoni: TAction;
    ToolButton5: TToolButton;
    Cassa: TAction;
    ToolButton7: TToolButton;
    TTScontrinoAbbuono: TCurrencyField;
    TTScontrinoBuono: TCurrencyField;
    TTScontrinoIdBuono: TIntegerField;
    TTScontrinoTotaleMerce: TCurrencyField;
    TTScontrinoSaldato: TBooleanField;
    TTBuoniTipo: TStringField;
    TTBuoniIdGiornale: TStringField;
    Salda: TAction;
    ToolButton8: TToolButton;
    Resi: TAction;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    GestioneOperatori: TAction;
    GestioneOperatori1: TMenuItem;
    Movimenti: TAction;
    ppHeaderBand2: TppHeaderBand;
    ppLabel18: TppLabel;
    ppDBText15: TppDBText;
    ppSystemVariable3: TppSystemVariable;
    ppDBText24: TppDBText;
    ppDBMemo1: TppDBMemo;
    ppLine1: TppLine;
    ppLabel19: TppLabel;
    ppDBText16: TppDBText;
    ppLabel20: TppLabel;
    ppDBText17: TppDBText;
    ppDBText21: TppDBText;
    ppLabel24: TppLabel;
    ppDBRichText1: TppDBRichText;
    ppDetailBand2: TppDetailBand;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppDBText31: TppDBText;
    ppFooterBand2: TppFooterBand;
    ppSummaryBand2: TppSummaryBand;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    RicercaScontrini: TAction;
    RicercaScontrini1: TMenuItem;
    CassaPeriodo: TAction;
    CassasuPeriodo1: TMenuItem;
    CassaF61: TMenuItem;
    GiacenzaDBPMInvL: TCurrencyField;
    GiacenzaDBPMInvE: TCurrencyField;
    GiacenzaDBPMAttL: TCurrencyField;
    GiacenzaDBPMAttE: TCurrencyField;
    GiacenzaDBIdDocInv: TIntegerField;
    GiacenzaDBIdScontrInv: TIntegerField;
    GiacenzaDBIdResiInv: TIntegerField;
    GiacenzaDBIdMovMerceInv: TIntegerField;
    DsArticoli: TDataSource;
    TTDScontrVar: TTable;
    TTDScontrVarNumeroscontrino: TFloatField;
    TTDScontrVarRiga: TFloatField;
    TTDScontrVarProgressivo: TAutoIncField;
    TTDScontrVarArticolo: TStringField;
    TTDScontrVarQuantita: TFloatField;
    TTDScontrVarPunteggio: TFloatField;
    TTDScontrVarPassato: TBooleanField;
    TTDScontrVarPzConf: TFloatField;
    TTDScontrVarIdGiornale: TStringField;
    TTDettaglioModalitaDistintaBase: TStringField;
    TTArticoliModalitadistintabase: TStringField;
    TTDistinta: TTable;
    TTDistintaArticolo: TStringField;
    TTDistintaRigo: TIntegerField;
    TTDistintaComponente: TStringField;
    TTDistintaQta: TFloatField;
    TTDistintaNote: TMemoField;
    TTDistintaIdGiornale: TStringField;
    Dispositivo_Esterno: TAction;
    AttivaDispositivoEsterno1: TMenuItem;
    TTconfigAttivadispositivo: TBooleanField;
    Panel2: TPanel;
    Label_Interno: TLabel;
    Edit_Interno: TEdit;
    Label_giacenza: TLabel;
    Edit_giacenza: TEdit;
    Label_prezzo: TLabel;
    Edit_prezzo: TEdit;
    Label_Descrizione: TLabel;
    Edit_Descrizione: TEdit;
    Panel1: TPanel;
    Label2: TLabel;
    Casella: TEdit;
    TTDettaglioQtapagata: TFloatField;
    TTDettaglioPromozione: TStringField;
    procedure FineExecute(Sender: TObject);
    procedure NuovoExecute(Sender: TObject);
    procedure TTScontrinoAfterInsert(DataSet: TDataSet);
    procedure TTDettaglioAfterInsert(DataSet: TDataSet);
    procedure TTDettaglioArticoloChange(Sender: TField);
    procedure TTScontrinoBeforePost(DataSet: TDataSet);
    procedure NClienteExecute(Sender: TObject);
    procedure Modifica_clienteExecute(Sender: TObject);
    procedure ConfigurazioneExecute(Sender: TObject);
    procedure TTDettaglioCalcFields(DataSet: TDataSet);
    procedure TTScontrinoAfterScroll(DataSet: TDataSet);
    procedure ElencoExecute(Sender: TObject);
    procedure Imposta_elencoExecute(Sender: TObject);
    procedure TTSpecialBaseBeforeEdit(DataSet: TDataSet);
    procedure TTSpecialBaseAfterInsert(DataSet: TDataSet);
    procedure ArticoliExecute(Sender: TObject);
    procedure IncassiExecute(Sender: TObject);
    procedure TTClientiCodiceChange(Sender: TField);
    procedure TTScontrinoBeforeDelete(DataSet: TDataSet);
    procedure StampaExecute(Sender: TObject);
    procedure PortaError(ComPort: TCustomComPort; E: EComError;
      var Action: TComAction);
    procedure TTDettaglioBeforeDelete(DataSet: TDataSet);
    procedure TTDettaglioAfterPost(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure TTScontrinoBeforeEdit(DataSet: TDataSet);
    procedure TTScontrinoAfterPost(DataSet: TDataSet);
    procedure TTClientiAfterPost(DataSet: TDataSet);
    procedure ListanozzeExecute(Sender: TObject);
    procedure TTClientiAfterInsert(DataSet: TDataSet);
    procedure TTPagamentiAfterInsert(DataSet: TDataSet);
    procedure TotaliDbAfterInsert(DataSet: TDataSet);
    procedure TTArticoliAfterInsert(DataSet: TDataSet);
    procedure TTSpecialiAfterInsert(DataSet: TDataSet);
    procedure TTDettAfterInsert(DataSet: TDataSet);
    procedure ProfessioneDbAfterInsert(DataSet: TDataSet);
    procedure SocietaDbAfterInsert(DataSet: TDataSet);
    procedure GiacenzaDBAfterInsert(DataSet: TDataSet);
    procedure TTPagamentiAfterPost(DataSet: TDataSet);
    procedure TotaliDbAfterPost(DataSet: TDataSet);
    procedure TTArticoliAfterPost(DataSet: TDataSet);
    procedure TTSpecialBaseAfterPost(DataSet: TDataSet);
    procedure TTSpecialiAfterPost(DataSet: TDataSet);
    procedure TTDettAfterPost(DataSet: TDataSet);
    procedure ProfessioneDbAfterPost(DataSet: TDataSet);
    procedure SocietaDbAfterPost(DataSet: TDataSet);
    procedure GiacenzaDBAfterPost(DataSet: TDataSet);
    procedure TTClientiBeforeDelete(DataSet: TDataSet);
    procedure TTPagamentiBeforeDelete(DataSet: TDataSet);
    procedure TotaliDbBeforeDelete(DataSet: TDataSet);
    procedure TTArticoliBeforeDelete(DataSet: TDataSet);
    procedure TTSpecialBaseBeforeDelete(DataSet: TDataSet);
    procedure TTSpecialiBeforeDelete(DataSet: TDataSet);
    procedure TTDettBeforeDelete(DataSet: TDataSet);
    procedure ProfessioneDbBeforeDelete(DataSet: TDataSet);
    procedure SocietaDbBeforeDelete(DataSet: TDataSet);
    procedure GiacenzaDBBeforeDelete(DataSet: TDataSet);
    procedure Lancia_StampaExecute(Sender: TObject);
    procedure TTconfigAfterOpen(DataSet: TDataSet);
    procedure TTScontrinoCalcFields(DataSet: TDataSet);
    procedure StampaBollaExecute(Sender: TObject);
    procedure ListaAfterPost(DataSet: TDataSet);
    procedure ListaBeforePost(DataSet: TDataSet);
    procedure TprenotazioniBeforeDelete(DataSet: TDataSet);
    procedure DPrenotazioniBeforeDelete(DataSet: TDataSet);
    procedure TTDettagliAfterInsert(DataSet: TDataSet);
    procedure TTDettagliAfterPost(DataSet: TDataSet);
    procedure RegistraExecute(Sender: TObject);
    procedure InformazioniExecute(Sender: TObject);
    procedure HelpExecute(Sender: TObject);
    procedure OperatoreExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TTBuoniAfterInsert(DataSet: TDataSet);
    procedure BuoniExecute(Sender: TObject);
    procedure CassaExecute(Sender: TObject);
    procedure TTBuoniAfterPost(DataSet: TDataSet);
    procedure TTBuoniBeforeDelete(DataSet: TDataSet);
    procedure SaldaExecute(Sender: TObject);
    procedure ResiExecute(Sender: TObject);
    procedure GestioneOperatoriExecute(Sender: TObject);
    procedure MovimentiExecute(Sender: TObject);
    procedure RicercaScontriniExecute(Sender: TObject);
    procedure CassaPeriodoExecute(Sender: TObject);
    procedure TTDScontrVarBeforeDelete(DataSet: TDataSet);
    procedure TTDettagliBeforeDelete(DataSet: TDataSet);
    procedure TTDScontrVarAfterInsert(DataSet: TDataSet);
    procedure TTDScontrVarAfterPost(DataSet: TDataSet);
    procedure Dispositivo_EsternoExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CasellaExit(Sender: TObject);
    procedure CasellaKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    Procedure Formati ;
    Function SpiegaAccess : string ;
    Function SpiegaKey : string ;
    procedure GestisciErrore(Sender: TObject; E: Exception) ;    
  public
    Articolo: string;
    Qta: Real;
    Pc_old: real;
    Genera_Bolla: Boolean;
    Importo_old: currency;
    ImpE: Currency;
    ImpL: Currency;
    Pdf_Caricato: boolean;
    procedure Ricarica;
    Procedure Scarica ;
    function LogI(NomeTab: String): String;
    procedure LogM(IdGiornale, NomeTab: String);
    procedure LogC(IdGiornale, NomeTab: String);
    function incnumeratore(codice, anno, mese, giorno: string): longint;
    procedure CalcTotali;
    function PezziConf(articoloeti: string): Real;
    procedure CalcAliquote;
    procedure Aiuto(nomefile: string; pagina: integer);
    Function Carica_Pdf : boolean ;
    function round2(x: extended): integer;
    function ArrotondaImponibile4(imponibile: real; valuta: string): real;
    { Public declarations }
  end;
Type
 Riga = record
  Articolo : string ;
  Qta : Real ;
 end ;

var
  Main_form: TMain_form;
  Ord_old : Integer ;
  Prop_old : string ;
  Val_old : string ;
  Righe : array of riga ;
  BaudRates : array of TbaudRate ;
  Bonus_old: integer;
  Automatico: boolean;
  OpOk : boolean ;
  una_variante : Boolean ;

implementation

uses clienti, config, ricerca, articoli, u_incassi, Uelenco, Liste_nozze,
  Ucerca, uTotali, u_liste_dlg, wizard, sezione, u_Prenotazioni,
  u_nonvenduti, u_nonconsegnati, rica_art_u_fornit, u_testata_bolla,
  registra, u_inizio, about, uPdf, operatori, vendita, buoni, cassa,
  Crediti, resi, gest_oper, movMerce, ricercaScontrino, cassa_periodo,
  disp_ext ;

{$R *.DFM}

Function TMain_form.SpiegaAccess :string ;
begin
 Result:= ('Istruzioni : ') + #13 +
         ('Generalmente questo errore si verifica in due casi :')+ #13 +
         ('1. La memoria del sistema non