Diseñar la función de consulta de información de los estudiantes y el programa de estadísticas de desempeño de los estudiantes.
Borrar
Establecer apagado seguro
Usar txl
Texto
※※※※※※※ ※ ※※※※※※※※※※※※※※※※※※※※※※※※
※ 1. Ingrese 2. Modificación 3. Insertar 4. borrar.
※ 5. Muestra 6 en orden ascendente por nombre. Se muestra en orden ascendente por código postal.
※ 7. Buscar por nombre8. abandonar.
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
Fin del texto
Fin del texto
p>Por favor presione las teclas numéricas para seleccionar "a aa".
Crear un caso
Caso aa=1
Ir al final
Aceptar "Por favor ingrese su nombre:" a xm< /p >
Acepte "Ingrese el género:" en xb.
Por favor, introduzca su número de teléfono "a dhhm"
Por favor, introduzca la dirección de su casa: "A jtzz"
Acepte "Por favor, introduzca su lugar de trabajo:" a gzdw .
Acepta "Por favor introduce el código postal:" a yzbm.
Repl usa xm para nombre, xb para género, dhhm para número de teléfono, jtzz para dirección particular, gzdw para unidad de trabajo y yzbm para código postal.
Caso aa=2
Ingrese "Por favor ingrese el número del registro que desea modificar:" a c.
Ir a c
"Por favor modifique" str(c, 1) "¡Datos personales!"
Asignación
Aceptar "Por favor Ingresa tu nombre:" a xm
Aceptar "Por favor ingresa tu género:" a xb.
Por favor, introduzca su número de teléfono "a dhhm"
Por favor, introduzca la dirección de su casa: "A jtzz"
Acepte "Por favor, introduzca su lugar de trabajo:" a gzdw .
Acepte "Ingrese el código postal:" para yzbm.
Repl use xm para nombre, xb para género, dhhm para número de teléfono, jtzz para dirección particular, gzdw para unidad de trabajo y yzbm para código postal.
Caso aa=3
Agregar espacios en blanco
Aceptar "Ingrese su nombre:" a xm
Aceptar "Ingrese el género: " a xb.
Por favor, introduzca su número de teléfono "a dhhm"
Por favor, introduzca la dirección de su casa: "A jtzz"
Acepte "Por favor, introduzca su lugar de trabajo:" a gzdw .
Acepte "Por favor, introduzca el código postal:" para yzbm.
Repl use xm para nombre, xb para género, dhhm para número de teléfono, jtzz para dirección particular, gzdw para unidad de trabajo y yzbm para código postal.
Caso aa=4
Ingrese "Por favor, ingrese el número de registro" en d "que desea eliminar.
Ir a d
Eliminar
Aceptar "Presione la letra Y minúscula para confirmar la eliminación o cancelar la eliminación)" para e.
Si e="y "
Embalaje
Otro
Retirada del mercado
endif
Caso aa=5
Índice de nombres a xm
Directorio
Caso aa=6
Índice de código postal de yzbm p>
Tabla de contenidos
Caso aa=7
Por favor ingrese el nombre que desea consultar "a f"
Lista de nombres= f
Caso aa=8
Esperando el tiempo de espera 3 de la ventana "El sistema está a punto de cerrarse"
Salir
Otro
Messagebox("Por favor, vuelva a seleccionar", 0 64, "Error")
endc
Abrir caja fuerte
*Este programa hace el trabajo, pero la interfaz no es buena. Se puede modificar de la siguiente manera:
* Cree un nuevo formulario (formulario principal, formulario 1), agregue 8 botones, el nombre y título de cada botón son los mismos que el menú en el programa agregar anterior; otro título como botón "Salir" y guarde el formulario 1.
* Cree un nuevo formulario de procesamiento de datos (Formulario 2), agregue una etiqueta al formulario con el título "nombre" y agregue un texto de control text1 para procesar los datos del "nombre" y continúe agregando etiquetas; al formulario con el título "Género" y agregue un control de texto text2 para manejar los datos de "Género" ............. Agregue una etiqueta al formulario titulado "Código postal" y agregue un control de texto; text6 para manejar los datos de "Código postal". Organice las etiquetas y los controles de texto correctamente. Agregue un botón titulado "Guardar" y otro botón titulado "Salir".
Haga doble clic en un espacio en blanco del formulario y aparecerá el evento de carga. Introduzca
este formulario.text1.value=xm
este formulario.text2.value=xb
este formulario.text3.value=dhhm
thisform.text4.value=jtzz
thisform.text5.value=gzdw
thisform.text6.value=yzbm
Después de la entrada, cierre el evento de carga. El evento asigna valores iniciales a varios controles en el Formulario 2.
Haz doble clic en el botón "Salir" y entra.
Este formulario.Liberar
Para cerrar la actividad, haz doble clic en el botón Guardar y entra.
Copia el nombre con thisform.text1.value.
Sexo y thisform.text2.value,;
Número de teléfono con thisform.text2.value;
Dirección particular que contiene thisform.text2.value;
Unidad de trabajo con thisform.text2.value;
Código postal de thisform.text2.value
Guardar formulario 2.
Abra el Formulario 1, haga doble clic en el espacio en blanco del formulario y aparecerá el evento de carga. Ingrese:
Establecer apagado seguro
Usar txl
Público xm, xb, dhhm, jtzz, gzdw, yzbm
Doble clic Botón "Entrar" y entrar.
Ir al final
*Los valores iniciales para el Formulario 2 se dan a continuación.
Xm=Nombre
Xb=Género
Dhhm=Número de teléfono
Jtzz=Dirección particular
Gzdw =Unidad de trabajo
Yzdm=Código postal
Por favor complete el formulario 2
Haga doble clic en el botón modificar e ingrese
Ingrese " Por favor ingresa lo que quieras El número del registro modificado: "a c."
Ir a c
*Los valores iniciales para el Formulario 2 se proporcionan a continuación.
Xm=Nombre
Xb=Género
Dhhm=Número de teléfono
Jtzz=Dirección de casa
Gzdw =Unidad de trabajo
Yzdm=Código postal
Por favor, complete el formulario 2
Haga doble clic en el botón Insertar e ingrese.
appeblank
*Los valores iniciales para el Formulario 2 se dan a continuación.
Xm=Nombre
Xb=Género
Dhhm=Número de teléfono
Jtzz=Dirección de casa
Gzdw =Unidad de trabajo
Yzdm=Código postal
Por favor, complete el formulario 2
Haga doble clic en el botón Eliminar e ingrese
Ingrese " Ingrese el número de registro "Ir a d "Que desea eliminar
Ir a d
Eliminar
Aceptar "Presione Y minúscula para confirmar la eliminación. o cancelar la eliminación)" a e.
Si e="y "
Embalaje
Otro
Retirada
endif
Haga doble clic en el botón "Mostrar por nombre en orden ascendente" e ingrese
Índice de nombres a xm
Expresión
Haga doble clic en el botón "Mostrar por código postal en orden ascendente" e ingrese
índice de código postal de yzbm
Expresión
Haga doble clic en "Buscar". por nombre" e ingrese
Ingrese el nombre que desea consultar "Para f"
Buscar nombre=f
Haga doble clic en "Salir" e ingresa
Cerrar datos
Abrir caja fuerte
p>Este formulario
.