u_preferenze.pas

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

unit u_preferenze;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, ComCtrls, DBTables, Buttons, Mask, DBCtrls,
  RxLookup, ToolEdit;

type
  TPreferenze = class(TForm)
    TTDefault: TTable;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    DsDefault: TDataSource;
    TTDefaultChiave: TStringField;
    TTDefaultValore: TStringField;
    TTDefaultIdGiornale: TStringField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Articoli: TTabSheet;
    Periferiche: TTabSheet;
    Documenti: TTabSheet;
    Nome_azienda: TLabel;
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Formato_Euro: TEdit;
    Label9: TLabel;
    Formato_lire: TEdit;
    Label10: TLabel;
    Formato_qta: TEdit;
    GroupBox2: TGroupBox;
    Contabilita: TRadioGroup;
    Salta_festivi: TRadioGroup;
    Label14: TLabel;
    Mastro_fornitori: TEdit;
    Label13: TLabel;
    Mastro_clienti: TEdit;
    Label3: TLabel;
    Conto_fornitori: TEdit;
    Label2: TLabel;
    Conto_clienti: TEdit;
    GroupBox3: TGroupBox;
    Euro_o_lire: TRadioGroup;
    Intestazione: TRadioGroup;
    Mostra_gobbo: TRadioGroup;
    Mostra_suggerimenti: TRadioGroup;
    Autoedit: TRadioGroup;
    Autosalvataggio: TRadioGroup;
    Chiedi_conferme: TRadioGroup;
    Gestione_operatori: TRadioGroup;
    Label15: TLabel;
    Prefisso: TEdit;
    GroupBox4: TGroupBox;
    Label12: TLabel;
    GroupBox5: TGroupBox;
    Elenca_subito_articoli: TRadioGroup;
    Giacenza_totale: TRadioGroup;
    Iniziali: TRadioGroup;
    Label4: TLabel;
    Delay: TEdit;
    Label16: TLabel;
    Rispondi_con: TEdit;
    Tutti: TRadioGroup;
    Arrotonda_prezzi: TRadioGroup;
    Label20: TLabel;
    Arrotondamento: TEdit;
    Label6: TLabel;
    Dump_errori: TEdit;
    GroupBox6: TGroupBox;
    Label7: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label36: TLabel;
    Label38: TLabel;
    Label40: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    DBLookupComboBox6: TDBLookupComboBox;
    DBLookupComboBox7: TDBLookupComboBox;
    DBRadioGroup1: TDBRadioGroup;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    TTIva: TTable;
    TTIvaCodice: TStringField;
    TTIvaDescrizione: TStringField;
    TTIvaAliquota: TFloatField;
    TTIvaAliquotaindetrazione: TFloatField;
    TTIvaPartitaPC: TStringField;
    TTIvaIdGiornale: TStringField;
    TTDepositi: TTable;
    TTDepositiDeposito: TStringField;
    TTDepositiDenominazione: TStringField;
    TTDepositiIndirizzo: TStringField;
    TTDepositiLocalita: TStringField;
    TTDepositiCap: TStringField;
    TTDepositiProvincia: TStringField;
    TTDepositiStato: TStringField;
    TTDepositiSoggetto: TStringField;
    TTDepositiRiferimento: TStringField;
    TTDepositiTelefono: TStringField;
    TTDepositiFax: TStringField;
    TTDepositiDati: TStringField;
    TTDepositiUrl: TStringField;
    TTDepositiEmail: TStringField;
    TTDepositiHost: TStringField;
    TTDepositiLogin: TStringField;
    TTDepositiPassword: TStringField;
    TTDepositiOradichiamata: TStringField;
    TTDepositiTentativi: TStringField;
    TTDepositiGiacenza: TBooleanField;
    TTDepositiNote: TStringField;
    TTDepositiLocale: TBooleanField;
    TTDepositiListino: TStringField;
    TTDepositiIdGiornale: TStringField;
    TTModPag: TTable;
    TTModPagCodice: TStringField;
    TTModPagDescrizione: TStringField;
    TTModPagDF_FM: TStringField;
    TTModPagCalcola: TBooleanField;
    TTModPagSalda: TBooleanField;
    TTModPagContoanticipo: TStringField;
    TTModPagFrazioneanticipo: TFloatField;
    TTModPagContoincasso: TStringField;
    TTModPagSconto: TFloatField;
    TTModPagIdGiornale: TStringField;
    TTVettori: TTable;
    TTVettoriCodice: TStringField;
    TTVettoriVettore: TStringField;
    TTVettoriIndirizzo: TStringField;
    TTVettoriTelefono: TStringField;
    TTVettoriFax: TStringField;
    TTVettoriEmail: TStringField;
    TTVettoriWEB: TStringField;
    TTVettoriIdGiornale: TStringField;
    TTAgenti: TTable;
    TTAgentiCodice: TStringField;
    TTAgentiRagionesociale: TStringField;
    TTAgentiIndirizzo: TStringField;
    TTAgentiCap: TStringField;
    TTAgentiLocalita: TStringField;
    TTAgentiProvincia: TStringField;
    TTAgentiStato: TStringField;
    TTAgentiPartitaIVA: TStringField;
    TTAgentiCodiceFiscale: TStringField;
    TTAgentiEL: TStringField;
    TTAgentiTelefono: TStringField;
    TTAgentiFax: TStringField;
    TTAgentiDati: TStringField;
    TTAgentiEmail: TStringField;
    TTAgentiURL: TStringField;
    TTAgentiZona: TStringField;
    TTAgentiDepositopreferenziale: TStringField;
    TTAgentiListino: TStringField;
    TTAgentiBanca: TStringField;
    TTAgentiIdGiornale: TStringField;
    TTAgentiArea: TStringField;
    TTAgentiCapoarea: TBooleanField;
    TTImpostazioni: TTable;
    TTImpostazioniIva: TStringField;
    TTImpostazioniDepositoentrata: TStringField;
    TTImpostazioniDepositouscita: TStringField;
    TTImpostazioniSpeseditrasportoL: TCurrencyField;
    TTImpostazioniSpeseditrasportoE: TCurrencyField;
    TTImpostazioniSpesebancarieL: TCurrencyField;
    TTImpostazioniSpesebancarieE: TCurrencyField;
    TTImpostazioniSpesevarieL: TCurrencyField;
    TTImpostazioniSpesevarieE: TCurrencyField;
    TTImpostazioniPagamento: TStringField;
    TTImpostazioniAgente: TStringField;
    TTImpostazioniImballo: TStringField;
    TTImpostazioniCuradeltrasporto: TStringField;
    TTImpostazioniVettore: TStringField;
    TTImpostazioniRicercaIva: TStringField;
    TTImpostazioniRicercaDepositoEntrata: TStringField;
    TTImpostazioniRicercaDepositoUscita: TStringField;
    TTImpostazioniRicercaPagamento: TStringField;
    TTImpostazioniRicercaagente: TStringField;
    TTImpostazioniRicercaImballo: TStringField;
    TTImpostazioniRicercaVettore: TStringField;
    TTImpostazioniIdGiornale: TStringField;
    TTimballi: TTable;
    TTimballiImballo: TStringField;
    TTimballiIdGiornale: TStringField;
    DsImpostazioni: TDataSource;
    GroupBox7: TGroupBox;
    Mostra_sempre_documenti_esistenti: TRadioGroup;
    Label18: TLabel;
    Scadenza_ritenute: TEdit;
    Label17: TLabel;
    user_name_posta: TEdit;
    mail_server: TEdit;
    Label24: TLabel;
    Label19: TLabel;
    Serie: TEdit;
    Precedenza_allo_storico: TRadioGroup;
    GroupBox8: TGroupBox;
    Spese_trasporto_ivate: TRadioGroup;
    Spese_bancarie_ivate: TRadioGroup;
    Spese_varie_ivate: TRadioGroup;
    Label22: TLabel;
    Label21: TLabel;
    Label23: TLabel;
    GroupBox9: TGroupBox;
    Attiva_dispositivo: TRadioGroup;
    Solo_un_etichetta: TRadioGroup;
    Stampa_etichette: TRadioGroup;
    Driver_etichette: TEdit;
    Label5: TLabel;
    layout_etichette: TEdit;
    Label11: TLabel;
    Riporta_sconto: TRadioGroup;
    Prezzo_consigliato_ivato: TRadioGroup;
    GroupBox10: TGroupBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Listino_etichette: TComboBox;
    Duplica_codice_con_articolo: TRadioGroup;
    iva_spese_trasporto: TRxDBLookupCombo;
    DsIva: TDataSource;
    Iva_spese_bancarie: TRxDBLookupCombo;
    Iva_spese_varie: TRxDBLookupCombo;
    Button1: TButton;
    Button2: TButton;
    GroupBox11: TGroupBox;
    RITENUTA_ENASARCO: TEdit;
    SOGLIA_MONOMANDATARIO: TEdit;
    SOGLIA_PLURIMANDATARIO: TEdit;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Precedenza_allo_storico_vendita: TRadioGroup;
    SELEZIONA_DOC: TRadioGroup;
    Label28: TLabel;
    prezzo_etichette: TComboBox;
    Label35: TLabel;
    Path_Import_Export: TEdit;
    DLG: TOpenDialog;
    Dir_Edit1: TDirectoryEdit;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Dir_Edit1Change(Sender: TObject);
    procedure Dir_Edit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Preferenze: TPreferenze;

