procedure Tajoutclient.BconfirmajoutclientClick(Sender: TObject);
begin
DM.IBQajoutclient.Active:=false;
DM.IBQajoutclient.SQL.Add('insert into client values(.................)');
DM.IBQajoutclient.ParamByName('nom').AsString:=editnomclient.text;
DM.IBQajoutclient.ParamByName('prenom').AsString:=editprenomclient.text;
DM.IBQajoutclient.ParamByName('adresse').AsString:=editadresseclient.text;
DM.IBQajoutclient.ParamByName('tel').AsString:=edittelclient.text;
DM.IBQajoutclient.ParamByName('fax').AsString:=editfaxclient.text;
DM.IBQajoutclient.ParamByName('gsm').AsString:=editgsmclient.text;
DM.IBQajoutclient.ParamByName('email').AsString:=editemailclient.text;
DM.IBQajoutclient.ParamByName('codeclient').AsString:=editcodeclient.text;
DM.IBQajoutclient.Active:=true;
end; |