Login erstellung/TTabControl

[SaFu]

Hab mal so in login gemacht ahbe dazu eine erste Form erstellt mit dem Login Benutzername und Benutzerpasswort mit einer Freigabe eines Button für den Administrator das man die Benutzernamen und Passwort anlegen bzw ändern kann

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var B,P :string ;  begin    //Bsp. zur Anmeldung 18.04.2007                         Mittwoch
 if (Edit2.Text <> DateToStr(Date)) or (Edit1.Text <> FormatdateTime('dddd',Now)) then
    begin
     Table1.Open;
       //Benutzer wird gesucht
       if Table1.Locate('Benutzername',Edit1.Text, [LoCaseInsensitive])= True then
        begin
          B:= Table1.FieldByName('Passwort').AsString; //Übergabe von Feld "Passwort" an B
          P:= Table1.FieldByName('Administrator').AsString; //Übergabe von Feld "Admin" an P

       if Edit2.Text = B then //Vergleicht ein eingegebenes PW mit Ausgabe im Label
         begin
           Form2.Show;
           Form1.Visible:= False;
         end
       else
         begin
           MessageDlgPos('Benutzername oder Passwort falsch!',mtInformation,[mbOk],0,260,200);
         end;

       if P = 'Wahr' then  //Adminrechte
         begin
           Form2.Button6.Visible:= True;
         end

       else
         begin
          Form2.Button6.Visible:= False;
         end;
       end

   else
    begin
      MessageDlgPos('Benutzername oder Passwort falsch!',mtInformation,[mbOk],0,260,200);
      Edit1.SetFocus;
    end;
  end

 else
   begin
     Form2.Show;
     Form2.Button6.Visible:= True;
     Form1.Visible:= False;
   end;
 Edit1.Clear;
 Edit2.Clear;
end;

und hier noch was damit du die Tabele dafür anlegen kannst mit einem bereits erstellten Admin konto

Delphi-Quellcode:

procedure TForm1.Tabelleerst;
Var B,P :string ;  { Private declarations }
     Pfad :String;
begin
 Table1.close;
  getdir(0,Pfad);
   With Table1 Do  //Tabelle erzeugen
     begin
      DatabaseName:= Pfad + '\Datenbank\'; //Pfad zur Tabelle
      Form10.Table1.DatabaseName:= Pfad + '\Datenbank\';
      TableName:= 'Benutzerverwaltung.DB';
      TableType:= ttParadox;
     end;
      if not FileExists(Pfad + '\Datenbank\Benutzerverwaltung.DB') then
        begin
          With Table1 Do
            begin
              with FieldDefs Do //Datenfelder erzeugen
                begin
                 Clear;
                 Add('Nr.',ftAutoInc,0,True);
                 Add('Benutzername',ftString,30,True);
                 Add('Passwort',ftString,30,False);
                 Add('Administrator',ftboolean,0,False);
                end;
                  with IndexDefs do //Index Schlüssel erzeugen
                   begin
                    Clear;
                    Add('Nr','Nr.',[ixPrimary, ixUnique]); // Primär Index
                   end;
                    CreateTable;
                      begin   //User erzeugen
                       Table1.Open; //Tabelle öffnen zum Schreiben
                       Table1.Edit;
                       Table1['Benutzername']:= 'Admin';
                       Table1['Passwort']:= '123';
                       Table1['Administrator']:= True;
                       Table1.Post;  //Eintrag übernehmen
                       Table1.Close; //Tabelle schließen
                      end;
                end;
        end;
     Table1.Active:= True; //Tabelle1 auf Form1 aktivieren
     Form10.Table1.Active:= True; //Tabelle1 auf Form10 aktivieren
end;

Sowas steht auch bereits in der Code libary habe es nur verbesseret so ist der Pfad der BD Variabel

Gruss Sascha hoffe das hilft dir