rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rtfunc

Browse Source
This commit is contained in:
sgwp 2024-07-22 10:20:12 +08:00
parent 8ec54ccf7e
commit e8b4b8b8a5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
public10/ThreeFun/Fun/U_RTFun.pas
View File

@ -2484,6 +2484,7 @@ begin
mGridName := cxGrid.GetParentComponent.Name + '.' + cxGrid.name;
try
cxGrid.BeginUpdate();
mADOTmp := TADOQuery.Create(nil);
mADOTmp.ConnectionString := DConString;
with mADOTmp do
@ -2544,6 +2545,7 @@ begin
finally
mADOTmp.close;
mADOTmp.Free;
cxGrid.EndUpdate();
end;
end;
@ -2569,6 +2571,7 @@ begin
mGridName := cxGrid.GetParentComponent.Name + '.' + cxGrid.name;
try
cxGrid.BeginUpdate();
mADOTmp := TADOQuery.Create(nil);
mADOTmp.ConnectionString := DConString;
/////////////////////////////////////////
@ -2651,6 +2654,7 @@ begin
finally
mADOTmp.close;
mADOTmp.Free;
cxGrid.EndUpdate ;
end;
end;