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,79 @@
+unit uPassword;
+
+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
+  TFrmPassword = 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);
+    procedure Edit4KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
+      Shift: TShiftState);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FrmPassword: TFrmPassword;
+
+implementation
+
+{$R *.fmx}
+
+procedure TFrmPassword.Edit4Enter(Sender: TObject);
+begin
+   ShowTouchKeyBoard();
+end;
+
+procedure TFrmPassword.Edit4KeyUp(Sender: TObject; var Key: Word;
+  var KeyChar: Char; Shift: TShiftState);
+begin
+  if key=13 then
+    Text1Click(Sender);
+end;
+
+procedure TFrmPassword.FormCreate(Sender: TObject);
+begin
+   TxtShowErrorInfo(TxtPasswordError,'');
+   self.Caption:= FactoryCode;
+end;
+
+procedure TFrmPassword.Text1Click(Sender: TObject);
+begin
+   if edit4.Text='2025' then
+      ModalResult:=mrOK
+   else
+      TxtShowErrorInfo(TxtPasswordError,'ÃÜ´a²»Õý´_,ÕˆÖØÐÂÝ”Èë');
+end;
+
+procedure TFrmPassword.Text2Click(Sender: TObject);
+begin
+   //ShowTouchKeyBoard();
+   ModalResult:=mrCancel;
+end;
+
+end.