Zugriffsverletzung bei Adresse *** in Modul '*.exe'.

[mädibo]

hallo leute,

ich weiss, es gab schon einige Einträge zu diesem Thema, aber geholfen hat keiner.

ich mache ein programm, bei dem man sich als administrator anmelden kann. dabei gibt man den Username und das PW ein.

der code sieht wie folgt aus

Delphi-Quellcode:

procedure TFormAdmin.sbAdminClick(Sender: TObject);
var user, pw: string;
begin

user := edAdminUser.Text; //editfeld für Username eintrag
pw := meAdminPW.Text;     //maskedit feld für PW

UnitLogin.FormLogin.TAdmin.Active := false; //die Tabelle ist im objkt.inspector auf true gesetzt
UnitLogin.FormLogin.TAdmin.Filtered := false;
UnitLogin.FormLogin.TAdmin.Filter := 'User = '+QuotedStr( user );
UnitLogin.FormLogin.TAdmin.Filtered := True;
UnitLogin.FormLogin.TAdmin.Open;

    if ((edAdminUser.Text = 'mad') AND ( meAdminPW.Text = '1234' )) OR ( pw = UnitLogin.FormLogin.dbePW.Text ) then
    begin
        showmessage('Eingabe korrekt. Sie wurden als Administrator angemeldet.');   //information an den Benutzer
        btAdminOK.Enabled := true;                //wird freigegeben.
        sbAdminLogin.Enabled := true;             //als Admin kann man weitere Admins erstellen.
        ok := 1;

    end

    else
    begin
        showmessage('Der Benutzername oder das Passwort stimmt nicht. Versuchen Sie es erneut.');
        ok := 0;
    end;
end;

'ok' wird in der Funktion isOk übergeben und isOk auf true gesetzt, wenn ok = 1
als admin kann man die einstellungen ändern und neue benutzer erfassen.

ich hoffe jemand kann mir helfen

mfg mark

[Angel4585]

Wo genau tritt denn der Fehler auf?
Edit: Fast ergessen:

Herzlich Willkommen in der DP !!

[Union]

Hallo,

kann es sein, dass "User" ein reserviertes Wort ist?

[Angel4585]

nicht das ich wüsste..

[mädibo]

nein, ich habe es zuhause gemacht und alles lieg einwandfrei. danach wollte ich es heute in den code einbauen (habe alles gleich gemacht) aber es kommt immer der fehler. ich habe soeben 2 neue klassen gemacht, die auf eine neue db ugreifen. der fehler kommt genau bei UnitLogin.FormLogin.TAdmin.Active := false;

[Bernhard Geyer]

Ich rate mal: UnitLogin.FormLogin ist nil.

[mädibo]

das heisst?

[mquadrat]

Wann wird denn FormLogin erzeugt? In der .dpr?

[Bernhard Geyer]

Zitat von mädibo:

das heisst?

Ist es nun nil oder nicht?
Dan verrate ich dir auch eine sehr oft anzutrefenden Fehler den man macht wenn man nicht noch nicht so fit in der Programmierung mit VCL und der IDE ist. Aber blos auf verdacht gleich diese Fehlerquelle breit zu treten wollte ich nicht.

[mädibo]

ja, ich habe die form schon erstellt. wenn ok = 1 dan wird ein button enable mit dem man auf die db zugreiffen kann, also mit dbedit feldern und einer dbnavigation.

was meinst du mit formlogin = nil

dases not in list heisst weiss ich. ich habe eine klasse login, die nur über die Form benutzt wird. es hat weder funktionen noch sonst etwas. mit login greiffe ich auf die db zu und stelle sie in den dbedit feldern dar. dazu kann ich neue einträge mit dem navigator mache. oder was meinst du mit formlogin = nil?

Delphi-Quellcode:

unit UnitLogin2;

interface

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

type
  TFormLogin2 = class(TForm)
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    dbeUser: TDBEdit;
    dbePW: TDBEdit;
    Table1: TTable;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormLogin2: TFormLogin2;

implementation

{$R *.dfm}

end.