Changeset 3 for trunk/UMainForm.pas

Timestamp:

Jun 3, 2010, 3:16:40 PM (14 years ago)

Author:

george

Message:

• Přidáno: Formulář pro zobrazení a editaci položky.

File:

• trunk/UMainForm.pas (modified) (4 diffs)

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm;
+  StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm, UItemView;
 
 const
@@ -24 +24 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1KeyPress(Sender: TObject; var Key: char);
+    procedure ListView1Resize(Sender: TObject);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
     procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
   private
     procedure LoadConfiguration;
   public
+    SelectedObject: Integer;
+    SelectedItem: Integer;
     PersistentForm: TPersistentForm;
     Database: TSQLDatabase;
     procedure LoadTree;
+    procedure LoadItemList;
   end; 
 
@@ -93 +101 @@
 end;
 
+procedure TMainForm.ListView1DblClick(Sender: TObject);
+begin
+  ItemViewForm.Show;
+end;
+
+procedure TMainForm.ListView1KeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then ListView1DblClick(Sender);
+end;
+
+procedure TMainForm.ListView1Resize(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to ListView1.Columns.Count - 1 do
+    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
+end;
+
+procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
+begin
+  if Assigned(ListView1.Selected) then
+    SelectedItem := Integer(ListView1.Selected.Data)
+    else SelectedItem := 0;
+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;
+begin
+  LoadItemList;
 end;
 
@@ -163 +159 @@
 end;
 
+procedure TMainForm.LoadItemList;
+var
+  DbRows: TDbRows;
+  Properties: TDbRows;
+  Values: TDbRows;
+  I: Integer;
+  C: Integer;
+  NewItem: TListItem;
+  NewColumn: TListColumn;
+begin
+  SelectedObject := 0;
+  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
+      SelectedObject := StrToInt(DbRows[0].Values['Id']);
+
+      // 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 := Properties[I].Values['Name'];
+      end;
+
+      ListView1Resize(Self);
+
+      // 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[DbRows[0].Values['PrimaryKey']];
+        NewItem.Data := Pointer(StrToInt(Values[I].Values[DbRows[0].Values['PrimaryKey']]));
+        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;
+
 end.