Tweet
How to check if text in a Input is equal to text in a TXT File? I need help guys, please!
-
-
It can be found in the product documentation...
Ulrich -
--Usa base de datos
--audio al dar clikc
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\Notificacion.ogg", true, false);
sUsuario = ComboBox.GetText("CbnNombre111");
sContrasena = Input.GetText("InpClave");
if sUsuario ~= "" and sContrasena ~= "" then
tblRS = SQLite.QueryToTable(db, "Select * from Usuarios where (Usuario LIKE '%".. ComboBox.GetText("CbnNombre111").."%') and (Contrasena LIKE '%"..Input.GetText("InpClave").."%')")
nLastError = Application.GetLastError();
if nLastError ~= SQLite.OK then
Dialog.Message("Error", SQLite.GetLastErrorString());
end
if nLastError == SQLite.OK then
for nRow = 1,tblRS.Rows do
sTitle = tblRS.Data[nRow]["Usuario"];
ssTitle = tblRS.Data[nRow]["Contrasena"];
if tblRS.Data[nRow]["Usuario"] == sUsuario and tblRS.Data[nRow]["Contrasena"] == sContrasena then
Dialog.TimedMessage("MDEA-Bienvenido", "Bienvenido Estimado(a) "..sUsuario.." al Sistema de Recaudación Mdea 1.0", 1500, MB_ICONEXCLAMATION)
StatusDlg.Hide();
Page.ClickObject("btnLong");
sDia= System.GetDate(DATE_FMT_EUROPE);
sHora = String.Replace(System.GetTime(TIME_FMT_MIL), ":", "-");
SQLite.Query(db, "INSERT IGNORE INTO Registro VALUES ('"..sUsuario.."' , '"..sDia.."' , '"..sHora.."')");
if Application.GetLastError() ~= SQLite.OK then --Filtro de error
Dialog.Message("Error", SQLite.GetLastErrorString());
end
Page.Jump("Menu");
--Dialog.TimedMessage("Identificacin", "Bienvenido al sistema "..sUsuario, 3000, MB_ICONEXCLAMATION)
else
--Dialog.TimedMessage("Error", "El Usuario o la Contrasea Son Incorrectas Intente de Nuevo", 3000, MB_ICONEXCLAMATION)
StatusDlg.Hide();
end
end
else
end
end
---pantalla de resultados de bsqueda total de registros
--Total = ListBoxEx.GetCount("nombre_List");
--Input.SetText("Total input", Total);
---Limpiar Input buscar
--sUsuario = ComboBox.ResetContent("CbnNombre111");
sContrasena = Input.SetText("InpClave", "Tu Clave...");
Page.Jump("Ingresar")Comment
Comment