Crear Varios usuarios a partir de mi codigo

[feliz-58]

Empezado por nlsgarcia

feliz-58,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

   if (txtUsername.Text = 'usuario1') and (txtPassword.text = '1234') or
      (txtUsername.Text = 'usuario2') and (txtPassword.text = '5678') or
      (txtUsername.Text = 'usuario3') and (txtPassword.text = '9123') or
      (txtUsername.Text = 'usuario4') and (txtPassword.text = '4567')
   then
   begin
      // Tu Código a Procesar
   end
   else
      MessageDlg('Acceso Denegado: Username y/o Password Incorrectos', mtinformation, [mbok], 0);

end;

Nota: Lo ideal es que la información de seguridad este en una BD, para algo simple el código anterior es válido.

Espero sea útil

Nelson.

Muchas Gracias buscaba esta forma, trataba de inventarmela pero no llegue con ella jaja, diganme como es lo de la bas de datos