1 if mart = 1 then
 2 begin
 3 Form1.SQLDataSet1.Params.Clear;
 4 Form1.SQLDataSet1.CommandText:='INSERT INTO ware (Ware, Warengruppe, Mengeneinheit, Menge, MWST, Preis, Aus)'+' values (:wa5, :wg5, :me5, :f1, :f2, :f3, :wk5)';
 5 Form1.SQLDataSet1.Params.ParamByName('wa5').Value:=wa5;
 6 Form1.SQLDataSet1.Params.ParamByName('wg5').Value:=wg5;
 7 Form1.SQLDataSet1.Params.ParamByName('me5').Value:=me5;
 8 Form1.SQLDataSet1.Params.ParamByName('f1').Value:=f1;
 9 Form1.SQLDataSet1.Params.ParamByName('f2').Value:=f2;
10 Form1.SQLDataSet1.Params.ParamByName('f3').Value:=f3;
11 Form1.SQLDataSet1.Params.ParamByName('wk5').Value:=wk5;
12 h1:=Form1.SQLDataSet1.ExecSQL(False);
13 if h1 <> 1 then
14 begin
15 Label2.Caption:='Fehler beim Einfügen in Ware, Administrator verständigen';
15 end;
16 if finaz = 1 then
17 begin
18 fis:=ialpha;
19 ialpha:=DateTimeToStr(now);
20 Form1.Datumdb;
21 fiz:=ialpha;
22 ialpha:=fis;
23 Form1.SQLDataSet1.Params.Clear;
24 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)';
25 Form1.SQLDataSet1.Params.ParamByName('fia1').Value:='Ware';
26 Form1.SQLDataSet1.Params.ParamByName('fia2').Value:=fiz;
27 Form1.SQLDataSet1.Params.ParamByName('fia3').Value:='1';
28 Form1.SQLDataSet1.Params.ParamByName('fia4').Value:=IntToStr(pnr);
29 Form1.SQLDataSet1.Params.ParamByName('fia5').Value:=wa5;30
30 Form1.SQLDataSet1.Params.ParamByName('fia6').Value:=wg5;
31 Form1.SQLDataSet1.Params.ParamByName('fia7').Value:=me5;
32 Form1.SQLDataSet1.Params.ParamByName('fia8').Value:=f1;
33 Form1.SQLDataSet1.Params.ParamByName('fia9').Value:=f2;
34 Form1.SQLDataSet1.Params.ParamByName('fia10').Value:=f3;
35 Form1.SQLDataSet1.Params.ParamByName('fia11').Value:=wk5;
36 h1:=Form1.SQLDataSet1.ExecSQL(False);
37 if h1 <> 1 then
38 begin
39 Label2.Caption:='Fehler beim Einfügen in Finazamt, Administrator verständigen';
40 end;
41 end;
42 end;