1:

Select Benutzer from TLogin where Benutzer = DbEdit.Text					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin
Query1.CloseDatabase;
Query1.SQL.Clear;
if Query1.SQL.Add('Select Benutzer from TLogin where Benutzer = DbEdit.Text') then
   ShowMessage('Benutzer bereits vorhanden');
   abort;
else
   TLogin.Post;
   Query1.ExecSQL;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Procedure TFMain.FormShow(Sender: TObject);
Begin
  ProgPath := ExtractFilePath(paramstr(0));
  PicPath := ProgPath + '\Bilder\';
  DBInit;
  IBild.Picture.LoadFromFile(PicPath + 'Standard.bmp');
  ZugangOK := False;

  FLogin.ShowModal;
  
  If Not ZugangOK Then
    Begin
      Halt;
    End;

  If DBEPfad.Text = '' Then
    Begin
      IBild.Picture.LoadFromFile(PicPath + 'Standard.bmp');
    End
  Else
    If FileExists(DBEPfad.Text) Then
      Begin
        IBild.Picture.LoadFromFile(DBEPfad.Text);
      End
    Else
      Begin
        IBild.Picture.LoadFromFile('Standard.bmp');
     End;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

//******************************************************************************
//******************** Programm beenden ****************************************
//******************************************************************************

Procedure TFLogin.BAbbrechenClick(Sender: TObject);
Begin
  Close;
End;

//******************************************************************************
//******************** Programm Zugang *****************************************
//******************************************************************************

Procedure TFLogin.BOKClick(Sender: TObject);
Begin
  If FMain.QBenutzer.Locate('Benutzer', EBenutzer.Text, []) Then
    Begin
      If EPasswort.Text = FMain.QBenutzer['Passwort'] Then
        Begin
          ZugangOK := True;
        End
      Else
        Begin
          MessageDlg('Falsches Passwort!', mtError,
          [mbOk], 0);
          ZugangOK := False;
        End;
    End
  Else
    Begin
      MessageDlg('Benutzer nicht vorhanden!', mtError,
      [mbOk], 0);
      ZugangOK := False;
    End;
End;