Changeset 158 for devel/web/UUser.pas

Timestamp:

Feb 18, 2009, 12:11:53 PM (15 years ago)

Author:

george

Message:

• Upraveno: Přepracován databázový objektový subsystém.

File:

• devel/web/UUser.pas (modified) (2 diffs)

devel/web/UUser.pas

@@ -12 +12 @@
   { TUser }
 
-  TUser = class(TDbObject)
+  TUser = class
+    Id: Integer;
     SubjectName: string;
     FirstName: string;
@@ -26 +27 @@
     DIC: string;
     procedure LoadFromDbRecord(DbRow: TAssocArray);
-    procedure Store; override;
+    procedure Store;
   end;