//___________ für die Tabelle tbmargins => 2
If (RadioGroup_bearbeiten.ItemIndex = 2) then begin
ware_:='keine';
DBNavigator_Bearbeite.DataSource:=DataSource_bearbeite;
if RadioGroupEx_bearbeiteWare.ItemIndex <> -1 then
ware_:=RadioGroupEx_bearbeiteWare.Items.strings[RadioGroupEx_bearbeiteWare.ItemIndex];
s:='select * from tbmargins';
If ware_ <> 'keine' then begin
s:=s + ' where WARE = :ware_'; // das muss ich vermutlich als parameter übergeben
end;
if CheckBox_DatumBegrenzen.Checked then begin
If ware_ <> 'keine' // je nachdem, ob die Waren abgefragt wird
then s:=s +' and' // erfolft das Statement mit "and" oder "where"
else s:=s + ' where';
s:=s + ' (datum > :anf) and (datum < :ende)'; // Sortierung: AUFsteigen!
end;
s:=s + ' order by datum desc';
IBDataSet_bearbeite.SelectSQL.Text:=s;
If ware_ <> 'keine' then
IBDataSet_bearbeite.ParamByName('ware_').AsString:=ware_; // this is the line, where "good" is parsed
if CheckBox_DatumBegrenzen.Checked then begin
IBDataSet_bearbeite.ParamByName('anf').AsDateTime:=DateTimePicker_Anfang.Date;
IBDataSet_bearbeite.ParamByName('ende').AsDateTime:=DateTimePicker_Ende.Date;
end;
IBDataSet_bearbeite.ModifySQL.Text:='Update TBMARGINS Set MARGIN = :MARGIN, DATUM = :DATUM where ware = :ware and datum = :datum';
IBDataSet_bearbeite.RefreshSQL.Text:=IBDataSet_bearbeite.SelectSQL.Text;
IBDataSet_bearbeite.DeleteSQL.Text:='Delete From TBMARGINS where ware = :ware and datum = :datum';
IBDataSet_bearbeite.InsertSQL.Text:='Insert Into TBMARGINS (WARE, MARGIN, DATUM) Values(:WARE_, :MARGIN, :DATUM)';
IBDataSet_bearbeite.Active:=true;
end;