Status von 12 DBCheckboxen abspeichern in einer Datenbank

[sx2008]

Das Control TDBBitwiseCheckBox kann man mit einem Integerfeld in einem Dataset verbinden und so bis zu 32 Checkboxen mit einem Feld verknüpfen.

[RWarnecke]

Hallo zusammen,

danke für Eure Antworten. Ich habe jetzt nochmal eine Nacht drüber geschlafen und werde es jetzt folgendermaßen machen. Die Zustände der 12 DBCheckboxen werden jeweils einzeln in einem Feld in der Datenbanktabelle gespeichert. Wenn ich auf die Werte zugreifen möchte, werden diese im SQL-Befehl zu dem Ergebnis aus meinem Zitat im ersten Beitrag zusammengebaut, so das der SQL-Befehl mir ein Feld mit dem Ergebnis ausgibt und nicht 12 Felder.

Zitat von sx2008:

Das Control TDBBitwiseCheckBox kann man mit einem Integerfeld in einem Dataset verbinden und so bis zu 32 Checkboxen mit einem Feld verknüpfen.

Ein Integerfeld gibt in einer Datenbank aber keine führenden Nullen aus oder irre ich mich da ? Oder kommt das wiederum auf den Typ Datenbank an ?

[Bummi]

ist doch nur eine Frage der Darstellung
5 = 101 = 00000000000000000000000000000101 = 000000000101

[Furtbichler]

Du musst ja deine 12 Monate nicht als String verpacken. So ginge es ja auch:

Delphi-Quellcode:

For Monat :=1 to 12 do
  if (1 shl Monat) and DatenbankFeldDasDieMonateAlsBitsSpeichert <> 0 then
    // Aktion für 'Monat ist angekreuzt'
  else
    // Aktion für 'Monat ist nicht angekreuzt'

Das klingt mir alles sehr nach 'von Hinten durch die Brust ins Auge'. Was willst Du denn mit den angekreuzten Monaten anfangen?

[RWarnecke]

Zitat von Furtbichler:

Das klingt mir alles sehr nach 'von Hinten durch die Brust ins Auge'. Was willst Du denn mit den angekreuzten Monaten anfangen?

Ich will damit die Lohnabrechnung steuern. Es soll einfach beim Erstellen der Gehaltsabrechnungen geprüft werden, hat der Mitarbeiter diesen Monat gearbeitet oder nicht. Wenn nein (kein Haken gesetzt in der Checkbox), dann soll die Gehaltsabrechnung nicht erstellt werden. Ist der Haken gesetzt, soll die Gehaltsabrechnung erstellt werden.

[DeddyH]

Delphi-Quellcode:

type
  TWorkMonth = (wmJanuary, wmFebruary, wmMarch, wmApril, wmMay, wmJune, wmJuly,
    wmAugust, wmSeptember, wmOctober, wmNovember, wmDecember);

function WorkedThatMonth(aMonth: TWorkMonth; aBitmask: word): Boolean;
begin
  Result := aBitmask and (1 shl Ord(aMonth)) <> 0;
end;

procedure TFormDings.ButtonBumsClick(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 12 do
    TCheckBox(FindComponent('Checkbox' + IntToStr(i))).Checked :=
      WorkedThatMonth(TWorkMonth(i - 1), 10);
end;

[Bummi]

Das schreit nach einer 1:n Struktur... (denk nur mal an die Folgejahre)

[RWarnecke]

Zitat von Bummi:

Das schreit nach einer 1:n Struktur... (denk nur mal an die Folgejahre)

Ich verstehe gerade nur Bahnhof. Wieso an die folge Jahre ? Wieso schreit das nach einer 1:n Struktur ? Habe ich da noch einen Denkfehler gemacht für die Lohnabrechung ?