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,160 @@
+unit uAddKey;
+
+interface
+
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
+  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
+  System.ImageList, FMX.ImgList, FMX.Controls.Presentation, FMX.Edit,iniFiles,
+  FMX.TabControl, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
+  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
+  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, System.Rtti,
+  FMX.Grid.Style, FMX.Grid, FMX.ScrollBox,uPucFun, uFrameSet,Data.Bind.Grid,
+  FireDAC.Stan.StorageJSON, Data.Bind.Components, Data.Bind.DBScope,
+  FireDAC.Stan.StorageBin,FMX.DialogService;
+
+type
+  TfrmAddKey = class(TForm)
+    Rectangle1: TRectangle;
+    Rectangle7: TRectangle;
+    Rectangle8: TRectangle;
+    Rectangle13: TRectangle;
+    Rectangle12: TRectangle;
+    Rectangle14: TRectangle;
+    Text7: TText;
+    Rectangle10: TRectangle;
+    Rectangle5: TRectangle;
+    Rectangle2: TRectangle;
+    Rectangle3: TRectangle;
+    Rectangle6: TRectangle;
+    Rectangle4: TRectangle;
+    TxtFactoryCode: TText;
+    Text6: TText;
+    Rectangle33: TRectangle;
+    Text20: TText;
+    Rectangle11: TRectangle;
+    Text13: TText;
+    EdtTabName: TEdit;
+    Rectangle16: TRectangle;
+    Text10: TText;
+    Text11: TText;
+    Edit1: TEdit;
+    Rectangle15: TRectangle;
+    Text4: TText;
+    Text5: TText;
+    Edit2: TEdit;
+    Rectangle9: TRectangle;
+    Text2: TText;
+    Text3: TText;
+    Edit9: TEdit;
+    Text8: TText;
+    Text9: TText;
+    Edit10: TEdit;
+    Rectangle17: TRectangle;
+    Text12: TText;
+    Text14: TText;
+    Edit7: TEdit;
+    Text15: TText;
+    Text16: TText;
+    Edit8: TEdit;
+    Rectangle18: TRectangle;
+    Text17: TText;
+    Text18: TText;
+    Edit5: TEdit;
+    Text19: TText;
+    Text21: TText;
+    Edit6: TEdit;
+    Rectangle19: TRectangle;
+    Text22: TText;
+    Text23: TText;
+    Edit3: TEdit;
+    Text24: TText;
+    Text25: TText;
+    Edit4: TEdit;
+    Text26: TText;
+    Glyph23: TGlyph;
+    TxtTabNameError: TText;
+    procedure Text7Click(Sender: TObject);
+    procedure Rectangle2MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Single);
+    procedure Text20Click(Sender: TObject);
+    procedure EdtTabNameExit(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Text26Click(Sender: TObject);
+  private
+  public
+    TabName:string;
+    KeyName:array[1..9] of string;
+  end;
+
+var
+  frmAddKey: TfrmAddKey;
+
+implementation
+
+{$R *.fmx}
+
+uses uListConent, uDM, uMain;
+
+procedure TfrmAddKey.EdtTabNameExit(Sender: TObject);
+begin
+   if EdtTabName.Text<>'' then
+   begin
+       if Edit1.Text='' then begin Edit1.Text:=EdtTabName.Text+'1';end;
+       if Edit2.Text='' then begin  Edit2.Text:=EdtTabName.Text+'2';end;
+       if Edit3.Text='' then begin  Edit3.Text:=EdtTabName.Text+'3';end;
+       if Edit4.Text='' then begin  Edit4.Text:=EdtTabName.Text+'4';end;
+       if Edit5.Text='' then begin  Edit5.Text:=EdtTabName.Text+'5';end;
+       if Edit6.Text='' then begin  Edit6.Text:=EdtTabName.Text+'6';end;
+       if Edit7.Text='' then begin  Edit7.Text:=EdtTabName.Text+'7';end;
+       if Edit8.Text='' then begin  Edit8.Text:=EdtTabName.Text+'8';end;
+       if Edit9.Text='' then begin  Edit9.Text:=EdtTabName.Text+'9';end;
+   end;
+end;
+
+procedure TfrmAddKey.FormCreate(Sender: TObject);
+begin
+  TxtShowErrorInfo(TxtTabNameError,'');
+  TxtFactoryCode.Text:= FactoryCode;
+end;
+
+procedure TfrmAddKey.Rectangle2MouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Single);
+begin
+  self.StartWindowDrag;
+end;
+
+procedure TfrmAddKey.Text20Click(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmAddKey.Text26Click(Sender: TObject);
+begin
+   ShowTouchKeyBoard();
+end;
+
+procedure TfrmAddKey.Text7Click(Sender: TObject);
+begin
+  TxtShowErrorInfo(TxtTabNameError,'');
+  if EdtTabName.Text='' then begin TxtShowErrorInfo(TxtTabNameError,'參數類別不能為空');Exit; end;
+  if dm.TabNameExists(EdtTabName.Text) then
+  BEGIN
+      TxtShowErrorInfo(TxtTabNameError,'參數類別已經存在');
+      Exit
+  END;
+
+  TabName:=EdtTabName.Text;
+  KeyName[1]:=Edit1.Text;
+  KeyName[2]:=Edit2.Text;
+  KeyName[3]:=Edit3.Text;
+  KeyName[4]:=Edit4.Text;
+  KeyName[5]:=Edit5.Text;
+  KeyName[6]:=Edit6.Text;
+  KeyName[7]:=Edit7.Text;
+  KeyName[8]:=Edit8.Text;
+  KeyName[9]:=Edit9.Text;
+  ModalResult:=mrOK;
+end;
+
+end.