Error: Cannot find implementation of method DBGrid1 Title Click

**djilali14** · 19/11/2019, 10h21

Je veux juste savoir où est l'erreur car je suis débutant en programmation.

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
procedure Tfiche_produit.Edit1Change(Sender: TObject);
begin
  if (edit1.text <> '') then
  begin
    table1.Close;
    table1.filtred :=true ;
    table1.Filter :='[Désignation}=' + #39 + edit1.Text + '*' + #39 ;
    table1.Active :=true ;
    end
  else
  begin
    table1.Close ;
    table1.filtred :=false ;
    table1.Active :=true ;
  end;
 
end.

**SergioMaster** · 19/11/2019, 10h42

Bonjour et bienvenue,

Plusieurs choses étranges dans ce code

Code :

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

  table1.Filter :='[Désignation}=' + #39 + edit1.Text + '*' + #39 ;

tout d'abord : Désignation, commence par un [ mais se termine par un }
mais surtout, vous voulez, sur ce que j'en comprends, faire un filtre sur "ce qui commence par Edit1.text" donc ce ne sera pas une égalité mais une clause LIKE qu'il faut utiliser.

Pour "améliorer" le code, je propose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Tfiche_produit.Edit1Change(Sender: TObject);
begin
  table1.Close; // ou table1.Active:=false;
  if Edit1.Text='' 
   then   table1.filtered :=false
   else   begin
    table1.filetred :=true ;
    table1.Filter :=Format('Désignation LIKE %s*',[Quotedstr(edit1.Text)]); // je ne crois pas que Désignation STARTING WITH fonctionne comme Filtre
  end;
  table1.Open ; // ou  table1.Active :=true ;
end;

