dbCheckbox und dbGrid mit Abfrage

[blutigerAnfänger]

Hallo

Über Checkboxen in DbGrids wurde schon viel geschrieben. Mein Quelltext bezieht sich auf den Tip bei about.com.
Nur meine Umsetzung funktioniert nicht.

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('Select * from Tabelle  ');
    Active:=True;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 DBCheckBox1.DataSource := DataSource1;
 DBCheckBox1.DataField  := 'Feld';
// DBCheckBox1.Visible    := False;
 DBCheckBox1.Color      := DBGrid1.Color;
 DBCheckBox1.Caption    := '';

 //explained later in the article
 DBCheckBox1.ValueChecked := 'true';
 DBCheckBox1.ValueUnChecked := 'false';
end;

procedure TForm1.DBGrid1DrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol:
  Integer; Column: TColumn; State: TGridDrawState);

const IsChecked : array[Boolean] of Integer =
      (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var
  DrawState: Integer;
  DrawRect: TRect;
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = DBCheckBox1.DataField) then
    begin
     DBCheckBox1.Left := Rect.Left + DBGrid1.Left + 2;
     DBCheckBox1.Top := Rect.Top + DBGrid1.top + 2;
     DBCheckBox1.Width := Rect.Right - Rect.Left;
     DBCheckBox1.Height := Rect.Bottom - Rect.Top;

     DBCheckBox1.Visible := True;
    end
  end
  else
  begin
    if (Column.Field.FieldName = DBCheckBox1.DataField) then
    begin
      DrawRect:=Rect;
      InflateRect(DrawRect,-1,-1);

      DrawState := ISChecked[Column.Field.AsBoolean];

      DBGrid1.Canvas.FillRect(Rect);
      DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect, 
                       DFC_BUTTON, DrawState);
    end;
  end; 
end;
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField then
    DBCheckBox1.Visible := False
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = Chr(9)) then Exit;

  if (DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField) then
  begin
    DBCheckBox1.SetFocus;
    SendMessage(DBCheckBox1.Handle, WM_Char, word(Key), 0);
  end;
end;

procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
  if DBCheckBox1.Checked then
     DBCheckBox1.Caption := DBCheckBox1.ValueChecked
  else
     DBCheckBox1.Caption := DBCheckBox1.ValueUnChecked;
end;

end.

Es handelt sich um eine dreifeldrige Datentabelle, in welcher das erste Feld (Feld, siehe Quelltext) aus true und false besteht.

Ziel ist es: für jeden Datensatz eine editierbare vorbelegte Checkbox in dieses 'Feld' zu zeichnen.
Die zu editierenden Datensätze sollen aus Abfragen der Datentabelle erzeugt werden und bei veränderung von true oder false über UPDATE zurückgeschrieben werden.

Die DBCheckbox ist grau, zeigt aber den Zustand jeder Datenzeile (true mit Haken, false ohne Haken) an.

Woran liegt es, daß keine Checkboxen in dem DBGrid gezeichnet werden?

Danke.

[himitsu]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1267332)

Woran liegt es, daß keine Checkboxen in dem DBGrid gezeichnet werden?

Wurde dem OnDrawColumnCell des DBGrid1 auch das DBGrid1DrawColumnCell event zugewiesen?
Oder anders gefragt: Wird deine DBGrid1DrawColumnCell-Methode eüberhaupt aufgerufen?

Ach ja, die DBCheckBox1 muß natürlich vor/über dem DB-Grid liegen (am Einfachsten danach erstellt, bzw. in die Form eingefügt), damit es sich nicht hinter dem Grid versteckt.


PS: Alles aus FormCreate kann auch direkt im OI zugewiesen werden, genauso wie das Meiste aus Button1Click. (abgesehn von dem

Delphi-Quellcode:

Query1.Active := True;

oder einem

Delphi-Quellcode:

Query1.Open;

)

[blutigerAnfänger]

Zitat:

Zitat von himitsu (Beitrag 1267337)

Wurde dem OnDrawColumnCell des DBGrid1 auch das DBGrid1DrawColumnCell event zugewiesen?
Oder anders gefragt: Wird deine DBGrid1DrawColumnCell-Methode eüberhaupt aufgerufen?

Ach ja, die DBCheckBox1 muß natürlich vor/über dem DB-Grid liegen (am Einfachsten danach erstellt, bzw. in die Form eingefügt), damit es sich nicht hinter dem Grid versteckt.


