Programmeur php vers delphi, mise à jour d'un tdbgrid vers la db
Bonjour, je suis un développeur web, php, mysql et co.
Je dois récupérer le travail d'une autre personne, il développait en Delphi. Du coup j'apprends le langage.
J'essaye d'éviter dans la mesure du possible d'utiliser les composants graphiques.
J'ai le code ci dessous, je me connecte sur une db firebird, et j'affiche un record via des tdbgrid (es-ce le bon composant à utiliser)
Je voudrais pouvoir vérifier en premier les données insérées puis effectuer la mise à jour vers la db.Je bloque sur ses deux points :-(
Voici le début du code.
Code:
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
|
var
Qry: TSQLQuery;
dsp: TDataSetProvider;
cds: TClientDataSet;
dts: TDataSource;
begin
// Set up your connection as above, and open it
Qry := TSQLQuery.Create(nil);
Qry.SQLConnection := tuto_d2010fb;
Qry.SQL.Add('SELECT FIRST 1 * ');
Qry.SQL.Add('from personne');
Qry.SQL.Add('where username =:username; ');
Qry.Params.ParamByName('username').AsString := 'beletot';
dsp := TDataSetProvider.Create(nil);
dsp.DataSet := Qry;
cds := TClientDataSet.Create(nil);
cds.SetProvider(dsp);
cds.Active := True;
dts := TDataSource.Create(nil);
dts.DataSet := cds;
// assign data to the tdbEdit
dbedt_id_pers.DataSource := dts;
dbedt_id_pers.DataField := 'id_pers';
dbedt_nom.DataSource := dts;
dbedt_nom.DataField := 'nom';
dbedt_prenom.DataSource := dts;
dbedt_prenom.DataField := 'prenom';
dbedt_username.DataSource := dts;
dbedt_username.DataField := 'username'; |
Je ne vois pas bien quoi faire après pour sauver les données ?
Merci pour votre aide.
Bertrand
