Ich habe ein Login...wo ich Benutzername und Passwort mit Datenbank abgleiche!

Nun möchte ich...das wenn ich mich richtig anmelde...den Benutzername und das Passwort "mitnehmen" kann...weil ich im Programm das Passwort ändern möchte..und dazu DBEdit verwende!

Ich hatte mal das: (Achtung komplettes Login)

//---------------------------------------------------------------------------

#include <vcl.h>
#include <IniFiles.hpp>
#pragma hdrstop

#include "Unit1.h"
#include "pwaendern.h"
#include "DBArray.h"
#include "Query.h"
#include "DBKompos.h"
#include "Aktivierung.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <Inifiles.hpp>
TForm1 *Form1;
AnsiString AppText;

TIniFile *Ini2 = new TIniFile ("C:\\programming\\The_Manager\\Testmodule\\Login\\opt.ini");

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
AppText = "Dies ist der Anmeldebildschirm, geben Sie Name und Passwort ein";
AppText = AppText + " *** ";
Caption = AppText;

Application->Title = AppText;
Timer1->Interval = 100;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Form3->Database1->AliasName = "test";
//Form3->Database1->DatabaseName = "test";
//Form3->Database1->Params->Values["user name"] = "";
//Form3->Database1->Params->Values["password"] = "";
//Form3->Table1->Open();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (ColorDialog1->Execute())
{
 Color = ColorDialog1->Color;
 }        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form3->Query1->Close();
Form3->Query1->SQL->Clear();
Form3->Query1->SQL->Add("select * from Login where LName like '" +Edit1->Text+ "' AND Passwort = '"+Edit2->Text+ "';");
Form3->Query1->Open();

if (!Form3->Query1->Eof)
{
if (Form3->Query1->FieldByName("Rechte")->AsBoolean==true)
{
//ShowMessage ("Gut");
Form4->Show();
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "1")
 {
 Form4->Button1->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "2")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "3")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "4")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "5")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "6")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button5->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "7")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button5->Enabled=true;
 Form4->Button10->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "8")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button5->Enabled=true;
 Form4->Button10->Enabled=true;
 Form4->Button6->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "9")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button5->Enabled=true;
 Form4->Button10->Enabled=true;
 Form4->Button6->Enabled=true;
 Form4->Button7->Enabled=true;
 Form4->Button12->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "10")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button5->Enabled=true;
 Form4->Button10->Enabled=true;
 Form4->Button6->Enabled=true;
 Form4->Button7->Enabled=true;
 Form4->Button12->Enabled=true;
 Form4->Button8->Enabled=true;
 }
Form1->DestroyWnd();
//Form3->Table2->Open();
}

}
else
{
ShowMessage ("Falscher Benutzername oder falsches Passwort");
Edit1->SetFocus();
}
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
Form3->Database1->Open();
Form3->Table3->Open();
Form3->Table3->SetKey();
Form3->Table3->Fields->Fields[0]->AsString = Edit1->Text;
if (!Form3->Table3->GotoKey())
{
}
else
{
}
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
AnsiString first = AppText.SubString(1,1);
AppText.Delete(1,1);
AppText = AppText + first;

Application->Title = AppText;
Caption = AppText;
Button4->Caption=AppText;
Label3->Caption=AppText;
Label4->Caption = Time();
 for (int i = 0;i<50;i++)
 {
  Application->ProcessMessages();
  //Sleep();
  //Application->ProcessMessages();
  }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------

aber das funkt nich mehr richtig....weiß nich warum!

Und mit dem Key hatte er dann den Name und Passwort sich gemerkt...und wenn ich die Passwortform mit den DBEdits aufrief standen in den Edits immer das richtige Passwort drin...nun steht, egal als wer ich mich anmelde...immer nur der erste Benutzer der Datenbank drin!

Hat jemand vielleicht eine Idee??

Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button5->Enabled=true;
 Form4->Button10->Enabled=true;
 Form4->Button6->Enabled=true;
 Form4->Button7->Enabled=true;
 Form4->Button12->Enabled=true;
 Form4->Button8->Enabled=true;

entspricht z.B. 111111111111 ...

