Hallo!
Wie bekomm ich die Abfrage in ein StringGrid zum anschauen für den user. Und dann muss der User mit der rechten Maustaste die Daten in eine Exceldatei speichern können.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| Query1.SQL.Clear;
Query1.SQL.Add('select max(TATSAECHLENTGELT_QM) from feh_bearbeitung where
TATSAECHLENTGELT_QM is not null and TATSAECHLENTGELT_QM > 0');
Query1.SQL.Add('and leistpflichtvon >= ''01.01.2002'' and leistpflichtvon <=
''01.01.2004''');
Query1.SQL.Add('and id_wohnung in ( select id_wohnung from woh_bestand where
id_wohnung = feh_bearbeitung.id_wohnung and datum_bewilligungsbescheid >=
''01.01.1960'' and datum_bewilligungsbescheid <=''31.12.1960'')');
Query1.SQL.Add('group by tatsaechlentgelt_qm');
Query1.Active := true; |
StringGrid muss so aussehen:
1960 1961 1962 1963 usw.
2,54 2,63 2,57 2,89
usw.
muss alle jahre von 1960 bis 2004 abfragen.
Hab ja mal was gemacht aber mit den Reihen haut das nich hin.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| while not Query1.Eof do
begin
if CheckBox1.Checked then
begin
stringgrid1.Cols[1].Add(Query1.fieldbyname('max(TATSAECHLENTGELT_QM)').AsString);
StringGrid1.RowCount := StringGrid1.RowCount+1;
end;
Query1.Next
end; |
MfG recordable
Ich muss die Daten aus der Query einfach in den StringGrid kriegen Spalte für Spalte für die Jahre 1960 - 2004 und dann müssen die Zeiträume noch variable abrufbar sein können z.B 1972-1993 usw.