procedure TForm1.cb_takeClick(Sender: TObject);
Var
versflid, SetStr :
String;
ProcessedRecs, i, SetCount : Integer;
SetVals :
Array Of String;
Begin
{If (tb_Bearbeiter.Text = '') Then
ShowMessage('Bitte was eintragen.');}
// Wenn SetStr beschrieben wurde -> baue UPDATE-Statement...
If SetStr <> '
'
Then
Begin
With ADOQuery1
Do
Begin
SQL.Text :=
'
Update dbo_VFL_VERZ_TEMP t' + #10 +
'
Set ' + SetStr + #10 +
'
WHERE t.Bearbeiter = :i_Versuch';
Prepared := True;
// Werte der Paramter :i_F(1 - ...)
For i := 0
To pred(SetCount)
Do
Parameters.ParamByName('
i_F' + IntToStr(i)).Value := SetVals[i];
// Hier
Parameters.ParamByName('
i_Versuch').Value := TB_Bearbeiter.Text;
// Ausführen
ExecSQL;
End;
///////diese kommenden zeilen ignoriert delphi einfach///////////
label27.Caption := tb_Bearbeiter.Text;
label28.Caption:=tb_nr_dez.Text;
label29.Caption:=tb_nr_abt.Text;
label30.Caption:=tb_x_coord.Text;
label31.Caption:=tb_y_coord.Text;
label32.Caption:=tb_struktur.Text;
label33.Caption:=tb_id.Text;
label34.Caption:=tb_begr.Text;
label35.Caption:=tb_partner.Text;
label36.Caption:=tb_beginn.Text;
label37.Caption:=tb_end.Text;
label38.Caption:=tb_status.Text;
label39.Caption:=tb_ziel.Text;
label40.Caption:=tb_meth.Text;
label41.Caption:=tb_beschr.Text;
label42.Caption:=tb_param.Text;
label43.Caption:=tb_flbz.Text;
label44.Caption:=tb_baumart.Text;
label45.Caption:=tb_standort.Text;
label46.Caption:=tb_humus.Text;
label47.Caption:=tb_fl.Text;
label48.Caption:=tb_bestgr.Text;
label49.Caption:=tb_lfn.Text;
label50.Caption:=tb_land.Text;
label51.Caption:=tb_ea.Text;
tb_Bearbeiter.Clear;
tb_nr_dez.Clear;
tb_nr_abt.Clear;
tb_x_coord.Clear;
tb_y_coord.Clear;
tb_struktur.Clear;
tb_id.Clear;
tb_begr.Clear;
tb_partner.Clear;
tb_beginn.Clear;
tb_end.Clear;
tb_ea.Clear;
tb_status.Clear;
tb_ziel.Clear;
tb_meth.Clear;
tb_beschr.Clear;
tb_param.Clear;
tb_flbz.Clear;
tb_baumart.Clear;
tb_standort.Clear;
tb_humus.Clear;
tb_fl.Clear;
tb_bestgr.Clear;
tb_lfn.Clear;
tb_land.Clear;
End;
End;