SoloCodigo

si  entiendo gracias !!

hola gnt !! estoy leyendo sobre java web la part d srvlts y jsp, y m surge una duda com administrar prmisos de ususari o
yo tngo hecha una pagina hecha q muestra datos de un club y los modifica da d alta a nuevos socios y da bajas tmb  y qeriia poner
restricciones a los usuarios normales para q solo vean sus datos personales y no podr modificarlos y las modificaciones las hagan los administradores del club
pnc  en  darles contrasenia a los administradores para q se registren d esa manera para q en el posterior logueo un metodo consult en la base d datos en una tabla
d id d administradores para asignarle el permiso correspondiente mi duda es si hay alquien sab si hay una manera mas eficas y si estoy bien encaminado
dsd ya muchas gracias !!!

alguien sabe como mostrar en un jsp una lista de datos tomados de una base de datos y almacenados en un arraylist ????
la cosa seria guardar los datos de socios en un array list
 
        donde Membrecia es un objeto de tipo membrecia ,y actividaddes tambien el probloema se me presenta en sacar los datos d membrecia y actividades q estan dntro d socio

este es el jsp
graciaas d antemano !!!!!!!

cual es el problema ?? y xq no lo acs con netbeans ??

ni idea jaja parece q no ai posibilidad d retractarse jaja

una pavada error claasico t falta una llave suert !!

hola yo soy medio novato noc si t servira mi respuesta.....pero estuv probando y estoy
usando ArrayList para guardar en un archivo (q es parecido a un vector) asi q  proba d usar la serializacion q t dja guardar objetos en un archivo
suerte!!

bueno gracias querido por la ayuda!!...igualmente por lo poco q se y lei mas de una clase no puede ser public,ademas static debe ser el metodo q posea algo dentro d si,ojo! esto es lo q me arrojo el compilador (los errores),lo q si es cierto un constructor no devuelve valor alguno entonces a ver si me ayudas con esta duda como hago para comunicarme entre clases de manera statica ???..muchas gracioas amigo!!

gente necesito ayuda con este programa de pascal...se trata de una aplicacion para solicitudes de autos este es el enunciado estoy practicando para mi final de programacion 1 si alguien me pued ayudar muchas gracias de antemano.....hice casi todo el programa pero no logro q ejecute despues de los ingresos de los datos y ya noc q mas hacer
.- Desarrollar un algoritmo que permita la actualización de un archivo de solicitudes de planes de ahorro para compra de automóviles.

Se cuenta con un archivo secuencial ordenado en forma ascendente por el campo NRO-SOLICITUD donde están registradas todas las solicitudes vigentes. Los registros de este archivo tienen la siguiente estructura:

           REGISTRO-SOLICITUD
NRO-SOLICITUD       entero
TITULAR                     cadena de 40 caracteres
MARCA                       entero (1 a 4)
MODELO                     entero (1 a 3)
COLOR              entero (1 a 8)

 
Y un archivo también secuencial que informa las altas a procesar. Este archivo tiene la misma estructura de registros que el archivo de solicitudes  y también está ordenado en forma ascendente por el campo NRO-SOLICITUD

Se quiere generar un nuevo archivo de solicitudes resultado de efectuar las altas correspondientes. (Este archivo tendrá la misma estructura que el archivo de solicitudes.)
Se podrán rechazar altas  por nro. de solicitud ya existente o por valor inválido en marca, modelo o color. Se listará cada alta rechazada indicando la razón del rechazo.

Al final del proceso se emitirá un informe indicando para cada marca, la cantidad de solicitudes existentes por modelo y color.
También al final del proceso se indicará la cantidad de registros leídos en cada uno de los archivos de entrada, la cantidad de registros grabados en el archivo actualizado, la cantidad de altas  rechazadas.

mmmmmmm gracias por tu ayuda pero por alguna razon yo lo habia probado asi pero se pierde el registro del medio.....igualmente lo pude resolver creando un procedimiento
q asigne a una variable el fin de archivo es algo asi


PD:igual MUCHAS GRACIAS !!!!!saludos !!

hola gente del foro necesito ayuda con este programa  se trata de actuakizar un archivo de socios de un club con sus respectivos pagos,esta hecho el programa
el unico problema es en el procedure actualizar actualiza bien pero se come el ultimo registro si alguien sabe y m pued ayudar muchas gracias !!!!!

AQUI EL CODIGO

program ing_archivo;
uses crt;

type
     tmes=1..12;
     tdeuda=array[tmes]of real;
     reg1=record
                cod:integer;
                nomape:string;
                dir:string;
                deuda:tdeuda
           end;
      reg2=record
                 cod:integer;
                 mes:tmes;
                 monto:real
           end;


      tsocio=file of reg1;
      tpago=file of reg2;


var

    socio:tsocio;rsoc:reg1;
    pago:tpago;rpago:reg2;
    socion:tsocio;tecla:string;

