Changeset 45 for trunk/Application

Timestamp:

Mar 12, 2012, 10:23:40 AM (13 years ago)

Author:

chronos

Message:

• Modified: TChronisBase.Active property control Client connection instead of direct call of Client.Connect and Client.Disconnect methods.

Location:

trunk/Application

Files:

• Clients/UChronisClientMySQL.pas (modified) (2 diffs)
• UApplicationInfo.pas (modified) (1 diff)
• UChronisClient.pas (modified) (2 diffs)
• UDataTypes.pas (modified) (1 diff)

trunk/Application/Clients/UChronisClientMySQL.pas

@@ -40 +40 @@
   SMissingBaseType = 'Missing base typ for %s';
   SUndefinedType = 'Undefinned type %s';
+  SCantLoadObjectWithoutId = 'Can''t load object without id';
 
 
@@ -69 +70 @@
   Table: string;
 begin
+  if AObject.Id = 0 then raise Exception.Create(SCantLoadObjectWithoutId);
   try
     DbRows := TDbRows.Create;

trunk/Application/UApplicationInfo.pas

@@ -50 +50 @@
   Name := 'ChronIS';
   Identification := 1;
-  ReleaseDate := EncodeDate(2012, 3, 9);
+  ReleaseDate := EncodeDate(2012, 3, 12);
   MajorVersion := 0;
   MinorVersion := 1;

trunk/Application/UChronisClient.pas

@@ -112 +112 @@
   end;
 
-
 implementation
 
@@ -251 +250 @@
   NewProxy.Load;
   if NewProxy.Objects.Count > 0 then begin
-    DbVersion := TObjectProxy(NewProxy.Objects[0]).Properties.Values['Version'];
+    NewObject := TObjectProxy.Create;
+    NewObject.Client := Self;
+    NewObject.SchemaName := Schema;
+    NewObject.ObjectName := SystemVersionObject;
+    NewObject.Id := 1;
+    NewObject.Load;
+
+    DbVersion := NewObject.Properties.Values['Version'];
     if Version <> DbVersion then
       raise Exception.Create(Format(SVersionMismatch, [Version, DbVersion]));

trunk/Application/UDataTypes.pas

@@ -270 +270 @@
     Proxy.ObjectName := PropertyTable;
     Proxy.Condition := 'Id=' + IntToStr(PropertyID);
+    Proxy.Load;
     ObjectId := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['Object']);
     PropertyName := TObjectProxy(Proxy.Objects[0]).Properties.Values['ColumnName'];