Warum setzt du die Zugriffsrechte nicht mit der Datenbank ?

Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button3->Enabled=true;
 Form4->Button4->Enabled=true;
 Form4->Button5->Enabled=true;
 Form4->Button10->Enabled=true;
 Form4->Button6->Enabled=true;
 Form4->Button7->Enabled=true;
 Form4->Button12->Enabled=true;
 Form4->Button8->Enabled=true;

entspricht z.B. 111111111111 ...

Also verkauf mich für blöd...aber das kapier ich nich!
Arbeite noch nich lang mit datenbanken....also wie meinst du das?

Und hast auch ne Idee direkt für mein problem mit dem passwort?

hast du schonmal versucht hier:

Form3->Database1->Open();
Form3->Table3->Open();
Form3->Table3->SetKey();
Form3->Table3->Fields->Fields[0]->AsString = Edit1->Text;

//Testvariablen
Form3->Table3->GotoKey();
String Test1 = Form3->Table3->Fields->Fields[0]->AsString;
String Test2 = Form3->Table3->Fields->Fields[1]->AsString;
String Test3 = Form3->Table3->Fields->Fields[2]->AsString;
String Test4 = Form3->Table3->Fields->Fields[3]->AsString;

if (!Form3->Table3->GotoKey())
{
}
else
{
}

mit dem Debugger zu schaun, was er aus der Datenbank liest?
bzw. ob er das SetKey ausführt?

und zu dem was fragg sagte noch ne Anmerkung:

wenn nacheinander User mit unterschiedlichen, speziell geringeren Rechten einloggen, haben sie bei dir wahrscheinlich noch die Rechte des vorhergehenden Nutzers, da du die Buttons nicht wieder auf false setzt

und die Idee mit den Rechten in der Datenbank ist gut

einfach im Feld Masterrechte statt der Zahlen 1-10 die Rechte in Form eines String eingeben (z.B. für Masterrecht 1 -> 10000010000)

und dann mit String[Position] die einzelnen Stellen wieder auslesen

damit sparst du dir die ganze große If-Abfrage

Kann mir auch noch nich vorstellen!

Kannst mir mal ein Beispiel für 2-3 rechte geben?

Wäre dir dankbar!

Und zu den Button,die sind standardmäßig schon disabled beim Programmstart!

du verwendest

if (Form3->Query1->FieldByName("Masterrechte")->AsString == "1")
 {
 Form4->Button1->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 if (Form3->Query1->FieldByName("Masterrechte")->AsString == "2")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button7->Enabled=true;
 }

einfacher waere doch

if (Form3->Query1->FieldByName("Masterrechte")->AsString.SubString[1][1] == '1')
    Form4->Button1->Enabled=true;
else
    Form4->Button1->Enabled=false;
.
..
...

MfG
Klas

Wäre für ein beispiel für meine anwendung dankbar!

Warum soviele Zeilen???
Geht doch einfacher.. Und das ist langsam.... Sehr lahm...

-------------------------------------------------------

switch(int(Form3->Query1->FieldByName("Masterrechte")->AsString)) {
  case 10:
    Form4->Button8->Enabled=true;
  case 9:
    Form4->Button12->Enabled=true;
  case 8:
    Form4->Button7->Enabled=true;
  case 7:
    Form4->Button6->Enabled=true;
  case 6:
    Form4->Button10->Enabled=true;
  case 5:
    Form4->Button5->Enabled=true;
  case 4:
    Form4->Button4->Enabled=true;
  case 3:
    Form4->Button3->Enabled=true;
  case 2:
    Form4->Button11->Enabled=true;
  case 1:
    Form4->Button1->Enabled=true;
    Form4->Button2->Enabled=true;
    break;
  default:
    break;
}

Mein Teil macht das selbe wie deine if klauseln. Nur if ist da halt langsam, grad deine. Weil er das 10 vergleiche.

-------------------------------------------------------------

Wenn "Form3->Query1->FieldByName("Masterrechte")->AsString" den Wert 5 hat.
Würde er auch "Form3->Query1->FieldByName("Masterrechte")->AsString" mit 7 vergleichen etc. bei deiner variante

---------------------------------------------------------------

Wenn dir mein Konstukt mit switch nicht passt (was eigentlich gut ist, find ich).
Kannst du das so optimieren:

