Changeset 44 for trunk/Application/Clients/UChronisClientMySQL.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Application/Clients/UChronisClientMySQL.pas (modified) (5 diffs)

trunk/Application/Clients/UChronisClientMySQL.pas

@@ -16 +16 @@
     procedure InitSystemTypes; override;
     function GetConnected: Boolean; override;
+    procedure Init; override;
   public
     Database: TSqlDatabase;
     procedure ObjectLoad(AObject: TObjectProxy); override;
     procedure ObjectSave(AObject: TObjectProxy); override;
-    procedure ObjectAdd(AObject: TObjectProxy); override;
     procedure ObjectDelete(AObject: TObjectProxy); override;
     procedure ListLoad(AList: TListProxy); override;
@@ -64 +64 @@
 
 procedure TChronisClientMySQL.ObjectLoad(AObject: TObjectProxy);
-begin
-
+var
+  DbRows: TDbRows;
+  NewObject: TObjectProxy;
+  Table: string;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Table := '`' + AObject.ObjectName + '`';
+    if AObject.SchemaName <> '' then Table := '`' + AObject.SchemaName + '`.' + Table;
+    Database.Query(DbRows, 'SELECT * FROM ' + Table +
+      ' WHERE `Id`=' + IntToStr(AObject.Id));
+    AObject.Properties.Assign(TDictionaryStringString(DbRows[0]));
+  finally
+    DbRows.Free;
+  end;
 end;
 
 procedure TChronisClientMySQL.ObjectSave(AObject: TObjectProxy);
-begin
-  inherited ObjectSave(AObject);
-end;
-
-procedure TChronisClientMySQL.ObjectAdd(AObject: TObjectProxy);
-begin
-  inherited ObjectAdd(AObject);
+var
+  DbRows: TDbRows;
+  NewObject: TObjectProxy;
+  Table: string;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Database.Replace(AObject.ObjectName, AObject.Properties, AObject.SchemaName);
+    if AObject.Id = 0 then AObject.Id := Database.LastInsertId;
+  finally
+    DbRows.Free;
+  end;
 end;
 
 procedure TChronisClientMySQL.ObjectDelete(AObject: TObjectProxy);
 begin
-  inherited ObjectDelete(AObject);
+  Database.Delete(AObject.ObjectName, 'Id=' + IntToStr(AObject.Id),
+    AObject.SchemaName);
 end;
 
@@ -143 +162 @@
         raise Exception.Create(Format(SMissingBaseType, [RefType.Name]));
 
-      Query := Query + '`' + Items[I].Key + '` ' + RefType.DbType + ' NOT NULL,';
+      Query := Query + '`' + Items[I].Key + '` ' + RefType.DbType + ' NULL,';
     end;
     Query := Query + 'PRIMARY KEY (`Id`)' +
@@ -177 +196 @@
 end;
 
+procedure TChronisClientMySQL.Init;
+begin
+  inherited;
+end;
+
 constructor TChronisClientMySQL.Create;
 begin
@@ -197 +221 @@
   Database.Database := Schema;
   Database.Connect;
+  Init;
 end;