Obtenir les derniers ajouts dans un dbgrid

**fafo3** · 27/06/2016, 20h28

j’arrive pas a obtenir les ajout dbgrid
voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
44
45
46
47
48
49
50
51
52
begin
     vnSvcHard:=0 ;
     vnSvcSoft:=0 ;
     vnSVHRDSFT:=0  ;
     vnrisque:=0;
if radiobutton3.Checked then vnSvcHard:=1   ;
if radiobutton4.Checked then vnSvcSoft:=1  ;
if radiobutton5.Checked then vnSVHRDSFT:=1  ;
if radiobutton6.Checked then vnrisque:=1   ;
//****************************** CREATION DU NV BON
    adqmt.Close;
    adqmt.SQL.Clear;
    adqmt.SQL.Add('select count(*) as existe from TBON');
    adqmt.SQL.Add('where NUmBON=:usernamep ');
    adqmt.Params.ParamByName('usernameP').Value := LNUMBON.Caption;

    ADQMT.Open;
      if ADQMT.FieldByName('existe').AsInteger = 0 then
      begin
       adqmt.Close;
       adqmt.SQL.Clear;
       adqmt.SQL.Add('INSERT INTO tbon (`USERBON`, `DateBon`) VALUE ( :param_USERBON, now())');
       adqmt.Params.ParamByName('param_USERBON').Value:=UPASS.Fpass.Pnom;
       adqmt.ExecSQL;
      END;
//*************************
  ADQpannes.close;
  ADQpannes.SQL.Clear;
  ADQpannes.sql.add('INSERT INTO tpannes (Numbon,NumClient,NumMT,NomUser,LesPannes,EtatPannes,SvcHard,SvcSoft,SVHRDSFT,RisquePanne,DatePannes)');
  ADQpannes.sql.add(' VALUE (:param_NumBon,:param_NumClient,:param_NumMT,:param_NomUser,:param_LesPannes,:param_EtatPannes,:param_SvcHard,:param_SvcSoft,:param_SVHRDSFT,:param_RisquePanne,now())');
  ADQpannes.Params.ParamByName('param_NumBon').Value:=Master.MasterForm.vnnumbon;
  ADQpannes.Params.ParamByName('param_NumClient').Value:=vnnumclient;
  ADQpannes.Params.ParamByName('param_NumMT').Value:=vnNumMT;
  ADQpannes.Params.ParamByName('param_NomUser').Value:=UPASS.Fpass.Pnom;
  ADQpannes.Params.ParamByName('param_SvcHard').Value:=vnSvcHard;
  ADQpannes.Params.ParamByName('param_SvcSoft').Value:=vnSvcSoft;
  ADQpannes.Params.ParamByName('param_SVHRDSFT').Value:=vnSVHRDSFT;
  ADQpannes.Params.ParamByName('param_LesPannes').Value:=memo2.Text;
  ADQpannes.Params.ParamByName('param_EtatPannes').Value:=memo1.Text;
  adqpannes.Params.ParamByName('param_RisquePanne').Value:=vnrisque;
  adqpannes.ExecSQL;
//**********************
        ADQfinnnal.CLOSE ;
        ADQfinnnal.sql.Clear;
        adqfinnnal.sql.Add( ' SELECT  tpannes.NumMT,  tmateriels.familleMT,  tmateriels.NomMT ');
        adqfinnnal.sql.Add( ',tmateriels.ImeiSnMT,  tclient.NomClient FROM   tclient');
        adqfinnnal.sql.Add( '  JOIN tpannes ON (tclient.NumClient = tpannes.NumClient)');
        adqfinnnal.sql.Add( ' JOIN tmateriels ON (tpannes.NumMT = tmateriels.NumMT)');
        adqfinnnal.sql.Add( ' where tpannes.NumBon=:param_numega ');
        ADQfinnnal.Params.ParamByName('param_numega').Value:=lnumbon.Caption;
        ADQfinnnal.Open;

je panique depuis une semaine a laide