Crear Varios usuarios a partir de mi codigo

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