Discussion :

[qi130]

Bonjour,

J'essaie de piloter via 1 lookupcombobox l'affichage des données détail du datasource pointant sur 1 TZquery.
Outre les colonnes de la table (sous FB2.5), je ramène dans le SQL

Code :

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

(Prenom || ' ' || Nom) as PrenomNom

Le lookupcombo "pointant" sur PrenomNom.

Lors du FormShow, je fais:

Code :

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

1
2
zQuery.Open;
sQuery.First;

et les données détail de la 1ère ligne de la table sont affichées ... Mais le lookupcombo, bien que correctement alimenté par tous les PrenomNom, n'affiche rien.

J'ai l'impression qu'il y a une occurrence fantôme car
- la table contient 5 lignes
- le zQuery.recordcount est bien à 5
lorsque j’utilise le dbnavigator (next,next,...) je ne peux afficher les données de la 5ème ligne :

l'ensemble de données n'est pas en mode Edition ou Insertion

Autres problèmes du dbnavigator

• son utilisation ne fait pas évoluer l'affichage de la lookupcombo: est-ce possible?
• dans le contexte du FormShow, les touches [First] et [Prev] sont grisées (normal=>1ère ligne), je fais [next] elles deviennent Enable, puis [Prev] (je reviens sur la 1ère ligne) elles restent Enable

Je précise quand même qu'il n'y a pas de DBGrid dans le circuit : pas de place compte tenu des 80 colonnes de la table.

Bref, qu'est-ce que je ne fais pas correctement?

[SergioMaster]

Bonjour,

bien que je pense qu'une petite erreur se soit glissée dans le code

Code :

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

1
2
zQuery.Open;
sQuery.First;

c'est certainement Zquery.First qui d'ailleurs me semble inutile

Je pense que c'est tout simplement un problème de dataset et datasource de ton lookupcombo. D'ailleurs ne serait-ce pas plutôt un tdbLookupcombox ?

Autres problèmes du dbnavigator

1. son utilisation ne fait pas évoluer l'affichage de la lookupcombo: est-ce possible?
2. dans le contexte du FormShow, les touches [First] et [Prev] sont grisées (normal=>1ère ligne), je fais [next] elles deviennent Enable, puis [Prev] (je reviens sur la 1ère ligne) elles restent Enable

au 1 je réponds : normal
au 2 je répondrai : bogue connu, que j'ai pu rencontré de temps en temps pas forcément avec ZEOS d'ailleurs, c'est le dbnavigator le coupable

[qi130]

Merci Sergio pour ta réponse.

D'ailleurs ne serait-ce pas plutôt un tdbLookupcombox ?

Effectivement
Le paramétrage est le suivant:
DataField et DataSource : vide
KeyField : la PK de la table
ListField : PrenomNom
ListSource : le datasource dont le dataset est zQuery.

Un espoir que le DBLookupcombobox fasse ce que je souhaite?

[qi130]

Bon, je change mon fusil d'épaule en utilisant 1 dbgrid qui n'affiche que les prénoms et Noms (les autres champs sont masqués).
J'ai retiré la concaténation du SQL du zQuery ainsi que la dblookupcombobox.

Mais, pas de miracle: quand je clique sur la dernière ligne du grid ou si j'y accède via la touche "down" du clavier, j'ai toujours

l'ensemble de données n'est pas en mode Edition ou Insertion

[SergioMaster]

Bonjour,

Bon zeosdbo était installé sur ma version 12.2 donc utilisation. NB. tu n'as pas indiqué ta version.

