Gestion De Usuarios

Boy01kiss10
13 de Abril del 2004
Hola a todos, soy nuevo por aca y me preguntaba si alguien de ustedes me podria ayudar con mi programa en VFP, chekense esto es lo que llevo:

CLEAR
SET COLOR TO g+/n
@ 1,1 to 25,80
@ 2,2 to 6,79
@ 3,5 say "Gestion de Usuarios"

@ 4,35 say "Menú Principal"
x=0
new_name=space(20)
new_last_mat=space(15)
new_last_pat=space(15)
new_user_number=0


@ 10,6 prompt "1.- Ingresar Nuevos Usuarios" message "Da de alta nuevos usuarios en la base de datos"
@ 11,6 prompt "2.- Borrar Usuarios" message "Elimina a usuarios de esta base de datos"
@ 12,6 prompt "3.- Actualizar Datos del Usuario" message "Corrige o aumenta datos del usuario"
@ 13,6 prompt "4.- Consultar Usuarios" message "Solamente consulta datos de los usuarios"
@ 14,6 prompt "5.- SALIR" message "Sal de la Base de Datos"

menu to x

if lastkey()==27
exit
endif

do case
case x==1
clear
SET COLOR TO g+/n
@ 1,1 to 25,80
@ 2,2 to 6,79
@ 3,5 say "Gestion de Usuarios"
@ 4,30 say "Ingresa Nuevos Usuarios"

use to C:Archivos de programaMicrosoft Visual StudioVfp98usuarios.dbf

SET COLOR TO g+/n
@ 10,15 say "Dame el nombre(s):"
@ 11,15 say "Dame el apellido paterno:"
@ 12,15 say "Dame el apellido materno:"
@ 13,15 say "Dame el número de usuario:"

@ 10,35 get new_name picture "@1"
@ 11,41 get new_last_pat picture "@1"
@ 12,41 get new_last_mat picture "@1"
@ 13,43 get new_user_number picture "9999"
endcase


READ


hasta ahi llevo pero lo que necesito es como guardar esos datos que ingreso para que un nuevo usuario aparezca en la tabla que uso arriba.

Estoy medio confundido, les agradezco de antemano su ayuda, mcuhas gracias a quien responda.


Boy01kiss10
13 de Abril del 2004
Miren ya avancçe mas en el codigo pero me sigue saliendo error. No se que pase, please necesito la ayuda de un experto.

CLEAR
SET COLOR TO g+/n
@ 1,1 to 25,80
@ 2,2 to 6,79
@ 3,5 say "Gestion de Usuarios"

@ 4,35 say "Menú Principal"
x=0
new_name=space(20)
new_last_mat=space(15)
new_last_pat=space(15)
new_user_number=0


@ 10,6 prompt "1.- Ingresar Nuevos Usuarios" message "Da de alta nuevos usuarios en la base de datos"
@ 11,6 prompt "2.- Borrar Usuarios" message "Elimina a usuarios de esta base de datos"
@ 12,6 prompt "3.- Actualizar Datos del Usuario" message "Corrige o aumenta datos del usuario"
@ 13,6 prompt "4.- Consultar Usuarios" message "Solamente consulta datos de los usuarios"
@ 14,6 prompt "5.- SALIR" message "Sal de la Base de Datos"

SET COLOR TO g+
@ 22,5 say "Alumno:"
SET COLOR TO g*
@ 22,14 say "Padilla Rendón Alejandro Aaron."
SET COLOR TO g+
@ 23,5 say "Grupo:"
SET COLOR TO g*
@ 23,14 say "4ºB"
SET COLOR TO GR*
@ 22,55 say "BASE DE DATOS"
@ 23,63 SAY "II"

menu to x

if lastkey()==27
exit
endif

do case
case x==1
clear
SET COLOR TO g+/n
@ 1,1 to 25,80
@ 2,2 to 6,79
@ 3,5 say "Gestion de Usuarios"
@ 4,30 say "Ingresa Nuevos Usuarios"

use "C:Archivos de programaMicrosoft Visual StudioVfp98usuarios.dbf"
locate for Nombre = new_name
if found ()

SET COLOR TO g+
@ 22,5 say "Alumno:"
SET COLOR TO g*
@ 22,14 say "Padilla Rendón Alejandro Aaron."
SET COLOR TO g+
@ 23,5 say "Grupo:"
SET COLOR TO g*
@ 23,14 say "4ºB"
SET COLOR TO GR*
@ 22,55 say "BASE DE DATOS"
@ 23,63 SAY "II"

SET COLOR TO g+/n
@ 10,15 say "Dame el nombre(s):"
@ 11,15 say "Dame el apellido paterno:"
@ 12,15 say "Dame el apellido materno:"
@ 13,15 say "Dame el número de usuario:"

@ 10,35 get new_name picture "@1"
@ 11,41 get new_last_pat picture "@1"
@ 12,41 get new_last_mat picture "@1"
@ 13,43 get new_user_number picture "9999"

READ
@ 15,15 say "¿Los Datos Introducidos son correctos? (S/N)"
get r pict "@!"
valid r $ "SN"
Read
if r == 'S' then
apped blank

replace Nombre with new_name
replace Apellido_pat with new_last_pat
replace Apellido_mat with new_last_mat
replace numero with new_user_number
endif
else
@ 18,15 say "Este codigo ya existe"
@ 19,15 say "Asigna otro codigo"
endif
resp=space(1)

@ 20,15 say "Deseas introducir un nuevo usuario (S/N)"
get resp pict "@!" valid resp $ "SN"
read
enddo



Juan Ruben Ca? Alvarez
13 de Abril del 2004
Hola Colega, por lo que veo aun no te desprendes de tu pensamiento para DOS, recuerda que en la programacion Visual existen los objetos, que hemos creado para ahorrar tiempo a los programadores, por ejemplo en lugar de GET utiliza los textbox, para ello crea un formulario, veras que sencillo es. Si lo deseas te puedo enviar un form de ejemplo con una tabla que te permitira hacer todo lo que quieres y veras que "no existe" codigo. Pero si te digo que debes desprenderte de ese pensamiento para DOS.


Un saludo y un abrazo desde Cuba.

Boy01kiss10
13 de Abril del 2004
Gracias por responder, lo que pasa es que es un trabajo de la escuela y la profesora quiere el codigo asi esta un poco atrasada en cuanto a sus ideas (mi maestra).

De todos modos gracias por contestar mi post.