Changeset 361 for PersistentData/Backend/UPDClientMySQL.pas

Timestamp:

May 8, 2012, 10:24:35 PM (13 years ago)

Author:

chronos

Message:

• Added: Demo for PersistentData package.

File:

• PersistentData/Backend/UPDClientMySQL.pas (modified) (4 diffs)

PersistentData/Backend/UPDClientMySQL.pas

@@ -14 +14 @@
   TPDClientMySQL = class(TPDClient)
   protected
+    FHost: string;
+    FPort: Word;
+    FUser: string;
+    FPassword: string;
+    FDatabase: TSqlDatabase;
     procedure InitSystemTypes; override;
     function GetConnected: Boolean; override;
     procedure Init; override;
   public
-    Database: TSqlDatabase;
     procedure ObjectLoad(AObject: TObjectProxy); override;
     procedure ObjectSave(AObject: TObjectProxy); override;
@@ -29 +33 @@
     procedure Install;
     procedure Uninstall;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Connect; override;
     procedure Disconnect; override;
+  published
+    property Database: TSqlDatabase read FDatabase write FDatabase;
+    property Host: string read FHost write FHost;
+    property Port: Word read FPort write FPort;
+    property User: string read FUser write FUser;
+    property Password: string read FPassword write FPassword;
   end;
 
@@ -236 +246 @@
 end;
 
-constructor TPDClientMySQL.Create;
+constructor TPDClientMySQL.Create(AOwner: TComponent);
 begin
   inherited;
-  Database := TSqlDatabase.Create(nil);
+  FDatabase := TSqlDatabase.Create(nil);
+  BackendName := 'MySQL';
 end;
 
 destructor TPDClientMySQL.Destroy;
 begin
-  FreeAndNil(Database);
+  FreeAndNil(FDatabase);
   inherited Destroy;
 end;
@@ -250 +261 @@
 procedure TPDClientMySQL.Connect;
 begin
-  Database.Port := Port;
-  Database.UserName := User;
-  Database.Password := Password;
-  Database.HostName := Host;
-  Database.Database := Schema;
-  Database.Connect;
-  Init;
+  if not Connected then begin
+    Database.Port := Port;
+    Database.UserName := User;
+    Database.Password := Password;
+    Database.HostName := Host;
+    Database.Database := Schema;
+    Database.Connect;
+    Init;
+  end;
 end;
 
 procedure TPDClientMySQL.Disconnect;
 begin
-  Database.Disconnect;
+  if Connected then Database.Disconnect;
 end;