BorlandTalk.com

Guest

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').AsString);

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,

Riki Wiki Google · Guest

Hoi Koobelek

FYI the newsgroup borland.public.delphi.database do not officially
exist. In general about how to post to Borland news groups you need to
know this:

<http://tinyurl.com/8m5nw>
which links to
<http://delphi.wikicities.com/wiki/Delphi_Newsgroups>