🚀 go-pugleaf

Hello,


I have two procedures in my program:


--- Cut ---
// This procedure changes "Completed"
procedure TForm1.dlCompleteProcess(ProcID:Integer);
begin
 ZPutProcesses.Active := True;
 if ZPutProcesses.Locate('ProcessID',ProcID,[]) = True then
  begin
   ZPutProcesses.Edit;
    ZPutProcesses.FieldByName('Completed').AsBoolean := True;
   ZPutProcesses.Post;
  end;
 ZPutProcesses.Active := False;
end;
--- Paste ---


Next procedure populates a string grid with data received from
the same table (Processes).


--- Cut --
procedure TForm1.dlListProcesses(Serial:String);
var WOID    ,
    intRow  : Integer;
begin


 if ZWorkOrder.Locate('WorkOrder',Serial,[]) = true then
  begin


   ZPutProcesses.Active := False;
   ZPutProcesses.Active := True;


   WOID := ZWorkOrder.FieldByName('WorkOrderID').AsInteger;


   ZPutProcesses.Filter   := 'WorkOrderID=' + IntToStr(WOID);
   ZPutProcesses.Filtered :=  True;
   ZPutProcesses.First;


   ShortDateFormat := 'mm/dd/yy';
   labStart.Caption :=
DateToStr(ZWorkOrder.FieldByName('Start').AsDateTime);


   intRow := 1;
   repeat
    sgProcesses.Col := 0;


sgProcesses.Rows[intRow].Add(ZPutProcesses.FieldByName('ProcessName').AsStr­ing);

    sgProcesses.Col := 1;
    if ZPutProcesses.FieldByName('Completed').AsBoolean = True then
     sgProcesses.Rows[intRow].Add('YES')
    else
     sgProcesses.Rows[intRow].Add('NO');
    ZPutProcesses.Next;
    Inc(intRow);
    if ZPutProcesses.Eof <> True then sgProcesses.RowCount := intRow +
1;
   until ZPutProcesses.Eof = True;


   sgProcesses.Col := 0;
   sgProcesses.Row := 1;


   ZPutProcesses.Filter   := '';
   ZPutProcesses.Filtered :=  False;
   ZPutProcesses.Active := False;
  end
end;
--- Paste --


ZPutProcesses is TZTable; { descendant of regular TTable class }


First, I call dlCompleteProcess then I call dlListProcesses. The
problem is that table does not reflect any changes made by
dlCompleteProcess. I'm using ZEOS lib to connect my program to the
MySQL database tables. I would appreciate any comments, suggestions or
code samples. 


Regards, 
Koobel,