一个非常奇怪的问题,大家遇到过吗?(50分)

  • 主题发起人 主题发起人 zhbforce
  • 开始时间 开始时间
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表格中的数据也被
强行的清除了。
太奇怪了,不知道什么原因,除此之外,别的代码没有任何改变。
 
注:sqlList是一个TStringList,将更新中所有的SQL语句都存储在里面。
 
后退
顶部