si comento todo el evento no se pruduce el error,
esta es la consulta para guardar
Código Delphi
[-]procedure TMantenimiento_Docente.ToolButton2Click(Sender: TObject);
begin
inherited;
if (LabeledEdit2.text='') or (LabeledEdit3.text='') or (LabeledEdit4.text='') or (LabeledEdit5.text='') or (LabeledEdit6.text='') or (LabeledEdit7.text='') or (LabeledEdit8.text='')or (LabeledEdit9.text='')
then
begin
showmessage('le falta completar los campos');
exit;
end;
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add('select *');
ADOQuery1.SQL.Add('from Docente');
ADOQuery1.open;
ADOQuery1.Append;
ADOQuery1.FieldByName('Nombres').asString:= LabeledEdit2.text;
ADOQuery1.fieldbyname('ap').asString:= LabeledEdit3.text;
ADOQuery1.fieldbyname('am').asString:= LabeledEdit4.text;
ADOQuery1.fieldbyname('Dni').asstring:= LabeledEdit5.text;
ADOQuery1.fieldbyname('direccion').asString:= LabeledEdit6.text;
ADOQuery1.fieldbyname('telefono').asString:= LabeledEdit7.text;
ADOQuery1.fieldbyname('Especialidad').asString:= LabeledEdit8.text;
ADOQuery1.fieldbyname('Area').asString:= LabeledEdit9.text
ADOQuery1.post;
ADOQuery1.close;
LabeledEdit2.text:='';
LabeledEdit3.text:='';
LabeledEdit4.text:='';
LabeledEdit5.text:='';
LabeledEdit6.text:='';
LabeledEdit7.text:='';
LabeledEdit8.text:='';
LabeledEdit9.text:='';
showmessage('sea agregado un nuevo docente ');
end;
y esta es la consulta de creacion del form
Código Delphi
[-]procedure TMantenimiento_Docente.FormShow(Sender: TObject);
begin
inherited;
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('Select* from DOCENTE');
ADOQuery1.Open;
end;
procedure TMantenimiento_Docente.Formcreate(Sender: TObject);
begin
inherited;
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('Select* from DOCENTE');
ADOQuery1.Open;
end;
grasias por su tiempo