¿Cómo utilizar Yi Language para crear un sistema de inicio de sesión y registro? La interfaz es como se muestra a continuación.

¡Sin dinero!

Servidor

Versión 2

.Biblioteca de soporte mysql

Ensamblaje de ventana 1

.Subroutine_Server1_Data. Llegada

.Cliente de variable local, tipo de texto

.Datos de variable local, conjunto de bytes

.Datos de variable local A texto, tipo de texto

Segmentación de datos de variable local, tipo de texto, "0"

Conjunto de registros temporales de variable local, tipo entero

Contraseña de variable local, tipo de texto

Datos = Servidor 1. Recuperar datos ()

Datos a texto = a texto(datos)

División de datos = dividir texto (datos a texto, "|", )

. Comienza el juicio (división de datos [1] = "iniciar sesión")

Ejecutar instrucción SQL (mysql , "SELECT * FROM `account_tbl` donde cuenta='" + división de datos[2] + "';")

Conjunto de registros temporales = obtener conjunto de registros (mysql)

Leer valor del campo (conjunto de registros temporales, "contraseña", contraseña)

Inicio del juicio (si el campo está vacío (conjunto de registros temporales, "cuenta") = falso)

Servidor 1 Enviar datos (cliente, "Error de cuenta", )

Sentencia (contraseña ≠ división de datos [3])

Servidor 1. Enviar datos(Cliente, "Contraseña incorrecta", . )

.Predeterminado

Servidor 1. Enviar datos(Cliente, "Inicio de sesión exitoso", )

.Juicio finalizado

.Juicio (división de datos[1] = "registro")

Ejecutar instrucción SQL (mysql, "SELECT * FROM `account_tbl` donde cuenta='" + división de datos[2] + "';")

Conjunto de registros temporales = Obtener el conjunto de registros (mysql)

Inicio del juicio (si el campo está vacío (conjunto de registros temporales, "cuenta") = Falso)

Ejecutar instrucción SQL (mysql, “insertar en `account_tbl` VALUES ('" + división de datos [2] + "','" + división de datos [3] + "');")

Servidor 1. Enviar datos (cliente, "Registro exitoso", )

Predeterminado

Servidor 1. Enviar datos (cliente, "La cuenta ya existe", )

.Fin del juicio

.Default

.Fin del juicio

.Subrutina __Ventana de inicio_creada

mysql = Connect MySql (“127.0 .0.1”, “test”, “test”, “account”, 3306)

Cliente

.Versión 2

.Ventana de ensamblaje Ensamblaje 1

.Subroutine_Button 1_Clicked

.Si es verdadero(editar cuadro 2.content="" o editar Cuadro 1. Contenido = "")

Cuadro de información (" Por favor complete toda la información", 0, )

Regresar ()

. Si es verdadero, finalice

Cliente 1. Enviar datos ("Iniciar sesión" + " |" + Cuadro de edición 1. Contenido + "|" + Cuadro de edición 2. Contenido)

. La subrutina __ inicia Window_Created

.Servidor de variables locales, tipo de texto

.Puerto de variable local, tipo entero

Servidor="127.0.0.1"

Puerto = 5678

Si es verdadero (cliente 1).

.Connection(servidor, puerto) = false)

MessageBox("Lo siento, no se pudo conectar al servidor", 0, )

End()

.if verdadero Fin

.Subroutine_Customer1_Data Llegada

.Datos de variables locales, conjunto de bytes

.Datos de variables locales a texto, tipo de texto

p>

Datos = Cliente 1. Recuperar datos ()

Datos a texto = A texto (datos)

Se inicia el juicio (datos a texto = "Inicio de sesión exitoso" )

Cuadro de información (datos a texto, 0, )

Sentencia (datos a texto = "Registro exitoso")

Cuadro de información (datos a texto). , 0, )

.Predeterminado

Cuadro de información (datos a texto, 0, )

.Fin del juicio

.Subrutina Se hizo clic en _Registro_

Cargando (ventana 1, , verdadero)

¡Más puntos!