Changeset 38 for trunk/Pages/UMainPage.pas

Timestamp:

Nov 13, 2010, 4:32:15 PM (14 years ago)

Author:

george

Message:

• Přidáno: Zobrazení seznamu hostovaných projektů.
• Upraveno: Funkce Query jednotky SQLDatabase nyní nevrací novou instanci, ale výsledné řádky vrací v parametru. Bezpečnější metoda předcházející únikům paměti.

File:

• trunk/Pages/UMainPage.pas (modified) (3 diffs)

trunk/Pages/UMainPage.pas

@@ -80 +80 @@
       Text := '<table>';
       try
-        DbRows := Database.Query('SELECT * FROM History ORDER BY Date DESC');
+        DbRows := TDbRows.Create;
+        Database.Query(DbRows, 'SELECT * FROM History ORDER BY Date DESC');
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +
@@ -214 +215 @@
       '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>';
       try
-        DbRows := Database.Query('SELECT * FROM VPSHosting ORDER BY Price DESC');
+        DbRows := TDbRows.Create;
+        Database.Query(DbRows, 'SELECT * FROM VPSHosting ORDER BY Price DESC');
         for I := 0 to DbRows.Count - 1 do
           Text := Text + '<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
@@ -229 +231 @@
       '<br/>' +
       '<i>Aktualizováno: 1.7.2010</i>';
+
+      Text := Text + '<br/><br/><strong>Projekty využívající VPS hosting</strong><br/><ul>';
+      try
+        DbRows := TDbRows.Create;
+        Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=0');
+        for I := 0 to DbRows.Count - 1 do
+          Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
+            DbRows[I].Values['Name'] + '</a></li>';
+        Text := Text + '</ul>';
+      finally
+        DbRows.Free;
+      end;
+
+      Text := Text + '<br/><strong>Projekty využívající web hosting</strong><br/><ul>';
+      try
+        DbRows := TDbRows.Create;
+        Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=1');
+        for I := 0 to DbRows.Count - 1 do
+          Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
+            DbRows[I].Values['Name'] + '</a></li>';
+        Text := Text + '</ul>';
+      finally
+        DbRows.Free;
+      end;
     end;
   end;