unit ULogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, DB, ADODB;

type
  TFormLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    bRegistrierung: TButton;
    edUsername: TEdit;
    edPassword: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure bRegistrierungClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormLogin: TFormLogin;

implementation

{$R *.dfm}

procedure TFormLogin.FormCreate(Sender: TObject);
var s:char;
    alamatdb: WideString;
begin
   Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault];
   s:= '*';
   edUsername.Text := '';
   edPassword.PasswordChar := s;
   edPassword.Text := '';
   //Connection
   alamatdb := ExtractFilePath(Application.ExeName) + 'User.mdb';
   with AdoConnection1 do begin
    Connected := False;
    LoginPrompt := False;
    Mode := cmShareDenyNone;
    ConnectionString := 'Provider = Microsoft.Jet.OLEDB.4.0; Data Source =' +
    alamatdb + '; persist Security Info = False';
   end;
    ADOConnection1.Connected := true;
end;


procedure TFormLogin.bRegistrierungClick(Sender: TObject);
begin
  with ADOQuery1 do begin
    close;
    SQL.Clear;
    SQL.Add('SELECT * FROM User WHERE Username=' + QuotedSTR(edUsername.Text)); //Der gesuchte username muss in '' stehen
    Open;
    end;
  if ADOQuery1.RecordCount = 0 then
    Application.MessageBox('Sorry, your username does not exist', 'Information', MB_OK or MB_ICONINFORMATION)
  else begin
    if ADOQuery1.FieldByName('Password').AsString <> edPassword.Text then
      Application.MessageBox('Make sure the correct Username or Password', 'Error', MB_OK or MB_ICONERROR)
    else begin
      Hide;
    end
  end;
end;

end.