if (Form3->Query1->FieldByName("Masterrechte")->AsString == "1")
 {
 Form4->Button1->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 else if (Form3->Query1->FieldByName("Masterrechte")->AsString == "2")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button7->Enabled=true;
 }
 else if (Form3->Query1->FieldByName("Masterrechte")->AsString == "3")
 {
 Form4->Button1->Enabled=true;
 Form4->Button2->Enabled=true;
 Form4->Button11->Enabled=true;
 Form4->Button7->Enabled=true;
 }
  ..... ~snipped~ .......

Das wäre auch schneller als deine if-abfrage. weil wenn er einmal true hat, werden die anderen IF's ignoriert, was bei dir nicht der Fall ist.
Aber meine Variante muß trotzdem noch schneller sein alls deine if-konstukte und mein if-konstrukt.

Gruß
DJ BlackEagle

Werden auch die anderen Button freigeschaltet!

Weil Masterrechte 7 hat selben Button wie 3, nur eben onoch Paar mehr!

@ Black das sieht gut aus werd ich probieren

@ Linnea dein Beispiel interessiert mich auch sehr, vielleicht kannst mir das mal bisschen erleutern!

@All, bei dem Loginproblem bin ich noch nicht weiter...gibt es da noch eine andere Möglichkeit als SetKey??

KAmille

Hallo...ich hatte das schon in einem anderen Thread gepostet..und dachte Problem wäre gelöst...aber leider nicht!

Ich habe ein Login...wo ich Benutzername und Passwort mit Datenbank abgleiche!

Nun möchte ich...das wenn ich mich richtig anmelde...den Benutzername und das Passwort "mitnehmen" kann...weil ich im Programm das Passwort ändern möchte..und dazu DBEdit verwende!
....... _snipped .....

aber das funkt nich mehr richtig....weiß nich warum!

Und mit dem Key hatte er dann den Name und Passwort sich gemerkt...und wenn ich die Passwortform mit den DBEdits aufrief standen in den Edits immer das richtige Passwort drin...nun steht, egal als wer ich mich anmelde...immer nur der erste Benutzer der Datenbank drin!

Hat jemand vielleicht eine Idee??

Nun zu deinem Problem.
Warum noch das Password? MAch das nicht..
Geh so vor:

Erstelle eine Private Variable mit den Namen "strLoginName" vom Typ AnsiString.

Mehr an Vars brauchst du nicht, da Loginnamen ja unique sind (auch sein sollten).

Bei Konstrukter kannst du ja sowas machen:

this->strLoginName = "";

Aber nicht erforderlich.

Wenn der Benutzer sich erfolgreich eingeloggt hast, weiß du ja den Loginnamen ja. (Edit1->Text).
Und dann kannst du sowas machen:

this->strLoginName = Edit1->Text;

Nun ist der Loginname gespeichert in einer Var. und du kannst den rumtragen.

Wenn du nun ein Formular hast wo er sein PW ändern kann ist das auch easy...

In den PW-Form kannst du ja im Edit-Feld "Loginname" diesen Namen eintragen (von strLoginName).

Der Benutzer gibt sein altes PW ein und sein neues. Und wiederholt sein neues PW nochmal..

Dann machst du ein vergleich mit dem alten eingegeben PAssword mit dem Password in der DB.
ISt der gleich, kann er sein pw ändern. Aber dann solltest du noch das neue PW mit dem wiederholten eingabe des neuen PWs vergleichen.
Ist der gleich, dann save das neue password in die datenbank..

PS: Bitte speicher die Passwörter mindesten als md5-hash. Sonst kann jeder die PAsswörter auslesen, wenn die internen DB-Rechte des DB-SErvers nicht richtig gesetzt sind. Alternative kannst du ja das Pw ja mit Blowfish oder sonst was verschlüsseln... Aber md5 reicht eigentlich, da MySQL internen PW auch als md5-Hash speichert.

Ich hoffe das ist verständlich was ich geschrieben habe...
Wenn nicht sag bescheid und ich kann dir mal nen beispiel zeigen...

Gruß
DJ BlackEagle

@Linnea: was sollen mir die string Test.... bringen?

die sind einfach nur zum schaun ob das SetKey zum richtigen Wert springt, sie zeigen also nur den Inhalt der Datenbank

