no message

2025-05-06 10:02:32 +08:00 · 2025-05-06 10:02:32 +08:00 · 0cc3a60d4c
commit 0cc3a60d4c
parent 8e98d4b78b
2 changed files with 2 additions and 0 deletions
--- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_FormLayOutDesign.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_FormLayOutDesign.pas
@ -516,6 +516,7 @@ begin
    gfontSize := programIni.ReadInteger('窗口设置', '字体大小', 12);
    gfontName := programIni.ReadString('窗口设置', '字体名称', '');
    gIsYsUse  := programIni.ReadBool('窗口设置', 'stand', false);
+    gQueryTime:= programIni.ReadInteger('窗口设置', '查询日期范围', 0);
  finally
    programIni.Free;
  end;
--- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_globalVar.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_globalVar.pas
@ -19,6 +19,7 @@ var
  gSystemId:string;
  gIsYsUse:boolean;
  gTeamWorker:string;
+  gQueryTime:integer; //0按日；1：按月；
 const
   WM_CloseForm = WM_USER + 100 ;