procedure ingrsoc(var socio:tsocio;var rsoc:reg1);
var
   tecla:char;
   i:tmes;


   begin
      assign(socio,'c:userstomassocio.dat');
      rewrite(socio);
      writeln('ingresa datos al archivo socios(s/n)' );
      readln(tecla);
      while(tecla='s')do
        begin
             writeln('ingrese cod soc');readln(rsoc.cod);
             writeln('ingrese nom apell');readln(rsoc.nomape);
             writeln('ingrese dir');readln(rsoc.dir);
             for i :=1 to 12do
               begin
                   writeln('ingrese deuda mes',i);
                   readln(rsoc.deuda)
               end;
             write(socio,rsoc);
             writeln('ingresa mas datos  (s/n)' );
             readln(tecla)
        end;
       close(socio)
end;

procedure ingpago(var pago:tpago;var rpago:reg2);

var
    tecla:char;
begin
     assign(pago,'c:userstomaspago.dat');
     rewrite(pago);
     writeln('ingresa datos al archivo pagos(s/n)');
     readln(tecla);
     while(tecla='s')do
       begin
            writeln('ingrese cod soc');readln(rpago.cod);
            writeln('ingrese mes abonado');readln(rpago.mes);
            writeln('ingrese monto');readln(rpago.monto);
            write(pago,rpago);
            writeln('ingresa mas datos (s/n)');readln(tecla)
       end;
      close(pago)
end;

procedure actualizar(var socio:tsocio;var pago:tpago;var socion:tsocio);
var
    rsoc,rnew:reg1;
    rpago:reg2;cuenta:word;
begin
     clrscr;cuenta:=0;
     assign(socio,'c:userstomassocio.dat');assign(pago,'c:userstomaspago.dat');assign(socion,'c:userstomassocion.dat');
     reset(socio);reset(pago);rewrite(socion);
      read(socio,rsoc);read(pago,rpago);
     while(not(eof(socio)))and(not(eof(pago)))do
        begin

             if rsoc.cod=rpago.cod then
                begin
                     rnew:=rsoc;
                     rnew.deuda[rpago.mes]:=0;
                     write(socion,rnew);inc(cuenta);
                     read(socio,rsoc);
                     read(pago,rpago)
                end

      end;
      writeln('se ingresaron',cuenta,'registros');
      close(socio);
      close(pago);
      close(socion)

end;
function suma(vector:tdeuda):real;
var
   i:tmes;
   aux:real;
begin
     aux:=0;
     for i:=1to 12do
       aux:=aux+vector;
     suma:=aux
end;
procedure leer_socion(var socion:tsocio);

var
   rsoc:reg1;i:tmes;cuenta:word;
begin
      cuenta:=0;
      writeln('codigo socio':10,'   nombre apellido,':10,'direccion':10);
      assign(socion,'c:userstomassocion.dat');  reset(socion);

      while(not eof(socion))do
        begin
             read(socion,rsoc);
             writeln(  rsoc.cod:10,'    ',rsoc.nomape:10,'    ',rsoc.dir:10);
             writeln('deuda');
             for i:=1 to 12do
                writeln('mes  ',i,rsoc.deuda:10:2);
             inc(cuenta)
        end;
      close(socion);write('leeyeron',cuenta);
      writeln()
end;
procedure mostrar_deuda(var socion:tsocio);

var
   rsoc:reg1;i:tmes;cuenta:word;
begin
      writeln('socios que poseem deuda:');
      assign(socion,'c:userstomassocion.dat');  reset(socion);
      cuenta:=0;
      while(not eof(socion))do
        begin
            read(socion,rsoc);
            if suma(rsoc.deuda)<>0 then
               writeln(rsoc.cod:10,rsoc.nomape:10,suma(rsoc.deuda):10:2);
            inc(cuenta)
        end;
      close(socion);writeln('se leyeron',cuenta,'registros');
      writeln()
end;
procedure opcion(var tecla:string);

begin
     writeln('desea ingresar actualizar o leer');
     writeln('si quiere ingresar presione ing,si quiere actualizar act o si quiere leer presione leer');
     read(tecla);
     if tecla='ing'then
       begin
            ingrsoc(socio,rsoc);
            ingpago(pago,rpago)
       end
     else
         if tecla='act'then
            actualizar(socio,pago,socion)
         else
             if tecla='leer'then
               begin
                   leer_socion(socion) ;
                   mostrar_deuda(socion)
               end

end;

begin
     clrscr;
     opcion(tecla);
     readkey
end.

HOLA GENTE DEL FORO ESTOY PRACTICANDO EJERCICIOS CON ARCHIVOS Y SOY NUEVO EN ESTO PERO DENTRO DE TODO VOY BIEN HASTA AHORA NECESITO SI ME PUEDEN AYUDAR
EL PROBLEMA ES UN CLUB POSEE DOS ARCHIVOS SECUENCIALES SOCIOS.DAT Y OTRO PAGOS .DAT HAY Q ACTUALIZAR EL DE SOCIOS.DAT CON LOS DATOS DE PAGOS.DAT
HICE EL PROGRAMA PERO TNGO UN PROBLEMA POR LO Q VI EN EL     PROCEDURE ACT() ES HAY Q AL EJECUTARLO QEDA TILDADO EL PROGRAMA
BUSQE D MIL MANERAS PERO NO LOGRO VER EL PROBLEMA SI ME AYUDAN LO AGRADECERE MUCHO!!!!



