Cómo escribir información de inicio de sesión en un lenguaje sencillo

Te damos un ejemplo de inicio de sesión sencillo. ¿Qué se necesita? Biblioteca de soporte de operación de base de datos. Por supuesto, también puedes cambiarlo para leer un archivo de texto, por lo que no se necesita conexión de datos.

.¿Montaje? ¿Iniciar montaje de ventana

? __Ventana de inicio_Creada

¿Ruta de la base de datos? = ?¿Obtener el directorio de ejecución?()? ?"\date.mdb"

Conexión de la base de datos 1. ¿Conectarse a Access? (¿Ruta de la base de datos? " ")

Recordset1.Set Connection?(conexión de base de datos 1)

Recordset1.Open?("select?*?from?Users",?1)

Recordset1.read text?("UserName",?UserName)

Recordset1.ReadText?("Contraseña",?Pass)

Recordset1.("Name",?Name)

UserName.Content?=?UserName

Inicia sesión. GetFocus?()

.¿Subrutina? _Iniciar sesión_Clic

. ¿Variables locales? Conjunto de bytes, tipo de texto

. If (UserName.content≠?"")

Recordset1.Open?("select?UserName?from?Users?where?UserName? =?'"?? ?UserName.content? ?"'" ,?1)

.If (Recordset1.Número de registros ≠0)

.If (Pwd.content? ≠? "")

Recordset1. Abrir ?("select?Contraseña?de?Usuarios?donde?Nombre de usuario? =?'")

Recordset1.Open??Nombre de usuario.content?'",?1)

Recordset1.Leer texto? ("Contraseña",?Pass)

ByteSet? = ?(contenido)

.If (Pass="888")

Recordset1.Close?()

Conexión de base de datos 1.close?()

Ejecutar ? (4, ? "c:\a.exe", ? , ?,?)

. De lo contrario

se mostrará el cuadro de mensaje?("¡La contraseña es incorrecta! Vuelva a ingresarla.",?0,?)

Pwd.content = ?""

Pwd.Get Focus?()

.Si final

De lo contrario

¿Infobox? ("¡La contraseña no puede estar vacía!" ,?0,?)

Pwd.GetFocus?()

.if end

.

De lo contrario

Infobox? ("El sistema no tiene este usuario, ¡verifíquelo!",?0,?)

Nombre de usuario.Obtener foco?()

.If end

.De lo contrario

Infobox? ("¡El nombre de usuario no puede ser nulo!",?0,?)

Nombre de usuario.GetFocus?()

.Si finaliza

. Subroutine_Cancel_being_clicked

Recordset1.Close?()

Conexión de base de datos 1.close?()

Cerrar?()