probleme avec open dialogue?

Version imprimable

18/12/2013, 12h00
nassimanocus

1 pièce(s) jointe(s)

probleme avec open dialogue?

bonjour
je n'arrive pas à trouver le probleme dans mon programme;
j'ai travaillé avec un open dialogue
18/12/2013, 12h32
Rayek
8O
Qu'est ce que tu cherches à faire ?
Code:

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:

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:

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

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

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
 
 
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....:?

19/12/2013, 10h03
Fxg

Juste à choisir le fichier à ouvrir :ccool:
19/12/2013, 10h14
nassimanocus

1 pièce(s) jointe(s)

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
19/12/2013, 10h15
nassimanocus

1 pièce(s) jointe(s)

voici l'autre forme qui doit appeler la listes des opérations
19/12/2013, 11h04
Rayek

Mais encore ?
Quelle est le problème ?
19/12/2013, 11h06
chekkal

Citation:

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.
19/12/2013, 14h09
SergioMaster

Le rapport entre les formes présentées et le Opendialog ?
19/12/2013, 15h14
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
22/12/2013, 09h57
nassimanocus

oui Charly 910 , c'est exactement ce que je recherche
22/12/2013, 14h16
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 :

Citation:

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
25/12/2013, 09h16
nassimanocus

j'ai essayé avec ça mais après l’exécution y a rien:?
25/12/2013, 10h45
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)

Code:

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

26/12/2013, 18h55
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

Citation:

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
29/12/2013, 11h34
nassimanocus

merci,:ccool: problème réglé;)

Fuseau horaire GMT +2. Il est actuellement 13h13.