Yo hice algo parecido a lo que tu quieres. Lo que valide es que si la clave(ya sea empleado o curso) se repetia entonces que me mandara un mensaje de que ya existe esa clave, a mi parecer, es mejor que le crees una clave a tu empleado y a tus cursos, puesto que los nombre de empleados se repetiran y tambien de los cursos pero los que los diferenciara sera tu clave.Espero y me haya explicado.El codigo que le introduci fue el siguiente
Código:
procedure TForm3.Button1Click(Sender: TObject);
begin
if curso.Locate('Folio',edit1.Text,[]) then
begin
Edit1.Clear;
mensaje:=Application.MessageBox('El numero de folio ya existe','Error de entrada')
end
else
begin
curso.Insert;
curso.FieldValues['Nombre_curso']:=Edit1.Text;
curso.FieldValues['Clave_CT']:=ComboBox1.Text;
curso.FieldValues['Capacidad']:=ComboBox19.Text;
curso.FieldValues['Tipo_curso']:=ComboBox2.Text;
curso.FieldValues['Especialidad']:=Edit3.Text;
curso.FieldValues['Tipo_proveedor']:=ComboBox3.Text;
curso.FieldValues['Nivel_capacitacion']:=ComboBox4.Text;
curso.FieldValues['Subprograma']:=ComboBox5.Text;
curso.FieldValues['Proceso']:=ComboBox6.Text;
curso.FieldValues['Subproceso']:=ComboBox7.Text;
curso.FieldValues['Area_formacion']:=ComboBox8.Text;
curso.FieldValues['Tipo_informacion']:=ComboBox9.Text;
curso.FieldValues['Grupo_eventos']:=ComboBox10.Text;
curso.FieldValues['Fecha_inicio']:=DateTimePicker1.Time;
curso.FieldValues['Lugar_imparticion']:=ComboBox11.Text;
curso.FieldValues['Duracion_dias']:=Edit4.Text;
curso.FieldValues['Duracion_horas']:=Edit5.Text;
curso.FieldValues['Frecuencia']:=ComboBox12.Text;
curso.FieldValues['Horario']:=ComboBox13.Text;
curso.FieldValues['Costo']:=Edit6.Text;
curso.FieldValues['Renglon_gasto']:=ComboBox14.Text;
curso.FieldValues['Concepto']:=ComboBox16.Text;
curso.FieldValues['Instructor_I']:=ComboBox15.Text;
curso.FieldValues['Instructor_E']:=ComboBox17.Text;
curso.FieldValues['Folio']:=Edit7.Text;
curso.Post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
ComboBox1.Clear;
ComboBox2.Clear;
ComboBox3.Clear;
ComboBox4.Clear;
ComboBox5.Clear;
ComboBox6.Clear;
ComboBox7.Clear;
ComboBox8.Clear;
ComboBox9.Clear;
ComboBox10.Clear;
ComboBox11.Clear;
ComboBox12.Clear;
ComboBox13.Clear;
ComboBox14.Clear;
ComboBox15.Clear;
ComboBox16.Clear;
ComboBox17.Clear;
mensaje:=Application.MessageBox('Los datos se guardaron con éxito!','Mensaje de Confirmación');
end;
end;