[+] add task name column to the grid, closes #40

Author: pashagolub

forms/fmmain.lfm

@@ -250,6 +250,11 @@ object fmMain: TfmMain
             AutoFillColumns = True
             Color = clWindow
             Columns = <            
+              item
+                Title.Caption = 'Task Name'
+                Width = 339
+                FieldName = 'task_name'
+              end            
               item
                 MinSize = 9
                 MaxSize = 201
@@ -278,7 +283,7 @@ object fmMain: TfmMain
                 MaxSize = 99
                 SizePriority = 2
                 Title.Caption = 'Command'
-                Width = 508
+                Width = 339
                 FieldName = 'command'
               end            
               item
@@ -312,7 +317,7 @@ object fmMain: TfmMain
                 MinSize = 9
                 MaxSize = 201
                 Title.Caption = 'Connection String'
-                Width = 509
+                Width = 339
                 FieldName = 'connect_string'
               end>
             DataSource = dmPgEngine.dsTasks

forms/fmmain.pas

@@ -251,7 +251,7 @@ procedure TfmMain.acChainToolbarUpdate(Sender: TObject);
   acChainRefresh.Enabled := CanModify;
   tsChain.TabVisible := acChainDelete.Enabled;
   if acChainDelete.Enabled then
-     tsChain.Caption := 'Chain: ' + dmPgEngine.qryChains.FieldValues['chain_name'];
+     tsChain.Caption := 'Chain: ' + dmPgEngine.qryChains.FieldByName('chain_name').AsString;
 end;
 
 procedure TfmMain.acMoveTaskDownExecute(Sender: TObject);
@@ -351,6 +351,7 @@ procedure TfmMain.acTaskRefreshExecute(Sender: TObject);
 procedure TfmMain.acTaskToolbarUpdate(Sender: TObject);
 var
   CanModify: boolean;
+  F: TField;
 begin
   CanModify := dmPgEngine.IsConnected() and dmPgEngine.qryTasks.CanModify;
   acTaskAdd.Enabled := CanModify;
@@ -361,6 +362,15 @@ procedure TfmMain.acTaskToolbarUpdate(Sender: TObject);
   acTaskPost.Enabled := CanModify and (dmPgEngine.qryTasks.State in dsEditModes);
   acTaskCancel.Enabled := CanModify and (dmPgEngine.qryTasks.State in dsEditModes);
   acTaskRefresh.Enabled := CanModify;
+  tsTask.TabVisible := acTaskEdit.Enabled;
+  if tsTask.TabVisible then
+  begin
+    F := dmPgEngine.qryTasks.FieldByName('task_name');
+    if not F.IsNull then
+      tsTask.Caption := 'Task: ' + F.AsString
+    else
+      tsTask.Caption := 'Task: ' + LeftStr(dmPgEngine.qryTasks.FieldByName('command').AsString, 50);
+  end;
 end;
 
 procedure TfmMain.acConnectClick(Sender: TObject);

udatamodule.lfm

@@ -123,6 +123,7 @@ object dmPgEngine: TdmPgEngine
     Transaction = transChains
     SQL.Strings = (
       'WITH RECURSIVE x ('
+      '    task_name,'
       '    parent_id,'
       '    task_id,'
       '    command,'
@@ -133,6 +134,7 @@ object dmPgEngine: TdmPgEngine
       '    connect_string'
       ') AS ('
       '    SELECT'
+      '        tc.task_name,'
       '        NULL::bigint,'
       '        tc.task_id,'
       '        tc.command,'
@@ -148,6 +150,7 @@ object dmPgEngine: TdmPgEngine
       '        AND tc.task_id = :"task_id"'
       '    UNION ALL'
       '    SELECT'
+      '        tc.task_name,'
       '        tc.parent_id,'
       '        tc.task_id,'
       '        tc.command,'
@@ -166,6 +169,7 @@ object dmPgEngine: TdmPgEngine
     )
     InsertSQL.Strings = (
       'INSERT INTO timetable.task('
+      '    task_name,'
       '    parent_id,'
       '    command,'
       '    kind,'
@@ -174,6 +178,7 @@ object dmPgEngine: TdmPgEngine
       '    autonomous,'
       '    database_connection'
       ') VALUES ('
+      '    :"task_name",'
       '    :"parent_id",'
       '    :"command",'
       '    :"kind",'
@@ -185,13 +190,15 @@ object dmPgEngine: TdmPgEngine
     )
     UpdateSQL.Strings = (
       'UPDATE timetable.task SET ('
+      '    task_name,'
       '    command,'
       '    kind,'
       '    run_as,'
       '    ignore_error,'
       '    autonomous,'
       '    database_connection'
       '  ) = ('
+      '    :"task_name",'
       '    :"command",'
       '    :"kind",'
       '    :"run_as",'