Changeset 15 for trunk/USystem.pas

Timestamp:

Jun 13, 2011, 8:25:31 AM (13 years ago)

Author:

george

Message:

• Modified: USqlDatabase used from CoolWeb package.
• Added: Store item data to database for Add and Edit dialog.

Location:

trunk

Files:

• . (modified) (1 prop)
• USystem.pas (modified) (4 diffs)

trunk

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt

trunk/USystem.pas

@@ -184 +184 @@
         Columns.Add(NewColumn);
         NewColumn.Caption := Properties[I].Values['Name'];
-        NewColumn.ColumnName := Properties[I].Values['ColumnName'];;
+        NewColumn.ColumnName := Properties[I].Values['ColumnName'];
         NewColumn.CustomType := GetDataType(StrToInt(Properties[I].Values['CustomType']));
       end;
@@ -298 +298 @@
     Data.Add('Default', IntToStr(Default));
     Database.Insert(TypeNumber, Data);
-    CustomTypeId := Database.LastInsertId;
+    //CustomTypeId := Database.LastInsertId;
 
     Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
@@ -414 +414 @@
 constructor TChronisBase.Create;
 begin
-  Database := TSqlDatabase.Create;
   Types := TChronisTypeList.Create;
 end;
@@ -421 +420 @@
 begin
   Types.Free;
-  Database.Free;
   inherited Destroy;
 end;

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt