Developer
161 lines
4.3 KiB
ObjectPascal
161 lines
4.3 KiB
ObjectPascal
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.
|