Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement