27. April 2006 10:39
IF Session.FIND('-') THEN
REPEAT
IF NOT UserManager.GET(Session."Verbindungs ID") THEN BEGIN
UserManager.ID := Session."Verbindungs ID";
UserManager."User ID" := Session."Benutzer ID";
UserManager."Cache Reads" := Session."Lesezyklen Cache";
UserManager."Record Scans" := Session."Durchsuchte Datensätze";
UserManager."Disk Reads" := Session."Lesezyklen Platte";
UserManager."Disk Writes" := Session."Schreibzyklen Platte";
UserManager."Total Cache Reads" := Session."Lesezyklen Cache";
UserManager."Total Record Scans" := Session."Durchsuchte Datensätze";
UserManager."Total Disk Reads" := Session."Lesezyklen Platte";
UserManager."Total Disk Writes" := Session."Schreibzyklen Platte";
UserManager.INSERT;
END ELSE BEGIN
UserManager."User ID" := Session."Benutzer ID";
UserManager."Cache Reads" := Session."Lesezyklen Cache" - UserManager."Total Cache Reads";
UserManager."Record Scans" := Session."Durchsuchte Datensätze" - UserManager."Total Record Scans";
UserManager."Disk Reads" := Session."Lesezyklen Platte"- UserManager."Total Disk Reads";
UserManager."Disk Writes" := Session."Schreibzyklen Platte" - UserManager."Total Disk Writes";
UserManager."Total Cache Reads" := Session."Lesezyklen Cache";
UserManager."Total Record Scans" := Session."Durchsuchte Datensätze";
UserManager."Total Disk Reads" := Session."Lesezyklen Platte";
UserManager."Total Disk Writes" := Session."Schreibzyklen Platte";
UserManager.MODIFY;;
END;
UNTIL Session.NEXT = 0;
FIND('-');
CurrForm.UPDATE(FALSE);
27. April 2006 10:57
holger1076 hat geschrieben:Das CA/L Objekt wurde in nicht kompilierter Form gespeichert. Kompilieren Sie das Objekt vom Object Designer aus und starten Sie es erneut. Mehrmals F11 auf der Form und in der Form bringt nichts. Gibt zwar an das er kompiliert hat, mahnt aber weiterhin an das es nicht kompiliert ist.
27. April 2006 11:00