Changeset 15 for trunk/UCore.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)
• UCore.pas (modified) (4 diffs)

trunk

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

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UCoolTranslator, USystem, USqlDatabase;
+  Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem,
+  USqlDatabase;
 
 type
@@ -14 +15 @@
   TCore = class(TDataModule)
     CoolTranslator1: TCoolTranslator;
+    DebugLog1: TDebugLog;
+    SqlDatabase1: TSqlDatabase;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure SqlDatabase1LogQuery(Sender: TObject; Text: string);
   private
     { private declarations }
@@ -34 +38 @@
 begin
   System := TChronisBase.Create;
-  System.Database := TSqlDatabase.Create;
+  System.Database := SqlDatabase1;
+  {$IFDEF DEBUG}
+  DebugLog1.WriteToFileEnable := True;
+  {$ENDIF}
 end;
 
@@ -42 +49 @@
 end;
 
+procedure TCore.SqlDatabase1LogQuery(Sender: TObject; Text: string);
+begin
+  DebugLog1.Add('', Text);
+end;
+
 end.
 

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