este es el error que me muestra:
Código:
un mensaje de error que esta en ingles y lo que me dice es que el campo 'Field 'DNI_ALUMNO' must be have a value' o sea que el campo debe tener un valor
`pero ese valor se lo estoy dando por medio del query y su parametro ... checalo.. este es el codigo del boton "guardar de mi formulario"
Código:
procedure TIngresar_alum.BitBtn3Click(Sender: TObject);
var dni_a:string;
apellidopa:string;
apellidoma:string;
nombre:string;
sex:string;
dir:string;
local:string;
ciud:string;
tele:string;
fecha_ing:TDateTime;
statu:string;
imagen:string;
edoc:string;
carrera:string;
sem:integer;
cert:integer;
fot:integer;
act:integer;
cur:integer;
begin
//Se almacena los datos de las cajas de texto en las variables
//para evitar perdidas de informacion
dni_a:=matricula.Text;
apellidopa:=apaterno.Text;
apellidoma:=amaterno.Text;
nombre:=nombres.Text;
sex:=sexo.Text;
dir:=direccion.Text;
local:=localidad.Text;
ciud:=municipio.Text;
tele:=telefono.Text;
edoc:=edocivil.Text;
carrera:=DBLcarrera.KeyValue;
fecha_ing:=strtodate(fecha.Text);
statu:=status.Text;
imagen:=DLgpicture.FileName;
sem:=strtoint(semestre.Text);
cert:=strtoint(certificado.ValueChecked);
act:=strtoint(acta.ValueChecked);
fot:=strtoint(fotos.ValueChecked);
cur:=strtoint(curp.ValueChecked);
//Se insertan los valores en las tablas
ModuloSID.IBQuery1.Params[0].AsString:=dni_a;
ModuloSID.IBQuery1.Params[1].AsString:=apellidopa;
ModuloSID.IBQuery1.Params[2].AsString:=apellidoma;
ModuloSID.IBQuery1.Params[3].AsString:=Nombre;
ModuloSID.IBQuery1.Params[4].AsString:=Sex;
ModuloSID.IBQuery1.Params[5].AsString:=Dir;
ModuloSID.IBQuery1.Params[6].AsString:=Local;
ModuloSID.IBQuery1.Params[7].AsString:=ciud;
ModuloSID.IBQuery1.Params[8].AsString:=Tele;
ModuloSID.IBQuery1.Params[9].AsDate:=fecha_ing;
ModuloSID.IBQuery1.Params[10].AsString:=statu;
MOduloSID.IBQuery1.Params[11].AsString:=edoc;
ModuloSID.IBQuery1.Params[12].AsBlob:=imagen;
//Se ejecuta el Query 1 para almacenar datos
ModuloSID.IBQuery1.ExecSQL;
ModuloSID.IBQuery2.Params[0].AsString:=dni_a;
ModuloSID.IBQuery2.Params[1].AsString:=carrera;
//Se ejecuta el Query 2 para almacenar datos
ModuloSID.IBQuery2.ExecSQL;
ModuloSID.IBQuery3.Params[0].AsString:=dni_a;
ModuloSID.IBQuery3.Params[1].AsInteger:=sem;
//SE ejecuta el Query 3 para almacenar los datos
ModuloSID.IBQuery3.ExecSQL;
ModuloSID.IBQuery4.Params[0].AsString:=dni_a;
ModuloSID.IBQuery4.Params[1].AsInteger:=cert;
ModuloSID.IBQuery4.Params[2].AsInteger:=act;
ModuloSID.IBQuery4.Params[3].AsInteger:=fot;
ModuloSID.IBQuery4.Params[4].AsInteger:=cur;
//Se ejecuta el Query 4 para almacenar datos
ModuloSid.IBQuery4.ExecSQL;
//Se abren y cierran las tablas para actualizar sus valores
ModuloSID.IBTalumnos.Close;
ModuloSID.IBTalumnos.Open;
ModuloSID.IBTsemestre.Close;
ModuloSID.IBTsemestre.Open;
MOduloSID.IBTalum_doc.Close;
ModuloSID.IBTalum_doc.Open;
ModuloSID.IBTalumno_carrera.Open;
ModuloSID.IBTalumno_carrera.Close;
end;
Podrias decirme que esta malllll........... y me fastidie yyno consigo buscar el error... no se a que se debe ... ya llevo dias encontrando y cambiando de componentes pero nada....