Changeset 4 for trunk/UCore.pas

Timestamp:

Nov 13, 2012, 10:58:17 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Balíček CoolWeb pro přístup k SQL databázi.
• Přidáno: Struktura databáze.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil;
+  Classes, SysUtils, FileUtil, USqlDatabase;
 
 type
+
+  { TCore }
+
   TCore = class(TDataModule)
   private
-    { private declarations }
   public
-    { public declarations }
+    Database: TSQLDatabase;
+    procedure InitData;
   end;
 
@@ -23 +26 @@
 {$R *.lfm}
 
+{ TCore }
+
+procedure TCore.InitData;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Database.Query(DbRows, '');
+  finally
+    DbRows.Free;
+  end;
+end;
+
 end.