Database Username and Password in Delphi?

Question

I would like to create a type of login window in Delphi. Unfortunately I can't get it to match the username and password.

I have a basic .mdb database, with an Users table. In this table, there is a Username and Password. I want Delphi to check the username and password in the database and if it matches those in the edit boxes, it goes to the next form or shows a message, otherwise it does nothing. When I enter the database's first row, username and password values, I get success, but with the second, nothing. I feel like I need a way to get it to move on to the second rows values and check those and so on. There is also currently no relationships in the database.

This is my layout of Data Access: ADOConnection -> ADOTable -> DataSource

Thanks in advance!

Can you include the structure of your table and the code which you are using to validate the user and password? — RRUZ
– RRUZ, Commented Jul 13, 2012 at 23:46
you should better never store a plain password in the db, but use a hash with some salt (e.g. the user name)... — Arnaud Bouchez
– Arnaud Bouchez, Commented Jul 14, 2012 at 7:54
I get the idea that the OP might think that your Hash with Some Salt was actually some breakfast food, involving potatoes. — Warren P
– Warren P, Commented Jul 16, 2012 at 20:57
Yes, using a hash function with salt is the way to go. You can use md5 or sha-1 function. It is great for password and credit card number, for example. — Hendra
– Hendra, Commented Jul 17, 2012 at 4:04

Sertac Akyuz · Accepted Answer · 2012-07-13 23:47:28Z

2

As per your guess, one solution can be to move record by record to check each one. Example:

function MatchPass(Table: TADOTable; const Name, Pass: string): Boolean;
begin
  Result := False;
  Table.First;
  while not Table.Eof do begin
    if Table.FieldByName('Username').AsString = Name then begin
      Result := Table.FieldByName('Password').AsString = Pass;
      Exit;
    end;
    Table.Next;
  end;
end;

Can be called like:

  if MatchPass(ADOTable1, Edit1.Text, Edit2.Text) then
    ..

Another solution can be to let the ADOTable search for a corresponding record:

function MatchPass(Table: TADOTable; const Name, Pass: string): Boolean;
begin
  Result := Table.Locate('Username;Password', VarArrayOf([Name, Pass]), []);
end;

answered Jul 13, 2012 at 23:47

Sertac Akyuz

55k4 gold badges109 silver badges176 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

RRUZ Over a year ago

Is not better just use a sql sentence?

Sertac Akyuz Over a year ago

@RRUZ - I'm not sure one or the other would have a significant advantage. But we already have a ADOTable as given in the question.

coder123 Over a year ago

Thanks Sertac! There is no reason why I should use ADOTable, instead of ADOQuery. So out of curiosity, what would the SQL statement look like?

Sertac Akyuz Over a year ago

@coder - Probably something like "select password from passwords where user = :Username", then supply a value for username parameter and read the password field..

Collectives™ on Stack Overflow

Database Username and Password in Delphi?

1 Answer 1

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related