⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 u_preferenze.pas

📁 基于OOP设计的一套较好的ERP系统
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


   if TTDefault.FindKey(['ARROTONDAMENTO']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'ARROTONDAMENTO' ;
     end ;
   TTDefaultValore.AsString := Arrotondamento.Text ;
   TTDefault.Post ;


   if TTDefault.FindKey(['CONTO CLIENTI']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'CONTO CLIENTI' ;
     end ;
   TTDefaultValore.AsString := Conto_Clienti.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['CONTO FORNITORI']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'CONTO FORNITORI' ;
     end ;
   TTDefaultValore.AsString := CONTO_FORNITORI.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['DELAY']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'DELAY' ;
     end ;
   TTDefaultValore.AsString := DELAY.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['DRIVER ETICHETTE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'DRIVER ETICHETTE' ;
     end ;
   TTDefaultValore.AsString := DRIVER_ETICHETTE.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['DUMP ERRORI']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'DUMP ERRORI' ;
     end ;
   TTDefaultValore.AsString := DUMP_ERRORI.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['FORMATO EURO']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'FORMATO EURO' ;
     end ;
   TTDefaultValore.AsString := FORMATO_EURO.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['FORMATO LIRE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'FORMATO LIRE' ;
     end ;
   TTDefaultValore.AsString := FORMATO_LIRE.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['FORMATO QTA']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'FORMATO QTA' ;
     end ;
   TTDefaultValore.AsString := FORMATO_QTA.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['LAYOUT ETICHETTE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'LAYOUT ETICHETTE' ;
     end ;
   TTDefaultValore.AsString := LAYOUT_ETICHETTE.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['LISTINO ETICHETTE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'LISTINO ETICHETTE' ;
     end ;
   TTDefaultValore.AsString := LISTINO_ETICHETTE.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['PREZZO ETICHETTE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'PREZZO ETICHETTE' ;
     end ;
   TTDefaultValore.AsString := PREZZO_ETICHETTE.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['MASTRO CLIENTI']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'MASTRO CLIENTI' ;
     end ;
   TTDefaultValore.AsString := MASTRO_CLIENTI.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['MASTRO FORNITORI']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'MASTRO FORNITORI' ;
     end ;
   TTDefaultValore.AsString := MASTRO_FORNITORI.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['PREFISSO']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'PREFISSO' ;
     end ;
   TTDefaultValore.AsString := PREFISSO.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['RISPONDI CON']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'RISPONDI CON' ;
     end ;
   TTDefaultValore.AsString := RISPONDI_CON.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['SCADENZA RITENUTE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'SCADENZA RITENUTE' ;
     end ;
   TTDefaultValore.AsString := SCADENZA_RITENUTE.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['SERIE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'SERIE' ;
     end ;
   TTDefaultValore.AsString := SERIE.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['IVA SPESE TRASPORTO']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'IVA SPESE TRASPORTO' ;
     end ;
   TTDefaultValore.AsString := IVA_SPESE_TRASPORTO.Value ;
   TTDefault.Post ;

   if TTDefault.FindKey(['IVA SPESE VARIE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'IVA SPESE VARIE' ;
     end ;
   TTDefaultValore.AsString := IVA_SPESE_VARIE.Value ;
   TTDefault.Post ;

   if TTDefault.FindKey(['IVA SPESE BANCARIE']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'IVA SPESE BANCARIE' ;
     end ;
   TTDefaultValore.AsString := IVA_SPESE_BANCARIE.Value ;
   TTDefault.Post ;

   if TTDefault.FindKey(['USER NAME POSTA']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'USER NAME POSTA' ;
     end ;
   TTDefaultValore.AsString := USER_NAME_POSTA.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['MAIL SERVER']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'MAIL SERVER' ;
     end ;
   TTDefaultValore.AsString := MAIL_SERVER.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['RITENUTA ENASARCO']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'RITENUTA ENASARCO' ;
     end ;
   TTDefaultValore.AsString := RITENUTA_ENASARCO.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['SOGLIA MONOMANDATARIO']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'SOGLIA MONOMANDATARIO' ;
     end ;
   TTDefaultValore.AsString := SOGLIA_MONOMANDATARIO.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['SOGLIA PLURIMANDATARIO']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'SOGLIA PLURIMANDATARIO' ;
     end ;
   TTDefaultValore.AsString := SOGLIA_PLURIMANDATARIO.Text ;
   TTDefault.Post ;

   if TTDefault.FindKey(['Path Import\Export']) then
     TTDefault.Edit
   else
     begin
       TTDefault.Insert ;
       TTDefaultChiave.AsString := 'Path Import\Export' ;
     end ;
   TTDefaultValore.AsString := Path_Import_Export.Text ;
   TTDefault.Post ;

   release ;

end;

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

     TTDefault.Close ;
     release ;
end;

procedure TPreferenze.BitBtn3Click(Sender: TObject);
var sog : Ttable ;
begin
 if messagedlg('Attenzione: verr
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -