Hy Leute !
ich hab folgendens
Delphi-Quellcode:
unit export;
interface
type
tuser =
class(tobject)
public
function login (aUsername,aPassword,aIP,aDatabase:
string):boolean;
procedure ResetTelVarGeb;
private
end;
implementation
uses Main, MyAccess;
{ tuser }
function tuser.login(aUsername, aPassword,aIP,aDatabase:
string): boolean;
begin
fmMain.MyConnection1.Username:=aUsername;
fmMain.MyConnection1.Password:=aPassword;
fmMain.MyConnection1.Server:=aIP ;
fmMain.MyConnection1.Database:=aDatabase;
fmMain.MyConnection1.Connect;
if fmMain.MyConnection1.Connected=true
then
begin
Result:=True;
end
else
Result:=false;
end;
procedure tuser.ResetTelVarGeb;
var
myQuery:TMyQuery;
begin
try
myQuery:=TMyQuery.Create(self);
myQuery.Connection:=fmMain.MyConnection1;
myQuery.SQL.Text:='
update sap set TelVarGeb=""';
myQuery.Execute;
finally
myQuery.Free;
end;
end;
end.
Nun meine Frage:
Wie kann ich eine Abhängigkeit erzeugen zwischen den proceduren.
zb.
user.ResetTelVarGeb kann erst dann ausgeführt werden, wenn die funktion user.login alls Result ein "true" liefert ?
lg
Bundy