Changeset 46 for trunk/Pages/UMainPage.pas

Timestamp:

Jan 30, 2011, 11:06:37 AM (14 years ago)

Author:

george

Message:

• Přidáno: Stránka "Plánované projekty".
• Upraveno: Přeorganizace hlavního menu a přidána položka "Síť".

File:

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

trunk/Pages/UMainPage.pas

@@ -20 +20 @@
 procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
 procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
 
 implementation
@@ -37 +39 @@
     '<a href="http://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +
     '<a href="http://farnost.zdechov.net/">Farnost Zděchov</a> - informace k místní farnosti<br/>' +
-    '<br/>' +
-
-    '<strong>Hostované servery:</strong><br/>' +
-    //'<a href="http://www.heroesoffantasy.cz/">Heroes of Fantasy</a> - free World of Warcraft server<br/>' +
-    '<a href="http://wowpreklad.zdechov.net/">WoWpřeklad</a> - překlad hry WoW do češtiny<br/>' +
-    '<a href="http://www.unitedstorm.eu/">UnitedStorm</a> - herní server<br/>' +
-    '<a href="http://victus.cz/">Victus</a> - herní server hry WoW<br/>' +
-    '<a href="http://gameshoot.eu/">GameShoot</a> - herní portál<br/>' +
-    '<a href="http://sharp.zdechov.net/"></a> - Sharp MZ community web<br/>' +
-
     '<br/>' +
 
@@ -87 +79 @@
             DbRows[I].Values['Text'] + '</td></tr>';
         end;
+      finally
+        DbRows.Free;
+      end;
+      Text := Text + '</table>';
+    end;
+  end;
+end;
+
+procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
+var
+  DbRows: TDbRows;
+  I: Integer;
+begin
+  with App do begin
+    HtmlDocument.Title := 'Plánované projekty';
+
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+      Text := '<table>';
+      try
+        DbRows := TDbRows.Create;
+        Text := '<br/><strong>Plánované úkoly:</strong><br />' +
+          '<div><ul>';
+        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NULL ORDER BY `TimeCreate`');
+        for I := 0 to DbRows.Count - 1 do begin
+          Text := Text + '<li>' + DbRows[I].Values['Description'] + '</li>';
+        end;
+        Text := Text + '</ul></div><br/>';
+
+        Text := Text + '<br/><strong>Hotové úkoly:</strong><br />' +
+          '<div><ul>';
+        Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NOT NULL ORDER BY `TimeCreate`');
+        for I := 0 to DbRows.Count - 1 do begin
+          Text := Text + '<li>' + DbRows[I].Values['Description'] + '<br/>' +
+            '<i style="padding-left: 30px;">' + DbRows[I].Values['Conclusion'] + '</i></li>';
+        end;
+        Text := Text + '</ul></div><br/>';
+
       finally
         DbRows.Free;
@@ -181 +210 @@
     '<li>V sítí Mikrotech: 0 Kč/minutu</li>' +
     '<li>Volání do pevných sítí: 0,5 Kč/minutu</li>' +
-    '<li>Volání do mobilních sítí: 2,33 Kč/minutu</li>' +
+    '<li>Volání do mobilních sítí: 1,95 Kč/minutu</li>' +
     '<li>Přenesení vašeho čísla: 1200 Kč</li>' +
     '</ul><br/>' +
@@ -265 +294 @@
 end;
 
+procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
+var
+  TextBlock: THtmlString;
+begin
+  with App do begin
+    HtmlDocument.Title := 'Síť';
+
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+      Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +
+        MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +
+        MakeLink('Plánované projekty', NavigationLink('/plany/')) + '<br/>';
+    end;
+  end;
+end;
+
 procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
 var
@@ -270 +314 @@
 begin
   with App do begin
-    HtmlDocument.Title := 'O síti';
+    HtmlDocument.Title := 'Úvod';
 
     with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
@@ -373 +417 @@
     if PageName = 'prihlaseni' then begin
       Text := 'Login';
-      NewForm := TQueryForm.Create;
-      NewForm.Title := 'Přihlášení';
-//        NewForm.Action := THTMLInput.Create;
-//        NewForm.Action
-      NewGroup := TQueryFormGroup.Create;
-      NewGroup.Title := 'Základní údaje';
-      NewItem := TQueryFormItem.Create;
-      NewItem.Caption := 'Jméno';
-      NewItem.Hint := 'Zadejte vaše přihlašovací jméno';
-      NewItem.Required := True;
-      NewGroup.Rows.Add(NewItem);
-      NewItem := TQueryFormItem.Create;
-      NewItem.Caption := 'Heslo';
-      NewItem.Hint := 'Zadejte vaše heslo';
-      NewItem.Required := True;
-      NewGroup.Rows.Add(NewItem);
-      NewForm.Groups.Add(NewGroup);
-      App.HtmlDocument.Body.SubItems.Add(NewForm);
+      with App.HtmlDocument.Body, TQueryForm(SubItems[SubItems.Add(TQueryForm.Create)]) do begin
+        Title := 'Přihlášení';
+        with TQueryFormGroup(Groups[Groups.Add(TQueryFormGroup.Create)]) do begin
+          Title := 'Základní údaje';
+          with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
+            Caption := 'Jméno';
+            Hint := 'Zadejte vaše přihlašovací jméno';
+            Required := True;
+          end;
+          with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
+            Caption := 'Heslo';
+            Hint := 'Zadejte vaše heslo';
+            Required := True;
+          end;
+        end;
+      end;
     end else Text := '';
   end;