CharlEm8066
Messages postés vendredi 1 septembre 2006Date d'inscription
1 août 2012
Dernière intervention
-
19 avril 2012 à 15:00 - Dernière réponse : CharlEm8066
Messages postés vendredi 1 septembre 2006Date d'inscription
1 août 2012
Dernière intervention
- 26 avril 2012 à 13:18
Pas de chance pour moi, je dois reprendre le code d'un type qui est parti de ma boite dans un langage que je n'ai jamais vu/étudié/pratiqué : Delphi5.
Le projet est un petit programme dans lequel on encode des médicaments et une liste s'imprime. Je dois "juste" ajouter un champ d'une table DBase sur ce rapport.
J'ai trouvé une Form qui est un rapport à imprimer avec des Headers, Detail, Sub Detail. Je vois que les autres champs DB sont des objets QRDBText.
J'ai vu un barre d'onglet tout en haut de l'interface Delphi nommé QReport, j'ai pris là dedans des QRDBText que j'ai placé sur mon rapport. Puis j'ai vu dans l'Object Inspector les properties DataSet et DataField que j'ai rempli avec les champs qu'on me demandait d'ajouter au rapport.
Mais quand je test le programme, les zones que j'ai ajoutées restent à blanc par contre tout ce qui s'affichait continue à fonctionner ouf. Donc je suppose qu'il faut initialiser ou garnir les QRDBText mais comment? Il doit y avoir du code source quelque part qui fait ça?
Quand je vais dans VIEW --> FORMS et que je choisi Form4 (c'est celle dont je vous parle), j'ai en même temps un fichier Unit8.pas qui s'ouvre. Ce fichier contient un peu de code mais là je suis paumé de chez paumé et j'aurais besoin de votre avis.
begin
table2.filter:='Index='+inttostr(index_voulu);
table2.filtered:=true;
end;
procedure TForm4.FormCreate(Sender: TObject);
var zO_FichierIni:Tinifile;
zS_Service:Char;
begin
zO_FichierIni := Tinifile.Create(ExtractFilePath(Application.ExeName)+'USI.ini');
{Lecture dans fichier ini}
zS_Service := zO_FichierIni.ReadString('USI_PARAMETRES','Unit','')[1];
zO_FichierIni.free;
if UpCase(zS_Service)<>'' then
Qrlabel1.caption:='Relevé contradictoire des quantités de stupéfiants en stock - Service ' + zS_Service
else
Qrlabel1.caption:='Relevé contradictoire des quantités de stupéfiants en stock - ERREUR SERVICE';
end;
dans le BeforePrint de la bande detail (ou SubDetail), il faut que tu positionnes ta nouvelle table sur le bon enregistrement (qui va alimenter les qrDBTexts).
Pour cela, tu as les
- TTable.Locate() qui fonctionne sans index
- TTable.FindKey() qui fonctionne avec un index
Une autre alternative, est de mettre cette nouvelle table en Master/Detail (proprietes MasterSource et MasterFields je crois).
A+
CharlEm8066
Messages postés vendredi 1 septembre 2006Date d'inscription
1 août 2012
Dernière intervention -25 avril 2012 à 14:45
0
Utile
Huuuum bien ça, j'avance merci.
J'ai refait un petit schéma de la DB (merci DB-Main) et trouvé les relations dont j'ai besoin. Petit hic je peux remplir MasterSource mais pas MasterFields : tout est grisé.
Mais j'ai découvert une zone fort intéressante dans Database -> Explore.
Ça me montre le schéma sur lequel je travail, mes tables (qui sont des fichiers DB et DBF) et pour chaque table j'ai la liste de fields, indices, ... .
Les tables qui sont déjà reliées entre elles par des MasterFields ont des clés étrangères dans la section "indices". Pas de bol, la table que je dois utiliser pour ajouter les détails à mon Etat n'a rien dans la section "indices" ce qui explique que tout est grisé dans MasterFields à mon avis.
Comment faire pour ajouter des indices, visiblement ça ne se fait pas par l'interface graphique ou alors je n’ai pas compris
CharlEm8066
Messages postés vendredi 1 septembre 2006Date d'inscription
1 août 2012
Dernière intervention -26 avril 2012 à 11:27
0
Utile
Quelques précisions, j'ai des fichiers DB et DBF dans mon projet.
J'ai trouvé ceci:
[list]
les fichiers DB sont des Paradox 5.0, clustered
les fichiers DBF sont des dBaseIII+
/list
Je suis parvenu à créer un indice sur une table/fichier Paradox 5.0
CREATE INDEX IIntitule ON EVENTS (Intitule)
mais j'ai besoin de pouvoir relier un MasterField sur une table dBaseIII+ et là ce n'est pas la même commande et je galère pour trouver des infos.
Si je fais la même chose que pour une table Paradox,
CREATE INDEX ICodeNum ON MEDIC (CodeNum)
j'ai :
Table does not exist.
File or directory does not exist.
File: F:\Db\MEDIC.DB
> le fichier existe bien à cet endroit mais est nommé DBF ce qui me fait penser que cette commande ne fonctionne qu'avec les tables Paradox qui sont en DB.
