From 69a110359f98589437ebe0e36c729a712acec557 Mon Sep 17 00:00:00 2001 From: sgwp <63001967@qq.com> Date: Sat, 22 Feb 2025 17:39:56 +0800 Subject: [PATCH] 1 --- Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RTFun.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RTFun.pas b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RTFun.pas index 8dde1c3..0bc63bb 100644 --- a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RTFun.pas +++ b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RTFun.pas @@ -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;