Delphi : 2005
Composant db : ADO
Base de données : Access 2003
J'ai une stringrid contenant des données d'une de mes requetes.
Quand je double-clic sur celle-ci (la grid ^^), je recherche dans un query si je trouve des valeurs (avec locate), 2 cas :
1- je trouve les valeurs je passe le query en mode "edit" (je peux vu que ca cible qu'une seule table) et j'affiche une form qui est connecté.
2 - Je ne trouve pas les valeurs donc je passe le Query en mode "Append", et la j'entre les données que je veux et je valide la form.
Le problème est que lors de l'affichage de la form le status edit ou Append disparait et repasse en browse.
Ci-dessous un petit code qui m'a permis de voir que je passe bien dans le mode append et edit avant
quand ma form s'affiche j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure dsStateChange(Sender: TObject); begin inc(num); case TDataSource(Sender).State of dsBrowse : Label3.Caption := 'Change : ' + IntToStr(num); dsInsert : Label4.Caption := 'Append : ' + IntToStr(num); dsEdit : Label5.Caption := 'Edit : ' + IntToStr(num); end; end;
- Change : 2
- Append : 1
J'ai essayé de mettre un append (ou edit) dans le onshow ou onactivate de la form mais rien ni fait.
Est ce que quelqu'un a rencontré le problème et à pu le régler ?
Partager