AQUI EL CODIGO


program archivos;

uses crt;


     
type
     tmes=1..12;
     tdeuda=array[tmes]of real;
     reg1=record
                cod:integer;
                nomape:string;
                dir:string;
                deuda:tdeuda
           end;
      reg2=record
                 cod:integer;
                 mes:tmes;
                 monto:real
           end;
      reg3=record
                 cod:integer;
                 nomape:string;
                 totdeuda:real
           end;
      tsocio=file of reg1;
      tpago=file of reg2;
      tmoroso=file of reg3;

var

    socio:tsocio;rsoc:reg1;
    pago:tpago;rpago:reg2;
    moroso:tmoroso;rmoroso:reg3;
    socion:tsocio;

procedure ingrsoc(var socio:tsocio;var rsoc:reg1);
var
   tecla:char;
   i:tmes;

begin
      assign(socio,'c:archivospascalsocio.dat');
      rewrite(socio);
      writeln('ingresa datos al archivo socios(s/n)' );
      readln(tecla);
      while(tecla='s')do
        begin
             writeln('ingrese cod soc');readln(rsoc.cod);
             writeln('ingrese nom apell');readln(rsoc.nomape);
             writeln('ingrese dir');readln(rsoc.dir);
             for i :=1 to 12do
               begin
                   writeln('ingrese deuda mes',i);
                   readln(rsoc.deuda)
               end;
             write(socio,rsoc);
             writeln('ingresa mas datos  (s/n)' );
             readln(tecla)
        end;
       close(socio)
end;

procedure ingpago(var pago:tpago;var rpago:reg2);

var
    tecla:char;
begin
     assign(pago,'c:archivospascalpago.dat');
     rewrite(pago);
     writeln('ingresa datos al archivo pagos(s/n)');
     readln(tecla);
     while(tecla='s')do
       begin
            writeln('ingrese cod soc');readln(rpago.cod);
            writeln('ingrese mes abonado');readln(rpago.mes);
            writeln('ingrese monto');readln(rpago.monto);
            write(pago,rpago);
            writeln('ingresa mas datos (s/n)');readln(tecla)
       end;
      close(pago)
end;

procedure act(var socio:tsocio;var pago:tpago;var socion:tsocio);

var
   rsoc:reg1;
   rpago:reg2;

begin
     assign(socio,'c:archivospascalsocio.dat');
     assign(pago,'c:archivospascalpago.dat');
     assign(socion,'c:archivospascalsocion.dat');
     reset(socio);
     reset(pago);
     rewrite(socion);
     read(socio,rsoc);
     read(pago,rpago);
     while(not eof(socio))or(not eof(pago))do

          begin

                if rsoc.cod=rpago.cod then
                   begin
                        rsoc.deuda[rpago.mes]:=0;
                        write(socion,rsoc);
                        read(socio,rsoc);
                        read(pago,rpago)
                    end
                 else

                     if rsoc.cod<rpago.cod then
                        read(socio,rsoc)

                      else
                           read(pago,rpago)



          end;

      close(socio);
      close(pago);
      close(socion)


end;
function suma(vector:tdeuda):real;

var
   i:tmes;
   aux:real;

begin
     suma:=0;
     for i :=1 to 12 do
        aux:=vector+aux;

     suma:=aux

end;

procedure  morosos(var socion:tsocio;var moroso:tmoroso);

var
    rsoc:reg1;
    rmoroso:reg3;



begin
       assign(socion,'c:archivospascalsocion.dat');
       assign(moroso,'c:archivospascalmoroso.dat');
       reset(socion);
       rewrite(moroso);
       read(socion,rsoc);
       while(rsoc.cod<=clave_max)do

            begin
                 rmoroso.cod:=rsoc.cod;
                 rmoroso.nomape:=rsoc.nomape;
                 rmoroso.totdeuda:=suma(rsoc.deuda);
                 write(moroso,rmoroso);
                 read(socion,rsoc)

             end;

        close(socion);
        close(moroso)

end;
procedure mostrar_moroso(var moroso:tmoroso);

var
    rmorso:reg3;
begin
     assign(moroso,'c:archivospascalmoroso.dat');
     reset(moroso);
     read(moroso,rmoroso);
     while(not(eof(moroso)))do
        begin
             if rmoroso.totdeuda<>0 then
               writeln(rmoroso.cod:5,rmoroso.nomape:5,rmoroso.totdeuda:10:2);
             read(moroso,rmoroso)
        end;
     close(moroso)
end;

begin//bloqe ppal.//
     clrscr;
     ingrsoc( socio, rsoc);
     ingpago(pago,rpago);
     act(socio,pago,socion);
     morosos(socion,moroso);
     mostrar_moroso(moroso);
     readkey
end.