Initial commit - Delphi MES client project

2026-05-07 20:25:34 +08:00
commit 819b4824f6
466 changed files with 1176403 additions and 0 deletions
@@ -0,0 +1,74 @@
+unit uLostDummy;
+
+interface
+
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
+  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
+  FMX.Controls.Presentation, FMX.Edit,uPucFun, System.Math.Vectors,
+  FMX.Controls3D, FMX.Layers3D;
+
+type
+  TFrmLostDummy = class(TForm)
+    Rectangle1: TRectangle;
+    Rectangle4: TRectangle;
+    Rectangle5: TRectangle;
+    Text2: TText;
+    Rectangle2: TRectangle;
+    Rectangle3: TRectangle;
+    Text1: TText;
+    Rectangle6: TRectangle;
+    Rectangle20: TRectangle;
+    Text18: TText;
+    Text19: TText;
+    Edit4: TEdit;
+    Layout3D1: TLayout3D;
+    Rectangle8: TRectangle;
+    TxtPasswordError: TText;
+    procedure Text1Click(Sender: TObject);
+    procedure Text2Click(Sender: TObject);
+    procedure Edit4Enter(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FrmLostDummy: TFrmLostDummy;
+
+implementation
+
+{$R *.fmx}
+
+procedure TFrmLostDummy.Edit4Enter(Sender: TObject);
+begin
+   ShowTouchKeyBoard();
+end;
+
+procedure TFrmLostDummy.FormCreate(Sender: TObject);
+begin
+   TxtShowErrorInfo(TxtPasswordError,'');
+end;
+
+procedure TFrmLostDummy.Text1Click(Sender: TObject);
+var
+   aa:Extended;
+begin
+  if Trim(edit4.Text)='' then begin TxtPasswordError.Text:='数量不能为空';Exit;end;
+  if not TryStrToFloat(edit4.Text,aa) then begin TxtPasswordError.Text:='数量类型错误，请重输入.';Exit;end;
+  ModalResult:=mrOK;
+ //  if edit4.Text='2022' then
+ //     ModalResult:=mrOK
+//   else
+ //     TxtShowErrorInfo(TxtPasswordError,'密碼不正確,請重新輸入');
+end;
+
+procedure TFrmLostDummy.Text2Click(Sender: TObject);
+begin
+   //ShowTouchKeyBoard();
+   ModalResult:=mrCancel;
+end;
+
+end.