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

procedure TFPWEingabe.Button2Click(Sender: TObject);
begin
 if FLogin.TLogin.Locate('Benutzer', EBenutzer.Text) then  //In der Tabelle TLogin von der Form FLogin wird ein Benutzer gesucht der in das Edit Feld EBenutzer eingegeben wurde
 begin
  if EPasswort.Text = FLogin.DBEPW then  //Werte werden verglichen
     FAdressbuch.show; //Hauptform
     FPWEingabe.Hide; //Form wo man Passwort eingeben muss erscheint beim Programmstart
 else
  ShowMessage('Falsches Passwort'); //MessageBox mit dem Inhalt "Falsches Passort!" erscheint
 end;
end;                    

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

procedure TFPWEingabe.Button2Click(Sender: TObject);
begin
 if FLogin.TLogin.Locate('Benutzer', EBenutzer.Text, []) then
  begin
   if EPasswort.Text = FLogin.TLogin['Passwort'] then
      FAdressbuch.show;
      FPWEingabe.Hide;
   end
 else
 ShowMessage('Falsches Passwort');
end;                    

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

procedure TFPWEingabe.Button2Click(Sender: TObject);
begin
  if FLogin.TLogin.Locate('Benutzer', EBenutzer.Text, []) then
  begin
    if EPasswort.Text = FLogin.TLogin['Passwort'] then
      FAdressbuch.show;
    FPWEingabe.Hide;
  end
  else
    ShowMessage('Falsches Passwort');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TFPWEingabe.Button2Click(Sender: TObject);
begin
  if FLogin.TLogin.Locate('Benutzer', EBenutzer.Text, []) then
     begin
        if EPasswort.Text = FLogin.TLogin['Passwort'] then
          begin
            FAdressbuch.show;
            FPWEingabe.Hide;
          end
        else
            ShowMessage('Falsches Passwort');
    end
  else
     ShowMessage('Benutzer nicht vorhanden');
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
 if Table1.Locate('Benutzer', DBEdit1.Text, []) then
    ShowMessage('Benutzer bereits vorhanden!');
    abort;
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
 if Table1.Locate('Benutzer', DBEdit1.Text, []) then
    ShowMessage('Benutzer bereits vorhanden!');
    abort;
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:
36:
37:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, DBTables;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBNavigator1: TDBNavigator;
    procedure Table1BeforePost(DataSet: TDataSet);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
 if Table1.Locate('Benutzer', DBEdit1.Text, []) then
    ShowMessage('Benutzer bereits vorhanden!');
    abort;
end;

end.                    

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;