Changeset 9 for trunk/Forms/UFormList.pas

Timestamp:

Nov 14, 2012, 4:08:53 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Zprovozněno zobrazování formulářového pohledu pro uživatele.

File:

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

trunk/Forms/UFormList.pas

@@ -76 +76 @@
       Selected: Boolean);
   private
-    FDataViewList: TDataViewList;
-    procedure SetDataViewList(AValue: TDataViewList);
+    FView: TDataViewList;
+    procedure SetView(AValue: TDataViewList);
   public
     DbRows: TDbRows;
-    property DataViewList: TDataViewList read FDataViewList write SetDataViewList;
+    property View: TDataViewList read FView write SetView;
     procedure UpdateInterface;
     procedure UpdateData;
@@ -93 +93 @@
 
 uses
-  UCore, UFormEdit;
+  UCore, UFormEdit, UFormMain;
 
 resourcestring
@@ -146 +146 @@
 
 procedure TFormList.AModifyExecute(Sender: TObject);
-begin
-  if FormEdit.ShowModal = mrOk then begin
-  end;
+var
+  Index: Integer;
+begin
+  Index := FormMain.DataViewLists.IndexOf(View);
+  FormEdit := TFormEdit.Create(FormMain);
+  FormEdit.ItemId := Integer(ListView1.Selected.Data);
+  FormEdit.View := TDataViewForm(FormMain.DataViewForms[Index]);
+  Core.CoolTranslator1.TranslateComponentRecursive(FormEdit);
+  if FormEdit.ShowModal = mrOk then begin
+  end;
+  FormEdit.Free;
 end;
 
@@ -162 +170 @@
     if MessageDlg(SItemDeletion, SDoYouWantToDeleteItem, mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then begin
-      Core.Database.Query(nil, 'DELETE FROM `' + DataViewList.Name +
+      Core.Database.Query(nil, 'DELETE FROM `' + View.Name +
         '` WHERE `Id` = ' + IntToStr(Integer(ListView1.Selected.Data)));
     end;
@@ -190 +198 @@
 begin
   if (Item.Index >= 0) and (Item.Index < DbRows.Count) then begin
-    for I := 0 to DataViewList.Columns.Count - 1 do begin
+    for I := 0 to View.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].Values[TDbColumn(DataViewList.Columns[I]).Name]);
+        else Item.SubItems.Add(DbRows[Item.Index].Values[TDbColumn(View.Columns[I]).Name]);
     end;
   end;
@@ -204 +212 @@
 end;
 
-procedure TFormList.SetDataViewList(AValue: TDataViewList);
-begin
-  if FDataViewList=AValue then Exit;
+procedure TFormList.SetView(AValue: TDataViewList);
+begin
+  if FView = AValue then Exit;
   if Assigned(AValue) then begin
   end else begin
@@ -212 +220 @@
     ListView1.Items.Clear;
   end;
-  FDataViewList := AValue;
+  FView := AValue;
 end;
 
@@ -231 +239 @@
   ListView1.Columns.Clear;
   Filter := 'Id';
-  for I := 0 to DataViewList.Columns.Count - 1 do
-  with TDbColumn(DataViewList.Columns[I]) do begin
+  for I := 0 to View.Columns.Count - 1 do
+  with TDbColumn(View.Columns[I]) do begin
     NewColumn := ListView1.Columns.Add;
     NewColumn.Caption := Caption;
@@ -239 +247 @@
     Filter := Filter + ', `' + Name + '`';
   end;
-  Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + DataViewList.Name);
+  Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + View.Name);
 
   ListView1.Items.Count := DbRows.Count;