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-12 10:28:55 +08:00
parent 3d868141ac
commit c9c4f58cf1
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,7 +73,10 @@ begin
fModuleId:=StringReplace(Trim(jsonObject.GetValue('moduleId').ToString),'"','',[rfReplaceAll]); fModuleId:=StringReplace(Trim(jsonObject.GetValue('moduleId').ToString),'"','',[rfReplaceAll]);
fModuleSubId:=StringReplace(trim(jsonObject.GetValue('moduleSubId').ToString),'"','',[rfReplaceAll]); fModuleSubId:=StringReplace(trim(jsonObject.GetValue('moduleSubId').ToString),'"','',[rfReplaceAll]);
gTeamWorker:=StringReplace(trim(jsonObject.GetValue('teamWorkerId').ToString),'"','',[rfReplaceAll]); gTeamWorker:=StringReplace(trim(jsonObject.GetValue('teamWorkerId').ToString),'"','',[rfReplaceAll]);
fParameters10:=''; if Parameters1='²éѯ' then
fParameters10:='²éѯ'
else
fParameters10:='';
finally finally
jsonValue.Free; jsonValue.Free;
end; end;

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

@ -427,6 +427,7 @@ begin
toolBar.List := mToolBarList; toolBar.List := mToolBarList;
end; end;
// //
if fFormRightButtons<>'' then if fFormRightButtons<>'' then
initUserFormButtons(toolBar); initUserFormButtons(toolBar);
//continue; //continue;
@ -710,7 +711,7 @@ begin
if (mCaption = '关闭') or (mCaption = '退出') or (mCaption = '放弃') then if (mCaption = '关闭') or (mCaption = '退出') or (mCaption = '放弃') then
exit; exit;
/// //////////////////////////////////////// /// ////////////////////////////////////////
if trim(mOperRight) = '²éѯ' then if (trim(mOperRight) = '²éѯ') or (trim(mOperRight) = '²éѯģ¿é') then
begin begin
if pos(mCaption, '查询,刷新,过滤,高级过滤,高级查询') > 0 then // ,查看,详细 if pos(mCaption, '查询,刷新,过滤,高级过滤,高级查询') > 0 then // ,查看,详细
begin begin
@ -740,7 +741,7 @@ begin
exit; exit;
end; end;
/// //////////////////////////////////////////////// /// ////////////////////////////////////////////////
if trim(mOperRight) = '²éѯ' then if (trim(mOperRight) = '²éѯ') or (trim(mOperRight) = '²éѯģ¿é') then
exit; exit;
with mParent do with mParent do
begin begin