1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
with Prise_Charge_TP_F.query1 do
begin
sql.clear;
sql.add('insert into prisecharge');
sql.add('(num_miss,date_pc,mont_dej,mont_din,mont_heber,jour,total_indem,region,type_pc)');
sql.add('values ( :mission,:Date,:CDEJ,:CDIN,:CHEBER,:JOUR,:CT,:CREGION,:TPC)');
ParamByName('CDEJ').asFloat:=strtofloat(edit1.Text);
ParamByName('CDIN').asFloat:=strtofloat(edit2.Text);
ParamByName('CHEBER').asFloat:=strtofloat(edit3.Text);
ParamByName('JOUR').asString:=label17.caption;
ParamByName('TPC').asString:=label14.caption;
ParamByName('CT').asFloat:=strtofloat(edit4.Text);
ParamByName('CREGION').asString:=Edit43.Text;
ParamByName('MISSION').asString:=Edit44.Text;//label11.caption;
ParamByName('DATE').asString:=Prise_Charge_TP_F.label1.caption;
ExecSQL;
end; |
Partager