Changeset 286 for branches/web/Pages


Ignore:
Timestamp:
Sep 8, 2010, 10:08:43 AM (14 years ago)
Author:
george
Message:
  • Odstraněno: Nadále nebude používána sada knihoven powutils.
  • Přidáno: Vlastní třída pro obsluhu a podporu zpracování CGI programů.
  • Upraveno: Korekce názvů sloupců a tabulek databáze.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/web/Pages/UMainPage.pas

    r283 r286  
    8686  // Zobrazení seznamu online počítačů
    8787  Output := Output + '<strong>Online počítače:</strong><br /><span style="font-size: smaller;">';
    88   DbRows := Database.Select('hosts', 'name', 'online=1 AND show_online=1 ORDER BY name');
     88  DbRows := Database.Query('SELECT NetworkDevice.Name FROM NetworkDevice LEFT JOIN NetworkDeviceType ' +
     89  ' ON NetworkDeviceType.Id = NetworkDevice.Type WHERE (NetworkDeviceType.ShowOnline = 1) AND (NetworkDevice.Online = 1) ORDER BY NetworkDevice.Name');
    8990  for I := 0 to DbRows.Count - 1 do with DbRows[I] do begin
    90     Output := Output + Values['name'] + '<br />';
     91    Output := Output + Values['Name'] + '<br />';
    9192  end;
    9293  DbRows.Free;
Note: See TracChangeset for help on using the changeset viewer.