Hui hui hui, jetzt bekomme ich aber gerade mein Fett weg
Ich generiere die Properties, Getter und Setter über die Modellierung, daher wurde sie entsprechend aufgesetzt...
@ michaelthuma
TUnternehmen wird in anderen Proceduren und Funktionen der Klassen TUser verwendet.
Meinst Du mit Werten den Variablen-Namen? Wenn ja, dann lautet die Antwort "Ja", das sind die echten Namen.
@nuclearping
Ich habe den Code jetzt etwas anders formatiert und hoffe, dass er so besser zu lesen ist. User_Rollen ist meines Erachtens vorhanden (die vorletzte Variable).
Zitat:
Warum verwendest du EINE Stringvariable, um mehrere Werte zu speichern?
Ich speichere mehrere Werte in einem String, weil es an dieser in meinen Augen Stelle Sinn macht. Der String wird nämlich später in einem
SQL-Statement verwendet.
Zitat:
) Du brauchst für Properties, die du direkt liest und schreibst und wo sonst nichts weiter passiert keine extra Getter und Setter. (siehe published-Bereich oben)
Wie das funktioniert weiß ich leider nicht. Ich kenne bislang nur diesen Weg...
@ALL
Vielen Dank für die Anregungen, lerne gerne dazu!!!
Sieht jemand denn vielleicht auch die Ursache für den Fehler?
Vielen Dank
Patrick
Delphi-Quellcode:
type
TUser = class(TUnternehmen)
strict protected
FUser_ID:Integer;
FUser_Name:string;
FUser_Vorname:string;
FUser_Adresse_ID:Integer;
FUser_Abteilung_ID:Integer;
FUser_Telefon: string;
FUser_Fax: string;
FUser_Mobil: string;
FUser_Mail: string;
FUser_Passwort: string;
FLogFile_ID: integer;
FUser_Rechte: string;
FUser_Default_Folder: string;
FUser_LogIn: string;
FUser_Rollen: string;
FUser_Norm_Mandanten: string;
strict private
function GetUser_Abteilung_ID : integer;
procedure SetUser_Abteilung_ID(val : integer);
function GetUser_Fax : string;
procedure SetUser_Fax(val : string);
function GetUser_ID : Integer;
procedure SetUser_ID(val : Integer);
function GetUser_Mail : string;
procedure SetUser_Mail(val : string);
function GetUser_Mobil : string;
procedure SetUser_Mobil(val : string);
function GetUser_Vorname : string;
procedure SetUser_Vorname(val : string);
function GetUser_Name : string;
procedure SetUser_Name(val : string);
function GetUser_Passwort : string;
procedure SetUser_Passwort(val : string);
function GetUser_Telefon : string;
procedure SetUser_Telefon(val : string);
function GetLogFile_ID : integer;
procedure SetLogFile_ID(val : integer);
function GetUser_Rechte : string;
procedure SetUser_Rechte(val : string);
function GetUser_Default_Folder : string;
procedure SetUser_Default_Folder(val : string);
function GetUser_LogIn : string;
procedure SetUser_LogIn(val : string);
function GetUser_Adresse_ID : integer;
procedure SetUser_Adresse_ID(val : integer);
function GetUser_Rollen : string;
procedure SetUser_Rollen(val : string);
function GetUser_Norm_Mandanten : string;
procedure SetUser_Norm_Mandanten(val : string);
public
property User_Abteilung_ID : integer
read GetUser_Abteilung_ID
write SetUser_Abteilung_ID;
property User_Fax : string
read GetUser_Fax
write SetUser_Fax;
property User_ID : Integer
read GetUser_ID
write SetUser_ID;
property User_Mail : string
read GetUser_Mail
write SetUser_Mail;
property User_Mobil : string
read GetUser_Mobil
write SetUser_Mobil;
property User_Vorname : string
read GetUser_Vorname
write SetUser_Vorname;
property User_Name : string
read GetUser_Name
write SetUser_Name;
property User_Passwort : string
read GetUser_Passwort
write SetUser_Passwort;
property User_Telefon : string
read GetUser_Telefon
write SetUser_Telefon;
property LogFile_ID : integer
read GetLogFile_ID
write SetLogFile_ID;
property User_Rechte : string
read GetUser_Rechte
write SetUser_Rechte;
property User_Default_Folder : string
read GetUser_Default_Folder
write SetUser_Default_Folder;
property User_LogIn : string
read GetUser_LogIn
write SetUser_LogIn;
property User_Adresse_ID : integer
read GetUser_Adresse_ID
write SetUser_Adresse_ID;
property User_Rollen : string
read GetUser_Rollen
write SetUser_Rollen;
property User_Norm_Mandanten : string
read GetUser_Norm_Mandanten
write SetUser_Norm_Mandanten;
{!Intelligente Funktionen und Proceduren}
Private
function Load_User_Rollen(User_ID: integer): string;
procedure Load_User_Rechte( User_ID:integer);
function User_Insert: integer;
function User_Update(User_ID: integer): integer;
Public
procedure Load_User( User_ID:integer);
procedure Clear_User;
function Load_User_ID (LogIn: string): integer;
function User_Speichern (User_ID: integer): integer;
end;
var User: TUser; //Daten des angemeldeten Benutzers
User_Management: TUser; //Um einen Benutzer zu verändern
User_Neu: TUser; //Geänderte User-Daten
implementation
uses LogInUnit, TEinstellungenUnit;
function TUser.GetUser_Abteilung_ID: integer;
begin
Result:= FUser_Abteilung_ID;
end;
procedure TUser.SetUser_Abteilung_ID(val : integer);
begin
FUser_Abteilung_ID:= val;
end;
function TUser.GetUser_Adresse_ID: integer;
begin
Result:= FUser_Adresse_ID;
end;
procedure TUser.SetUser_Adresse_ID(val : integer);
begin
FUser_Adresse_ID:= val;
end;
function TUser.GetUser_Fax: string;
begin
Result:= FUser_Fax;
end;
procedure TUser.SetUser_Fax(val : string);
begin
FUser_Fax:= val;
end;
function TUser.GetUser_ID: Integer;
begin
Result:= FUser_ID;
end;
procedure TUser.SetUser_ID(val : Integer);
begin
FUser_ID:= val;
end;
function TUser.GetUser_Mail: string;
begin
Result:= FUser_Mail;
end;
procedure TUser.SetUser_Mail(val : string);
begin
FUser_Mail:= val;
end;
function TUser.GetUser_Mobil: string;
begin
Result:= FUser_Mobil;
end;
procedure TUser.SetUser_Mobil(val : string);
begin
FUser_Mobil:= val;
end;
function TUser.GetUser_Vorname: string;
begin
Result:= FUser_Vorname;
end;
procedure TUser.SetUser_Vorname(val : string);
begin
FUser_Vorname:= val;
end;
function TUser.GetUser_Name: string;
begin
Result:= FUser_Name;
end;
procedure TUser.SetUser_Name(val : string);
begin
FUser_Name:= val;
end;
function TUser.GetUser_Passwort: string;
begin
Result:=FUser_Passwort;
end;
procedure TUser.SetUser_Passwort(val : string);
begin
FUser_Passwort:= val;
end;
function TUser.GetUser_Telefon: string;
begin
Result:= FUser_Telefon;
end;
procedure TUser.SetUser_Telefon(val : string);
begin
FUser_Telefon:= val;
end;
function TUser.GetLogFile_ID: integer;
begin
Result:= FLogFile_ID;
end;
procedure TUser.SetLogFile_ID(val : integer);
begin
FLogFile_ID:= val;
end;
function TUser.GetUser_Rechte: string;
begin
Result:= FUser_Rechte;
end;
procedure TUser.SetUser_Rechte(val : string);
begin
FUser_Rechte:= val;
end;
function TUser.GetUser_Default_Folder: string;
begin
Result:= FUser_Default_Folder;
end;
procedure TUser.SetUser_Default_Folder(val : string);
begin
FUser_Default_Folder:= val;
end;
function TUser.GetUser_LogIn: string;
begin
Result:= FUser_LogIn;
end;
procedure TUser.SetUser_LogIn(val : string);
begin
FUser_LogIn:= val;
end;
function TUser.GetUser_Rollen: string;
begin
Result:= FUser_Rollen;
end;
procedure TUser.SetUser_Rollen(val : string);
begin
FUser_Rollen:= val;
end;
function TUser.GetUser_Norm_Mandanten: string;
begin
Result:= FUser_Norm_Mandanten;
end;
procedure TUser.SetUser_Norm_Mandanten(val : string);
begin
FUser_Norm_Mandanten:= val;
end;
Delphi-Quellcode:
procedure TFrameUser.GlowDelete_MandantClick(Sender: TObject);
var I: integer;
begin
if (Grid_Norm_Mandanten.Cells[0,Grid_Norm_Mandanten.Row]='') or (Grid_Norm_Mandanten.Cells[0,Grid_Norm_Mandanten.Row]=IntToStr(User_Neu.User_Unternehmen_ID)) then
Exit;
if Grid_Norm_Mandanten.Row>0 then begin
User_Neu.User_Norm_Mandanten:='';
if Grid_Mandanten.Cells[0,Grid_Mandanten.RowCount-1]<>'' then
Grid_Mandanten.AddRow;
Grid_Mandanten.Cells[0,Grid_Mandanten.RowCount-1]:=Grid_Norm_Mandanten.Cells[0,Grid_Norm_Mandanten.Row];
Grid_Mandanten.Cells[1,Grid_Mandanten.RowCount-1]:=Grid_Norm_Mandanten.Cells[1,Grid_Norm_Mandanten.Row];
Grid_Mandanten.Sort(0,sdAscending);
Grid_Norm_Mandanten.ClearRows(Grid_Norm_Mandanten.Row,1);
if Grid_Norm_Mandanten.RowCount>2 then
Grid_Norm_Mandanten.RemoveRows(Grid_Norm_Mandanten.Row,1);
for I := 1 to Grid_Norm_Mandanten.RowCount -1 do begin
User_Neu.User_Norm_Mandanten:=User_Neu.User_Norm_Mandanten+Grid_Norm_Mandanten.Cells[0,I]+',';
end;
User_Neu.User_Norm_Mandanten:=Copy(User_Neu.User_Norm_Mandanten,1,Length(User_neu.User_Norm_Mandanten)-1);
GlowSpeichern.Enabled:=true;
GlowAbbruch.Enabled:=true;
end;
end;