edit-Wert als float in Tabelle speichern

[tom_po]

Ich habe eine DBisam-Tabelle mit einem field "in" vom Data-Typ "float"

ich möchte mit dem folgenden query einen Wert (z.B. 50,22)von edit1 darin abspeichern, bekomme aber schon beim Compilieren die Fehlermeldung:
[Fehler] movestockunit.pas(57): Inkompatible Typen: 'String' und 'Extended'

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);
var Date:TDate;
Timesetting:TFormatSettings;
begin
TimeSetting.LongDateFormat:='yyyy-MM-dd';
TimeSetting.ShortDateFormat:='yyy-MM-dd';
date:=DateTimePicker1.Date;
dbisamquery1.SQL.Clear;
dbisamquery1.SQL.add('insert into stockfabric (code,in,date) values ('+quotedstr(combobox1.Text)+','+strtofloat(edit1.Text)+','+quotedstr(datetostr(date,Timesetting))+')');
dbisamquery1.ExecSQL;
edit1.Text:='';
combobox1.Text:='';
end;

habe schon das strtofloat ganz weggelassen, es speichert dann ab, aber nur ganze Zahlen!
die anderen beiden Felder (aus Combobox und Datum werden einwandfrei abgespeichert!

[marabu]

Hallo.

Wenn du das Statement parametrisierst, dann behältst du eher die Übersicht (ungetestet):

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ','; 

  dt := DateTimePicker1.Date;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into stockfabric(code, in, date) '
              + 'values (:code, :in, :date)';
    Parameters.ParamByName('code').Value := combobox1.Text;
    Parameters.ParamByName('in').Value := StrToFloat(edit1.Text);
    Parameters.ParamByName('date').Value := date;
    ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

Mir wäre allerdings wohler, wenn du deine Datenbankfelder nicht IN und DATE nennen würdest. Ist vielleicht im Augenblick kein Problem für dich, aber erschwert eine Portierung.

Grüße vom marabu

[tom_po]

danke marabu, werde schauen, dass ich die feldnamen umbenenne.

Wollte mal deinen Vorschlag testen, kam aber die Meldung
[Fehler] movestockunit.pas(87): Undefinierter Bezeichner: 'Parameters'

muss ich da noch bei uses was einfügen, dass er dies findet??

[marabu]

Bei meinen ADO-Komponenten heißt die Eigenschaft Parameters, bei den BDE-Komponenten heißt sie Params - wie heißt sie denn bei dir?

marabu

[tom_po]

suuuuper, es funktioniert marabu, bei mir heisst es params!

habe jetzt aber noch das problem, dass obwohl ich als datatype in meiner dbisam-tablle timestamps habe, die uhrzeit nicht übernommen wird, bleibt immer 00
(siehe Bild)

code sieht jetzt so aus, habe noch die feldnamen geändert:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.Date;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, eingang, datum) '
              + 'values (:code, :eingang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('eingang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := date;
    ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

[marabu]

Zwei Änderungen sind nötig:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // ...
  dt := DateTimePicker1.DateTime;
  // ..
    Params.ParamByName('datum').Value := dt;
  // ...
end;

marabu

[tom_po]

ich hatte ursprünglich von einer ähnlichen Form den datetimepicker übernommen, da wurde aber noch IdTimeUDP verwendet.

In meiner neuen Form habe ich das nicht verwendet. Liegt es jetzt daran, dass das aktuelle Datum des PC's im Datetimepicker nicht angezeigt wird, sondern das Datum und Uhrzeit die festeingestellt sind bei den Eigenschaften des Datetimepickers!!??

[tom_po]

hatte das vergessen bei onformschow:
Datetimepicker1.Date:=Date;
Datetimepicker1.Time:=Time;

jetzt habe ich das aktuelle datum mit der richtigen Uhrzeit vielen Dank, marabu

[tom_po]

Ich möchte jetzt noch bei Klick des Button1 den Wert, den ich im edit1 eingebe hinzuaddieren zum bereits bestehenden Wert (feld "stock") des feldes "code" (=combobox1.text) der tabelle "stockfabric"

mein jetziger code ist so:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.DateTime;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, eingang, datum) '
              + 'values (:code, :eingang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('eingang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := dt;
    ExecSQL;
  end;
  begin
  dbisamquery4.SQL.Clear;
  dbisamquery4.sql.Add('update stockfabric set stock = '+edit1.Text+' where code = '+quotedstr(combobox1.Text));
  dbisamquery4.ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

das heisst, ich schaffe es, edit1 zu übernehmen, ich möchte ihn jedoch hinzuaddieren zum bestehenden wert des feldes "stock", das auch den datatyp float hat!

[marabu]

Guten Morgen.

Du kannst in der SET-Klausel des UPDATE Statements Ausdrücke verwenden:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.DateTime;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, eingang, datum) '
              + 'values (:code, :eingang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('eingang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := dt;
    ExecSQL;

    SQL.Text := 'update stockfabric set stock = stock + :stock where code =  :code';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('stock').Value := StrToFloat(edit1.Text);
    ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

Beim DecimalSeparator musst du mal überlegen, ob du den nicht besser zu Beginn deines Programmes setzt.

Grüße vom marabu