Checkbox en un DBGrid

[Angel.Matilla]

Buenas a todos. A ver si me podéis ayudar que no sé por dónde salir. La aplicaicón está hecah con Builder 6 y tengo este DBGrid cargado a partir de una tabla en FB, por lo tanto no tiene campos tipo BOOL y uso uno SMALLINT, en el que he conseguido meter un Checkbox cogiendo trozos de código.

Y tengo este código:

void __fastcall TfAboRec::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
     TCanvas *c = DBGrid1->Canvas;
     if (Column->FieldName == "SELECCION")
          DibujarCheckBox(c, Rect, Column->Field->AsInteger);
     else
          DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}
//---------------------------------------------------------------------------

void __fastcall TfAboRec::DibujarCheckBox(TCanvas *c, const TRect &Rect, int Valor)
{
     TRect r = Rect;
     UINT Checked = (!Valor ? DFCS_BUTTONCHECK : DFCS_BUTTONCHECK | DFCS_CHECKED);
     c->FillRect(Rect);
     r.Top += 2;
     r.Bottom -= 1;
     r.Left += 1;
     r.Right -= 1;
     DrawFrameControl(c->Handle, (RECT*)&r, DFC_BUTTON, DFCS_BUTTONCHECK | Checked);
}
//---------------------------------------------------------------------------

void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;

          fPersona->tTemp->Edit();
          fPersona->tTemp->FieldValues[Column->FieldName] = !nValor;
          fPersona->tTemp->Post();
     }
}
//---------------------------------------------------------------------------

Se compila y ejecuta sin ningún problema y el checkbox se marca y desmarca bien, pero a la hora de actualizar el valor de la tabla en función de si está o no marcado el Checkbox no me modificac nada y no sé como arreglarlo.

[Angel.Matilla]

Por cierto, que se me olvidó: La tabla que alimenta al DBGrid está definida así:

Código SQL [-]
CREATE TABLE Tabla (Identidad VARCHAR(60), Referencia VARCHAR(13), Codigo INTEGER, 
Importe DECIMAL(9,2), Seleccion SMALLINT DEFAULT 0, PRIMARY KEY (Identidad, Referencia, Codigo))

[Casimiro Notevi]

Empezado por Angel.Matilla

... a la hora de actualizar el valor de la tabla en función de si está o no marcado el Checkbox no me modificac nada y no sé como arreglarlo.

¿Dónde está el update?

[ecfisa]

Hola.

De este modo tiene que funcionarte:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TDBCheckBox *CB = static_cast<TDBCheckBox*>(DBCheckBox1);
  CB->Caption    = "";
  CB->ValueChecked = 1;
  CB->ValueUnchecked = 0;
  CB->DataSource = DataSource1;
  CB->DataField  = "SELECCION";
  CB->Visible    = false;
}


void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
  const int IsChecked[2] = {DFCS_BUTTONCHECK, DFCS_BUTTONCHECK | DFCS_CHECKED};

  TDBGrid *GR = static_cast<TDBGrid*>(Sender);
  TDBCheckBox *CB = static_cast<TDBCheckBox*>(DBCheckBox1);
  TRect DrawRect;

  if (Column->Field->FieldName == CB->DataField) {
    if (State.Contains(gdFocused) ) {
      CB->Left    = GR->Left + Rect.left + 2;
      CB->Top     = GR->Top  + Rect.top + 2;
      CB->Width   = Rect.Right - Rect.Left;
      CB->Height  = Rect.Bottom - Rect.Top;
      CB->Visible = true;
    }  else {
      DrawRect = Rect;
      InflateRect(&DrawRect, -1, -1);
      GR->Canvas->FillRect(Rect);
      DrawFrameControl(GR->Canvas->Handle, &DrawRect, DFC_BUTTON,
        IsChecked[Column->Field->AsInteger]);
    }
  }
}

void __fastcall TForm1::DBGrid1ColExit(TObject *Sender)
{
  TDBGrid *GR = static_cast<TDBGrid*>(Sender);
  DBCheckBox1->Visible = GR->SelectedField->FieldName == DBCheckBox1->DataField;
} 


(fijate que usé un TDBCheckBox en lugar de un TCheckBox)

Y en la definición de la tabla agregaría:

Código SQL [-]
CREATE TABLE TABLA (
  ...,
  SELECCION   SMALLINT DEFAULT 0 CHECK(SELECCION IN (0,1)),
  ...
);

Y, como lógicamente te indica Casimiro, tu DataSet tiene que tener la capacidad de actualizar la tabla.

Saludos

[Angel.Matilla]

Empezado por Casimiro Notevi

¿Dónde está el update?

En el código, al final:

void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;

          fPersona->tTemp->Edit();
          fPersona->tTemp->FieldValues[Column->FieldName] = !nValor;
          fPersona->tTemp->Post();
     }
}
//---------------------------------------------------------------------------

Después de haber subido el mensaje hice otra prueba distinta con este otro código:

void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nCodigo, nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;
          nCodigo = DBGrid1->Columns->Items[4]->Field->Value;

          Query->Close();
          Query->SQL->Text = "UPDATE " + cTabTemp + " SET Seleccion = :Seleccion WHERE Codigo = :Codigo";
          Query->ParamByName("Seleccion")->AsInteger = nValor == 0 ? 1 : 0;
          Query->ParamByName("Codigo")->AsInteger    = nCodigo;
          try
          {
               Query->ExecSQL();
               Query->Transaction->Commit();
          }
          catch(...)
          {
          }
     }
}
//---------------------------------------------------------------------------

Y sí, así me actualizó la tabla... pero ¡me dejó vacío el DBGrid!

[Angel.Matilla]

Empezado por ecfisa

Hola.

De este modo tiene que funcionarte:

Pues no, tampoco actualiza la tabla. Al final encontré uan forma un pelín "pedestre", pero fumciona y hasta que encuentre una mejor me vale:

void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nCodigo, nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;
          nCodigo = DBGrid1->Columns->Items[4]->Field->Value;

          fPersona->tTemp->Close();     // Cierro al tabal ANTES de actualizar
          fPersona->Query->Close();
          fPersona->Query->SQL->Text = "UPDATE " + cTabTemp + " SET Seleccion = :Seleccion WHERE Codigo = :Codigo";
          fPersona->Query->ParamByName("Seleccion")->AsInteger = nValor == 0 ? 1 : 0;
          fPersona->Query->ParamByName("Codigo")->AsInteger    = nCodigo;
          try
          {
               fPersona->Query->ExecSQL();
               fPersona->Query->Transaction->Commit();
               fPersona->tTemp->Open();     // Vuelvo a abrir la tabla
          }
          catch(...)
          {
          }
     }
}

[ecfisa]

Hola Angel.Matilla.

Bueno, pero eso era debido al tipo de componente data aware que estabas usando o la forma en que lo usabas.

Varios juegos de componentes permiten asociarle a sus "queries" un componente updatesql que te evitaría escribir ese código, como por ejemplo la dupla TIBQuery/TIBUpdateSQL. Pero para ser mas específico habría que saber que componentes estas usando.

Saludos