PS: Alles aus FormCreate kann auch direkt im OI zugewiesen werden, genauso wie das Meiste aus Button1Click. (abgesehn von dem

Delphi-Quellcode:

Query1.Active := True;

oder einem

Delphi-Quellcode:

Query1.Open;

)

Dbgriddrawcolumncell wurde selbstverständlich zgewiesen.

Die dbcheckbox liegt derzeit neben dem Grid. Werde ich gleich ändern.
Danke.

[blutigerAnfänger]

Die Checkbox liegt mittlerweile auf dem Dbgrid. Beim Click auf einen Datensatz wird die Checkbox, wie vorher, aktualisiert. Ansonsten keine Änderung.

[Perlsau]

Ich verwende für Datenbank-Anwendungen das TjvDBGrid aus den Jedi-Komponenten (Jvcl 3.48). Wenn dein zugrundeliegendes Dataset Boolean-Werte zuläßt, werden Boolean-Felder im TjvDBGrid stets wie gewünscht dargestellt: Als kleine Quadrate jeweils mit oder ohne Haken.

[blutigerAnfänger]

Zitat:

Zitat von Perlsau (Beitrag 1267364)

Ich verwende für Datenbank-Anwendungen das TjvDBGrid aus den Jedi-Komponenten (Jvcl 3.48). Wenn dein zugrundeliegendes Dataset Boolean-Werte zuläßt, werden Boolean-Felder im TjvDBGrid stets wie gewünscht dargestellt: Als kleine Quadrate jeweils mit oder ohne Haken.

Ich muß das Feld in den EditControls einbinden. Leider sind diese grau (inaktiv) obwohl die Option AlwaysShowEditor false ist.
Kannst du mir weiterhelfen?

[Perlsau]

Vermutlich wird der Boolean-Typ, den du (falls du einen) deklariert hast, nicht als solcher (an-)erkannt. Dazu müßte ich mehr über deine DB und dein Projekt wissen:

1. Mit welcher Delphi-IDE arbeitest du?
2. Was bedeutet "Zugriff über Interbase" auf eine Firebird-DB?
3. Welche DB-Komponenten setzt du ein?
4. Verschiedene DB-Komponenten erwarten verschiedene Typen bei der Deklaration eines Firebird-"Booleans", den Firebird ja von Haus aus nicht mitbringt. Bei FibPlus genügte ein SmallInt, IbDac von Devart erwartet einen Integer, in dessen Typenbezeichnung das Wort "Boolean" vorkommt.

[blutigerAnfänger]

boolean Typ? Gibt es da mehrere Typen? Das ist doch nur wahr und falsch, 1 und 0 also etwas völlig gegensätzliches.

zu 1. Delphi 6 pro
zu 2. Interbase Komponenten
zu 3. Interbase Komponenten
zu 4. varChar

[Perlsau]

Leider kann ich dir hier nicht weiterhelfen, da mir weder Delphi 6 pro noch die Interbase-Komponenten in der damaligen Ausführung geläufig sind. Um zu testen, ob deine Firebird-Boolean-Deklaration funktioniert, kannst du einfach folgendes probieren:

Delphi-Quellcode:

Function FirebirdBooleanTest(Const BooleanField : TField) : Boolean;
Begin
  Result := BooleanField.AsBoolean;
End;

Um in Zukunft zu vermeiden, daß dir Forenuser zu Hilfe eilen, die deine Delphi-Version nicht kennen, wäre es angebracht, in deinem Profil deine Delphi-Version einzutragen.

[Aviator]

Früher hatte ich ein DB-Grid von Scalabium benutzt. Das SmDbGrid. Super einfach aufgebaut, hat auch BooleanAsCheckBox Unterstützung und noch einige andere Dinge wie AutoColumnResize usw. Mittlerweile benutze ich das Ding allerdings fast gar nicht mehr sondern baue fast alles mit dem VirtualTreeView auf. Damit hast du fast nur Vorteile. Klar das Ding brauch einiges an Eingewöhnungszeit und es dauert etwas länger bis man so ein "Grid" aufgebaut hat, aber du kannst den kompletten TreeView nach deinen Wünschen gestalten. Und der Vorteil ist, es ruckelt nix, es wird alles perfekt neu gezeichnet usw. Probiers einfach mal aus.

[Dejan Vu]

Ich würde vorschlagen, den gewünschten Lösungsansatz zu verfolgen. Perlsau ist schon auf dem richtigen Weg, der vom TE gepostete Code funktioniert (bei einem TdxMemdata Dataset), ergo würde ich mal annehmen, es liegt an der Tatsache, dass das FB/Interbase kein Boolean kennt, und man sich irgendwie behelfen muss.

