Pascal/Turbo Pascal - AYUDA CON CONSULTA!!!

   
Vista:

AYUDA CON CONSULTA!!!

Publicado por JOSUE (2 intervenciones) el 11/07/2010 06:24:09
SALUDOS AGRADEZCO DE ANTE MANO SUS AYUDAS O COMENTARIOS, MI PROBLEMA ES EL SIGUIENTE; TENGO UN PROGRAMA EN PASCAL QUE TIENE DOS ARCHIVO DE REGISTROS UNO DE ESTUDIANTES Y OTRO DE LIBROS. QUIERO UN SENTENCIA QUE ME PERMITA CONSULTAR EL NUMERO DE IDENTIFICACIÓN DE UN ESTUDIANTE DE LA TABLA ESTUDIANTES, EN CASO QUE EL REGISTRO EXISTA, PERMITA CONSULTA EL CÓDIGO DEL LIBRO DE LA TABLA LIBROS, CASO CONTRARIO, TERMINA EL PROGRAMA.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA CON CONSULTA!!!

Publicado por epayan (6 intervenciones) el 12/07/2010 07:04:48
pues para todo eso necesitas muchas cosascomo:
1.- definir el registro de los estudiantes y de los libros
2.-crear las altas de los estudiantes , y para crear las altas de los estudiantes , nececitas:
2.1.- hacer un procedimiento para la apertura del archivo
2.2 un procedimiento o funcion para la busqueda
2.3 un procedimiento para la alta

lo mismo tambien para el archivo de libros
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA CON CONSULTA!!!

Publicado por JOSUE BOLIVAR (2 intervenciones) el 13/07/2010 15:23:26
exacto, yo tengo las tablas de los registro y todo, lo que necesito es el codigo para hacer dos consultas en un solo procedimiento,(consultar si el usuario esta registrado y si debe algun libro),
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA CON CONSULTA!!!

Publicado por epayan (6 intervenciones) el 13/07/2010 18:56:37
he aqui una funcion para buscar
espero te sirva, la misma te puede servir para los libros , solo cambiale el tipo de archivo y el tipo de registro...

function BuscaRegistroUsuario(Var AArchivo:TArchivoUsuario ;var TIRegistro:RegistroUsuario ;IDBuscar:Integer):longint;
Var
Encontrado:longint;
Begin
textattr:=14+4*16;
gotoxy(4,25);write('Buscando Registro..');

Encontrado :=-1; {inicializamos Encontrado a -1, valor inexistente}
Seek(AArchivo,0); {Posicionamos al inicio el puntero del archivo}
While not EOF(AArchivo) do {iniciamos ciclode recorrido del archivo}
Begin
Read(AArchivo,TIRegistro); {Leemos el Registro segun posicion del puntero}
IF TIRegistro.Numero = IDBuscar then {Comparamos el n£mero de registo con el numero solicitado}
Begin {si es igual el registro encontrado}
Encontrado:=FilePos(AArchivo)-1; {se envia la posicion del registro hallado}
Seek(AARchivo,FileSize(AArchivo)); {se envia el puntero al final del archivo para terminar ciclo}
End;
End;
IF Encontrado <> -1 then {si Encontrado no es igual a -1 , mandamos el valor de la funcion}
Begin
BuscaRegistroUsuario:=Encontrado;
End
Else {si no fue encontrado regresamos -1 a la busqueda}
Begin
BuscaRegistroUsuario:=-1;
End;
textattr:=0+2*16;
gotoxy(4,25);write(' ');
End;

(*--------------------------------------------------------------------------*)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar