procedure TfrmAlumnos.IngresaAlumno();
var sql:string;
begin
sql := 'INSERT INTO estudiantes'+
' (nombres,apellidos,ci,sexo,fecha_nacimiento,lugar_nacimiento,telefono,direccion,padre,madre,ocupacio 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)';
with AcademicData.ZQuery1 do
begin
SQL.Add('sql');
ParamByName('nombres').AsString:= txtNombre.Text;
ParamByName('apellidos').AsString:= txtApellido.Text;
ParamByName('ci').AsString:= txtNombre.Text;
if(cbxSexo.Text = 'HOMBRE')then
ParamByName('sexo').AsString:= 'H'
else ParamByName('sexo').AsString:= 'F';
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;
First;
SQL.Clear;
Close;
end;
end ;