Initial commit - Delphi MES client project
This commit is contained in:
Developer
@@ -0,0 +1,368 @@
|
||||
unit uFrameAutoYLBland;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
|
||||
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
|
||||
uFrameBase, System.ImageList, FMX.ImgList, FMX.ListBox, uksoap,
|
||||
FMX.Controls.Presentation, FMX.Edit, FMX.Objects,uListConent,uShowInfo,uPLCDevice,
|
||||
uTcpDevice;
|
||||
|
||||
type
|
||||
TFrameAutoYLBland = class(TFrameBase)
|
||||
Rectangle88: TRectangle;
|
||||
Option1: TRectangle;
|
||||
Glyph9: TGlyph;
|
||||
OptionLabel1: TText;
|
||||
Text19: TText;
|
||||
Edit_KuangJi: TEdit;
|
||||
Option2: TRectangle;
|
||||
Glyph2: TGlyph;
|
||||
OptionLabel3: TText;
|
||||
Text6: TText;
|
||||
Edit_ChengShi: TEdit;
|
||||
TxtError: TText;
|
||||
ImageList1: TImageList;
|
||||
Rectangle1: TRectangle;
|
||||
Glyph1: TGlyph;
|
||||
Text1: TText;
|
||||
Text2: TText;
|
||||
Edit1: TEdit;
|
||||
Rectangle2: TRectangle;
|
||||
Glyph3: TGlyph;
|
||||
Text3: TText;
|
||||
Text4: TText;
|
||||
Edit2: TEdit;
|
||||
Rectangle3: TRectangle;
|
||||
Glyph4: TGlyph;
|
||||
Text5: TText;
|
||||
Text7: TText;
|
||||
Edit3: TEdit;
|
||||
PlcDeviceShowState: TLabel;
|
||||
private
|
||||
function DoPlc(): Boolean;override;
|
||||
procedure FPlcMelsecDeviceWork(Sender: TObject; sValue: string);
|
||||
procedure FPlcOmronDeviceWork(Sender: TObject; sValue: string);
|
||||
procedure FPlcDeviceShowState(Sender: TObject; Avalue: string);
|
||||
procedure FPlcDeviceOpen(Sender: TObject; sValue:string);
|
||||
{ Private declarations }
|
||||
public
|
||||
FPlcMelsecDevice:array[0..9] of TMelsec;
|
||||
FPlcOmronDevice:array[0..9] of TOmron;
|
||||
procedure FillDefaultValue(sPartnumValue,sDefaultTxt:string);override; //填写默认值
|
||||
function DoExec():boolean;override; //判断输入是否有效,执行插入主表,或打开窗体
|
||||
function CheckValid(var sTxt:string):boolean;override;
|
||||
// function GetFixture_Code():string;override; //返回治具ID
|
||||
end;
|
||||
|
||||
//var
|
||||
// Frame_Plasma: TFrame_Plasma;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
uses uDM, uBlandPrintConent, uPucFun, uSafeLog;
|
||||
{
|
||||
285090
|
||||
D3007585AG
|
||||
}
|
||||
|
||||
function TFrameAutoYLBland.CheckValid(var sTxt:string):boolean; //返回面次数据
|
||||
begin
|
||||
Result:= False;
|
||||
if Trim(Edit_KuangJi.Text)='' then
|
||||
begin
|
||||
TxtShowErrorInfo(TxtError,'板厚不能為空');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if Trim(Edit3.Text)='' then
|
||||
begin
|
||||
TxtShowErrorInfo(TxtError,'熱熔溫度不能為空');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if Trim(Edit1.Text)='' then
|
||||
begin
|
||||
TxtShowErrorInfo(TxtError,'熱熔時間不能為空');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if Trim(Edit2.Text)='' then
|
||||
begin
|
||||
TxtShowErrorInfo(TxtError,'冷却時間不能為空');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if Trim(Edit_ChengShi.Text)='' then
|
||||
begin
|
||||
TxtShowErrorInfo(TxtError,'叠片數不能為空');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
Result:= True;
|
||||
end;
|
||||
|
||||
procedure TFrameAutoYLBland.FillDefaultValue(sPartnumValue,sDefaultTxt:string);
|
||||
begin
|
||||
WorkLog.MessageInfo('生产参数sPartnumValue:'+sPartnumValue+',sDefaultTxt:'+sDefaultTxt);
|
||||
with TStringList.Create do
|
||||
try
|
||||
// a:= TStringList.Create;
|
||||
Delimiter:= ',';
|
||||
DelimitedText:= sDefaultTxt;
|
||||
if Count>15 then Edit_KuangJi.Text:=Strings[15]; // 板厚(mm)
|
||||
if Count>20 then Edit3.Text:=Strings[20]; // 熱熔溫度(℃)
|
||||
if Count>22 then Edit1.Text:=Strings[22]; // 熱熔時間(S)
|
||||
if Count>23 then Edit2.Text:=Strings[23]; // 冷却時間(S)
|
||||
if Count>21 then Edit_ChengShi.Text:=Strings[21]; // 叠片數
|
||||
|
||||
// if Count>=1 then Edit6.Text:=Strings[0];
|
||||
// if Count>=2 then Edit5.Text:=Strings[1];
|
||||
// if Count>=3 then Edit4.Text:=Strings[2];
|
||||
// if Count>=4 then Edit2.Text:=Strings[3];
|
||||
// if Count>=5 then Edit9.Text:=Strings[4];
|
||||
// if Count>=6 then Edit1.Text:=Strings[5];
|
||||
// if Count>=7 then Edit3.Text:=Strings[6];
|
||||
// if Count>=8 then Edit_KuangJi.Text:=Strings[7];
|
||||
// if Count>=9 then Edit_ChengShi.Text:=Strings[8];
|
||||
// if Count>=10 then Edit7.Text:=Strings[9];
|
||||
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
procedure TFrameAutoYLBland.FPlcDeviceShowState(Sender: TObject; Avalue: string); //显示读头状态
|
||||
begin
|
||||
PlcDeviceShowState.Text:= (Avalue);
|
||||
end;
|
||||
|
||||
function TFrameAutoYLBland.DoPlc():Boolean;
|
||||
var
|
||||
i: integer;
|
||||
tmpValue:string;
|
||||
sDevName,sIp,sPort:string;
|
||||
begin
|
||||
Result:= True;
|
||||
PlcDeviceShowState.Text:= '1';
|
||||
//根据配置加载设备
|
||||
for i := 1 to 3 do
|
||||
begin
|
||||
tmpValue:=dm.MemTableReadKeyValue('plc设备','DevStyle_plc'+i.ToString);
|
||||
if tmpValue<>'' then
|
||||
begin
|
||||
if CheckParameter(tmpValue,sDevName,sIp,sPort) then
|
||||
begin
|
||||
PlcDeviceShowState.Text:= '2';
|
||||
if sameText(sDevName.ToLower,'melsec') then //三棱plc
|
||||
begin
|
||||
PlcDeviceShowState.Text:= '3';
|
||||
FPlcMelsecDevice[i]:=TMelsec.Create(sIp,sPort.ToInteger);
|
||||
FPlcMelsecDevice[i].Num:=i;
|
||||
FPlcMelsecDevice[i].OnWork:=FPlcMelsecDeviceWork;
|
||||
FPlcMelsecDevice[i].OnShowState:=FPlcDeviceShowState;
|
||||
FPlcMelsecDevice[i].Connect;
|
||||
FPlcMelsecDevice[i].OnOpen:= FPlcDeviceOpen;
|
||||
// TThread.CreateThreadX<Integer>(
|
||||
// procedure (Avalue:Integer)
|
||||
// begin
|
||||
// Sleep(1000);
|
||||
// TThread.Synchronize( nil,
|
||||
// procedure
|
||||
// begin
|
||||
// FPlcDevice[Avalue].Open:= FPlcDeviceOpen;
|
||||
// end
|
||||
// );
|
||||
// end,i
|
||||
// ).Start;
|
||||
end;
|
||||
//D300039100 純膠預粘
|
||||
if sameText(sDevName.ToLower,'omron') then //欧姆龙plc
|
||||
begin
|
||||
PlcDeviceShowState.Text:= '4';
|
||||
FPlcOmronDevice[i]:=TOmron.Create(sIp,sPort.ToInteger);
|
||||
FPlcOmronDevice[i].Num:=i;
|
||||
FPlcOmronDevice[i].OnWork:=FPlcOmronDeviceWork;
|
||||
FPlcOmronDevice[i].OnShowState:=FPlcDeviceShowState;
|
||||
FPlcOmronDevice[i].Connect;
|
||||
// FPlcOmronDevice[i].OnOpen:= FPlcDeviceOpen;
|
||||
TThread.CreateThreadX<Integer>(
|
||||
procedure (Avalue:Integer)
|
||||
begin
|
||||
Sleep(1000);
|
||||
TThread.Synchronize( nil,
|
||||
procedure
|
||||
begin
|
||||
FPlcOmronDevice[Avalue].Open;
|
||||
end
|
||||
);
|
||||
end,i
|
||||
).Start;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFrameAutoYLBland.FPlcDeviceOpen(Sender: TObject; sValue:string); //4C4F4E0d
|
||||
VAR
|
||||
bBtye:array[0..4] of byte;
|
||||
begin
|
||||
// if Sender<>nil then
|
||||
TMelsec(Sender).Open(Sender,sValue);
|
||||
end;
|
||||
|
||||
procedure TFrameAutoYLBland.FPlcMelsecDeviceWork(Sender:TObject;sValue: string); //读取条码
|
||||
procedure ReOpen2D();
|
||||
begin
|
||||
TThread.CreateAnonymousThread(
|
||||
procedure
|
||||
begin
|
||||
Sleep(3000);
|
||||
TThread.Synchronize( nil,
|
||||
procedure
|
||||
begin
|
||||
if Sender<>nil then TMelsec(Sender).Open(Sender,sValue);
|
||||
// TxtBarCodePrompt.Text:='读码中...';
|
||||
end
|
||||
);
|
||||
end
|
||||
).Start;
|
||||
end;
|
||||
begin
|
||||
if sValue='ERROR' then
|
||||
BEGIN
|
||||
// AddLog('plc读取出错'+sValue);
|
||||
WorkLog.MessageInfo('plc读取出错'+sValue);
|
||||
ReOpen2D();
|
||||
Exit;
|
||||
END;
|
||||
|
||||
end;
|
||||
|
||||
procedure TFrameAutoYLBland.FPlcOmronDeviceWork(Sender:TObject;sValue: string); //读取条码
|
||||
procedure ReOpen2D();
|
||||
begin
|
||||
TThread.CreateAnonymousThread(
|
||||
procedure
|
||||
begin
|
||||
Sleep(3000);
|
||||
TThread.Synchronize( nil,
|
||||
procedure
|
||||
begin
|
||||
if Sender<>nil then TMelsec(Sender).Open(Sender,sValue);
|
||||
// TxtBarCodePrompt.Text:='读码中...';
|
||||
end
|
||||
);
|
||||
end
|
||||
).Start;
|
||||
end;
|
||||
begin
|
||||
if sValue='ERROR' then
|
||||
BEGIN
|
||||
// AddLog('plc读取出错'+sValue);
|
||||
WorkLog.MessageInfo('plc读取出错'+sValue);
|
||||
ReOpen2D();
|
||||
Exit;
|
||||
END;
|
||||
|
||||
end;
|
||||
|
||||
function TFrameAutoYLBland.DoExec():boolean;
|
||||
var
|
||||
LotNoRecord:TLotNoRecord;
|
||||
vId:Integer;
|
||||
sTxt:string;
|
||||
sError:string;
|
||||
vP_ID:Double;
|
||||
|
||||
i_SLAB_THICKNESS,i_COM_TEMPERATURE,i_PREHEATING_SEC, i_COMPRESS_SEC, i_PRODUCT_PRESSURE: Double;
|
||||
begin
|
||||
Result:=False;
|
||||
|
||||
if CheckValid(sTxt) then //上传数据
|
||||
begin
|
||||
LotNoRecord:=TLotNoRecord.Create('-1'); //初始化记录
|
||||
LotNoRecord.P_LOT:=ksoap.P_Lot;
|
||||
LotNoRecord.P_Enable:='Y';
|
||||
LotNoRecord.P_ID:=0;
|
||||
LotNoRecord.P_ORG_CODE:=ksoap.P_ORG_CODE; //廠區
|
||||
LotNoRecord.P_NUM:=ksoap.P_WORK_NUM; //工號
|
||||
LotNoRecord.P_PC:=ksoap.P_PC; //製程
|
||||
LotNoRecord.P_LINE:=ksoap.P_LINE; //線別
|
||||
LotNoRecord.P_LINE_NUM:=ksoap.P_LINE_NUM; //線別編號
|
||||
|
||||
try
|
||||
i_SLAB_THICKNESS:=StrToFloat(Trim(Edit_KuangJi.Text)); //板厚(mm) 31
|
||||
i_COM_TEMPERATURE:=StrToFloat(Trim(Edit3.Text)); //熱熔溫度(℃) 13
|
||||
i_PREHEATING_SEC:=StrToFloat(Trim(Edit1.Text)); //熱熔時間(S) 15
|
||||
i_COMPRESS_SEC:=StrToFloat(Trim(Edit2.Text)); //冷却時間(S) 16
|
||||
i_PRODUCT_PRESSURE:=StrToFloat(Trim(Edit_ChengShi.Text)); //叠片數 14
|
||||
except
|
||||
end;
|
||||
|
||||
|
||||
LotNoRecord.P_SLAB_THICKNESS:= i_SLAB_THICKNESS; //板厚(mm) 31
|
||||
LotNoRecord.P_COM_TEMPERATURE:= i_COM_TEMPERATURE; //熱熔溫度(℃) 13
|
||||
LotNoRecord.P_PREHEATING_SEC:= i_PREHEATING_SEC; //熱熔時間(S) 15
|
||||
LotNoRecord.P_COMPRESS_SEC:= i_COMPRESS_SEC; //冷却時間(S) 16
|
||||
LotNoRecord.P_PRODUCT_PRESSURE:= i_PRODUCT_PRESSURE; //叠片數 14
|
||||
|
||||
LotNoRecord.P_CREATION_DATE:=FormatDateTime('yyyymmdd hh:mm:ss',Now);
|
||||
|
||||
sError:='';
|
||||
vP_ID:=Ksoap.Thread_cf_traceability_seq_f(ksoap.P_ORG_CODE,sError);
|
||||
LotNoRecord.P_ID:=vP_ID;
|
||||
if vP_ID=0 then
|
||||
BEGIN
|
||||
dm.InsertMain(vId,LotNoRecord,false);
|
||||
Result:=true;
|
||||
END
|
||||
ELSE
|
||||
BEGIN
|
||||
//直接调用API,出错再保存本地
|
||||
if not Ksoap.Thread_Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord,sError) then //提交主表不成功
|
||||
begin
|
||||
if sError='連接數據庫服務器失败' then
|
||||
begin
|
||||
dm.InsertMain(vId,LotNoRecord,false);
|
||||
Result:=true;
|
||||
end
|
||||
else
|
||||
ShowError(sError);
|
||||
end
|
||||
else
|
||||
begin
|
||||
dm.InsertMain(vId,LotNoRecord,false);
|
||||
dm.UpdateMainId(vId,vP_ID.ToString,True);
|
||||
Result:=true;
|
||||
end;
|
||||
END;
|
||||
end;
|
||||
|
||||
//打开窗体
|
||||
if Result then
|
||||
begin
|
||||
// WorkLog.MessageInfo('frmBlandPrinterConent');
|
||||
frmBlandPrinterConent:=TfrmBlandPrinterConent.Create(nil);
|
||||
try
|
||||
frmBlandPrinterConent.LotNoRecord:=LotNoRecord; //记录
|
||||
frmBlandPrinterConent.vP_ID:=LotNoRecord.P_ID; //ID號，需與主檔的ID號相同
|
||||
frmBlandPrinterConent.vId:=vId; //本地表记录ID
|
||||
// frmListConent.Text6.Text:='更改烤架編號';
|
||||
frmBlandPrinterConent.ShowModal;
|
||||
finally
|
||||
frmBlandPrinterConent.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user