Je ne me suis pas "embêté" avec un base Firebird (j'aurais certainement meiux fait) mais j'ai pris pour commencer une base SQLite fournie dans les exemples (la célèbre employees, enfin employees.s3db est loin d'être une copie de la base employees Interbase ou Firebird ). Mal m'en a pris car les colonnes texte sont des memos et non des varchars (niveau grille de vérification c'est plutôt rapé) mais peu importe.

Suite à tes explications j'ai donc commencé par poser un TDBLookupCombobox mais pour cause de référence circulaire j'ai du ajouter un nouveau datasource pointant sur une autre query
Tout ça pour me rendre compte qu'un tDBLookupCombobox et un cblob ne font pas bon ménage

Du coup j'ai triché comme tu pourras le constater sur ce design

Trop habitué à Firemonkey, j'ai utilisé un combobox et un peu de livebindings

CONCLUSION DE CET ESSAI : si quelqu'un sait comment faire en sorte que les colonnes TEXT soient considérées comme des colonnes VARCHAR avec ZEOS je serai ravi d'avoir une explication (mes tentatives de CASTSELECT CAST( NAME AS VARCHAR(40)) vName FROM employee n'ont pas abouties)

Avec Firebird (version 5 sur ce poste) plus de problème de blobs la BDD employees et sa table me fourni le bon jeu d'essai (et la possiblité de grille )

toujours avec le combobox


P.S.

c'est le dbnavigator le coupable

après navigation je suis revenu en arrière jusqu'au premier enregistrement (id=2 dans la table) malgré que l'on soit au premier le bouton "prior" ainsi que le bouton "first" ne sont pas désactivés, ce qui, si l'on clique une seconde fois sur "prior" se fait. La cause même si l'on était sur la première ligne on n'était pas en début de fichier (BOF),
Idem d'ailleurs pour la fin de fichier.
J'ai fouillé pour l'explication, j'ai cru l'avoir signalé comme bogue à Embarcadero QP (mais si j'en ai eu l'intention et j'ai laissé tombé faute de solution à proposer).

Je reprends désormais avec un TDBLookupCombobox pour finaliser ma réponse

[SergioMaster]

Vue ne postant ma réponse du matin

Mais, pas de miracle: quand je clique sur la dernière ligne du grid ou si j'y accède via la touche "down" du clavier, j'ai toujours

Logique pour moi, tu dois ajouter un TZUpdateSQL, le lier à ton TZquery (propriété UPdateObject de celle-ci) et indiquer les SQL à faire

[SergioMaster]

Voilà, comment te passer des Livebindings et utiliser le DBLookupCombobox.

Tout d'abord tu dois avoir une nouvelle source de données (Zquery2, Datasource2)
puis indiquer les propriétés suivantes au DBLookupComboxbox
DataField = EMP_NO
Datasource = Datasource1 NE PAS TENIR COMPTE DE CES DEUX LIGNES, c'était un essai, j'ai repris ce qu'il y avait sur l'image
Key_Field = EMP_NO
List_Field = FULL_NAME
ListSource = DataSource2
Ainsi tu n'auras la synchronisation souhaitée qu'avec quelques lignes de code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.DBLookupComboBox1CloseUp(Sender: TObject);
begin
ZQuery1.Locate('EMP_NO',VarArrayOf(DBLookupComboBox1.KeyValue),[]);
end;
 
procedure TForm2.ZQuery1AfterScroll(DataSet: TDataSet);
begin
DBLookupComboBox1.KeyValue:=ZQuery1EMP_NO.asInteger;
end;

(tu peux même faire en sorte d'avoir un tri alphabétique dans ta liste, en changeant ton SQL avec ORDER BY )

[qi130]

Vue ne postant ma réponse du matin

Logique pour moi, tu dois ajouter un TZUpdateSQL, le lier à ton TZquery (propriété UPdateObject de celle-ci) et indiquer les SQL à faire

C'est déjà le cas, avec 1 Ztransaction dédiée... d'ailleurs, la génération des SQL est plutôt bien faite.

Cependant, en quoi l'absence de ce TZUpdateSQL empêcherait d'atteindre la dernière ligne dès lors qu'aucune modif n'est faite?

En marge, je note l'astuce pour le dblookupcombobox. J'avais vaguement exploré la même piste, il ne me manquait que le code des 2 évènements

PS: j'utilise la v8 de Zeos avec mon Berlin Starter

[qi130]

Concernant l’impossibilité d'accéder à la dernière occurrence:

Il se trouve que parmi les champs, j'ai beaucoup de booléens qui sont restitués via des DBCheckbox:

et la même chose pour l'onglet "En cours"
Chaque DBCheckbox "Rien de particulier" avait son event OnClick branché sur

Code :

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

1
2
3
4
5
6
7
8
9
10
for i := 0 to tsPast.ControlCount-1 do begin
         if LeftStr(tsPast.Controls[i].Name,2)='DB' then begin
            if (tsPast.Controls[i] is TDBCheckBox) and chkP_RAS.Checked then
               zDiverQr.FieldByName((tsPast.Controls[i] as TDBCheckBox).DataField).AsInteger:=0
               else
               if tsPast.Controls[i] is TDBMemo then
                  if chkP_RAS.Checked then
                     zDiverQr.FieldByName((tsPast.Controls[i] as TDBMemo).DataField).Clear; // raz du champ
            tsPast.Controls[i].Enabled:=not chkP_RAS.Checked;
         end;

(ici, tsPast = tabsheet "Antécédents")

Sur 1 des occurrences intermédiaires j'ai coché et décoché plusieurs fois "Rien de particulier". Du coup, au changement d'occurrence suivant, bingo!

l'ensemble de données n'est pas en mode Edition ou Insertion

Après désactivation des gestionnaires OnClick, le problème a disparu

En outre, je constate que cette séquence déclenche le OnDataChange du dataset, lequel contient déjà:

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
// S'assurer que le dataset est actif et pas vide
     if not zDiverQr.Active or zDiverQr.IsEmpty then
     begin
          PhotoDiver.Picture := nil;
          Exit;
     end;
 
     // Vérifier si le champ BLOB est non null
     if not zDiverQr.FieldByName('DIVER_PHOTO').IsNull then
     begin
          BlobStream := zDiverQr.CreateBlobStream(zDiverQr.FieldByName('DIVER_PHOTO'), bmRead);
          jp:=TJPEGImage.Create;
       try
         jp.LoadFromStream(BlobStream);
         PhotoDiver.Picture.Assign(jp);
       finally
         BlobStream.Free;
         jp.Free;
       end;
     end
     else
       PhotoDiver.Picture := nil;

car les BLOB graphiques fournis par Zeos ne sont pas compatibles avec 1 DBImage (PhotoDiver est 1 TImage - images de la DB en jpg - je n'ai pas essayé avec un BMP)

AMHA, le fait d'activer la séquence OnClick doit saturer quelque chose, occasionnant la fermeture du Query ?

Maintenant, comment conserver cette facilité sur les DBCheckBox ?