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,'����e���ܞ��');Exit; end;
  if dm.TabNameExists(EdtTabName.Text) then
  BEGIN
      TxtShowErrorInfo(TxtTabNameError,'����e�ѽ�����');
      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.