Changeset 44 for trunk/Application/UChronisClient.pas

Timestamp:

Mar 9, 2012, 3:02:00 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Login profile manager can lost some values during edit.
• Added: Base initialization of TChronisClient.

File:

• trunk/Application/UChronisClient.pas (modified) (9 diffs)

trunk/Application/UChronisClient.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, SpecializedList, SpecializedDictionary;
+
+const
+  SystemVersionObject = 'SystemVersion';
 
 type
@@ -26 +29 @@
     procedure Save;
     procedure Delete;
-    procedure Add;
     constructor Create;
     destructor Destroy; override;
@@ -81 +83 @@
   protected
     procedure InitSystemTypes; virtual;
+    procedure Init; virtual;
     function GetConnected: Boolean; virtual;
   public
@@ -89 +92 @@
     Password: string;
     Types: TChronisTypeList;
+    Version: string;
     procedure ObjectLoad(AObject: TObjectProxy); virtual; abstract;
     procedure ObjectSave(AObject: TObjectProxy); virtual; abstract;
-    procedure ObjectAdd(AObject: TObjectProxy); virtual; abstract;
     procedure ObjectDelete(AObject: TObjectProxy); virtual; abstract;
     procedure ListLoad(AList: TListProxy); virtual; abstract;
@@ -98 +101 @@
     procedure TypeUndefine(AType: TChronisType); virtual; abstract;
     procedure CheckTypes;
+    function TypeExists(Name: string): Boolean; virtual; abstract;
     constructor Create; virtual;
     destructor Destroy; override;
-    procedure Connect; virtual; abstract;
-    procedure Disconnect; virtual; abstract;
+    procedure Connect; virtual;
+    procedure Disconnect; virtual;
+    procedure Install; virtual;
+    procedure Uninstall; virtual;
+    procedure Update; virtual;
     property Connected: Boolean read GetConnected;
   end;
@@ -110 +117 @@
 resourcestring
   SClientNotSet = 'Client not set';
+  SNotSupported = 'Not supported';
+  SVersionMismatch = 'Version mismatch, client: %0:s, server: %1:s. Please upgrade database.';
+
 
 { TChronisTypeList }
@@ -174 +184 @@
 end;
 
-procedure TObjectProxy.Add;
-begin
-  if Assigned(Client) then Client.ObjectAdd(Self)
-    else raise EClientNotSet.Create(SClientNotSet);
-end;
-
 constructor TObjectProxy.Create;
 begin
@@ -230 +234 @@
 procedure TChronisClient.InitSystemTypes;
 begin
+end;
+
+procedure TChronisClient.Init;
+var
+  NewProxy: TListProxy;
+  NewType: TChronisType;
+  NewObject: TObjectProxy;
+  DbVersion: string;
+begin
+  NewProxy := TListProxy.Create;
+  NewProxy.Client := Self;
+  NewProxy.SchemaName := 'information_schema';
+  NewProxy.ObjectName := 'TABLES';
+  NewProxy.Condition := '(TABLE_SCHEMA = "' + Schema +
+    '") AND (TABLE_NAME = "' + SystemVersionObject + '")';
+  NewProxy.Load;
+  if NewProxy.Objects.Count > 0 then begin
+    DbVersion := TObjectProxy(NewProxy.Objects[0]).Properties.Values['Version'];
+    if Version <> DbVersion then
+      raise Exception.Create(Format(SVersionMismatch, [Version, DbVersion]));
+  end else begin
+    NewType := TChronisType.Create;
+    NewType.Client := Self;
+    NewType.Name := SystemVersionObject;
+    NewType.Properties.Add('Version', 'String');
+    NewType.Properties.Add('Time', 'DateTime');
+    NewType.Define;
+
+    NewObject := TObjectProxy.Create;
+    NewObject.Client := Self;
+    NewObject.SchemaName := Schema;
+    NewObject.ObjectName := SystemVersionObject;
+    NewObject.Properties.Add('Version', Version);
+    NewObject.Properties.Add('Time', 'NOW()');
+    NewObject.Save;
+
+    Install;
+  end;
 end;
 
@@ -287 +329 @@
 end;
 
+procedure TChronisClient.Connect;
+begin
+  raise Exception.Create(SNotSupported);
+end;
+
+procedure TChronisClient.Disconnect;
+begin
+  raise Exception.Create(SNotSupported);
+end;
+
+procedure TChronisClient.Install;
+begin
+
+end;
+
+procedure TChronisClient.Uninstall;
+begin
+
+end;
+
+procedure TChronisClient.Update;
+begin
+
+end;
+
 end.