Ich kann ja mal später das Problem reproduzieren, indem ich in meinem memdata aus dem boolean ein varchar feld mache. Vermutlich steht in der tabelle 0/1, aber das DBCheckBox-Feld versteht nur Bahnhof, da es 'True'/'False' erwartet. Irgendwie so jedenfalls.

[mkinzler]

TDBCheckBox besitzt die Eigenschaften ValueChecked bzw. ValueUnchecked, in denen man die entsprechenden Werte in der Datenbanktabelle festrlegen kann.

[Dejan Vu]

Siehe Quellcode im Eingangspost. Alles da, nur muss er das noch richtig angeben.

[blutigerAnfänger]

Zitat:

Zitat von Dejan Vu (Beitrag 1267462)

Siehe Quellcode im Eingangspost. Alles da, nur muss er das noch richtig angeben.

Was muß ich noch richtig angeben??
Leider ist das Projekt auf einem anderen Rechner. Ich stelle es heite noch in den Thread.

[blutigerAnfänger]

Hier ist das komplette Projekt. Die Datenbank (dreifeld.fdb) muß nach c:\DB. Das große DBGrid ist Standard. Das kleine Grid ist Jedi.
Edit. Das Tabellenfeld 'Feld' ist mittlerweile smallint statt wie früher varchar. Sein Inhalt von true/false auf 0/1 umgestellt.

[Perlsau]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1267465)

Zitat:

Zitat von Dejan Vu (Beitrag 1267462)

Siehe Quellcode im Eingangspost. Alles da, nur muss er das noch richtig angeben.

Was muß ich noch richtig angeben??
Leider ist das Projekt auf einem anderen Rechner. Ich stelle es heite noch in den Thread.

Laß dir keinen Quatsch erzählen. Die DDL für einen Boolean in Firebird sieht z.B. so aus:

Code:

CREATE DOMAIN INTBOOLEAN AS
INTEGER
NOT NULL
CHECK (VALUE IN (0,1));
COMMENT ON DOMAIN INTBOOLEAN IS 
'Boolean False oder True';

Diesem Boolean-Typ liegt ein Integer zugrunde. Du stellst, wenn du bei der Tabellendefinition einen Boolean benötigst, den Typ auf Integer und wählst als Domäne deinen selbsterstellten Boolean aus. Manche (ältere) DB-Komponenten begnügen sich auch mit einem SmallInt, ich würde aber bei Integer bleiben. Natürlich könntest du als Values auch "Wahr" und "Falsch" bzw. "True" und "False" verwenden, wärst dann aber nicht mehr kompatibel zu deinen DB-Komponenten. Lies vor allem mal in der Doku zu deinen DB-Komponenten nach, was dort als Voraussetzung für die Verarbeitung von Boolean-Variablen geschrieben steht.

[Dejan Vu]

Zitat:

Zitat von Perlsau (Beitrag 1267467)

Laß dir keinen Quatsch erzählen. Die DDL für einen Boolean in Firebird sieht z.B. so aus:...

Dann muss er den Quelltext anpassen.

Delphi-Quellcode:

  // Vorher 'true' / 'false' 
  // DBCheckBox1.ValueChecked := 'true';
  // DBCheckBox1.ValueUnChecked := 'false';

// Jetzt 0/1
 DBCheckBox1.ValueChecked := 0; // oder mit Gänsefüßen, weiss ich jetzt nicht
 DBCheckBox1.ValueUnChecked := 1;

Oder ist das Quatsch? Denn ein 'richtiger' Boolean wird das doch auch nicht, sondern nur ein INTEGER-Feld mit CHECK-Constraint, oder?

[blutigerAnfänger]

@Perlsau

Die Domain habe ich mit IbExpert Personal erzeugt, aber keine Veränderung in der Anzeige.

[Dejan Vu]

Hast Du den Quelltext angepasst?

[Perlsau]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1267789)

Die Domain habe ich mit IbExpert Personal erzeugt, aber keine Veränderung in der Anzeige.

Gibt's in deiner Query- oder Dataset-Komponente irgend ein Property, das auf Boolean-Funktionalität hinweist? Bei einigen DB-Komponenten mußt du dieses Property (häufig in den Options zu finden) auf True stellen, damit Boolean-Felder vom jeweiligen Dataset als solche erkannt werden.

[blutigerAnfänger]

@Perlsau
Alles überprüft, keine Änderung.

[Dejan Vu]

Hast Du den Code angepasst?

[blutigerAnfänger]

Zitat:

