Changeset 158 for devel/web/UFinancePage.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/UFinancePage.pas (modified) (2 diffs)

devel/web/UFinancePage.pas

@@ -4 +4 @@
 
 interface
+
+uses
+  UDatabase, UConfig;
+
+type
+
+  { TBaseObject }
+
+  TBaseObject = class(TDbObject)
+  private
+    FName: string;
+  published
+    property Name: string read FName write FName;
+  end;
 
 function FinanceOverviewPage: string;
@@ -94 +108 @@
 end;
 
+function Test: string;
+var
+  Base: TBaseObject;
+begin
+  Result := ShowHeader('<strong>ZděchovNET</strong> - komunitní počítačová síť', 'Finance');
+  Base := TBaseObject.Create(nil);
+  Base.Database := TDatabase.Create;
+  Base.Database.Hostname := DatabaseHostname;
+  Base.Database.Database := 'centrala';
+  Base.Database.UserName := DatabaseUserName;
+  Base.Database.Password := DatabasePassword;
+  Base.Database.Connect;
+  //Base.Store;
+
+  Result := Result + ShowFooter;
+end;
+
+{ TBaseObject }
+
 begin
   RegisterPage('finance', @FinanceOverviewPage);    
-  RegisterPage('finance-clenove', @FinanceClientList);    
+  RegisterPage('finance-clenove', @FinanceClientList);
+  RegisterPage('test', @Test);
 end.