1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| m.sql_1.SQL.Clear;
m.sql_1.SQL.Add('insert into user ([code_type_user], [nom_user], [prenom_user], [fixe_user], [mobile_user], [mail_user], [date_naissance_user], [mdp_user], [src_photo]) VALUES(:1,:2,:3,:4,:5,:6,:7,:8,:9)');
{$REGION 'Type'}
m.sql_1.Parameters.ParamByName('1').DataType:=ftString;
m.sql_1.Parameters.ParamByName('2').DataType:=ftString;;
m.sql_1.Parameters.ParamByName('3').DataType:=ftString;
m.sql_1.Parameters.ParamByName('4').DataType:=ftString;
m.sql_1.Parameters.ParamByName('5').DataType:=ftString;
m.sql_1.Parameters.ParamByName('6').DataType:=ftString;
m.sql_1.Parameters.ParamByName('7').DataType:=ftDate;
m.sql_1.Parameters.ParamByName('8').DataType:=ftString;
m.sql_1.Parameters.ParamByName('9').DataType:=ftString;
{$ENDREGION}
{$REGION 'Value'}
m.sql_1.Parameters.ParamByName('1').Value:=copy(zs_type.Text,1,2);
m.sql_1.Parameters.ParamByName('2').Value:=zs_nom.Text;
m.sql_1.Parameters.ParamByName('3').Value:=zs_prenom.Text;
m.sql_1.Parameters.ParamByName('4').Value:=zs_fixe.Text;
m.sql_1.Parameters.ParamByName('5').Value:=zs_mobile.Text;
m.sql_1.Parameters.ParamByName('6').Value:=zs_mail.Text;
m.sql_1.Parameters.ParamByName('7').Value:=zs_date_naissance.Date;
m.sql_1.Parameters.ParamByName('8').Value:=zs_mdp.Text;
m.sql_1.Parameters.ParamByName('9').Value:='zs_mdr.Text';
{$ENDREGION}
m.sql_1.ExecSQL; |
Partager