[[Caral]]

Hola
Pues no se si ayudara, pero por lo menos lo afino un poco.

Código Delphi [-]
 
procedure TfrmAlumnos.IngresaAlumno();
var Sex: string;
begin
 
 if (cbxSexo.Text = '') then
 Showmessage('Que¡¡¡, No tiene sexo?')
 else
 if (cbxSexo.Text = 'HOMBRE') then
 Sex:= 'M'
 else
 Sex:= 'F';

with AcademicData.ZQuery1 do
begin
sql.Text := 'INSERT INTO estudiantes'+
'(nombres,apellidos,ci,sexo,fecha_nacimiento,lugar_nacimiento,telefono,direccion,padre,madre,ocupaci  o  n_padre,ocupacion_madre,estado,cod_colegio)'+
' VALUES (:nombres,:apellidos,:ci,:sexo,:fecha_nacimiento,:lugar_nacimiento,:telefono,:direccion,adre,:madr  e,cupacion_padre,cupacion_madre,:estado,:cod_colegio)';

ParamByName('nombres').AsString:= txtNombre.Text;
ParamByName('apellidos').AsString:= txtApellido.Text;
ParamByName('ci').AsString:= txtNombre.Text;
ParamByName('sexo').AsString:= Sex;
ParamByName('fecha_nacimiento').AsDate:= dateFechaNac.Date;
ParamByName('lugar_nacimiento').AsString:= txtLugarNac.Text;
ParamByName('telefono').AsString:= txtTelefono.Text;
ParamByName('direccion').AsString:= txtDireccion.Text;
ParamByName('padre').AsString:= txtPadre.Text;
ParamByName('madre').AsString:= txtMadre.Text;
ParamByName('ocupacion_padre').AsString:= txtOcupPadre.Text;
ParamByName('ocupacion_madre').AsString:= txtOcupMadre.Text;
ParamByName('estado').AsString:= 'ACTIVO';
ParamByName('cod_colegio').AsInteger:= 1;
ExecSQL;
Close;
end;
end ;

Saludos