procedure TfMDIChild.FormCreate(Sender: TObject);
var LastAccess :
Array of string;
Benutzer :
string;
List : TStringList;
Pfad :
string;
i : Integer;
begin
Pfad := '
';
Benutzer := TWindowsFunctions.GetUser;
// 1. Datenbankverbindung herstellen, bwz. DB erstellen falls noch nicht existiert
try
fMain.UniConnection1.Connect;
except
MessageBox(0,'
Datenbankverbindung fehlgeschlagen!','
Fehler',MB_ICONWARNING);
end;
// 2. Wenn TypeFlag = Archiv dann Child mit VirtualExplorerTreeView erstellen
if fMain.TypeFlag = rsArchiv
then
begin
if fMain.UniConnection1.Connected
then
begin
fMain.UniQuery1.SQL.Text := '
SELECT QZPfad FROM tblQuelleZiel WHERE QZQuelle = 1 AND QZBenutzer = :benutzer';
fMain.UniQuery1.ParamByName('
benutzer').Value := Benutzer;
fMain.UniQuery1.Execute;
Pfad := fMain.UniQuery1.FieldByName('
QZPfad').Value;
end;
VET := TVirtualExplorerTreeview.Create(Self);
VET.
Name := '
VET';
VET.Parent := Self;
VET.Active := True;
VET.Align := alClient;
VET.CheckImageKind := ckDarkCheck;
VET.RootFolder := rfCustom;
VET.RootFolderCustomPath := Pfad;
VET.TreeOptions.MiscOptions := [toAcceptOLEDrop, toCheckSupport, toEditable,
toToggleOnDblClick];
VET.OnInitNode := VETInitNode;
// end;
// 3. Archivierungsprüfung!!
if Pfad <> '
'
then
begin
List := TStringList.Create;
try
TDataWork.GetAllFilesInDirectorys(Pfad,List,true);
// 4. LastAccessTime prüfen:
setLength(LastAccess,List.Count);
for i := 0
to List.Count-1
do
begin
LastAccess[i] := TDataWork.GetLastAccesstime(List.Strings[i]);
end;
finally
FreeAndNil(List);
end;
end;
// 5. Daten in die Datenbank schreiben
if fMain.UniConnection1.Connected
then
begin
end;
// 6. die archivierbaren Ordner im VirtualTreeView markieren:
// hierfür InitNode aufrufen dort wird das dann gemacht, dort muss
// dann auch die Prüfung auf die DB gemacht werden, ob archivierbar oder nicht
end;
end;