Crear Varios usuarios a partir de mi codigo

[feliz-58]

Este es mi codigo:

Código Delphi [-]
procedure Tiniciarsesion.BitBtn1Click(Sender: TObject);

begin

if
edit1.Text<>'usuario1'

then
showmessage('Acceso Denegado, Su Nombre de Usuario es Incorrecto');

if
edit1.Text='usuario1'

then

begin

if
edit2.Text<>'1234'

then
showmessage('Acceso Denegado, Su Contraseña es Incorrecta') ;

if
edit2.Text='1234' 

then
principal.Show;
edit2.Clear;

end;
end;

Pero es de un solo usuario, como le agrego dos mas?

Gracias de antemano...

[ecfisa]

Hola feliz-58.

No sé donde tenes guardado los datos de los usuarios, generalmente se hace en la bd o en en un archivo. Pero sólo a fin del ejemplo voy a situar nombres de usuario y contraseñas como elementos de dos arrays of const.

Código Delphi [-]
...
implementation

const
  MAXUSR = 3;
  UserNames     : array[1..MAXUSR] of string=('user1','user2','user3');
  UserPasswords : array[1..MAXUSR] of string=('1234','2345','3456');


function TieneAcceso(const Name: string; const Pwd: string): boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 1 to MAXUSR do
    if (Name = UserNames[i])and(Pwd = UserPasswords[i]) then
      Result:= True;
end;

// Llamada ejemplo
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if not TieneAcceso(Edit1.Text, Edit2.Text) then
    raise Exception.Create('No tiene Acceso');
  ShowMessage('Todo Ok, puede continuar...');
end;

Saludos.

[[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.

[feliz-58]

Como es la otra forma que dices, de guardar los datos en una base de datos? como lo hago?

Me gustaria aprender las dos formas... Si no son muchas molestias, Solo quiero aprender

Muchas Gracias...

[ecfisa]

Empezado por feliz-58

Como es la otra forma que dices, de guardar los datos en una base de datos? como lo hago?

Me gustaria aprender las dos formas... Si no son muchas molestias, Solo quiero aprender

Muchas Gracias...

Hola.

No es ninguna molestia, sólo indicanos con que DBMS deseas trabajar y con que componentes conectarte y vemos la forma de hacerlo.

Saludos.

[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

[Casimiro Notevi]

Empezado por feliz-58

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

Te acaban de contestar, justo el mensaje de arriba.

[feliz-58]

Empezado por ecfisa

Hola.

No es ninguna molestia, sólo indicanos con que DBMS deseas trabajar y con que componentes conectarte y vemos la forma de hacerlo.

Saludos.

La base de datos es Access y usare un combobox para el usuario, un edit para la contraseña y dos botones.

Gracias

[ecfisa]

Empezado por feliz-58

La base de datos es Access y usare un combobox para el usuario, un edit para la contraseña y dos botones.

Gracias

Hola.

Un ejemplo sencillo:

Código Delphi [-]
...
function TForm1.UsuarioValido(const aName, aPassword: string): Boolean;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT USR_NAME, USR_PWD FROM USUARIOS');
    SQL.Add('WHERE USR_NAME =:PUSRNAME AND USR_PWD =:PUSERPWD');
    Parameters.ParamByName('PUSRNAME').Value := aName;
    Parameters.ParamByName('PUSERPWD').Value := aPassword;
    Open;
    Result:= not IsEmpty;
    Close;
  end;
end;
...

// Llamada:
procedure TForm1.btnIngresarClick(Sender: TObject);
begin
  if not UsuarioValido(ComboBox1.Text,Edit2.Text) then
  begin
     MessageBox(Handle, 'Los datos ingresados son incorrectos',
       'ERROR', MB_ICONERROR + MB_OK);
     Close
  end;
end;

Saludos.

[ecfisa]

Hola.

Para no dejarte el ejemplo a medias, la carga del combo al inicio del form:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Text:= '';
  with ADOQuery1 do
  begin
    Open;
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('USR_NAME').Value);
      Next
    end;
    Close
  end
end;

Saludos.

[feliz-58]

Cuales campos deben ir en la base de datos? como se llamaran?

Gracias.

//Saludos

[ecfisa]

Hola.

Empezado por feliz-58

Cuales campos deben ir en la base de datos?

Minimamente deberán ser dos campos: El nombre del usuario y la contraseña. Ambos con la capacidad de almacenar cadenas de caracteres.

Empezado por feliz-58

como se llamaran?

Con los nombres que desees ponerle.

Saludos.