u_preferenze.pas

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

          begin
           if TTDefaultValore.AsString = 'SI' then
             SALTA_FESTIVI.ItemIndex := 0
           else
             SALTA_FESTIVI.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['SOLO UN ETICHETTA']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             SOLO_UN_ETICHETTA.ItemIndex := 0
           else
             SOLO_UN_ETICHETTA.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['STAMPA ETICHETTE']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             STAMPA_ETICHETTE.ItemIndex := 0
           else
             STAMPA_ETICHETTE.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['TUTTI']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             TUTTI.ItemIndex := 0
           else
             TUTTI.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['GESTIONE OPERATORI']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             GESTIONE_OPERATORI.ItemIndex := 0
           else
             GESTIONE_OPERATORI.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['ATTIVA DISPOSITIVO']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             ATTIVA_DISPOSITIVO.ItemIndex := 0
           else
             ATTIVA_DISPOSITIVO.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['DUPLICA CODICE CON ARTICOLO']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             DUPLICA_CODICE_CON_ARTICOLO.ItemIndex := 0
           else
             DUPLICA_CODICE_CON_ARTICOLO.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['SPESE TRASPORTO IVATE']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             SPESE_TRASPORTO_IVATE.ItemIndex := 0
           else
             SPESE_TRASPORTO_IVATE.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['SPESE VARIE IVATE']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             SPESE_VARIE_IVATE.ItemIndex := 0
           else
             SPESE_VARIE_IVATE.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['SPESE BANCARIE IVATE']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             SPESE_BANCARIE_IVATE.ItemIndex := 0
           else
             SPESE_BANCARIE_IVATE.ItemIndex := 1 ;
          end ;
      end ;
     if TTDefault.FindKey(['PREZZO CONSIGLIATO IVATO']) then
      begin
         if TTDefaultValore.AsString <> '' then
          begin
           if TTDefaultValore.AsString = 'SI' then
             PREZZO_CONSIGLIATO_IVATO.ItemIndex := 0
           else
             PREZZO_CONSIGLIATO_IVATO.ItemIndex := 1 ;
          end ;
      end ;

     if TTDefault.FindKey(['ARROTONDAMENTO']) then
       Arrotondamento.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['CONTO CLIENTI']) then
       Conto_Clienti.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['CONTO FORNITORI']) then
       CONTO_FORNITORI.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['DELAY']) then
       DELAY.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['DRIVER ETICHETTE']) then
       DRIVER_ETICHETTE.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['DUMP ERRORI']) then
       DUMP_ERRORI.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['FORMATO EURO']) then
       FORMATO_EURO.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['FORMATO LIRE']) then
       FORMATO_LIRE.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['FORMATO QTA']) then
       FORMATO_QTA.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['LAYOUT ETICHETTE']) then
       LAYOUT_ETICHETTE.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['LISTINO ETICHETTE']) then
       LISTINO_ETICHETTE.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['PREZZO ETICHETTE']) then
       PREZZO_ETICHETTE.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['MASTRO CLIENTI']) then
       MASTRO_CLIENTI.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['MASTRO FORNITORI']) then
       MASTRO_FORNITORI.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['PREFISSO']) then
       PREFISSO.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['RISPONDI CON']) then
       RISPONDI_CON.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['SCADENZA RITENUTE']) then
       SCADENZA_RITENUTE.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['SERIE']) then
       SERIE.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['IVA SPESE TRASPORTO']) then
       IVA_SPESE_TRASPORTO.Value := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['IVA SPESE VARIE']) then
       IVA_SPESE_VARIE.Value := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['IVA SPESE BANCARIE']) then
       IVA_SPESE_BANCARIE.Value := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['USER NAME POSTA']) then
       USER_NAME_POSTA.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['MAIL SERVER']) then
       MAIL_SERVER.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['RITENUTA ENASARCO']) then
       RITENUTA_ENASARCO.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['SOGLIA MONOMANDATARIO']) then
       SOGLIA_MONOMANDATARIO.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['SOGLIA PLURIMANDATARIO']) then
       SOGLIA_PLURIMANDATARIO.Text := TTDefaultValore.AsString ;
     if TTDefault.FindKey(['Path Import\Export']) then
       Path_Import_Export.Text := TTDefaultValore.AsString ;


