Problème avec DBEdit.text

Version imprimable

28/08/2023, 10h56
youce90

Problème avec DBEdit.text

Bonjour à tous,

Je n'arrive pas à manipuler la propriété Text d'un DBEdit, j'essaie de l'affecter à une autre variable, un autre Edit, ou même de l'afficher dans un Showmessage, mais quoi que je fasse j'obtiens le vide, pourtant il est bel et bien rempli (connecté à une table SQL SERVER), et les données s'affichent correctement.

Ps: aucun message d'erreur ne s'affiche

Merci d'avance
28/08/2023, 10h58
licardentaistor

montre nous le code ...
28/08/2023, 11h43
SergioMaster

Un DBEdit donc lié à des données et peut-être même en lecture seule ?
28/08/2023, 12h08
Andnotor

Pourquoi depuis le DBEdit puisqu'il affiche la donnée de l'enregistrement sélectionné ? Récupère-la directement depuis la DB.
28/08/2023, 15h57
youce90

Citation:

Envoyé par Andnotor

Pourquoi depuis le DBEdit puisqu'il affiche la donnée de l'enregistrement sélectionné ? Récupère-la directement depuis la DB.

J'ai une table Régime(code_reg, lib_reg),
Et un DBGrid contenant plusieurs champs venant de plusieurs tables, y compris le champ Code_reg, mon objectif c'est d'afficher le Lib_reg en HINT du DBGrid, quand je survole le champ Code_reg.
Donc j'ai utilisé un DBEdit comme intermédiaire, du coup je l'ai rendu invisible,
Mais maintenant, que je viens de de le rendre visible, je me suis rendu compte qu'il est VIDE en mode exécution, alors qu'il est bel et bien rempli en mode création

L'idée c'est de filtrer la table FDTable Régime sur le code_reg sélectionné dans le DBGrid, puis afficher le Lib_reg dans le HINT.
28/08/2023, 18h29
SergioMaster

Moui, mais peut-être serait-ce mieux de faire une requête avec des jointures pour obtenir ce libellé directement ?
28/08/2023, 22h17
Andnotor

Il veut un hint au survol, ce n'est pas la ligne sélectionnée dans la grille. Il faut clairement deux TTable (ou TQuery).
29/08/2023, 07h52
SergioMaster

J'ai bien compris que c'était un hint au survol, cependant plutôt que faire un autre appel à la base de données si ce libellé était déjà dans la première requête ce serait AMHA plus rapide et moins gourmand
29/08/2023, 08h05
Andnotor

Il l'est manifestement (enfin j'espère).

Ce que j'envisageais était plutôt par CloneCursor. Sinon c'est bookmark, désactivation des compos visuels, recherche, etc.

Citation:

Envoyé par SergioMaster

J'ai bien compris que c'était un hint au survol, cependant plutôt que faire un autre appel à la base de données si ce libellé était déjà dans la première requête ce serait AMHA plus rapide et moins gourmand

Non le champs Lib_reg n'est pas dans la 1ère requete,
donc j'ai fait un 2ème appel, et ça marche parfaitemnt avec le FDQuery
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.DBGArtCellClick(Column: TColumn); begin with dm.fdqreg do begin with sql do begin Clear; Add('SELECT lib_reg FROM regime'); Add('where code_reg = '+quotedstr(dbgArt.Fields[4].asstring)); //Code_reg dans le DBGrid end; open; end; dbgart.Hint := dm.fdqreg.fields[0].asstring; end;
Sachant que j'ai par la suite testé la meme chose avec FDTable, mais ça n'a pas marché:
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.DBGArtCellClick(Column: TColumn); begin with dm.fdTreg do begin filter := 'code_reg = '+quotedstr(dbgArt.Fields[4].asstring); filtered := true end; dbgart.Hint := dm.fdTreg.fields[1].asstring;
Le plus important c'est que ça a marché avec le FDQuery,
Par contre, je n'arrive pas trouvé un meilleur événement que le OnCellClick;

Comment preciser l'événement survol de la cellule ?

salut

dans l'evenement onmousemove peut etre

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
41
42
43
44
45
46
47
48
49
 
function TMyFrm.GetHint(dataset : Tdataset ) : String;
begin
  result := '';
  with dm.fdTreg do
  begin
      filter := 'code_reg = '+quotedstr(dataset.Field[4].asstring);
      filtered := true 
  end;
  result := dm.fdTreg.fields[1].asstring;
end;
 
procedure TMyFrm.DBGArtMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  MColumn, MRow: Longint;
  rec : integer;
  st  : String;
begin
  inherited;
  if not(sbCommit.enabled) Then
  begin
    MouseToCell(X,Y,MColumn,MRow);
    if dgTitles in TDBGrid(Sender).Options then
      Dec(MRow);
    if dgIndicator in TDBGrid(Sender).Options then
      Dec(MColumn);
 
    if (MRow > 0) and (MColumn >0) and (Mcolumn <= (Sender as TDBGrid).Columns.Count) then
    begin
        if (Sender as TDBGrid).DataLink.Active Then
        begin
          rec := (Sender as TDBGrid).DataLink.ActiveRecord;
          try
            (Sender as TDBGrid).DataLink.ActiveRecord := MRow;
            st :=  GetHint((Sender as TDBGrid).datasource.dataset);
            (Sender as TDBGrid).Hint := st;
            Application.HintPause := 1;
            Application.ActivateHint(Mouse.CursorPos);
          finally
            (Sender as TDBGrid).DataLink.ActiveRecord:= rec;
          end;
      end;
    end
    else
    begin
      Application.HintPause := 500;
      Application.CancelHint;
    end;
end;