procedure TForm1.BitBtnAPGuardarClick(Sender: TObject);
begin
query2.SQL.Text := 'select * from tevaluacion where eval_descripcion= :Nom';
query2.ParamByName('Nom').AsString:= ednombre.text;
query2.Open;
If query2.Fields[0].AsString = ednombre.text then
begin
MessageDlg('El nombre de la evaluacion ya existe','Error de entrada',mtError,[mbOK],0);
ednombre.SetFocus;
query2.Close;
end
else
begin
query2.sql.clear;
query2.sql.add('insert into det_evaluacion(det_eval,det_version,det_clave,det_pregunta,det_tipo,det_valor)');
query2.sql.add('values(:det_eval,:det_version,:det_clave,:det_pregunta,:det_tipo,:det_valor)');
query2.ParamByName('det_eval').AsString:=evalua;
query2.ParamByName('det_version').AsString:=edversion.text;
query2.ParamByName('det_clave').AsString:=edclave.text;
query2.ParamByName('det_pregunta').AsString:=edpregunta.text;
query2.ParamByName('det_tipo').AsString:=edtipo.text;
query2.ParamByName('det_valor').AsString:=edvalor.text;
query2.execsql
edversion.Clear;
edclave.Clear;
edpregunta.Clear;
edtipo.Clear;
edvalor.clear;
application.messagebox('Los datos se guardaron correctamente','Mensaje de confirmación',mb_OK+mb_IconInformation);
LlenarGridPreguntas(sender);
end;
end;