Developer
369 lines
11 KiB
ObjectPascal
369 lines
11 KiB
ObjectPascal
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.
|
|
|