end;

procedure TPreferenze.BitBtn1Click(Sender: TObject);
begin
   if (TTImpostazioni.State = dsEdit) or (TTImpostazioni.State = dsInsert) then
     TTImpostazioni.Post ;

   if Arrotonda_prezzi.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['ARROTONDA PREZZI']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'ARROTONDA PREZZI' ;
       end ;

     if Arrotonda_prezzi.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end  ;

   if AUTOEDIT.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['AUTOEDIT']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'AUTOEDIT' ;
       end ;

     if AUTOEDIT.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if AUTOSALVATAGGIO.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['AUTOSALVATAGGIO']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'AUTOSALVATAGGIO' ;
       end ;

     if AUTOSALVATAGGIO.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if CHIEDI_CONFERME.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['CHIEDI CONFERME']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'CHIEDI CONFERME' ;
       end ;

     if CHIEDI_CONFERME.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if CONTABILITA.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['CONTABILITA']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'CONTABILITA' ;
       end ;

     if CONTABILITA.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if ELENCA_SUBITO_ARTICOLI.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['ELENCA SUBITO ARTICOLI']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'ELENCA SUBITO ARTICOLI' ;
       end ;

     if ELENCA_SUBITO_ARTICOLI.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if EURO_O_LIRE.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['EURO O LIRE']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'EURO O LIRE' ;
       end ;

     if EURO_O_LIRE.ItemIndex = 1 then
       TTDefaultValore.AsString := 'L'
     else
       TTDefaultValore.AsString := 'E' ;
     TTDefault.Post ;
    end ;

   if GIACENZA_TOTALE.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['GIACENZA TOTALE']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'GIACENZA TOTALE' ;
       end ;

     if GIACENZA_TOTALE.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if INIZIALI.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['INIZIALI']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'INIZIALI' ;
       end ;

     if INIZIALI.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if INTESTAZIONE.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['INTESTAZIONE']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'INTESTAZIONE' ;
       end ;

     if INTESTAZIONE.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if MOSTRA_GOBBO.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['MOSTRA GOBBO']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'MOSTRA GOBBO' ;
       end ;

     if MOSTRA_GOBBO.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if MOSTRA_SEMPRE_DOCUMENTI_ESISTENTI.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['MOSTRA SEMPRE DOCUMENTI ESISTENTI']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'MOSTRA SEMPRE DOCUMENTI ESISTENTI' ;
       end ;

     if MOSTRA_SEMPRE_DOCUMENTI_ESISTENTI.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if MOSTRA_SUGGERIMENTI.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['MOSTRA SUGGERIMENTI']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'MOSTRA SUGGERIMENTI' ;
       end ;

     if MOSTRA_SUGGERIMENTI.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if PRECEDENZA_ALLO_STORICO.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['PRECEDENZA ALLO STORICO']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'PRECEDENZA ALLO STORICO' ;
       end ;
     if PRECEDENZA_ALLO_STORICO.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if PRECEDENZA_ALLO_STORICO_VENDITA.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['PRECEDENZA ALLO STORICO VENDITA']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'PRECEDENZA ALLO STORICO VENDITA' ;
       end ;
     if PRECEDENZA_ALLO_STORICO_VENDITA.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if RIPORTA_SCONTO.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['RIPORTA SCONTO']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'RIPORTA SCONTO' ;
       end ;

     if RIPORTA_SCONTO.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if SELEZIONA_DOC.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['RIPORTA SCONTO']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'RIPORTA SCONTO' ;
       end ;

     if SELEZIONA_DOC.ItemIndex = 0 then
       TTDefaultValore.AsString := 'SI'
     else
       TTDefaultValore.AsString := 'NO' ;
     TTDefault.Post ;
    end ;

   if SALTA_FESTIVI.ItemIndex <> -1 then
    begin
     if TTDefault.FindKey(['SALTA FESTIVI']) then
       TTDefault.Edit
     else
       begin
         TTDefault.Insert ;
         TTDefaultChiave.AsString := 'SALTA FESTIVI' ;
       end ;