Changeset 7 for trunk/Forms/UFormList.pas

Timestamp:

Nov 14, 2012, 12:33:52 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Doplněno zobrazení dalších tabulek.
• Přidáno: InnoSetup skript pro sestavení instalátoru.

File:

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

trunk/Forms/UFormList.pas

@@ -27 +27 @@
   TFormList = class(TForm)
     AAdd: TAction;
+    APrint: TAction;
+    AExport: TAction;
     AReload: TAction;
     AModify: TAction;
@@ -45 +47 @@
     ToolButton4: TToolButton;
     ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
+    procedure AAddExecute(Sender: TObject);
+    procedure ADeleteExecute(Sender: TObject);
+    procedure ADuplicateExecute(Sender: TObject);
+    procedure AModifyExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -68 +76 @@
 
 uses
-  UCore;
+  UCore, UFormEdit;
+
+resourcestring
+  SItemDeletion = 'Item deletion';
+  SDoYouWantToDeleteItem = 'Do you want to delte item';
 
 { TListColumns }
@@ -91 +103 @@
   Columns := TListDbColumn.Create;
   DbRows := TDbRows.Create;
+end;
+
+procedure TFormList.AModifyExecute(Sender: TObject);
+begin
+  if FormEdit.ShowModal = mrOk then begin
+  end;
+end;
+
+procedure TFormList.AAddExecute(Sender: TObject);
+begin
+  if FormEdit.ShowModal = mrOk then begin
+  end;
+end;
+
+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 `' + Table + '` WHERE `Id` = ' + IntToStr(0));
+    end;
+  end;
+end;
+
+procedure TFormList.ADuplicateExecute(Sender: TObject);
+begin
+  if FormEdit.ShowModal = mrOk then begin
+  end;
 end;