From 868daf94f29ce1ffdd799a68c07bb668cd373bcd Mon Sep 17 00:00:00 2001
From: HP\李良庭 <liliangting@lanpucloud.cn:1111>
Date: 星期二, 08 七月 2025 11:49:03 +0800
Subject: [PATCH] 提交分辨率自适应版本V3.1.0.1500
---
src/uDM.~pas | 99 +++++++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 99 insertions(+), 0 deletions(-)
diff --git a/src/uDM.~pas b/src/uDM.~pas
new file mode 100644
index 0000000..d6775ac
--- /dev/null
+++ b/src/uDM.~pas
@@ -0,0 +1,99 @@
+{------------------------------------------------------------------------------}
+{单元名称：uDM.pas }
+{模块名称：全局数据模型集 }
+{模块说明：包括全局定时器、数据存储等 }
+{建立日期：2023-10-24 }
+{修改修改：2024-07-08 }
+{版权所有：李良庭 liangtingli@outlook.com }
+{------------------------------------------------------------------------------}
+
+unit uDM;
+
+interface
+
+uses
+ SysUtils, Classes, ExtCtrls, PubUtils;
+
+type
+ Tdm = class(TDataModule)
+ tmClock: TTimer;
+ tmManTest: TTimer;
+ tmAutoTest: TTimer;
+ tmVerify: TTimer;
+ tmRegFault: TTimer;
+ tmInter: TTimer;
+ tmReset: TTimer;
+ procedure tmClockTimer(Sender: TObject);
+ procedure tmManTestTimer(Sender: TObject);
+ procedure tmAutoTestTimer(Sender: TObject);
+ procedure tmVerifyTimer(Sender: TObject);
+ procedure tmRegFaultTimer(Sender: TObject);
+ procedure tmInterTimer(Sender: TObject);
+ procedure tmResetTimer(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ dm: Tdm;
+
+implementation
+
+uses
+ uMain, global;
+
+{$R *.dfm}
+
+procedure Tdm.tmClockTimer(Sender: TObject);
+begin
+ with frmMain do begin
+ //自动模式-时钟
+ ssYear.Value := StrToInt(FormatDateTime('YYYY',Now()));
+ ssMonth.Value := StrToInt(FormatDateTime('MM',Now()));
+ ssDay.Value := StrToInt(FormatDateTime('DD',Now()));
+ ssClock.Time := Now();
+
+ //手动模式-时钟
+ ssYear1.Value := StrToInt(FormatDateTime('YYYY',Now()));
+ ssMonth1.Value := StrToInt(FormatDateTime('MM',Now()));
+ ssDay1.Value := StrToInt(FormatDateTime('DD',Now()));
+ ssClock1.Time := Now();
+ end;
+end;
+
+procedure Tdm.tmAutoTestTimer(Sender: TObject);
+begin
+ frmMain.mtAutoClock.Value := (GetMillisecondTimeStamp - glStartTest)/1000;
+end;
+
+procedure Tdm.tmManTestTimer(Sender: TObject);
+begin
+ frmMain.mtManClock.Value := (GetMillisecondTimeStamp - glStartTest)/1000;
+end;
+
+procedure Tdm.tmVerifyTimer(Sender: TObject);
+begin
+ frmMain.mtVerifyClock.Value := (GetMillisecondTimeStamp - glStartTest)/1000;
+end;
+
+//注册失败，启动退出系统定时器
+procedure Tdm.tmRegFaultTimer(Sender: TObject);
+begin
+ frmMain.Close;
+end;
+
+//调整截距的计时器
+procedure Tdm.tmInterTimer(Sender: TObject);
+begin
+ frmMain.mtInterClock.Value := (GetMillisecondTimeStamp - glStartTest)/1000;
+end;
+
+procedure Tdm.tmResetTimer(Sender: TObject);
+begin
+ frmMain.lblMaintain.Caption := Format('提示：水分仪 [复位] 中，请等待 %.2f 秒.',
+ [(GetMillisecondTimeStamp - glStartTest)/1000]);
+end;
+
+end.
--
Gitblit v1.9.3