Changeset 16 for trunk/Forms/UFormList.pas

Timestamp:

Nov 15, 2012, 2:01:43 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Vkládání, úprava a mazání položek jsou nyní funkční.

File:

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

trunk/Forms/UFormList.pas

@@ -69 +69 @@
     procedure ADuplicateExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
+    procedure AReloadExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -99 +100 @@
   SDoYouWantToDeleteItem = 'Do you want to really delete item?';
   SItemCount = 'Item count: %s';
+  SModifyItem = 'Modify item';
+  SAddItem = 'Add item';
 
 { TDataViewList }
@@ -149 +152 @@
   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;
+  try
+    FormEdit := TFormEdit.Create(FormMain);
+    Index := FormMain.DataViewLists.IndexOf(View);
+    FormEdit.ItemId := Integer(ListView1.Selected.Data);
+    FormEdit.View := TDataViewForm(FormMain.DataViewForms[Index]);
+    FormEdit.LoadFromDatabase;
+    FormEdit.Caption := SModifyItem;
+    Core.CoolTranslator1.TranslateComponentRecursive(FormEdit);
+    if FormEdit.ShowModal = mrOk then begin
+      FormEdit.SaveToDatabase;
+      UpdateData;
+    end;
+  finally
+    FormEdit.Free;
+  end;
+end;
+
+procedure TFormList.AReloadExecute(Sender: TObject);
+begin
+  UpdateData;
 end;
 
 procedure TFormList.AAddExecute(Sender: TObject);
-begin
-  if FormEdit.ShowModal = mrOk then begin
+var
+  Index: Integer;
+begin
+  try
+    FormEdit := TFormEdit.Create(FormMain);
+    Index := FormMain.DataViewLists.IndexOf(View);
+    FormEdit.ItemId := 0;
+    FormEdit.View := TDataViewForm(FormMain.DataViewForms[Index]);
+    FormEdit.ClearData;
+    FormEdit.Caption := SAddItem;
+    Core.CoolTranslator1.TranslateComponentRecursive(FormEdit);
+    if FormEdit.ShowModal = mrOk then begin
+      FormEdit.SaveToDatabase;
+      UpdateData;
+    end;
+  finally
+    FormEdit.Free;
   end;
 end;
@@ -167 +197 @@
 procedure TFormList.ADeleteExecute(Sender: TObject);
 begin
-  if FormEdit.ShowModal = mrOk then begin
-    if MessageDlg(SItemDeletion, SDoYouWantToDeleteItem, mtConfirmation,
-      [mbYes, mbNo], 0) = mrYes then begin
-      Core.Database.Query(nil, 'DELETE FROM `' + View.Name +
-        '` WHERE `Id` = ' + IntToStr(Integer(ListView1.Selected.Data)));
-    end;
+  if MessageDlg(SItemDeletion, SDoYouWantToDeleteItem, mtConfirmation,
+    [mbYes, mbNo], 0) = mrYes then begin
+    Core.Database.Delete(View.Name, '`Id` = ' + IntToStr(Integer(ListView1.Selected.Data)));
+    UpdateData;
   end;
 end;
@@ -200 +228 @@
     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
+      if I = 0 then Item.Caption := DbRows[Item.Index].Values[TDbColumn(View.Columns[I]).Name]
         else Item.SubItems.Add(DbRows[Item.Index].Values[TDbColumn(View.Columns[I]).Name]);
     end;