Announcement

Collapse
No announcement yet.

Password Function

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Password Function

    How to check if text in a Input is equal to text in a TXT File? I need help guys, please!

  • #2
    It can be found in the product documentation...
    https://www.indigorose.com/webhelp/a...protection.htm

    Ulrich

    Comment


    • #3
      --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

      Working...
      X