messaggio econvertitor

[gianpa]

forse non c'entra la conversione ,ma è un errore del db !!!
io ho creato un campo assegnando un valore CURRENCY cioè monetario
però nel dbEdit non mi appare il valore € 10,00 ,ma il valore ? 10,00 !
come mai ?
non è che dice INVALID perchè trova quel ? "punto di domanda"

ciao

[nomorelogic]

forse sono incasinati i campi persistenti (fields editor) controlla quelli
poi se non viene fuori nulla potresti allegare db di prova + progetto?

così quando abbiamo modo proviamo a dare un'occhiata

[gianpa]

ho controllato la proprietà fieldDefs della sqlQuery1 dove mi dice che spesa1 è ftCurrency e oggetti è ftInteger;
dovendo dividere la spesa per il numero oggetti per ottenere il costo del singolo oggetto mi sembra tutto ok!

in sqliteAdmin una volta creata la tabella non riesco a vedere più come sono le definizioni dei campi! o forse non ne sono capace?!?

voglio provare a creare una nuova tabella mettendo FLOAT al posto di CURRENCY per vedere se mi dà lo stesso errore!

ciao

[Stilgar]

Con sqliteAdmin puoi chieder di vedere "l'sql" della tabella.
In pratica puoi farti dare le istruzioni ddl con cui hai creato la tabella. Anche se le hai create con il wizard le estrae comunque.
Se vuoi avere una seconda tabella non ci sono problemi, cambi il nome | run e sei a cavallo.
Per eliminare le tabelle, ti ricordo, che il comando ddl è

Codice: [Seleziona]

drop table {nome_tabella}

Stilgar

EDIT:
Per vedere da wizard come hai definito la tabelle:
Tasto DX sulla tabella d'interesse.
Modifica.

[gianpa]

Ti ringrazio ! in effetti ci ero arrivato provando e riprovando!
comunque ancher mettendo campo1:FLOAT (invece di currency)
l'errore INVALID FLOAT mi esce comunque !
boh...mi sento un po' perso!

ciao

[Stilgar]

Riposta il progetto ... come l'ultima volta.
Vediamo cosa si è rotto.

Stilgar

[gianpa]

va bene!
eccoti :

e grazie

[Stilgar]

Prova a seguire il consiglio di nomore fino in fondo
Avevi iniziato bene :è

Codice: [Seleziona]

procedure TForm1.BitCalcolaClick(Sender: TObject);

var
  costopalle, palle, costopalla, costoinneschi, inneschi, costoinnesco, costochilopolvere, polvere, costopolvere, costograno, costobossolo,
  spesabossolo, spesa, spesa2, spesa3, spesa4,(*spesa5,*)spesa6: double;
  riutilizzi: integer;

begin
  // costopalle:=sqlquery1.DataSource.dataset.fieldname.AsFloat;
  //    DBEdit1.Datasource.DataSet.FieldByName(DBEdit1.DataField).AsFloat;
  if DBEdit1.DataSource.State in dsEditModes then
    DBEdit1.DataSource.DataSet.Post;
  costopalle := dbedit1.DataSource.DataSet.FieldByName(DBEdit1.DataField).AsFloat;
  palle := dbedit2.DataSource.DataSet.FieldByName(DBEdit2.DataField).AsFloat;
  costopalla := costopalle / palle;
  costoinneschi := dbedit3.DataSource.DataSet.FieldByName(DBEdit3.DataField).AsFloat;
  inneschi := dbedit4.DataSource.DataSet.FieldByName(DBEdit4.DataField).AsFloat;
  costoinnesco := costoinneschi / inneschi;
  costochilopolvere := dbedit5.DataSource.DataSet.FieldByName(DBEdit5.DataField).AsFloat;
  // if checkboxlibre1.Checked=true then costochilopolvere:=strtofloat(dbedit5.Text)*2.2;
  costograno := costochilopolvere / 15432;
  polvere := dbedit6.DataSource.DataSet.FieldByName(DBEdit6.DataField).AsFloat;
  costopolvere := costograno * polvere;
  costobossolo := dbedit7.DataSource.DataSet.FieldByName(DBEdit7.DataField).AsFloat;
  spesabossolo := 0;
  try
    riutilizzi := dbedit8.DataSource.DataSet.FieldByName(DBEdit8.DataField).AsInteger;
    spesabossolo := costobossolo / riutilizzi;
  except
    //gestiscierrori;
    ShowMessage('Divisione per zero non consentita');
  end;
  spesa := costopalla + costoinnesco + costopolvere + spesabossolo;
  spesa2 := spesa * 100;
  spesa3 := spesa * 1936;
  spesa4 := spesa * 50;
  (*   spesa5:=spesa2*50;            *)
  spesa6 := spesa3 * 50;

  lblresult1.Caption := AnsiToUTF8(format('La Palla Costa  %m', [costopalla]));
  lblresult2.Caption := format('L''innesco Costa  %m', [costoinnesco]);
  lblresult3.Caption := format('La Polvere Costa  %m', [costopolvere]);
  lblresult4.Caption := format('Il Bossolo Costa  %m', [spesabossolo]);

  (* risultato.Caption:=format('      %m     ',[spesa]);      *)
  risultatoCent.Caption := format('  Centesimi di  %m  ', [spesa2]);
  risultatoLire.Caption := format('  Vecchie Lire  %f ', [spesa3]);
(*
lblresult1.Caption:='la palla ti costa € '+FloatToStr(costopalla);
lblresult2.Caption:='l''innesco ti costa € '+FloatToStr(costoinnesco);
lblresult3.Caption:='la polvere ti costa € '+FloatToStr(costopolvere);
lblresult4.Caption:='il bossolo ti costa € '+FloatToStr(spesabossolo);

 risultato.Caption:='  '+ floattostr(spesa)+' in €uro';
 risultatoCent.Caption:='  '+Floattostr(spesa2)+' centesimi';
 risultatoLire.Caption:='  '+Floattostr(spesa3)+' vecchie £ire'
 *)
  euro50.Caption := format('      %m     ', [spesa4]);
  (*  Cent50.Caption:=format('  Centesimi di  %m  ',[spesa5]);   *)
  Lire50.Caption := format('  Vecchie Lire  %f ', [spesa6]);

end;
     

[Stilgar]

Poi mi spiegherai a cosa serve questo calcolatore di spese per la lupara...

[gianpa]

ahahahah....intanto grazie !!!!!
non preoccuparti ...il programma non spara a nessuno!
è solo una parte di programma che calcola le spese dei tiratori del tiro a segno !


ciao

[gianpa]

Funziona perfettamente !
Ora me lo studio per capire cosa non andava!

intanto grazie !

CIAOoooooooooooo