nochmal SQLDataSet

[p80286]

Ich habe einmal versucht den Source zu compilieren:

Delphi-Quellcode:

procedure vv;
var
  mart,
  wa5,
  wg5,
  me5,
  f1,f2,f3,
  wk5,
  h1,
  finaz,
  pnr :integer ;
  fis,
  fiz,
  ialpha : string;
begin
  if mart = 1 then
  begin
    Form1.SQLDataSet1.Params.Clear;
    Form1.SQLDataSet1.CommandText:='INSERT INTO ware (Ware, Warengruppe, Mengeneinheit, Menge, MWST, Preis, Aus)'+' values (:wa5, :wg5, :me5, :f1, :f2, :f3, :wk5)';
    Form1.SQLDataSet1.Params.ParamByName('wa5').Value:=wa5;
    Form1.SQLDataSet1.Params.ParamByName('wg5').Value:=wg5;
    Form1.SQLDataSet1.Params.ParamByName('me5').Value:=me5;
    Form1.SQLDataSet1.Params.ParamByName('f1').Value:=f1;
    Form1.SQLDataSet1.Params.ParamByName('f2').Value:=f2;
    Form1.SQLDataSet1.Params.ParamByName('f3').Value:=f3;
    Form1.SQLDataSet1.Params.ParamByName('wk5').Value:=wk5;
    h1:=Form1.SQLDataSet1.ExecSQL(False);
    if h1 <> 1 then
    begin
{!!}      form1.Label2.Caption:='Fehler beim Einfügen in Ware, Administrator verständigen';
    end;
    if finaz = 1 then
    begin
     fis:=ialpha;
     ialpha:=DateTimeToStr(now);
    // Form1.Datumdb;
     fiz:=ialpha;
     ialpha:=fis;
     Form1.SQLDataSet1.Params.Clear;
     Form1.SQLDataSet1.CommandText:='INSERT INTO finanzamt (Tabelle, Zeit, Art, PNR, Feld1, Feld2, Feld3, Feld4, Feld5, Feld6, Feld7) VALUES (:fia1,:fia2,:fia3,:fia4,:fia5,:fia6,:fia7,:fia8,:fia9,:fia10,:fia11)';
     Form1.SQLDataSet1.Params.ParamByName('fia1').Value:='Ware';
     Form1.SQLDataSet1.Params.ParamByName('fia2').Value:=fiz;
     Form1.SQLDataSet1.Params.ParamByName('fia3').Value:='1';
     Form1.SQLDataSet1.Params.ParamByName('fia4').Value:=IntToStr(pnr);
     Form1.SQLDataSet1.Params.ParamByName('fia5').Value:=wa5;
     Form1.SQLDataSet1.Params.ParamByName('fia6').Value:=wg5;
     Form1.SQLDataSet1.Params.ParamByName('fia7').Value:=me5;
     Form1.SQLDataSet1.Params.ParamByName('fia8').Value:=f1;
     Form1.SQLDataSet1.Params.ParamByName('fia9').Value:=f2;
     Form1.SQLDataSet1.Params.ParamByName('fia10').Value:=f3;
     Form1.SQLDataSet1.Params.ParamByName('fia11').Value:=wk5;
     h1:=Form1.SQLDataSet1.ExecSQL(False);
     if h1 <> 1 then
     begin
{!!}       Form1.Label2.Caption:='Fehler beim Einfügen in Finazamt, Administrator verständigen';
     end;
   end;
 end;
{!!} end;

Bis auf die markierten Ergänzungen {!!} und die Variablendeklarationen ist da alles in Ordnung ??

Gruß
K-H