Zitat von Dejan Vu (Beitrag 1268079)

Hast Du den Code angepasst?

Was meinst du damit? Der Code bleibt doch gleich. Er soll auf das Feld 'Feld' zugreifen und das macht er doch.
Er zeichnet nur keine checkboxen in die Spalte. Der Code von about.com funktioniert doch bei anderen, warum bei mir nicht?

[Dejan Vu]

Zitat:

Zitat von blutigerAnfänger (Beitrag 1268081)

Zitat:

Zitat von Dejan Vu (Beitrag 1268079)

Hast Du den Code angepasst?

Was meinst du damit? Der Code bleibt doch gleich. Er soll auf das Feld 'Feld' zugreifen und das macht er doch.
Er zeichnet nur keine checkboxen in die Spalte. Der Code von about.com funktioniert doch bei anderen, warum bei mir nicht?

Du sagst der TDBCheckBox, das die Wert für wahr 'True' und der Wert für falsch 'False' ist. Stimmt das denn? Was liefert denn deine Datenbank für einen Wert? Ich würde annehmen 0 und 1, oder nicht?

Woher soll denn die Checkbox wissen, das eine bei einer Eins das Häkchen gesetzt werden soll und bei einer Null nicht?

Um die Frage zu beantworten, warum das bei Dir nicht funktioniert: Ich habe das getestet, aber mit einem 'boolean' Feld, d.h. ich kann in meiner Datenbank ein Feld als 'Boolean' (bzw. 'Bit') deklarieren, das kommt dann als True/False im Programm auch an und die Checkbox versteht das.

Lies dir einfach auch den Teil durch, den die Perlsau als Quatsch abgetan hat. Vielleicht ist es ja keiner.

[blutigerAnfänger]

Zitat:

Zitat von Dejan Vu (Beitrag 1268084)

Du sagst der TDBCheckBox, das die Wert für wahr 'True' und der Wert für falsch 'False' ist. Stimmt das denn? Was liefert denn deine Datenbank für einen Wert? Ich würde annehmen 0 und 1, oder nicht?

Woher soll denn die Checkbox wissen, das eine bei einer Eins das Häkchen gesetzt werden soll und bei einer Null nicht?

statt true und false nehme ich 0 und 1. 0 und 1 läßt sich ja als Integer feld auffassen.

Bei der Veränderung des Datensatzes zeigt die Checkbox ja auch ein Häkchen bzw. kein Häkchen.

Das Problem ist nach wie vor : In der Spalte 'Feld' stehen Nullen und Einsen, nur KEINE Checkboxen (beachte Mehrzahl) mit oder ohne Häkchen.

[Dejan Vu]

Das hört sich nach 'kurz vor dem Ziel' an. Hast Du die entsprechenden Events zugewiesen?
Den Events OnDrawColumnCell, OnKeyPress, OnColExit des DBGrid müssen die Methoden
DBGrid1DrawColumnCell, DBGrid1KeyPress und DBGrid1ColExit zugewiesenw werden.

[blutigerAnfänger]

Zitat:

Zitat von Dejan Vu (Beitrag 1268088)

Das hört sich nach 'kurz vor dem Ziel' an. Hast Du die entsprechenden Events zugewiesen?
Den Events OnDrawColumnCell, OnKeyPress, OnColExit des DBGrid müssen die Methoden
DBGrid1DrawColumnCell, DBGrid1KeyPress und DBGrid1ColExit zugewiesenw werden.

Aber selbstverständlich, sonst hätte ich doch keine Reaktion (dbcheckbox mit bzw. ohne Haken)

[Dejan Vu]

Um die Checkbox der fokussierten Zeile anzuzeigen (und zu editieren),wird die TDBCheckBox einfach dorthin 'verpflanzt'. Wenn man dort nichts sieht (nur in der fokussierten Zeile), dann liegt die Checkbox 'hinter' der DBGrid.

Alle anderen Zeilen werden direkt auf den Canvas des TDBGrid gezeichnet.

Mach mal einen Screenshot deines Problems und pack den Code hier rein. Das muss gehen, ich habs neulich doch erst probiert.

[blutigerAnfänger]

Anbei der gewünschte (hoffentlich aussagekräftige) Screenshot.

[Dejan Vu]

Entweder:
Das OnDrawColumnCell-Event ist nicht gesetzt. Da wird nix gezeichnet.
Oder
Der Feldname der TDBCheckbox ist ungleich dem Feldnamen der 1.Spalte.

Wo bleibt der Quelltext? Am besten das Projekt als ZIP-Datei mit Dpr, pas und dfm einstellen.