Bon, bien évidemment, tout cela dépend de votre version de Delphi (Edit1.Text.IsEmpty n'existe pas en D7), des composants utilisés pour se connecter (quoique Table1 laisse présager BDE ?) de la base de données, etc. Autant d'informations qu'il faut fournir pour des réponses plus "pointues"

Si le filtre ne fonctionne pas, un requête (Query1) sera tout aussi efficace

NB. J'ai du mal à faire la relation entre le titre et le corps du message

**djilali14** · 26/11/2019, 10h10

Je tiens à vous remercier de l'intention que vous prêtez à mon message et je veux donner plus d'explications.
Alors, je suis entrain d'apprendre delphi en autodidacte, et pour cela j'utilise des exemples que j'avais téléchargé.
dans mon cas c'est un projet "gestion de scolarité"
J'ai suivi l'exemple à la lettre, mais malheureusement quand il me demande de toucher à la touche F9, je reçois des erreurs.
A cet effet, j'envois le code source afin que vous me guiderez pour savoir comment procéder pour corriger ces erreurs.

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
unit menu;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, ImgList, ComCtrls, ToolWin;
 
type
  Tfiche_menu = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    etudiant1: TMenuItem;
    professeur1: TMenuItem;
    specialite1: TMenuItem;
    matiere1: TMenuItem;
    quitter1: TMenuItem;
    Edition1: TMenuItem;
    Bulletin1: TMenuItem;
    Consultation1: TMenuItem;
    Etudiants1: TMenuItem;
    Etats1: TMenuItem;
    impressions1: TMenuItem;
    Statistiques1: TMenuItem;
    scolarite1: TMenuItem;
    Outils1: TMenuItem;
    Archivage1: TMenuItem;
    Protection1: TMenuItem;
    Cloture1: TMenuItem;
    N1: TMenuItem;
    Apropos1: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ImageList1: TImageList;
    Timer1: TTimer;
    Label1: TLabel;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure quitter1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure etudiant1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fiche_menu: Tfiche_menu;
 
implementation
 
uses etudiant;
 
{$R *.dfm}
 
procedure Tfiche_menu.Timer1Timer(Sender: TObject);
begin
if label1.left > -250 then
label1.left:=label1.left-1
else
label1.left :=700 ;
end;
 
procedure Tfiche_menu.quitter1Click(Sender: TObject);
begin
close;
end;
 
procedure Tfiche_menu.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if messagedlg('voulez vous quitter le logiciel?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
canclose:=true;
application.terminate;
end
else
canclose:=false;
end;
 
procedure Tfiche_menu.etudiant1Click(Sender: TObject);
begin
fiche_etudiant.showmodal;
end;
 
end.

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
 
unit etudiant;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, DBCtrls, StdCtrls, Mask, DB, DBTables, ComCtrls,
  ExtDlgs, ExtCtrls, Grids, DBGrids, TeEngine, Series, TeeProcs, Chart,
  DbChart;
 
type
  Tfiche_etudiant = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Table1: TTable;
    Table1Code_e: TIntegerField;
    Table1Nom_e: TStringField;
    Table1Prenom_e: TStringField;
    Table1Date_naissance: TDateField;
    Table1Lieu: TStringField;
    Table1Adresse: TStringField;
    Table1Doublant: TStringField;
    Table1Photo: TGraphicField;
    Table1Ref_classe: TIntegerField;
    DataSource1: TDataSource;
    DBEdit6: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit7: TDBEdit;
    Label7: TLabel;
    DBEdit8: TDBEdit;
    Label8: TLabel;
    DBImage1: TDBImage;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DBNavigator1: TDBNavigator;
    OpenPictureDialog1: TOpenPictureDialog;
    SpeedButton6: TSpeedButton;
    Label10: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    BitBtn1: TBitBtn;
    Label11: TLabel;
    Edit1: TEdit;
    Query1: TQuery;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Table1AfterInsert(DataSet: TDataSet);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Table1AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fiche_etudiant: Tfiche_etudiant;
 
implementation
 
uses etat_etudiant;
 
{$R *.dfm}
 
procedure Tfiche_etudiant.SpeedButton5Click(Sender: TObject);
begin
table1.Append ; // table1.append = table1.last + table1.insert
dbedit1.SetFocus ;
end;
 
procedure Tfiche_etudiant.SpeedButton4Click(Sender: TObject);
begin
if messagedlg('voulez vous supprimer cet enregistrement' ,mtconfirmation,[mbyes,mbno],0)=mryes then
table1.Delete;
end;
 
procedure Tfiche_etudiant.SpeedButton1Click(Sender: TObject);
begin
table1.Edit;
dbedit1.SetFocus;
end;
 
procedure Tfiche_etudiant.SpeedButton3Click(Sender: TObject);
begin
table1.Edit;
table1.Post;
end;
 
procedure Tfiche_etudiant.SpeedButton2Click(Sender: TObject);
begin
table1.Edit;
table1.Cancel;
end;
 
procedure Tfiche_etudiant.SpeedButton6Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
 
procedure Tfiche_etudiant.Table1AfterInsert(DataSet: TDataSet);
begin
dbedit1.SetFocus;
end;
 
procedure Tfiche_etudiant.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key = vk_return then
Dbedit2.SetFocus;
end;
 
procedure Tfiche_etudiant.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_return then
Dbedit2.SetFocus;
end;
 
procedure Tfiche_etudiant.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key = vk_return then
Dbedit3.SetFocus;
end;
 
procedure Tfiche_etudiant.DBEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key = vk_return then
Dbedit4.SetFocus;
end;
 
procedure Tfiche_etudiant.DBEdit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var age : integer;
begin
If key = vk_return then
Begin
Table1.Edit;
Table1.Post;
Age :=trunc((date-table1.fieldbyname('date_naissance').AsDateTime)/365);
Label9.Caption:=inttostr(age)+' ans';
If age <17 then
Showmessage('étudiant mineur');
If age >60 then
Showmessage('étudiant retraité');
Dbedit5.SetFocus;
End;
End;
 
procedure Tfiche_etudiant.DBEdit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key = vk_return then
Dbedit6.SetFocus;
end;
 
procedure Tfiche_etudiant.DBEdit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key = vk_return then
combobox1.setfocus;
end;
 
procedure Tfiche_etudiant.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key = vk_return then
Dbedit8.SetFocus;
end;
 
procedure Tfiche_etudiant.SpeedButton7Click(Sender: TObject);
begin
fiche_etat_etudiant.quickrep1.preview;
end;
 
procedure Tfiche_etudiant.SpeedButton8Click(Sender: TObject);
begin
fiche_etat_etudiant.quickrep1.print;
end;
 
procedure Tfiche_etudiant.Edit1Change(Sender: TObject);
begin
if edit1.Text <> '' then
begin
table1.Close ;
table1.filtred :=true;
table1.Filter :='[Nom_e]=' + #39 + edit1.Text + '*' + #39;
table1.Active := true;
end
else
begin
table1.Close;
table1.filtred := false;
table1.Active := true;
end;
end;
 
procedure Tfiche_etudiant.DBGrid1TitleClick(Column: TColumn);
begin
If column.Index = 0 then
Table1.IndexName :='c1';
If column.Index = 1 then
Table1.IndexName :='c2';
If column.Index = 2 then
Table1.IndexName :='c3';
If column.Index = 3 then
Table1.IndexName :='c4';
If column.Index = 4 then
Table1.IndexName :='c5';
If column.Index = 5 then
Table1.IndexName :='c6';
If column.Index = 6 then
Table1.IndexName :='c7';
If column.Index = 7 then
Table1.IndexName :='c8';
 
end;
 
procedure Tfiche_etudiant.Table1AfterPost(DataSet: TDataSet);
begin
Query1.Close;
Query1.Active := true;
end;
 
end.

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
unit matiere;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, DB, StdCtrls, Mask, DBCtrls, DBTables, ComCtrls, Grids,
  DBGrids, ExtCtrls;
 
type
  Tfiche_matiere = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Table1: TTable;
    Table1Reference_m: TIntegerField;
    Table1Designation_m: TStringField;
    Table1Coefficient: TIntegerField;
    Table1Ref_specialite: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    BitBtn1: TBitBtn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fiche_matiere: Tfiche_matiere;
 
implementation
 
{$R *.dfm}
 
procedure Tfiche_matiere.SpeedButton1Click(Sender: TObject);
begin
table1.Append;
//table1.append=table1.last+table1.insert
dbedit1.SetFocus;
end;
 
procedure Tfiche_matiere.SpeedButton2Click(Sender: TObject);
begin
if messagedlg('voulez vous supprimer cet enregistrement',mtconfirmation,[mbyes,mbno],0)=mryes then
table1.Delete;
end;
 
procedure Tfiche_matiere.SpeedButton3Click(Sender: TObject);
begin
table1.Edit;
dbedit1.SetFocus;
end;
 
procedure Tfiche_matiere.SpeedButton4Click(Sender: TObject);
begin
table1.Edit;
table1.Post;
end;
 
procedure Tfiche_matiere.SpeedButton5Click(Sender: TObject);
begin
table1.Edit;
table1.Cancel;
end;
 
procedure Tfiche_matiere.SpeedButton6Click(Sender: TObject);
begin
fiche_etat_matiere.quickrep1.preview;
end;
 
procedure Tfiche_matiere.SpeedButton7Click(Sender: TObject);
begin
fiche_etat_matiere.quickrep1.print;
end;
 
end.

**SergioMaster** · 26/11/2019, 10h56

Bonjour,

Même si vous fournissez quelques sources, ces unités ne sont pas en rapport avec votre question

Dans les sources que vous avez fournies je ne vois aucune [Désignation] du premier post et aucun rapport évident avec le titre

Error: Cannot find implementation of method DBGrid1 Title Click

Cette erreur est, AMHA, due à votre version de Delphi et à celle du projet que vous avez copié ou une erreur dans un dfm
Note : Un zip de l'ensemble du projet (proj, pas,dfm) aurait été plus simple.

je suis en train d'apprendre delphi en autodidacte, et pour cela j'utilise des exemples que j'avais téléchargés.

Moi aussi j'ai appris en autodidacte.
AMHA, utiliser des exemples téléchargés peut être une méthode s'ils sont des exemples validés (i.e ceux des exemples fournis avec Delphi), mais les sources que vous nous montrez, sans vouloir vexer l'auteur, sont loin d'être un modèle du genre

!
La meilleure manière de progresser est d'écrire ses propres programmes.

Déjà, quelle version de Delphi utilisez-vous, mon conseil utilisez la dernière version 10.3.3 Communauty ou plus si vous avez les moyens
Ensuite abandonner BDE, je le répète assez souvent, cette technologie est classée comme obsolète : préférez Firedac comme composants de connexion et SQLite (dans le cas d'application mono poste) comme base de données

Error: Cannot find implementation of method DBGrid1 Title Click

Delphi

Discussions similaires

Partager

Partager