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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| With qry do
begin
Close;
SQL.Clear;
SQL.Text:='INSERT INTO NOMINAL(NOMINAL_NO,NOMINAL_OPERATION_NO,'+
'NOMINAL_SEGMENTATION_NO,NOMINAL_NAME,NOMINAL_WIDTH,'+
'NOMINAL_HEIGTH,NOMINAL_DELTA_E_TYPE,NOMINAL_DELTA_E_MAX_LIMIT,'+
'NOMINAL_DELTA_E_AVERAGE_LIMIT,NOMINAL_DELTA_PERCENT_MAX_LIMIT,'+
'NOMINAL_DELTA_PERCENT_AVERAGE_LIMIT,NOMINAL_CONTROL_TYPE,'+
'NOMINAL_NUMBER_CALCULED_SEGMENTS,NOMINAL_NUMBER_USED_SEGMENTS,'+
'NOMINAL_NUMBER_DELETED_SEGMENTS,NOMINAL_NUMBER_ADDED_SEGMENTS,'+
'NOMINAL_NUMBER_CONTROL_SEGMENTS,NOMINAL_IMAGE)'+
'VALUES(:Rec.Nominal_No,:Rec.Operation_No,:Rec.SegCfg_No,:Rec.Name,'+
':Rec.Img_Width,:Rec.Img_Height,:Rec.DeltaE_Type,:Rec.DeltaE_Max,'+
':Rec.DeltaE_Moyen,:Rec.Percent_Max,:Rec.Percent_Moyen,:Rec.Control_Type,'+
':Rec.NbrCalcSeg,:Rec.NbrUsedSeg,:Rec.NbrDeleted,:Rec.NbrAdded,'+
':Rec.NbrControl,:Rec.Image)';
Parameters.ParamByName('Rec.Nominal_No').Value:= Rec.Nominal_No;
Parameters.ParamByName('Rec.Operation_No').Value:= Rec.Operation_No;
Parameters.ParamByName('Rec.SegCfg_No').Value:= Rec.SegCfg_No;
Parameters.ParamByName('Rec.Name').Value:= Rec.Name;
Parameters.ParamByName('Rec.Img_Width').Value:= Rec.Img_Width;
Parameters.ParamByName('Rec.Img_Height').Value:= Rec.Img_Height;
Parameters.ParamByName('Rec.DeltaE_Type').Value:= Rec.DeltaE_Type;
Parameters.ParamByName('Rec.DeltaE_Max').Value:= Rec.DeltaE_Max;
Parameters.ParamByName('Rec.DeltaE_Moyen').Value:= Rec.DeltaE_Moyen;
Parameters.ParamByName('Rec.Percent_Max').Value:= Rec.Percent_Max;
Parameters.ParamByName('Rec.Percent_Moyen').Value:= Rec.Percent_Moyen;
Parameters.ParamByName('Rec.Control_Type').Value:= Rec.Control_Type;
Parameters.ParamByName('Rec.NbrCalcSeg').Value:= Rec.NbrCalcSeg;
Parameters.ParamByName('Rec.NbrUsedSeg').Value:= Rec.NbrUsedSeg;
Parameters.ParamByName('Rec.NbrDeleted').Value:= Rec.NbrDeleted;
Parameters.ParamByName('Rec.NbrAdded').Value:= Rec.NbrAdded;
Parameters.ParamByName('Rec.NbrControl').Value:= Rec.NbrControl;
Parameters.ParamByName('Rec.Image').Assign(Rec.Image);
try
ExecSQL;
Except on E:Exception do
begin
Showmessage('Erreur lors de l''insertion de l''image dans la base de données : ' +
E.Message);
end;
end; |
Partager