Changeset 142 for devel/web/UDatabase.pas

Timestamp:

Jan 22, 2009, 9:20:15 AM (15 years ago)

Author:

george

Message:

• Přidáno: Jednotka pro správu finančních dokladů.

File:

• devel/web/UDatabase.pas (modified) (6 diffs)

devel/web/UDatabase.pas

@@ -9 +9 @@
 
 type
+  TDatabase = class;
 
   { TDbObject }
@@ -14 +15 @@
   TDbObject = class
     Id: Integer;
+    Loaded: Boolean;
+    Database: TDatabase;
     procedure Store; virtual;
+    procedure Load; virtual;
     procedure Delete;
+    constructor Create;
+    destructor Destroy; override;
   end;
+
+  TDbObjectClass = class of TDbObject;
 
   { TDbList }
 
   TDbList = class
+    Id: Integer;
+    Database: TDatabase;
+    ItemClassType: TDbObjectClass;
     Items: TList;
     constructor Create;
     destructor Destroy; override;
+    function Add: TDbObject;
+    procedure Store;
+    procedure Load;
   end;
 
@@ -35 +49 @@
   { TDatabase }
 
-  TDatabase = class
-    SqlDatabase: TSqlDatabase;
-    procedure Open;
-    procedure Close;
+  TDatabase = class(TSqlDatabase)
+    BaseObject: TDbObject;
+    constructor Create;
+    destructor Destroy; override;
+    procedure Init;
   end;
 
@@ -48 +63 @@
 end;
 
+procedure TDbObject.Load;
+begin
+
+end;
+
 procedure TDbObject.Delete;
 begin
 
+end;
+
+constructor TDbObject.Create;
+begin
+end;
+
+destructor TDbObject.Destroy;
+begin
+  inherited Destroy;
 end;
 
@@ -70 +99 @@
 end;
 
+function TDbList.Add: TDbObject;
+var
+  Data: TAssocArray;
+begin
+  Result := ItemClassType.Create;
+  Data := TAssocArray.Create;
+  Data.AddKeyValue('id', '');
+  Database.Insert(ClassName, Data);
+  Result.Id := Database.LastInsertId;;
+  Items.Add(Result);
+end;
+
+procedure TDbList.Store;
+var
+  I: Integer;
+  Data: TAssocArray;
+begin
+  Data := TAssocArray.Create;
+  Database.Insert(ClassName, Data);
+  for I := 0 to Items.Count - 1 do begin
+    Database.Insert(ClassName, Data);
+  end;
+end;
+
+procedure TDbList.Load;
+begin
+
+end;
+
 { TDbResultSet }
 
@@ -83 +141 @@
 { TDatabase }
 
-procedure TDatabase.Open;
+constructor TDatabase.Create;
 begin
-
+  BaseObject := TDbObject.Create;;
 end;
 
-procedure TDatabase.Close;
+destructor TDatabase.Destroy;
 begin
+  BaseObject.Free;
+end;
 
+procedure TDatabase.Init;
+begin
+  BaseObject.Id := 1;
+  BaseObject.Database := Self;
+  BaseObject.Load;
 end;