{ändern der Datenbankverbindung}
procedure TFRM_Main.Verbindungndern1Click(Sender: TObject);
var ini : TIniFile;
Dir :
String;
begin
{schliessen aller Datenverbindungen}
TAB_DATEN.Connection.Connected := False;
TAB_DATEN.TAB_Anlagen.Active := False;
TAB_Daten.TAB_Anlagentyp.Active := False;
TAB_Daten.TAB_A_Arbeiten.Active := False;
TAB_Daten.TAB_A_Stoerungen.Active := False;
TAB_Daten.TAB_Bahnhof.Active := False;
TAB_Daten.TAB_Erbauer.Active := False;
TAB_Daten.TAB_Halle.Active := False;
TAB_Daten.TAB_Hersteller.Active := False;
TAB_Daten.TAB_Ersatzteil.Active := False;
TAB_Daten.TAB_EAnlagentyp.Active := False;
TAB_Daten.TAB_Zuordnung.Active := False;
TAB_Daten.TAB_Materialanlagen.Active := False;
TAB_Daten.TAB_Materialanlagentyp.Active := False;
TAB_Daten.TAB_MA_Arbeiten.Active := False;
TAB_Daten.TAB_MA_Stoerungen.Active := False;
TAB_Daten.TAB_Werk.Active := False;
{auswählen der neuen Datenquelle und speichern dieser}
if openDialog.Execute
then
Dir := '
Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+openDialog.FileName +'
;Persist Security Info=False' ;
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'
Konfiguration.ini');
ini.WriteString('
DB', '
Pfad', Dir);
ini.Free;
end;
{auslesen der neuen Datenverbindung und eintragen der Werte in den ConnectionString}
Begin
ini:=TIniFile.Create('
Konfiguration.ini');
try
ini.ReadString('
DB','
Pfad',Dir);
TAB_Daten.Connection.ConnectionString := Dir;
finally
ini.Free;
end;
{öffnen der Datenbankverbindung und der Tabellen}
TAB_DATEN.Connection.Connected := True;
TAB_DATEN.TAB_Anlagen.Active := True;
TAB_Daten.TAB_Anlagentyp.Active := True;
TAB_Daten.TAB_A_Arbeiten.Active := True;
TAB_Daten.TAB_A_Stoerungen.Active := True;
TAB_Daten.TAB_Bahnhof.Active := True;
TAB_Daten.TAB_Erbauer.Active := True;
TAB_Daten.TAB_Halle.Active := True;
TAB_Daten.TAB_Hersteller.Active := True;
TAB_Daten.TAB_Ersatzteil.Active := True;
TAB_Daten.TAB_EAnlagentyp.Active := True;
TAB_Daten.TAB_Zuordnung.Active := True;
TAB_Daten.TAB_Materialanlagen.Active := True;
TAB_Daten.TAB_Materialanlagentyp.Active := True;
TAB_Daten.TAB_MA_Arbeiten.Active := True;
TAB_Daten.TAB_MA_Stoerungen.Active := True;
TAB_Daten.TAB_Werk.Active := True;
end;
end;
{Ende}