Changeset 8 for trunk/Forms/UFormList.pas

Timestamp:

Nov 14, 2012, 2:58:35 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Ikony k záložkám jednotlivých tabulek.
• Upraveno: Zobecněn systém pohledů na dynamickou strukturu.

File:

• trunk/Forms/UFormList.pas (modified) (12 diffs)

trunk/Forms/UFormList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, SpecializedList, USqlDatabase, UListViewSort;
+  ActnList, Menus, StdCtrls, ExtCtrls, SpecializedList, USqlDatabase,
+  UListViewSort, UDataView, URegistry;
 
 type
@@ -21 +22 @@
   TListDbColumn = class(TListObject)
     procedure AddItem(Caption, Name: string; Visible: Boolean; Width: Integer);
+  end;
+
+  { TDataViewList }
+
+  TDataViewList = class(TDataView)
+    Caption: string;
+    Name: string;
+    ImageIndex: Integer;
+    Columns: TListDbColumn;
+    constructor Create;
+    destructor Destroy; override;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
   end;
 
@@ -34 +48 @@
     ADuplicate: TAction;
     ActionList1: TActionList;
+    LabelItemCount: TLabel;
     ListView1: TListView;
     MenuItem1: TMenuItem;
@@ -40 +55 @@
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
+    Panel1: TPanel;
     PopupMenu1: TPopupMenu;
     ToolBar1: TToolBar;
@@ -60 +76 @@
       Selected: Boolean);
   private
+    FDataViewList: TDataViewList;
+    procedure SetDataViewList(AValue: TDataViewList);
   public
-    Columns: TListDbColumn;
     DbRows: TDbRows;
-    Table: string;
+    property DataViewList: TDataViewList read FDataViewList write SetDataViewList;
     procedure UpdateInterface;
     procedure UpdateData;
@@ -80 +97 @@
 resourcestring
   SItemDeletion = 'Item deletion';
-  SDoYouWantToDeleteItem = 'Do you want to delte item';
+  SDoYouWantToDeleteItem = 'Do you want to really delete item?';
+  SItemCount = 'Item count: %s';
+
+{ TDataViewList }
+
+constructor TDataViewList.Create;
+begin
+  Columns := TListDbColumn.Create;
+end;
+
+destructor TDataViewList.Destroy;
+begin
+  Columns.Free;
+  inherited Destroy;
+end;
+
+procedure TDataViewList.LoadFromRegistry(Context: TRegistryContext);
+begin
+
+end;
+
+procedure TDataViewList.SaveToRegistry(Context: TRegistryContext);
+begin
+
+end;
 
 { TListColumns }
@@ -101 +142 @@
 procedure TFormList.FormCreate(Sender: TObject);
 begin
-  Columns := TListDbColumn.Create;
   DbRows := TDbRows.Create;
 end;
@@ -122 +162 @@
     if MessageDlg(SItemDeletion, SDoYouWantToDeleteItem, mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then begin
-      Core.Database.Query(nil, 'DELETE FROM `' + Table + '` WHERE `Id` = ' + IntToStr(0));
+      Core.Database.Query(nil, 'DELETE FROM `' + DataViewList.Name +
+        '` WHERE `Id` = ' + IntToStr(Integer(ListView1.Selected.Data)));
     end;
   end;
@@ -137 +178 @@
   ListView1.Items.Count := 0;
   FreeAndNil(DbRows);
-  FreeAndNil(Columns);
 end;
 
@@ -150 +190 @@
 begin
   if (Item.Index >= 0) and (Item.Index < DbRows.Count) then begin
-    for I := 0 to Columns.Count - 1 do begin
+    for I := 0 to DataViewList.Columns.Count - 1 do begin
+      Item.Data := Pointer(StrToInt(DbRows[Item.Index].Values['Id']));
       if I = 0 then Item.Caption := DbRows[Item.Index].Items[0].Value
-        else Item.SubItems.Add(DbRows[Item.Index].Items[I].Value);
+        else Item.SubItems.Add(DbRows[Item.Index].Values[TDbColumn(DataViewList.Columns[I]).Name]);
     end;
   end;
@@ -161 +202 @@
 begin
   UpdateInterface;
+end;
+
+procedure TFormList.SetDataViewList(AValue: TDataViewList);
+begin
+  if FDataViewList=AValue then Exit;
+  if Assigned(AValue) then begin
+  end else begin
+    DbRows.Clear;
+    ListView1.Items.Clear;
+  end;
+  FDataViewList := AValue;
 end;
 
@@ -178 +230 @@
 begin
   ListView1.Columns.Clear;
-  Filter := '';
-  for I := 0 to Columns.Count - 1 do begin
+  Filter := 'Id';
+  for I := 0 to DataViewList.Columns.Count - 1 do
+  with TDbColumn(DataViewList.Columns[I]) do begin
     NewColumn := ListView1.Columns.Add;
-    NewColumn.Caption := TDbColumn(Columns[I]).Caption;
-    NewColumn.Width := TDbColumn(Columns[I]).Width;
-    NewColumn.Visible := TDbColumn(Columns[I]).Visible;
-    if I > 0 then Filter := Filter + ', ';
-    Filter := Filter + TDbColumn(Columns[I]).Name;
-  end;
-  Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + Table);
-
-  ListView1.Items.Count := DbRows.Count;;
+    NewColumn.Caption := Caption;
+    NewColumn.Width := Width;
+    NewColumn.Visible := Visible;
+    Filter := Filter + ', `' + Name + '`';
+  end;
+  Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + DataViewList.Name);
+
+  ListView1.Items.Count := DbRows.Count;
   ListView1.Refresh;
+
+  LabelItemCount.Caption := Format(SItemCount, [IntToStr(DbRows.Count)]);
 end;