Hallo zusammen,
ich habe eine Datenbank mit einem Wert und einem Primärschlüssel:
mandant / Bezeichnung
1 / Musterfirma
98 / Firma TEST
Ich lese diese Tabelle mit "Select mandant, Bezeichnung from mandaten" aus, habe diese nun in einem AdoQuery-Objekt stehen und möchte gerne eine CheckBox füllen. Das mache ich derzeit so:
Delphi-Quellcode:
if AdoQuery.Recordcount>0 then begin
// Treffer !
for i := 0 to AdoQuery.RecordCount - 1 do begin
cb_Mandant.Items.Add(AdoQuery.Fields.Fields[1].Asstring);
// für spätere Zuordnung ItemIndex der ComboBox - Primärindex
AvailMand.Values[IntToStr(i)] := AdoQuery.Fields.Fields[0].AsString;
AdoQuery.Next;
end;
cb_Mandant.ItemIndex:=0;
cb_Mandant.Update;
end;
Wenn ich nach Auswahl des Users jetzt mit dem CheckBox.ItemIndex den Primärindex (mandant) bestimmen will, mache ich das so:
Delphi-Quellcode:
// für spätere Zuordnung ItemIndex der ComboBox - Primärindex
pri_id := AvailMand.Values[IntToStr(cb_Mandant.ItemIndex)];
ShowMessage(pri_id);
Klappt soweit auch alles, aber geht das auch noch "schöner" ?
lg
Sebastian