Пароль на приложение используя DB

[adminsamara]

Есть готовое приложение работающее с DB Oracle, но еще хочу добавить форму с вводом имени пользователя и пароля перед запуском приложения (создал таблицу USERS (u_id, u_user, u_password, u_atribut)),если имя пользователя и пароль есть то входит в приложение, если нет то пишет что пароль введен не правильно... подскажите как это сделать или прочитать?! Подключаюсь через ADOconnect
Google не помог.... поиском пользовался...
Заранее благодарен

[Stilet]

А в самом Оракле Юзеров и их ролей настроить не хочешь? Обязательно отдельную таблицу создавать?

[adminsamara]

Сообщение от Stilet

А в самом Оракле Юзеров и их ролей настроить не хочешь? Обязательно отдельную таблицу создавать?

Нет столько пользователей я создавать не буду. именно из таблицы нужно...

Парни, нет мыслей?

[Stilet]

Дак какие мысли? Ты форму в Делфи создать можешь? Накидать на нее компонеты можешь? Таблицу в Оракле создать и наполнить данными можешь?

[MixanMM]

Я вот так сделал:

procedure Tsecond.Button1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT Pass FROM Users WHERE User='+#39+ComboBox1.Text+#39);
  ADOQuery1.Open;
      if ADOQuery1.FieldByName('Pass').Value <> Edit1.Text
        then
          begin
          ShowMessage('Введен не верный пароль!')
          end
        else
        begin
          op:=ComboBox1.Text;
          Form1.Show;
          second.Hide;
          ShowMessage('Вы вошли как '+op);
          Form1.Label8.Caption:=op;
          second.Close;
        end;
if op <> 'Администратор' then
begin
  Form1.Button45.Visible:=false;
  Form1.Button38.Visible:=false;
  Form1.N3.Visible:=False;
end;
end;

Но эт на SQL

[le7o]

Убрать все формы из автосоздоваемых кроме формы авторизации и datamodule

Это из кода проекта:

function CheckPassword: Boolean;
....
begin
    Result := False;
    try
        Application.CreateForm(TDM, DM);
  LoginForm := TLoginForm.Create(nil);

        if LoginForm.ShowModal = mrOk then
            Result := True;
    finally
        LoginForm.Free;
    end;
end;

begin
  Application.Initialize;
  if CheckPassword then
    begin
      Application.MainFormOnTaskbar := True;
      Application.CreateForm(TfrmMain, frmMain);
    end
    else
     Application.Terminate;

  Application.Run;
end.

Это из формы авторизации:

procedure TLoginForm.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TLoginForm.btnOkClick(Sender: TObject);
var
  oldtop, oldleft, x:integer;
begin
if isSingIn(edtLogin.Text, edtPasswd.Text) = 1
then
  ModalResult := mrOk  //если авторизовались в программе
else
  begin
    oldtop:=top;
    oldleft:=left;
    for x:= 1 to 50 do
    begin
      top:= top+(random(6)-3);
      left:=left+(random(6)-3);
      application.ProcessMessages;
      sleep(2);
      top:=oldtop;
      left:=oldleft;
    end;
    lblMessage.Font.Color := clRed;
    lblMessage.Caption := 'Не верно указанно имя пользователя или пароль';

    edtLogin.SetFocus;
  end;
end;

function TLoginForm.GetMD5String(Str: String): string;
var
  MD5 : TIdHashMessageDigest5;
begin
  MD5 := TIdHashMessageDigest5.Create ;
  Result := MD5.HashStringAsHex(Str);
end;

function TLoginForm.isSingIn(username, password: string): integer;
var
 Query : TFDQuery;
begin
  fdQuery := TFDQuery.Create(nil);
  fdQuery.Connection := DM.FDConn;
  fdQuery.ResourceOptions.SilentMode := True;

  fdQuery.SQL.Text := 'SELECT login, name, ';
  fdQuery.SQL.Append('passwd, FROM table');
  fdQuery.SQL.Append('WHERE login = :p_LOGIN AND passwd = :p_PASSWD AND is_login=1;');
  fdQuery.ParamByName('p_LOGIN').Value := username;
  fdQuery.ParamByName('p_PASSWD').Value := GetMD5String(password);
  fdQuery.Open;
  if fdQuery.RecordCount > 0 then
    begin
      result := 1;
    end
  else
    result := 0;
  FreeAndNil(fdQuery);
end;