Wie drucken Sie Name und Note in FASTREPORT?

[Alg2009]

Hallo,
Wie wird der Name und die Lektion sowie die Note gedruckt, da immer die erste Note für alle Schüler in FASTREPORT gedruckt wird?

BaseDonee.rar

[haentschman]

Hi...
Your translator for german is not good...

I cant understand what you want. Paint a picture of your problem and sending this as attachment. We must know, witch data schould printed where...

welcome here...

[Alg2009]

Hello haentschman
Entschuldigung für mein schlechtes Deutsch.

What i want to do is how display in FastReport the students(Nom, lesson(NomLecon) name and Grades(Not
My Problem is why when execute the program appear only the first Grade for all students
And I want to show every pupil with his own mark.
The relation between Tables(Etudiant,Lecon) is N,N

[blawen]

Zitat von haentschman:

Hi...
Your translator for german is not good...

I cant understand what you want. Paint a picture of your problem and sending this as attachment. We must know, witch data schould printed where...

welcome here...

Isn't the question simply about how all records are printed?
Gehts in der Frage nicht einfach darum, wie sämtliche Datensätze gedruckt werden?

Wenn ich es richtig interpretiere, werden in der Procedure TForm4.Button4Click die Daten aufbereitet.
Im Report werden aber die Daten von drei verschiedenen Querrys abgerufen, was so nicht funktionieren kann.

[Alg2009]

[QUOTE=blawen;1473460]

Zitat von haentschman:

Wenn ich es richtig interpretiere, werden in der Procedure TForm4.Button4Click die Daten aufbereitet.
Im Report werden aber die Daten von drei verschiedenen Querrys abgerufen, was so nicht funktionieren kann.

Wie funktioniert es?
Schauen Sie sich das Bild an, Sie werden sehen, dass die Schüler die gleiche Note wie der erste Schüler erhalten. Jeder Schüler sollte die Note bekommen, die er bekommt

Look at the picture, you will see that the students get the same Grade as the first student. Every student should get the grade they get.

[haentschman]

Hi...
 SQL.Add('JOIN ETUDIANT E on EL.ID=EL.ID'); ...i think this line is wrong. 'on EL.ID=EL.ID'...the same field in the join.
 SQL.Add('JOIN ETUDIANT E on EL.ID=E.ID'); ...how about this?

notes:
* Dont use WITH. Then you have less debugging problems with missing variable values.
* why Close/Clear? If you use SQL.Text, the SQL.Clear automaticly executed. With FireDAC the Close is automaticly executed.
* U use FIREDAC with MACROS. The problem is...that, if you changing the database components, the new one not knows MACROS. And one line less...

imho better:

Delphi-Quellcode:

procedure TForm4.Button4Click(Sender: TObject);
begin
  dmdata.AFDQuery.SQL.Text := 'SELECT E.NOM,L.NOMLECON FROM ETUDLECON EL';
  dmdata.AFDQuery.SQL.Add('JOIN LECON L ON EL.ID=L.LECONID');
  dmdata.AFDQuery.SQL.Add('JOIN ETUDIANT E on EL.ID=EL.ID');
  dmdata.AFDQuery.SQL.Add('ORDER BY EL.ID,EL.LECONID');

  dmdata.AFDQuery.Open;

  DmData.frxReport1.ShowReport;
end;

[Alg2009]

Thank you very much haentschman

But how can i put the result of the query in the FastReoprt when i Click on the Button ?

[TurboMagic]

Have you already looked into the manual for FastReport?
The one for version 5 can be found here: https://www.fast-report.com/public_d...ntent_dyn.html

A more complete one for 4.6 can be found in PDF format here:
https://origin2.cdn.componentsource....rmanual-en.pdf

[haentschman]

Hi...

you want this?

Question:
How long you programming Delphi?

You should read this information:
StyleGuide: https://wiki.delphi-jedi.org/wiki/Pr...ge_Style_Guide
* naming of units, variables
* indentation
* readable names
CamelCase:
https://en.wikipedia.org/wiki/Camel_...er_programming

Your Project:
Do you want to learn something? ...ok.

Plus:
+ SQL with parameters

Minus:
- naming of the components/units -> Do yourself a favor with it. It is better readable.
- Never write hardcoded folders/files, access data into the connection. This belongs, partly encrypted, into an INI file or into the registry.

Code:

object Conn: TFDConnection
    Params.Strings = (
      'Database=D:\Database Desktop\BaseDonee\SCOLAIRE.FDB'
      'User_Name=SYSDBA'
      'Password=masterkey'
      'DriverID=FB')
    Connected = True
    LoginPrompt = False
    Left = 79
    Top = 22
  end

- Never use DB tables. Better use Querys.
- DateTime Edit without check. Better use a DateTimePicker...
- Creation of the Datamodule before creating Main form. (in DPR)
- use Anchors for the components http://docwiki.embarcadero.com/Libra...ontrol.Anchors
- Firebird has a function for reading the new ID https://firebirdsql.org/refdocs/lang...21-insert.html
- write the code or/and names better in english.

what i do:
* formatting
* naming
* SQL was wrong
* assignment of the query to the report
* delete unused report datasets
* editing report

[Alg2009]

Zitat von haentschman:

Hi...

you want this?

Question:
How long you programming Delphi?

About Year

https://www.delphipraxis.net/attachm...rt-preview.png

Yes this is What i want like the picture how did you do that?