Initial commit - Delphi MES client project
This commit is contained in:
Developer
@@ -0,0 +1,212 @@
|
||||
unit uSetMain;
|
||||
|
||||
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,uShowInfo,
|
||||
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,uAddKey, FMX.StdCtrls,Generics.Collections;
|
||||
|
||||
type
|
||||
TfrmSetMain = class(TForm)
|
||||
Rectangle1: TRectangle;
|
||||
Rectangle7: TRectangle;
|
||||
Rectangle8: TRectangle;
|
||||
ImageList1: TImageList;
|
||||
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;
|
||||
TabControl1: TTabControl;
|
||||
Rectangle26: TRectangle;
|
||||
Rectangle27: TRectangle;
|
||||
Text17: TText;
|
||||
Text21: TText;
|
||||
Text4: TText;
|
||||
Glyph23: TGlyph;
|
||||
CheckBox1: TCheckBox;
|
||||
procedure Text7Click(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure Rectangle2MouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Single);
|
||||
procedure Text20Click(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure Text17Click(Sender: TObject);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
procedure Text4Click(Sender: TObject);
|
||||
private
|
||||
public
|
||||
GridList:TList<TFrameSet>;
|
||||
IsSave:boolean;
|
||||
end;
|
||||
|
||||
var
|
||||
frmSetMain: TfrmSetMain;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
|
||||
uses uListConent, uDM, uMain, uSafeLog;
|
||||
|
||||
procedure TfrmSetMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
var
|
||||
i:integer;
|
||||
begin
|
||||
if IsSave then begin CanClose:=true; Exit; end;
|
||||
|
||||
CanClose:=true;
|
||||
for I := 0 to GridList.Count-1 do
|
||||
begin
|
||||
if GridList.items[i].IsChange then
|
||||
begin
|
||||
if ShowInfoOKCancel('有編輯的數據還未保存,確定要退出嗎?') then
|
||||
begin
|
||||
Exit;
|
||||
end
|
||||
else
|
||||
begin
|
||||
CanClose:=false;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSetMain.FormCreate(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
tbitem: TTabItem;
|
||||
Recitem:TFrameSet;
|
||||
begin
|
||||
GridList := TList<TFrameSet>.Create;
|
||||
IsSave:=false;
|
||||
TxtFactoryCode.Text:= FactoryCode;
|
||||
|
||||
for I := 0 to iniListName.Count-1 do
|
||||
begin
|
||||
tbitem:= TabControl1.Add(TTabItem) as TTabItem;
|
||||
Recitem:= TFrameSet.Create(nil);
|
||||
GridList.Add(Recitem);
|
||||
Recitem.Parent:=tbitem;
|
||||
recitem.Align:=TAlignLayout.Client;
|
||||
tbitem.Text:= iniListName.Strings[i];
|
||||
Recitem.id.Width:=0; //隐藏ID列
|
||||
Recitem.Key.Width :=150;
|
||||
Recitem.Name.Width :=150;
|
||||
Recitem.Value.Width :=Recitem.GridSet.Width-Recitem.Name.Width-Recitem.Key.Width-Recitem.id.Width-10;
|
||||
dm.MemTableLoadTab(tbitem.Text,Recitem.gridset);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSetMain.Rectangle2MouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Single);
|
||||
begin
|
||||
self.StartWindowDrag;
|
||||
end;
|
||||
|
||||
procedure TfrmSetMain.Text17Click(Sender: TObject);
|
||||
var
|
||||
tbitem: TTabItem;
|
||||
Recitem:TFrameSet;
|
||||
i:integer;
|
||||
begin
|
||||
// 输出完整响应信息
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [1]);
|
||||
frmAddKey:= TfrmAddKey.Create(nil);
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [2]);
|
||||
frmAddKey.Position:=TFormPosition.MainFormCenter;
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [3]);
|
||||
try
|
||||
frmAddKey.TxtFactoryCode:=TxtFactoryCode; //厂区
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [4]);
|
||||
if frmAddKey.ShowModal=mrOk then
|
||||
begin
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [5]);
|
||||
//增加到数据库
|
||||
for I := 1 to High(frmAddKey.KeyName) do
|
||||
begin
|
||||
dm.MemTableWriteKey(Trim(frmAddKey.TabName),Trim(frmAddKey.KeyName[i]));
|
||||
end;
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [6]);
|
||||
tbitem:= TabControl1.Add(TTabItem) as TTabItem;
|
||||
Recitem:= TFrameSet.Create(nil);
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [7]);
|
||||
GridList.Add(Recitem);
|
||||
Recitem.Parent:=tbitem;
|
||||
recitem.Align:=TAlignLayout.Client;
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [8]);
|
||||
tbitem.Text:=frmAddKey.TabName;
|
||||
Recitem.id.Width:=0; //隐藏ID列
|
||||
Recitem.Key.Width :=150;
|
||||
Recitem.Name.Width :=150;
|
||||
Recitem.Value.Width := Recitem.GridSet.Width
|
||||
- Recitem.Name.Width
|
||||
- Recitem.Key.Width
|
||||
- Recitem.id.Width - 10;
|
||||
|
||||
dm.MemTableLoadTab(tbitem.Text,Recitem.GridSet);
|
||||
// WorkLog.MessageInfo('TfrmSetMain状态码: %d,', [9]);
|
||||
end;
|
||||
finally
|
||||
frmAddKey.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSetMain.Text20Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmSetMain.Text4Click(Sender: TObject);
|
||||
begin
|
||||
ShowTouchKeyBoard();
|
||||
end;
|
||||
|
||||
procedure TfrmSetMain.Text7Click(Sender: TObject);
|
||||
var
|
||||
i:integer;
|
||||
begin
|
||||
try
|
||||
for I := 0 to GridList.Count-1 do
|
||||
begin
|
||||
GridList.items[i].GridSet.Row:=1;
|
||||
GridList.items[i].GridSet.Col:=1;
|
||||
dm.MemTableSaveTab(GridList.items[i].GridSet);
|
||||
end;
|
||||
dm.fdmemtable1.SaveToFile(ExtractFilePath(Paramstr(0))+'system.json');
|
||||
IsSave:=true;
|
||||
except
|
||||
|
||||
end;
|
||||
|
||||
Close;
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TfrmSetMain.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
GridList.Clear;
|
||||
GridList.Free;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user