um diese Werte zu nutzen/kontrollieren brauchst du natürlich den Debugger und einen Breakpoint...

zu dem anderen:

Bsp:
Rechte --- in Datenbank steht
1 ________ 100000100000
2 ________ 110000100000
3 ________ 110000100010
4 ________ 111000100010
usw.
Erklärung: die Zahl hat 12 Stellen, also für jeden deiner Button einen, und 1 oder 0 heißt nur ob an oder aus

im Code kannst du das wie folgt nutzen

String str = Form3->Query1->FieldByName("Masterrechte")->AsString;
if (str[1] == "1") Form4->Button1->Enabled = true;
else Form4->Button1->Enabled = false;
if (str[2] == "1") Form4->Button2->Enabled = true;
else Form4->Button2->Enabled = false;
if (str[3] == "1") Form4->Button3->Enabled = true;
else Form4->Button3->Enabled = false;
if (str[4] == "1") Form4->Button4->Enabled = true;
else Form4->Button4->Enabled = false;

usw...

eventuell kann man das sogar noch weiter verkürzen, aber das wird sonst zu schwer

Meine Frage ist hier nur:

Werden auch die anderen Button freigeschaltet!

Weil Masterrechte 7 hat selben Button wie 3, nur eben onoch Paar mehr!

@ Black das sieht gut aus werd ich probieren

Bei meinem Switch ja...

Weil wie du hier siehst:

switch(int(Form3->Query1->FieldByName("Masterrechte")->AsString)) {
  case 10:
    Form4->Button8->Enabled=true;
    // Break fehlt, also führt er auch case 9 aus.
  case 9:
    Form4->Button12->Enabled=true;
    // Break fehlt, also führt er auch case 8 aus.
  case 8:
    Form4->Button7->Enabled=true;
    // Break fehlt, also führt er auch case 7 aus.
  case 7:
    Form4->Button6->Enabled=true;
    // Break fehlt, also führt er auch case 6 aus.
  case 6:
    Form4->Button10->Enabled=true;
  case 5:
    Form4->Button5->Enabled=true;
  case 4:
    Form4->Button4->Enabled=true;
  case 3:
    Form4->Button3->Enabled=true;
  case 2:
    Form4->Button11->Enabled=true;
  case 1:
    Form4->Button1->Enabled=true;
    Form4->Button2->Enabled=true;
    break;
  default:
    break;
}

Auf deutsch, wenn Masterrechte den Wert 10 hat, durch läuft er alle Cases (von 10 bis 1 (ink. 1) runter), da der befehl break fehlt..
Nur nach dem case 1 ist das break...
Würde dann so ablaufen:

Form4->Button8->Enabled=true;
Form4->Button12->Enabled=true;
Form4->Button7->Enabled=true;
Form4->Button6->Enabled=true;
Form4->Button10->Enabled=true;
Form4->Button5->Enabled=true;
Form4->Button4->Enabled=true;
Form4->Button3->Enabled=true;
Form4->Button11->Enabled=true;
Form4->Button1->Enabled=true;
Form4->Button2->Enabled=true;

------

Wenn aber Masterrechte den Wert 5 hat. Dann springt das Programm in das Case 5 rein und läuft ebenfalls runter bis zu 1 (ink. 1).
Dieses Switch Case, macht das was du dir wünscht mit deinen if-konstrukten.
Würde dann so ablaufen:

Form4->Button5->Enabled=true;
Form4->Button4->Enabled=true;
Form4->Button3->Enabled=true;
Form4->Button11->Enabled=true;
Form4->Button1->Enabled=true;
Form4->Button2->Enabled=true;

Denke mal das wäre klar mit dem switch...

String str = Form3->Query1->FieldByName("Masterrechte")->AsString;
if (str[1] == "1") Form4->Button1->Enabled = true;
else Form4->Button1->Enabled = false;
if (str[2] == "1") Form4->Button2->Enabled = true;
else Form4->Button2->Enabled = false;
if (str[3] == "1") Form4->Button3->Enabled = true;
else Form4->Button3->Enabled = false;
if (str[4] == "1") Form4->Button4->Enabled = true;
else Form4->Button4->Enabled = false;

usw...

eventuell kann man das sogar noch weiter verkürzen, aber das wird sonst zu schwer

