Discussion :

[rvzip64]

Salut tout le monde ,

une petite question qui, je pense ,devrait etre assez facile pour vous.

J'ai une appli connecté avec mes base de données, j'arrive a naviguer dans les résultats de la requete.

J'ai mis des Tdbedits pour pouvoir modifier les champs.

Et un bouton qui fait un :

Code :

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

SimpleDataSet1.ApplyUpdates(-1);

Jusque la pas de probleme, quand je clique sur mon bouton , cela met bien a jour ma base de données (ça fait un update).

Le truc que je voudais faire maintenant , c'est que quand je clique sur mon bouton, au lieu que cela face un update je voudrais que cela face un insert.

Est ce quelqu'un a une idée sur la méthode a employé ?

[Cl@udius]

Salut

Que ce soit une édition ou une insertion, tu auras toujours besoin de ton bouton pour appliquer tes mises à jour.

Ajoute un bouton nommé 'Insertion', pour lequel tu implémentes ce simple code sur l'event OnClick:

Code :

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

1
2
 
  SimpleDataSet1.Insert;  // ou Append

Il ne reste qu'a renseigner tes DBEdits.


@+ Claudius

[rvzip64]

Ok je vois l'idée ...

Je supose qu'aprés la fonction insert, les champs Dbedit deviennent vident, et qu'il faut tout re-remplir ?

[Cl@udius]

C'est ca. C'est le principe.

[edit]
Tu peux préremplir tes champs avec des valeurs par défaut. cf l'event AfterInsert ou OnNewRecord.
[/edit]

@+

[rvzip64]

ok ,

Bon je sais je suis un peu casse-couilles,
mais en fait, pour une histoire de simpliciter de l'utilisateur, je voudrais qu'il n'ait qu a modifier le champ qu'il désire ... et que cela fasse un insert.

[Cl@udius]

Re,

Attention si ton utilisateur modifie la valeur d'un DBEdit, ton DataSet va basculer en modification (State = dsEdit), tu vas donc modifier l'enregistrement courant.

Si je comprends bien tu ne souhaites faire que des insertions ?

[rvzip64]

Exactement, c'est un principe que j'ai établi dans notre système de Db, on a le droit qu'a des insertion, pour garder un historique.

Il y a une méthode simple pour faire cela ?

[Cl@udius]

Il y a une méthode simple pour faire cela ?

Ben pas forcément.
Quel est ton SGBD ?

[rvzip64]

Mysql.

Je vois pas le rapport .... vu que c est le composant qui génère la requete SQL.

[Cl@udius]

Je vois pas le rapport ....

Si parce que cet historique des modifications peut s'effectuer via un trigger.
Mais ne connaissant pas MySQL je ne sais pas si c'est possible.

[rvzip64]

la version que j'utilise n'utilise pas les triggers.

[Cl@udius]

la version que j'utilise n'utilise pas les triggers.

C'est dommage ! Ca aurait été plus simple.

La solution que j'entrevois serait d'ajouter à ta table l'état initial de l'enregistrement avant que tu ne postes sa modification.

Cela peut-être géré dans le BeforePost.

@+

[rvzip64]

Oula c 'est du chinois tout ça.

Tu aurais un exemple ?

[Cl@udius]

Re

Bon ce n'est évident cette histoire ! Car en fait tu souhaites transformer un Edit en Insert.

Dès lors que l'on souhaite modifier le comportement naturel d'un composant, on a vite fait de se mélanger les crayons.

D'où ma question: Est-ce qu'il ne serait pas plus simple de créer une table historique à côté de ta table ?

@+ Claudius.

[rvzip64]

La base de données est deja en route, je ne peux pas faire de modification aussi importante

[Cl@udius]

Bon j'ai pondu ça, mais attention c'est exotique !!

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
 
var
  FArray: array of Variant;
 
procedure CopierEnreg(DataSet: TDataSet);
var
  I: Integer;
begin
  // Sauvegarder l'état actuel de l'enregistrement dans le tableau
  with DataSet do
    for I := 0 to Fields.Count - 1 do
      FArray[I] := Fields[I].Value;
end;
 
procedure HistoriserEnreg(DataSet: TDataSet);
var
  I: Integer;
  DSNotifyEvent: TDataSetNotifyEvent;
begin
  // Historiser l'état initial de l'enregistrement
  with DataSet do
  begin
    // Désactiver le AfterPost pour éviter les appels récursifs
    DSNotifyEvent := AfterPost;
    AfterPost := nil;
    // Créer enregistrement histo
    Append;
    for I := 0 to Fields.Count - 1 do
      Fields[I].Value := FArray[I];
    Post;
    // Réactiver AfterPost
    AfterPost := DSNotifyEvent;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Création du tableau
  SetLength(FArray, SimpleDataSet1.Fields.Count);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  // Libération du tableau
  SetLength(FArray, 0);
end;
 
procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
  with TDataSource(Sender) do
    // Entrée en mode édition: Sauvegarder état initial
    if State = dsEdit then CopierEnreg(DataSet);
end;
 
procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet);
begin
  // Historisation
  HistoriserEnreg(DataSet);
end;
 
end.

Je n'ai pas testé n'ayant pas de base test sous la main
Il y a sûrement mieux...

@+ Claudius.

[rvzip64]

Bon je vais regarder ton bout de code, je te remercie

[gduo200]

Bonjour à tous

Question :

Si je modifie plusieurs Champs (DBEdit) est-ce qu'il faut une seule insertion, ou bien une pour chaque champ modifié ?

[Cl@udius]

Bonjour à tous

Question :

Si je modifie plusieurs Champs (DBEdit) est-ce qu'il faut une seule insertion, ou bien une pour chaque champ modifié ?

Il faut toujours raisonné en terme d'enregistrement, que ce soit Ajout (Insertion), Modification ou suppression.

Donc pour répondre à ta question: 1 seul Insert, saisi des valeurs de tes champs, puis Post.

@+ Claudius

[gduo200]

De Claudius

Il faut toujours raisonné en terme d'enregistrement, que ce soit Ajout (Insertion), Modification ou suppression.

Donc pour répondre à ta question: 1 seul Insert, saisi des valeurs de tes champs, puis Post.

La question que je pose est :

Est-ce que Rvzip64 souhaite un historique détailé par modification de chaque champ ou de chaque enregistrement ?