Vista HILFE!!!!!!!

[daredd]

hier noch ein bisschen code an der stelle wo er hängen bleibt:

Delphi-Quellcode:

procedure TDM.ConnectTuneDatabase;
begin
     if ConnectToDatabase(dbTune, SlashSep(BasePath, 'data\d1.gdb')) then begin
        OpenTuneTables(True);
     end;
end;

procedure TDM.ConnectUserDatabase;
begin
{$IFDEF VERIT}
     if ConnectToDatabase(dbUser, MetaIni.ReadString('Path', 'User base', SlashSep(BasePath, 'data\user.gdb'))) then
{$ELSE}
     if ConnectToDatabase(dbUser, SlashSep(BasePath, 'data\user.gdb')) then
{$ENDIF}
        OpenUserTables(True);
end;

function TDM.ConnectToDatabase(ADatabase : TDatabase; AAliasName : string) : boolean;
begin
     ADatabase.Close;
     ADatabase.Params.Values['server name'] := AAliasName;
     try
        ADatabase.Open;
     finally
        Result := ADatabase.Connected;
     end;
end;

function TDM.OpenTuneTables(AOpen : boolean) : boolean;
begin
     Result := True;
   try
     tbGroup.Active := AOpen;
     tbImage.Active := AOpen;
     tbImageForSeek.Active := AOpen;
     tbPrepForSeek.Active := AOpen;
     tbDisease.Active := AOpen;
     tbDiagn.Active := AOpen;
     tbLFR.Active := AOpen;
     tbAnimate.Active := AOpen;
   except
     Result := False;
   end;
end;

function TDM.OpenUserTables(AOpen : boolean) : boolean;
begin
     Result := True;
   try
     tbDoctors.Active := AOpen;
     tbPacient.Active := AOpen;
     tbIssled.Active := AOpen;
     tbPersonFree.Active := AOpen;
     tbControl.Active := AOpen;
     tbPays.Active := AOpen;
     tbIssledForDel.Active := AOpen;
   except
     Result := False;
   end;
end;

ich muss dazu sagen ich bin nicht der Programmiere diese Programm ich bin nur ein Laie der es etwas weiter überarbeitet. Der Programmierer wurde gefeuert!
Ich arbeite aber schon seit 1em Jahr an dem Programm. Also ein bisschen Kenn ich mich da schon aus.