Checkbox in Datenbank

[Thomas F]

Ich möchte eine Datenbank anlegen , bei der im ersten Feld eine Checkbox ist
Schaut so ähnlich aus wie in einem Email-Programm.
Die Daten werden dann nur verarbeitet wenn "checked:=True"

Wie mach ich das am besten ?

[mkinzler]

Auf was zielt deine Frage ab auf den typ des Feldes in der Datenbank oder geht es dir um die Anzeige?

[Thomas F]

Zitat von mkinzler:

Auf was zielt deine Frage ab auf den typ des Feldes in der Datenbank oder geht es dir um die Anzeige?

........um die Anzeige

Typ des Feldes = Boolean

Aber wie zeige ich das an ?

[mkinzler]

Z.B. mit einer DBCheckBox.
In einem Grid müsstest du das selber machen (gibt es Beispiele für) oder verwendest z.B. das JvDBGrid aus der JVCL.

[haentschman]

Hallo...

du hast dann für den Status der CheckBox ein Feld in der Datenbank. Vorzugsweise Integer. True=1 False=0. Mit dem JvDBGrid aus der JVCL kannst du dann das Feld auch wieder als Checkbox im Grid darstellen. Du mußt auch in den Optionen den Wert für True und den Wert für False zuordnen.

Zitat:

Typ des Feldes = Boolean

...Firebird z.B. kennt keinen Feldtyp Boolean, da nimmt man Integer 0/1 z.B.

[Thomas F]

Zitat von haentschman:

Hallo...

du hast dann für den Status der CheckBox ein Feld in der Datenbank. Vorzugsweise Integer. True=1 False=0. Mit dem JvDBGrid aus der JVCL kannst du dann das Feld auch wieder als Checkbox im Grid darstellen. Du mußt auch in den Optionen den Wert für True und den Wert für False zuordnen.

Zitat:

Typ des Feldes = Boolean

...Firebird z.B. kennt keinen Feldtyp Boolean, da nimmt man Integer 0/1 z.B.

Ja, Danke

Wollte grade JVCL runterladen und installieren , funktioniert aber mit Delphi 2005 nicht, oder ?

Außerdem gibt es soviele Versionen(z.B. daily), ich blick nicht durch welche die richtige ist ?

[mkinzler]

http://www.delphipraxis.net/internal...ct.php?t=99550

[blawen]

Die aktuelle (freigegebene) JVCL-Version 3.34 findest Du hier: JVCL

Möglicher Ansatz:

Delphi-Quellcode:

procedure TForm2.JvDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
                                         DataCol: Integer; Column: TColumn;
                                         State: TGridDrawState);
begin
  ColorGrid(jvDBGrid1, DMMain.ZQuery_read, Rect, DataCol, Column, State);
end;


procedure TForm2.ColorGrid(dbgIn: TjvDBGrid; qryIn: TZQuery; const Rect: TRect;
                           DataCol: Integer; Column: TColumn;
                           State: TGridDrawState);
var
  bValue: boolean;

begin
  { Feststellen ob die anzuzeigende Nachricht noch nicht gelesen wurde }
  if (NOT DMMain.ZQuery_read.IsEmpty) AND (Column.Index = 0) THEN
    if qryIn.FieldByName('lesen').AsString = '1'
      then DMMain.ImageList1.draw(jvDBGrid1.Canvas , rect.left+0,rect.top+2,0)
      else DMMain.ImageList1.draw(jvDBGrid1.Canvas , rect.left+0,rect.top+2,1);
end;

[mkinzler]

Oder man verwendet eine DBCheckBox als EditControl

[Thomas F]

Ich hab jetzt JVCL und JCL erfolgreich installiert

War aber ne schwere Geburt, ich hab ewig rumgemacht bis es geklappt hat

Ich hab dann die Setups runtergeladen, damit funktioniert es am besten

http://jcl.sourceforge.net/websetup/jcl/JCLSetup.exe
http://jvcl.sourceforge.net/websetup/jvcl/JVCLSetup.exe