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

1

Browse Source
This commit is contained in:
sgwp 2025-02-22 17:39:56 +08:00
parent 30266185db
commit 69a110359f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,7 +22,7 @@ type
// µ÷ÓÃDLLÎļþ
procedure InitDllEvt(FromFile: string; FormID: Integer; Para: string; FormType: Integer; Title: string; Def1: string; Def2: string; Def3: string; Def4: string; Def5: string; Def6: string; Def7: string; Def8: string; Def9: string; Def10: string);
procedure pasteDatatTocxGrid(Tv1:TcxGridDBTableView);
// È¡Ö÷¼ü
function GetLSNo(ADOQueryTmp: TADOQuery; var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean;
function GetLSNo20(ADOQueryTmp: TADOQuery; var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean;