Status von 12 DBCheckboxen abspeichern in einer Datenbank

[RWarnecke]

Hallo zusammen,

ich muss in einer Anwendung 12 DBCheckboxen (Januar - Dezember) einfügen. Eine Umstellung auf normale Checkboxen wird sehr schwierig, da die ganze Anwendung auf die DB-Komponenten ausgelegt ist. Wie kann ich die Werte der DBCheckboxen am geschicktesten in einem Feld in einer Datenbanktabelle abspeichern ? Als Ergebnis sollte folgendes rauskommen :

Zitat:

011110000111

Der Grund für das Ergebnis ist eine vereinfachte Abfrage für die Monate. So könnte ich bei dem Ergebnis hergehen und einfach folgendes abfragen :

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to Length(DBFeldMonate) do
  begin
    case StrToInt(DBFeldMonate[i]) of
      0 : // Aktion für False
      1 : // Aktion für True
    end;
  end;
end;

DBFeldMonate enthält zum Beispiel das Ergebnis aus dem Zitat als String. Wie bekomme ich die Werte der 12 DBCheckboxen in so ein Ergebnis ?

[himitsu]

DB-Komponenten sind nunmal dafür ausgelegt, daß sie ihre Werte selbständig aus einem DataSet einer DataSource holen.

Da würde es sich einfach mit Nicht-DB-Komponenten machen, welche mam manuell auslesen und befüllen könnte.
Aber notfalls kannst'e dir ja eine TDateSource und ein TClientDataSet, TMemDataSet oder Dergleichen als Zwischenspeicher benutzen.



Wenn es nur ums Anzeigen ginge, dann könntest du beim Abrufen mehrere "Felder" aus diesem einem Feld erzeugen, wo dann die jeweiligen Komponenten drangehangen werden.

SQL-Code:

SELECT (substr(deinfeld, 1, 1) = '1') AS feld1, (substr(deinfeld, 2, 1) = '1') AS feld2, ...

, oder so.
Alternativ eben auch über CalcFields.

[haentschman]

Hallo...

Zitat:

Wie kann ich die Werte der DBCheckboxen am geschicktesten in einem Feld

...gar nicht, da jede DBCheckBox ein eigenes Feld verlangt. Die Variante mit den normalen Checkboxen und den "Wert" zusammenzusetzen ist eher die Wahl.

[RWarnecke]

Zitat:

Zitat von haentschman (Beitrag 1172898)

Hallo...

Zitat:

Wie kann ich die Werte der DBCheckboxen am geschicktesten in einem Feld

...gar nicht, da jede DBCheckBox ein eigenes Feld verlangt. Die Variante mit den normalen Checkboxen und den "Wert" zusammenzusetzen ist eher die Wahl.

Das habe ich schon fast vermutet. Dann muss ich wohl über ein DBEdit den Wert in der Datenbank speichern und dieses DBEdit von den normalen Checkboxen füllen lassen. Das halte ich aber für sehr unsauber. Hättet Ihr noch eine anderen Vorschlag, wie ich das realisieren kann ?

[himitsu]

Unsauber:
Warum ein (unsichtbares) DBEdit, wo man auch direkt an das DataSet rankommt?

Das ist ja wie ein TMemo, welches man als TStringList mißbraucht. :stupid:

[Furtbichler]

Du musst doch nur auf einen Recordwechsel reagieren und beim Clicken die Bits setzen. Falls das Dataset noch nicht im Editmodus ist, rufst Du einfach DataSet.Edit auf.

[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:

Zitat von sx2008 (Beitrag 1172919)

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?