query1.Close;
query1.SQL.Clear;
query1.SQL.Add('
INSERT INTO kunden (kd_nr,vorname,nachname,anrede,strasse,plz,ort,land,l_vorname,l_nachname,l_anrede,l_strasse,l_plz,l_ort,l_land,tel1,tel2,tel3,fax,handy,email,ansprechpartner,bemerkungen,rabatt,limit,website)');
query1.SQL.Add('
VALUES');
query1.SQL.Add('
(:vkd_nr,:vvorname,:vnachname,:vanrede,:vstrasse,:vplz,:vort,:vland,:vl_vorname,:vl_nachname,:vl_anrede,:vl_strasse,:vl_plz,:vl_ort,:vl_land,:vtel1,:vtel2,:vtel3,:vfax,:vhandy,:vemail,:vansprechpartner,:vbemerkungen,:vrabatt,:vlimit,:vwebsite)');
query1.Params.ParamByName('
vkd_nr').Value := StrToInt(ed_kundennummer.Text);
query1.Params.ParamByName('
vvorname').Value := ed_rvorname.Text;
query1.Params.ParamByName('
vnachname').Value := ed_rname.Text;
query1.Params.ParamByName('
vanrede').Value := ranrede;
query1.Params.ParamByName('
vstrasse').Value := ed_rstrasse.Text;
query1.Params.ParamByName('
vplz').Value := ed_rplz.Text;
query1.Params.ParamByName('
vort').Value := ed_rort.Text;
query1.Params.ParamByName('
vland').Value := rland;
query1.Params.ParamByName('
vl_vorname').Value := ed_lvorname.Text;
query1.Params.ParamByName('
vl_nachname').Value := ed_lname.Text;
query1.Params.ParamByName('
vl_anrede').Value := lanrede;
query1.Params.ParamByName('
vl_strasse').Value := ed_lstrasse.Text;
query1.Params.ParamByName('
vl_plz').Value := ed_lplz.Text;
query1.Params.ParamByName('
vl_ort').Value := ed_lort.Text;
query1.Params.ParamByName('
vl_land').Value := lland;
query1.Params.ParamByName('
vtel1').Value := ed_telefon1.Text;
query1.Params.ParamByName('
vtel2').Value := ed_telefon2.Text;
query1.Params.ParamByName('
vtel3').Value := ed_telefon3.Text;
query1.Params.ParamByName('
vfax').Value := ed_fax.Text;
query1.Params.ParamByName('
vhandy').Value := ed_mobil.Text;
query1.Params.ParamByName('
vemail').Value := ed_email.Text;
query1.Params.ParamByName('
vansprechpartner').Value := ed_ansprechpartner.Text;
query1.Params.ParamByName('
vbemerkungen').Value := memo_bemerkungen.Text;
query1.Params.ParamByName('
vrabatt').Value := StrToInt(ed_rabatt.Text);
query1.Params.ParamByName('
vlimit').Value := StrToFloat(ed_limit.Text);
query1.Params.ParamByName('
vwebsite').Value := ed_website.Text;
query1.ExecSQL;
except
on E:
Exception do Showmessage(E.
Message);
end;