prova
spesa1 := DBEdit1.Datasource.DataSet.FieldByName(DBEdit1.FieldName).AsFloat;
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 è drop table {nome_tabella}
EDIT:
Per vedere da wizard come hai definito la tabelle:
Tasto DX sulla tabella d'interesse.
Modifica.
;)
Prova a seguire il consiglio di nomore fino in fondo ;)
Avevi iniziato bene :è
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;