Hola Delphineros, vengo con un problema, resulta que estoy desarrollando una alta de medicos en una tabla de MySQL vs DELPHI 7 y utilizó las librerias de ZEOS los Componentes TZTABLE, DATASETPROVIDER1, CLIENTDATASET1 Y DATASOURCE y estan enlazados de la siguiente manera:
TZTABLE : CONNECTION = CON MI DATAMODULE
DATASETPROVIDER1 : DATASET = TZTABLE
CLIENTDATASET1 : PROVIDERNME = DATASETPRIVDER1
DATASOURCE : DATASET = CLIENTDATASET1
Al darle un click e insertar un nuevo registro no lo realiza y mi codigo es este:
Código Delphi
[-]
procedure TFAna_Clinicos.FormCreate(Sender: TObject);
begin
ClientDataSet1.Open;
TAnaClinicos.Close;
end;
procedure TFAna_Clinicos.TBNewClick(Sender: TObject);
begin
If TNew then Begin
ClientDataSet1.Append;
DBEdit2.SetFocus;
TBNew.ImageIndex := 1;
TBNew.Caption := 'F4: Salvar';
TBNew.Hint := 'Grabar los cambios';
TNew := False;
End
Else
Begin
ClientDataSet1.ApplyUpdates(0);
Init_Field();
EdReg.Text := IntToStr(TAnaClinicos.RecordCount);
TBNew.ImageIndex := 0;
TBNew.Caption := 'F3: Nuevo';
TBNew.Hint := 'Nuevo registro';
TNew := True;
End;
end;
Ayudeme porque no se realiza la inserción, ademas de que en mi FORM no se queda en blanco como si omitiera la inserción