Discussion :

[nassimanocus]

bonjour
je n'arrive pas à trouver le probleme dans mon programme;
j'ai travaillé avec un open dialogue

[Rayek]

Qu'est ce que tu cherches à faire ?

Code :

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

1
2
 
Edit1.Text.LoadFromfile(...)

Ça ne peut pas fonctionner.

Soit tu veux récupérer le nom du fichier et l'afficher dans un edit

Code :

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

1
2
 
Edit1.text := Ouvrir.fileName;

Soit tu veux récupérer le contenu du fichier et l'afficher mais cela ne se fera pas dans un Edit mais plus dans un memo

Code :

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

1
2
 
Memo1.Lines.LoadFromFile(Ouvrir.fileName);

[Basile le disciple]

Si c'est la deuxième méthode de Rayek que vous voulez,vous pourriez utiliser TextFile :

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
 
 
Var F : TextFile;
     texte : string;
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(f,'C:\Text.str');
 {$I-}
    Reset(F);
 {$I+}
 if IOResult = 0 then
 begin
    Read(F,Texte);
    Edit1.Text:=texte;
 end;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  texte:=Edit1.Text;
  Rewrite(f);
  Write(f,texte);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseFile(f);
end;

Mais le OpenDialog ne sert plus à rien alors....

[Fxg]

Juste à choisir le fichier à ouvrir

[nassimanocus]

bonjour,
tout d’abord je vous remercié pour vos réponses,
je cherche à récupéré le N° d'une opération (j'ai fait l'inscription des opération dans un autre fiche form1) et dans forme 2 je veux quand je clic liste tous les opération déjà enregistré s'affiche et moi je dois sectionner une opération dans un edit1

[nassimanocus]

voici l'autre forme qui doit appeler la listes des opérations

[Rayek]

Mais encore ?
Quelle est le problème ?

[chekkal]

bonjour,
tout d’abord je vous remercié pour vos réponses,
je cherche à récupéré le N° d'une opération (j'ai fait l'inscription des opération dans un autre fiche form1) et dans forme 2 je veux quand je clic liste tous les opération déjà enregistré s'affiche et moi je dois sectionner une opération dans un edit1

tu enregistre comment tes operations? dans un fichier texte?.si c'est le cas tu es obligé d'ouvrir le fichier pour récupérer le numéro.

[SergioMaster]

Le rapport entre les formes présentées et le Opendialog ?

[Charly910]

Bonjour,

je pense que Nassimanocus veut ouvrir une fiche détaillée de l'opération quand elle sélectionne un numéro d'opération avec le bouton liste ?

c'est donc dans la BD qu'il faut prendre ces numéros et non dans un fichier txt ?

Dans l'écran n°2, Il faudrait donc récupérer les numéros d'opérations de sa base dans un combobox (au lieu du Edit) afin de pouvoir le sélectionner et afficher son détail.

Mais s'il y a beaucoup d'opérations ça va être un peu galère pour l'utilisateur ! un double clic sur le DbGrid du premier écran serait surement mieux (pour ouvrir la fiche détail correspondante) ?

Enfin, si j'ai bien tout compris ?
A+

Charly

[nassimanocus]

oui Charly 910 , c'est exactement ce que je recherche

[Charly910]

Bon, alors dans le OnDblClick du TEdit de Form1 qui contient le numéro d'opération, ou bien dans le OnDblGrid du DbGrid tu fais :

Form2.ShowModal

si les TDBEdit de Form2 sont reliés au même Datasource que celui de Form1, cela devrait t'afficher l'enregistrement courant (ayant donc le même numéro d'opération) ?

A+

Charly

[nassimanocus]

j'ai essayé avec ça mais après l’exécution y a rien

[nassimanocus]

je vais ré-écrire mon question autrement: comment je peux afficher 'dbgride' de 'form1' (inscription operation ) quand je clic sur le 'bouton' 'liste' dans 'form2' (engagement)

[chekkal]

Code :

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

1
2
3
4
5
 
procedure Tform2.listeclick(sender:Tobject);
begin
        form1.showmodal; //tu affiche form1 donc dbgrid apparait logiquement
end;

[Charly910]

Bonjour,

sinon tu créés Form3 avec juste un DbGrid (relié au même Dataset que Form1) et un Panel en bas avec un bouton "Fermer" et dans Form2, tu fais

Procedure Tform2.ListeClick(Sender : Tobject) ;
Begin
Form3.ShowModal ; // tu affiches alors Form3 avec le DbGrid qui contient tes numéros d'opération
End ;

A+
Charly

[nassimanocus]

merci, problème réglé