Ja kann man.

So:

String str = Form3->Query1->FieldByName("Masterrechte")->AsString;
Form4->Button1->Enabled = (str[0] == "1") ? true : false;
Form4->Button2->Enabled = (str[1] == "1") ? true : false;
Form4->Button3->Enabled = (str[2] == "1") ? true : false;
Form4->Button4->Enabled = (str[3] == "1") ? true : false;

usw...

Aber mein SWitch case ist auch optional..

Obwohl ja if langsamer ist als switch...

PS: li... ein Array fängt immer mit 0 an, nicht mit 1.

Und nun hätt ich gern ein paar erklärungen:

Zu:

DJ BlackEagle schrieb:

Linnea schrieb:

String str = Form3->Query1->FieldByName("Masterrechte")->AsString;
if (str[1] == "1") Form4->Button1->Enabled = true;
else Form4->Button1->Enabled = false;
if (str[2] == "1") Form4->Button2->Enabled = true;
else Form4->Button2->Enabled = false;
if (str[3] == "1") Form4->Button3->Enabled = true;
else Form4->Button3->Enabled = false;
if (str[4] == "1") Form4->Button4->Enabled = true;
else Form4->Button4->Enabled = false;

usw...

eventuell kann man das sogar noch weiter verkürzen, aber das wird sonst zu schwer

Ja kann man.

So:

String str = Form3->Query1->FieldByName("Masterrechte")->AsString;
Form4->Button1->Enabled = (str[0] == "1") ? true : false;
Form4->Button2->Enabled = (str[1] == "1") ? true : false;
Form4->Button3->Enabled = (str[2] == "1") ? true : false;
Form4->Button4->Enabled = (str[3] == "1") ? true : false;

usw...

Aber mein SWitch case ist auch optional..

Obwohl ja if langsamer ist als switch...

PS: li... ein Array fängt immer mit 0 an, nicht mit 1.

für was steht bei (str[0] == "1" die "1"?, was hat das ? true : false zu bedeuten?

@Linnea: also mit dem Debugger hab ich grad noch garnich gearbeitet...wirklich nich!

Kannst mir das bei meinem Problem etwas erklären?

Willst vielleicht meine EMail Adresse?

@All; eure Beispiele für die rechte probier ich morgen ,weil ich jetzt gleich los mache!

Sorry für die Umstände...bin noch relativer N00b!!!

Das sind die gewissen if-short-conditional.

Das was da steht würde ausgeschrieben so aussehen:

if(str[0] == "1") {
 Form4->Button1->Enabled = true;
}
else {
Form4->Button1->Enabled = false;
}

Ist halt nur kürzer.

Warum "1"?

Linnea schrieb:

Bsp:
Rechte --- in Datenbank steht
1 ________ 100000100000
2 ________ 110000100000
3 ________ 110000100010
4 ________ 111000100010

Die 1 steht für Aktiv..

Wenn die Variable str[0] den Inhalt 1 hat, soll er den Button aktivieren. wenn 0 ist, dann button deaktivieren.

100000100000 das würde dann in der DB drin stehen..
Da wäre hier Button 1 Aktiv. und noch ein Button...

Aber wie du das machst, würde ich dir eher empfehlen, weil du ja nen totaler Anfänger bist (sagst du ja selbst). Aber jeder fängt klein an.

PS: li... ein Array fängt immer mit 0 an, nicht mit 1.

Strings sind 1 basiert ...

@Kamill
zur Nutzung des Debuggers gibst einen FAQ-Beitrag, ohne Debugger kann man eigentlich nicht programmieren, da man nie weiss wo genau der Fehler ist

Nur die sache mit dem debugger!...Kann mir wer ein link zum tut geben?

if(str[0] == "1") {
 Form4->Button1->Enabled = true;
}
else {
Form4->Button1->Enabled = false;
}

Dachte aber eher an sowas:

//Deine Zugriffsrechte aus Datenbank
//Alternativ ein Integer und dann nach Bin (IntToBin())
String ur="101010";
// und dann anstatt von unendlich vielen if oder case Monstern sowas
for(int i=0;i<Form1->ComponentCount;i++)
{
   if (Form1->Components[i]->ClassNameIs("TButton"))
   {
      dynamic_cast<TButton*>(Form1->Components[i])->Enabled = StrToBool(ur.SubString(i+1,1));
   }
}

//Deine Zugriffsrechte aus Datenbank
//Alternativ ein Integer und dann nach Bin (IntToBin())
String ur="101010";
// und dann anstatt von unendlich vielen if oder case Monstern sowas
int co=0;
for(int i=0;i<Form1->ComponentCount;i++)
{
   if (Form1->Components[i]->ClassNameIs("TButton"))
   {
      dynamic_cast<TButton*>(Form1->Components[i])->Enabled = ur[++co]-48;
   }
}
}

