Changeset 11 for trunk/USystem.pas

Timestamp:

Jun 9, 2011, 12:34:21 PM (13 years ago)

Author:

george

Message:

• Added: Build in SQL structure and initial values initialization.

File:

• trunk/USystem.pas (modified) (6 diffs)

trunk/USystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SpecializedList, USqlDatabase, Strings;
+  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
+  Strings;
+
+const
+  ObjectGroupTable = 'ObjectGroup';
+  ObjectTable = 'Object';
+  InformationTable = 'Information';
+  PropertyTable = 'Property';
+  PropertyTypeTable = 'Type';
+  PropertyGroupTable = 'PropertyGroup';
 
 type
   TDbValueType = (vtNone, vtInteger, vtString, vtText, vtDateTime, vtFloat, vtImage, vtBoolean,
   vtIPv4, vtMAC, vtIPv6, vtFile, vtGPS, vtEnumeration, vtHyperlink, vtPassword,
-  vtReference, vtDate, vtTime, vtColor);
+  vtReference, vtDate, vtTime, vtColor, vtCurrency);
 
   TChronisType = class;
@@ -63 +72 @@
     DbType: string;
     DbTable: string;
+    TypeIndex: Integer;
     Parent: TChronisType;
   end;
@@ -71 +81 @@
     Types: TListObject;  // TList<TChronisType>
     Database: TSQLDatabase;
+    function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
+    function AddObject(Name, TableName, Schema: string; GroupId: Integer): Integer;
+    function AddProperty(ObjectId: Integer; Name, ColumnName: string; DataType: Integer): Integer;
+    function AddObjectGroup(Name: string): Integer;
     constructor Create;
     destructor Destroy; override;
@@ -107 +121 @@
     try
       Properties := TDbRows.Create;
-      Base.Database.Query(Properties, 'SELECT * FROM `Property` WHERE `Object`='
-        + IntToStr(Obj.Id));
+      Base.Database.Query(Properties, 'SELECT * FROM `' + PropertyTable +
+        '` WHERE `Object`=' + IntToStr(Obj.Id));
       Columns.Clear;
       NewColumn := TReportColumn.Create;
@@ -149 +163 @@
 end;
 
+function TChronisBase.AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+    Data.Add('Name', Name);
+    Data.Add('DbType', DataType);
+    Data.Add('TypeIndex', IntToStr(Integer(TypeIndex)));
+    Database.Insert(PropertyTypeTable, Data);
+    Result := Database.LastInsertId;
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
+function TChronisBase.AddObject(Name, TableName, Schema: string;
+  GroupId: Integer): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+    Data.Add('Name', Name);
+    Data.Add('Schema', Schema);
+    Data.Add('Table', TableName);
+    Data.Add('Group', IntToStr(GroupId));
+    Database.Insert(ObjectTable, Data);
+    Result := Database.LastInsertId;
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
+function TChronisBase.AddProperty(ObjectId: Integer; Name, ColumnName: string;
+  DataType: Integer): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+    Data.Add('Name', Name);
+    Data.Add('Object', IntToStr(ObjectId));
+    Data.Add('ColumnName', ColumnName);
+    Data.Add('Type', IntToStr(DataType));
+    Database.Insert(PropertyTable, Data);
+    Result := Database.LastInsertId;
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
+function TChronisBase.AddObjectGroup(Name: string): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+    Data.Add('Name', Name);
+    Database.Insert(ObjectGroupTable, Data);
+    Result := Database.LastInsertId;
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
 constructor TChronisBase.Create;
 begin
@@ -184 +276 @@
   try
     DbRows := TDbRows.Create;
-    Base.Database.Query(DbRows, 'SELECT * FROM `Object` WHERE `Id`=' + IntToStr(ObjectId));
+    Base.Database.Query(DbRows, 'SELECT * FROM `' + ObjectTable +
+      '` WHERE `Id`=' + IntToStr(ObjectId));
     if DbRows.Count = 1 then begin
       Id := ObjectId;