Changeset 2 for trunk/UMainForm.pas

Timestamp:

May 30, 2010, 6:09:55 PM (14 years ago)

Author:

george

Message:

• Přidáno: Uchování polohy a velikosti oken.
• Přidáno: Čtení stromu skupin a objektů. Zobrazení seznamů objektů.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (3 diffs)

trunk

@@ -1 +1 @@
 lib
+Config.xml
+chronis

@@ -1 +1 @@
 lib
+Config.xml
+chronis

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, USqlDatabase;
+  StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm;
+
+const
+  ConfigFileName = 'Config.xml';
 
 type
@@ -18 +21 @@
     ListView1: TListView;
     TreeView1: TTreeView;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
   private
-    { private declarations }
+    procedure LoadConfiguration;
   public
+    PersistentForm: TPersistentForm;
     Database: TSQLDatabase;
     procedure LoadTree;
@@ -35 +42 @@
 { TMainForm }
 
+procedure TMainForm.LoadConfiguration;
+var
+  Config: TXMLDocument;
+  I1: Integer;
+  I2: Integer;
+  I3: Integer;
+begin
+  if FileExists(ConfigFileName) then begin
+    ReadXMLFile(Config, ConfigFileName);
+    for I1 := 0 to Config.ChildNodes.Count - 1 do
+    with Config.ChildNodes[I1] do begin
+      if NodeName = 'configuration' then
+      for I2 := 0 to ChildNodes.Count - 1 do
+      with ChildNodes[I2] do begin
+        if NodeName = 'database' then
+        for I3 := 0 to ChildNodes.Count - 1 do
+        with ChildNodes[I3] do begin
+          if NodeName = 'hostname' then
+            Database.HostName := TextContent;
+          if NodeName = 'schema' then
+            Database.Schema := TextContent;
+          if NodeName = 'username' then
+            Database.UserName := TextContent;
+          if NodeName = 'password' then
+            Database.Password := TextContent;
+        end;
+      end;
+    end;
+    Config.Destroy;
+  end;
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
   Database := TSqlDatabase.Create;
-  with Database do begin
-    Hostname := 'localhost';
-    Schema := 'chronis_system';
-    UserName := 'root';
+  LoadConfiguration;
+  Database.Connect;
+  PersistentForm := TPersistentForm.Create;
+end;
 
+procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  PersistentForm.Save(Self);
+end;
+
+procedure TMainForm.FormShow(Sender: TObject);
+begin
+  PersistentForm.Load(Self);
+  LoadTree;
+end;
+
+procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
+var
+  DbRows: TDbRows;
+  Properties: TDbRows;
+  Values: TDbRows;
+  I: Integer;
+  C: Integer;
+  NewItem: TListItem;
+  NewColumn: TListColumn;
+begin
+  if Assigned(TreeView1.Selected) then
+  with ListView1, Items do begin
+    Clear;
+    DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(TreeView1.Selected.ImageIndex));
+    if DbRows.Count = 1 then begin
+      // Load column names
+      Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
+        DbRows[0].Values['Id']);
+      Columns.Clear;
+      NewColumn := Columns.Add;
+      NewColumn.Caption := 'Id';
+      for I := 0 to Properties.Count - 1 do begin
+        NewColumn := Columns.Add;
+        NewColumn.Caption := DbRows[I].Values['Name'];
+      end;
+
+      // Load items
+      Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
+        DbRows[0].Values['Table'] + '`');
+      for I := 0 to Values.Count - 1 do begin
+        NewItem := Items.Add;
+        NewItem.Caption := Values[I].Values['Id'];
+        for C := 0 to Properties.Count - 1 do begin
+          NewItem.SubItems.Add(Values[I].Values[Properties[C].Values['ColumnName']]);
+        end;
+      end;
+      Values.Destroy;
+      Properties.Destroy;
+    end;
+    DbRows.Destroy;
   end;
 end;
 
 procedure TMainForm.LoadTree;
+var
+  DbRows: TDbRows;
+  ObjectDbRows: TDbRows;
+  I: Integer;
+  O: Integer;
+  NewNode: TTreeNode;
+  NewObjectNode: TTreeNode;
 begin
-
+  with TreeView1, Items do begin
+    Clear;
+    AddChild(nil, 'Skupiny');
+    DbRows := Database.Query('SELECT * FROM `MenuGroup`');
+    for I := 0 to DbRows.Count - 1 do begin
+      NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
+      ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `MenuGroup`=' + DbRows[I].Values['Id']);
+      for O := 0 to ObjectDbRows.Count - 1 do begin
+        NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
+        NewObjectNode.ImageIndex := StrToInt(ObjectDbRows[O].Values['Id']);
+      end;
+      ObjectDbRows.Destroy;
+    end;
+    TopItem.Expand(True);
+    DbRows.Destroy;
+  end;
 end;
 

@@ -1 +1 @@
 lib
+Config.xml
+chronis