Ver Mensaje Individual
  #9  
Antiguo 08-10-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola aguml.

Usando Edits, básicamente las acciones son,
Código PHP:
// INSERTAR
void __fastcall TForm1::btnInsertClick(TObject *Sender)
{
  
DBGrid1->DataSource->DataSet->Insert();
}

// EDITAR
void __fastcall TForm1::btnEditClick(TObject *Sender)
{
  
DBGrid1->DataSource->DataSet->Edit();
}

// BORRAR
void __fastcall TForm1::btnDeleteClick(TObject *Sender)
{
  
DBGrid1->DataSource->DataSet->Delete();
}

// CANCELAR
void __fastcall TForm1::btnCancelClick(TObject *Sender)
{
  
DBGrid1->DataSource->DataSet->Cancel();
}

// GUARDAR
void __fastcall TForm1::btnPostClick(TObject *Sender)
{
  
TDataSetDS static_cast<TDataSet*>(DBGrid1->DataSource->DataSet);
  if (
DS->State == dsInsert || DS->State == dsEdit) {
    
DS->FieldByName("CAMPO1")->Value Edit1->Text;
    
DS->FieldByName("CAMPO2")->Value Edit2->Text;
    
DS->FieldByName("CAMPO3")->Value Edit3->Text;
    ...
    
DS->Post();
  }

pero te podes ahorrar todos esos botones usando el componente TDBNavigator.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita