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

按钮权限升级

Browse Source
This commit is contained in:
sgwp 2025-02-17 13:56:52 +08:00
parent 23fc907a7c
commit 53dbd16c52
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RTFun.pas
View File

@ -2910,12 +2910,13 @@ begin
mfromName := GetParentForm(TControl(cxGrid.GetParentComponent), true).Name;
mGridName := cxGrid.GetParentComponent.Name + '.' + cxGrid.name;
// showmessage(mGridName);
////////////////////////////////
//
try
mADOCmd := TADOQuery.Create(nil);
mADOCmd.ConnectionString := DConString;
mADOCmd.LockType:=ltBatchOptimistic;
with mADOCmd do
begin
close;
@ -2971,7 +2972,9 @@ begin
post;
end;
end;
mADOCmd.UpdateBatch();
finally
// showMessage('3');
mADOCmd.close;
mADOCmd.Free;
end;

5
Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
View File

@ -966,6 +966,8 @@ end;
///////////////////////////////////////////////////////////////////
///
function TWindowFormDeSign.geUsertFormButtons(ADOQueryTmp:TADOQuery;mFormId:integer;mFormCaption:string;moduleId:string;moduleSubId:string):string;
var
mformButtons:string;
begin
try
result:='';
@ -1001,6 +1003,7 @@ begin
exit;
end;
end;
mformButtons:= trim(ADOQueryTmp.fieldByName('formButtons').AsString) ;
with ADOQueryTmp do
begin
close;
@ -1011,6 +1014,8 @@ begin
sql.Add(',@UserId='+quotedstr(dCode));
open;
fFormRightButtons := trim(fieldByName('rightButtons').AsString) ;
if fFormRightButtons='' then
fFormRightButtons:=mformButtons;
result:= fFormRightButtons;
end;
finally