String ur="0101010";
int co=0;
for(int i=0;i<Form1->ComponentCount&&co<ur.Length();i++)
{
   if (Form1->Components[i]->ClassNameIs("TButton"))
   {
      dynamic_cast<TButton*>(Form1->Components[i])->Enabled = ur[++co]-48;
   }
}

So nun fang ich mal an:

Kamill schrieb:

naja,nach der beschreibun hab ich schon verstanden...also so der anfänger bin ich nich...und eure beispiele leuchten mir auch ein!

Nur die sache mit dem debugger!...Kann mir wer ein link zum tut geben?

Ich hab geschrieben das ich nich so der anfänger bin...aber dein 2tes beispiel fragg hab ich wirklich nich verstanden...kannst mir das etwas genauer erklären?

Mir geht daraus nich hervor wie ich da meine 12 oder mehr Buttons einzel freischalten kann!
Was in DB stehen muss (wohl auch ein String ähnlich diesem: 100010001011?)!

Würd mich freuen das etwas erläutert zu bekommen!

Die Zahlenfolge ergibt deine Buttons...
erst zahl => Button 1
2. Zahl => Button 2

Der Wert 1 bedeutet er hat das Recht (true).
Der Wert 0 bedeutet er hat nicht das Recht (false).
Umd das zu erleutern...
Falls du das nicht verstanden hast.

So aber jetze:

//Dein SQL Statement zum abfragen ob Benutzer mit Passwort vorhanden
String sql="SELECT * FROM benutzer WHERE benutzername = '"+Edit1->Text+"' AND passwort = '"+MaskEdit1->Text+"';";
Query1->SQL->Clear();
Query1->SQL->Add(sql);
Query1->Open();
//Wenn ein Eintrag in Datenbank vorhanden dann Benutzerrechte aus
//Datenbank holen
if(Query1->RecordCount)
{
   String ur = Query1->FieldByName("status")->AsString;
   //Variable co ist die Position im String
   int co=0;
   //Durchlaufe jede Komponente aus Form2
   //(co<ur.Length()) dient zur Absicherung
   //falls man mehr als 12 Buttons haben solltest
   for(int i=0;i<Form2->ComponentCount&&co<ur.Length();i++)
   {
      //Wenn Komponente mit Klassenname "TButton" gefunden dann
      //setze Enabled vom Button auf Wert aus ur[position co]-48
      //Beispiel position co steht auf 1. In deinem String ur steht
      //an erster Position eine 1 (entspricht Button1->Enabled = true)
      //Da im du aber mit ur[co] die ASCII Werte hast musst du 48 abziehen
      //ASCII Code für '0' = 48 und für '1' = 49
      if (Form2->Components[i]->ClassNameIs("TButton"))
      {
         dynamic_cast<TButton*>(Form2->Components[i])->Enabled = ur[++co]-48;
      }
   }
   //Benutzernamen in deiner private Variable benutzer speichern.
   Form1->benutzer = Edit1->Text;
   Form1->Hide();
   Form2->Show();
}
else
{
   //Fehlermeldung wenn kein Eintrag in Datenbank
   Application->MessageBoxA("Benutzername oder Passwort ungültig.","Achtung");
}
Query1->Close();
}

@fragg: langsam leuchtet mir auch dein Beispiel...aber wo kann ich denn spezielle Buttons bestimmen!

Zum beispiel hat der mit wenigsten rechte also 1000000000000, das heißt bei ihm ist Button1 enabled!
der mit der nächsten stufe der Rechte hat zusätzlich Button 7 enabled:

Wäre das 100000100000?, und woher weiß deine konstruktion, das Button 7 gemeind ist?