Z
zhbforce
Unregistered / Unconfirmed
GUEST, unregistred user!
我在一个MDI CHILD表单中调用另外一个表单:frmProgress,那个表单上只有一个按钮,
一个标题,一个进度条。这个表单始终驻留在内存中。用于显示存储数据的进度。
未加入这个表单时,一切都没问题。
try
for i:=0 to sqlList.Count-1 do
begin
cm.CommandText:=sqlList.Strings;
cm.Execute;
end;
Result:=True;
except
on e:Exception do
begin
ShowMessage(e.Message);
Result:=false;
end;
end;
加入该表单后,代码如下:
try
with frmProgress do
begin
lblCaption.Caption:='正在保存收支决算表(决算01表)...';
Caption:='保存数据';
Gauge1.MaxValue:=sqlList.Count;
Gauge1.Progress:=0;
Visible:=true;
BringToFront;
end;
for i:=0 to sqlList.Count-1 do
begin
cm.CommandText:=sqlList.Strings;
cm.Execute;
frmProgress.Gauge1.Progress:=i;
Application.ProcessMessages;
end;
frmProgress.Hide;
Result:=True;
except
on e:Exception do
begin
ShowMessage(e.Message);
Result:=false;
end;
end;
一切SQL都执行没报错误,但是数据丝毫没有更新。而且我使用的Cell表格中的数据也被
强行的清除了。
太奇怪了,不知道什么原因,除此之外,别的代码没有任何改变。
一个标题,一个进度条。这个表单始终驻留在内存中。用于显示存储数据的进度。
未加入这个表单时,一切都没问题。
try
for i:=0 to sqlList.Count-1 do
begin
cm.CommandText:=sqlList.Strings;
cm.Execute;
end;
Result:=True;
except
on e:Exception do
begin
ShowMessage(e.Message);
Result:=false;
end;
end;
加入该表单后,代码如下:
try
with frmProgress do
begin
lblCaption.Caption:='正在保存收支决算表(决算01表)...';
Caption:='保存数据';
Gauge1.MaxValue:=sqlList.Count;
Gauge1.Progress:=0;
Visible:=true;
BringToFront;
end;
for i:=0 to sqlList.Count-1 do
begin
cm.CommandText:=sqlList.Strings;
cm.Execute;
frmProgress.Gauge1.Progress:=i;
Application.ProcessMessages;
end;
frmProgress.Hide;
Result:=True;
except
on e:Exception do
begin
ShowMessage(e.Message);
Result:=false;
end;
end;
一切SQL都执行没报错误,但是数据丝毫没有更新。而且我使用的Cell表格中的数据也被
强行的清除了。
太奇怪了,不知道什么原因,除此之外,别的代码没有任何改变。