implementation

uses u_main;

{$R *.DFM}

procedure TPreferenze.FormCreate(Sender: TObject);
var Listini : Ttable ;
begin
     Listini := TTable.Create(nil) ;
     Listini.DatabaseName := 'euro2000'  ;
     Listini.TableName := 'listini.db' ;
     Listini.Open ;

     Listini.First ;
     Listino_etichette.Items.Clear ;
     while not Listini.Eof do
       begin
         Listino_etichette.Items.Add(Listini.FieldByName('listino').AsString) ;
         Listini.Next ;
       end ;

     Listini.Close ;
     Listini.Free ;


     TTDefault.Open ;
     if TTDefault.FindKey(['ARROTONDA PREZZI']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             Arrotonda_prezzi.ItemIndex := 0
           else
             Arrotonda_prezzi.ItemIndex := 1 ;
          end  ;
      end ;
     if TTDefault.FindKey(['AUTOEDIT']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             AUTOEDIT.ItemIndex := 0
           else
             AUTOEDIT.ItemIndex := 1 ;
          end   ;
      end ;
     if TTDefault.FindKey(['AUTOSALVATAGGIO']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             AUTOSALVATAGGIO.ItemIndex := 0
           else
             AUTOSALVATAGGIO.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['CHIEDI CONFERME']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             CHIEDI_CONFERME.ItemIndex := 0
           else
             CHIEDI_CONFERME.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['CONTABILITA']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             CONTABILITA.ItemIndex := 0
           else
             CONTABILITA.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['ELENCA SUBITO ARTICOLI']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             ELENCA_SUBITO_ARTICOLI.ItemIndex := 0
           else
             ELENCA_SUBITO_ARTICOLI.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['EURO O LIRE']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'L' then
             EURO_O_LIRE.ItemIndex := 1
           else
             EURO_O_LIRE.ItemIndex := 0 ;
          end ;
      end ;
     if TTDefault.FindKey(['GIACENZA TOTALE']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             GIACENZA_TOTALE.ItemIndex := 0
           else
             GIACENZA_TOTALE.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['INIZIALI']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             INIZIALI.ItemIndex := 0
           else
             INIZIALI.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['INTESTAZIONE']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             INTESTAZIONE.ItemIndex := 0
           else
             INTESTAZIONE.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['MOSTRA GOBBO']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             MOSTRA_GOBBO.ItemIndex := 0
           else
             MOSTRA_GOBBO.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['MOSTRA SEMPRE DOCUMENTI ESISTENTI']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             MOSTRA_SEMPRE_DOCUMENTI_ESISTENTI.ItemIndex := 0
           else
             MOSTRA_SEMPRE_DOCUMENTI_ESISTENTI.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['MOSTRA SUGGERIMENTI']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             MOSTRA_SUGGERIMENTI.ItemIndex := 0
           else
             MOSTRA_SUGGERIMENTI.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['PRECEDENZA ALLO STORICO']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             PRECEDENZA_ALLO_STORICO.ItemIndex := 0
           else
             PRECEDENZA_ALLO_STORICO.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['PRECEDENZA ALLO STORICO VENDITA']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             PRECEDENZA_ALLO_STORICO_VENDITA.ItemIndex := 0
           else
             PRECEDENZA_ALLO_STORICO_VENDITA.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['SELEZIONA DOC DA CONV']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             SELEZIONA_DOC.ItemIndex := 0
           else
             SELEZIONA_DOC.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['RIPORTA SCONTO']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             RIPORTA_SCONTO.ItemIndex := 0
           else
             RIPORTA_SCONTO.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['SALTA FESTIVI']) then
      begin
         if TTDefaultValore.AsString <> '' then