[blutigerAnfänger]

Zitat:

Zitat von Dejan Vu (Beitrag 1268134)

Entweder:
Das OnDrawColumnCell-Event ist nicht gesetzt. Da wird nix gezeichnet.
Oder
Der Feldname der TDBCheckbox ist ungleich dem Feldnamen der 1.Spalte.

Wo bleibt der Quelltext? Am besten das Projekt als ZIP-Datei mit Dpr, pas und dfm einstellen.

siehe Beitrag #15.

[Dejan Vu]

Preisfrage: Woher soll das Grid wissen, welches Feld durch eine Checkbox dargestellt werden soll? ;-)

[blutigerAnfänger]

Na im DrawColumnCell!!

Ich steh auf dem Schlauch?!

[chess]

Wie geil ist das denn, da schreibt hier jemand... mit einem 'SMDB-Grid' wird alles schön, und Du packst das einfach in die Uses?

Außerdem, wenn man testen soll, wäre es gut, wenn man testen könnte.
Ich kann das nicht.

[chess]

versteh das ganze im moment nicht so... Du packst da auf die Grids im 'normalen' Grid eine DBCheckbox und aufs Jedi Grid eine JvDBCheckBox.. diese versuchst du zusätzlich zum Grid mit Daten zu füllen, aller

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 DBCheckBox1.DataSource := DataSource1;
 DBCheckBox1.DataField  := 'Feld';
// DBCheckBox1.Visible    := False;
 DBCheckBox1.Color      := DBGrid1.Color;
 DBCheckBox1.Caption    := '';
                          
 //explained later in the article
 DBCheckBox1.ValueChecked := '1';
 DBCheckBox1.ValueUnChecked := '0';
end;

Schön finde ich auch das Array of Boolean Gedöns.

Warum bindest Du nicht einfach das Grid an Deine ver*****ene Firebird Tabelle.
Verstehe hier nur noch Bahnhof.
Gruß
A.C.

[blutigerAnfänger]

Zitat:

Zitat von chess (Beitrag 1268144)

Wie geil ist das denn, da schreibt hier jemand... mit einem 'SMDB-Grid' wird alles schön, und Du packst das einfach in die Uses?

Das SMDB grid in der uses Klausel stammt noch von einem untauglichen Versuch. Es vergrößert ja nur die exe Datei, ohne Einfluß auf die eigentliche Problematik zu haben.

Zitat:

Zitat von chess (Beitrag 1268144)

Außerdem, wenn man testen soll, wäre es gut, wenn man testen könnte.
Ich kann das nicht.

Warum nicht?

Zitat:

Zitat von chess (Beitrag 1268147)

versteh das ganze im moment nicht so... Du packst da auf die Grids im 'normalen' Grid eine DBCheckbox und aufs Jedi Grid eine JvDBCheckBox..

Jedi ist auch nur ein Versuch.
Und was du mit

Zitat:

Zitat von chess (Beitrag 1268147)

Warum bindest Du nicht einfach das Grid an Deine ver*****ene Firebird Tabelle.
Verstehe hier nur noch Bahnhof.
Gruß
A.C.

meinst, ist mir völlig unverständlich.

[chess]

Mit dem Testen meine ich folgendes:
Weder die von Dir kompilierte Exe noch mit dem Quelltext oder mit IBExpert komme ich auf die Datenbank:

[blutigerAnfänger]

Na Firebird mußt du schon installiert haben.
Die Kennwörter sysdba und masterkey werden dir wohl auch bekannt sein.

[chess]

Ich habe Firebird am Laufen. Und bei mir werden Booleans auch als solche angezeigt, wenn ich möchte.
Mal nur so als Unterschied!

Ich habe aber kein WIN1254 hier am laufen, auch die ganzen CASTS in Deiner DDL nerven mich.

Aus meiner Sicht haste den Komponenten für Firebird halt nicht 'gescheit gesagt', was ein Boolean ist. Die kennen das schon, wenn man mit den vernünftig umgeht.

Ich habe hier mal im Anhang zusätzlich zu Deinen Gedöns, was hier gar nicht lief, mal mit IBDAC und Co. (Jedi Ultimate Grid und DevX Grid), halt was ich so habe, das versucht nachzustellen.
Bei allen TOTAL richtigen Einstellung bekomme ich trotzdem nur 0/1 angezeigt!.

Aber, ich bin da raus... so einen komischen Kram (wie in der DDL) mach ich nicht mit.

[chess]

Sorry, Bild vergessen....