Hallo, wie der Titel schon sagt, möchte ich mit Hilfe des Report Builders alle Items ausdrucken, die in der ChecklistBox angecheckt sind.
Infos:
AdsConnection --> AdsQuery --> DataSource --> ppDBPipeline --> ppReport --> ppDesigner
Delphi-Quellcode:
AdsQuery.SQL.Text:=
SELECT
p.Name,
p.Vorname,
p.PIN,
abt.Bezeichnung,
p.Passiv,
pz.Austritt,
F.Bezeichnung,
F.Zusatz,
F.Strasse,
F.Plz, F.Ort, p.ID,
bd.Bild
From Personal p
Left Outer Join Personalzusatz pz on p.ID = pz.Id_Personal
Left Outer Join Abteilungen abt on p.ID_Abteilungen = abt.Id
Left Outer Join Firma F on p.ID_Firma = F.Id
Left Outer Join Bilddatenbank bd on bd.ID_Personal = p.id
Where IFNULL(Passiv,false) = false
Order By P.name
Mithilfe dieser
Query, werden Items in die Checklistbox eingetragen.
Delphi-Quellcode:
procedure TfrmAusweisdruck.FormShow(Sender: TObject);
var
sName: String;
begin
frmAusweisdruck.ClientWidth := 357;
btnAusblenden.Enabled := False;
with qMitarbeiter do
begin
Active:=True;
while not Eof do
begin
sname := FieldByName('name').AsString + ', ' + FieldByName('Vorname').AsString;
chlistboxMitarbeiter.Items.AddObject(sName,TObject(FieldByName('id').AsInteger));
Next;
end;
end;
end;
So, das ist das wichtigste, was man wissen muss
um mir bei meinem Problemchen weiter zu helfen.
Momentan werden alle Einträge aus der Checklistbox ausgedruckt egal ob angecheckt oder nicht.
Delphi-Quellcode:
procedure TfrmAusweisdruck.bitbtnDruckenClick(Sender: TObject);
begin
ppReport1.Print;
end;
Ich möchte aber, dass nur Einträge ausgedruckt werden, die auch angecheckt sind, wie löse ich das?