Changeset 158 for devel/web/UBill.pas

Timestamp:

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

Author:

george

Message:

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

File:

• devel/web/UBill.pas (modified) (7 diffs)

devel/web/UBill.pas

@@ -17 +17 @@
   { TBillItem }
 
-  TBillItem = class(TDbObject)
+  TBillItem = class
+    Id: Integer;
     Description: string;
     Quantity: Integer;
     Price: Double;
-    procedure Load;  override;
-    procedure Store; override;
-  end;
-
-  TBillItemList = class(TDbList)
+    procedure Load;
+    procedure Store;
+  end;
+
+  TBillItemList = class
   end;
 
   { TBill }
 
-  TBill = class(TDbObject)
+  TBill = class
   private
     function CreateBill: Integer;
   public
+    Id: Integer;
     Items: TBillItemList;
     User: TUser;
@@ -43 +45 @@
     TimeDue: TDateTime;
     function GenerateBill: string;
-    procedure Load; override;
-    procedure Store; override;
+    procedure Load;
+    procedure Store;
   end;
 
@@ -59 +61 @@
   T: TUser;
 begin
+ (*
   T.FirstName:= 'ss';
 
   DbRows := Database.Select('finance_bills', '*', 'id=' + IntToStr(Id));
-  LoadFromDbRecord(DbRows[0]);
+//  LoadFromDbRecord(DbRows[0]);
   DbRows.Free;
 
@@ -74 +77 @@
     BillItem := TBillItem.Create;
 //    BillItem.LoadFromDbRecord(DbRows[I]);
-    Items.Add(BillItem);
+//    Items.Add(BillItem);
   end;
 
@@ -132 +135 @@
     '<tr><td colspan="2"><hr></td></tr>' +
     '</table>';
+    *)
 end;
 
 procedure TBill.Load;
 begin
+(*
   Id := StrToInt(DbRow.Values['id']);
   BillCode := DbRow.Values['BillCode'];
@@ -143 +148 @@
   TimeCreate := UnixToDateTime(StrToInt(DbRow.Values['time_create']));
   UserId := StrToInt(DbRow.Values['user_id']);
+*)
 end;
 
@@ -158 +164 @@
   Database.Update('finance_bills', Data, 'id=' + IntToStr(Id));
   Data.Free;
-  inherited Store;
 end;