unit uFrame_Uncap; 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.Controls.Presentation,uKsoap, FMX.Edit, FMX.Objects,uListConent,uShowInfo,uTCPDevice; type TFrame_Uncap = class(TFrameBase) Rectangle88: TRectangle; Option2: TRectangle; Glyph2: TGlyph; OptionLabel3: TText; Text6: TText; Edit_Avulsion_Speed1: TEdit; Option3: TRectangle; Glyph3: TGlyph; OptionLabel5: TText; Text23: TText; Edit_Avulsion_Speed2: TEdit; Option4: TRectangle; Glyph12: TGlyph; OptionLabel7: TText; Text28: TText; Edit_Torsion1: TEdit; Option7: TRectangle; Glyph13: TGlyph; OptionLabel9: TText; Text30: TText; Edit_JiaoDai_Speed2: TEdit; Option6: TRectangle; Glyph1: TGlyph; Text1: TText; Text2: TText; Edit_JiaoDai_Speed1: TEdit; Option5: TRectangle; Glyph4: TGlyph; Text3: TText; Text4: TText; Edit_Torsion2: TEdit; TxtError: TText; Rectangle1: TRectangle; Option8: TRectangle; Glyph5: TGlyph; Text5: TText; Text7: TText; Edit_TROLLEY_NUM: TEdit; Option9: TRectangle; Glyph6: TGlyph; Text8: TText; Text9: TText; Edit_JiaoDai: TEdit; ImageList1: TImageList; private { Private declarations } public procedure FillDefaultValue(sPartnumValue,sDefaultTxt:string);override; function DoExec():boolean;override; function CheckValid(var sTxt:string):boolean;override; function GetFixture_Code():string;override; end; var Frame_Uncap: TFrame_Uncap; implementation {$R *.fmx} uses uDM, uInkPrintConent; function TFrame_Uncap.GetFixture_Code():string; begin Result:=Edit_TROLLEY_NUM.Text; end; function TFrame_Uncap.CheckValid(var sTxt:string):boolean; //返回面次数据 var aa:Extended; sError:string; begin Result:=false; if not GetRadioTxt(sTxt) then //没有选择,提示出错信息 begin ErrorLayout(GridLayout,TxtError,'请选择TOP面/BOT面'); Exit; end; if Trim(Edit_TROLLEY_NUM.Text)='' then begin Error(Edit_TROLLEY_NUM,TxtError,'治具編號不能為空');Exit;end; if Trim(Edit_JiaoDai.Text)='' then begin Error(Edit_JiaoDai,TxtError,'膠带不能為空');Exit;end; if Trim(Edit_Avulsion_Speed1.Text)='' then begin Error(Edit_Avulsion_Speed1,TxtError,'撕離速度上不能為空');Exit;end; if Trim(Edit_Avulsion_Speed2.Text)='' then begin Error(Edit_Avulsion_Speed2,TxtError,'撕離速度下不能為空');Exit;end; // if Trim(Edit_Torsion1.Text)='' then begin Error(Edit_Torsion1,TxtError,'扭矩上不能為空');Exit;end; // if Trim(Edit_Torsion2.Text)='' then begin Error(Edit_Torsion2,TxtError,'扭矩下不能為空');Exit;end; if Trim(Edit_JiaoDai_Speed1.Text)='' then begin Error(Edit_JiaoDai_Speed1,TxtError,'繞膠帶速度上不能為空');Exit;end; if Trim(Edit_JiaoDai_Speed2.Text)='' then begin Error(Edit_JiaoDai_Speed2,TxtError,'繞膠帶速度下不能為空');Exit;end; if not TryStrToFloat(Edit_Avulsion_Speed1.Text,aa) then begin Error(Edit_Avulsion_Speed1,TxtError,'撕離速度上類型錯誤,請重新輸入.');Exit;end; if not TryStrToFloat(Edit_Avulsion_Speed2.Text,aa) then begin Error(Edit_Avulsion_Speed2,TxtError,'撕離速度下類型錯誤,請重新輸入.');Exit;end; // if not TryStrToFloat(Edit_Torsion1.Text,aa) then begin Error(Edit_Torsion1,TxtError,'扭矩上類型錯誤,請重新輸入.');Exit;end; // if not TryStrToFloat(Edit_Torsion2.Text,aa) then begin Error(Edit_Torsion2,TxtError,'扭矩下類型錯誤,請重新輸入.');Exit;end; if not TryStrToFloat(Edit_JiaoDai_Speed2.Text,aa) then begin Error(Edit_JiaoDai_Speed2,TxtError,'繞膠帶速度下類型錯誤,請重新輸入.');Exit;end; if not TryStrToFloat(Edit_JiaoDai_Speed1.Text,aa) then begin Error(Edit_JiaoDai_Speed1,TxtError,'繞膠帶速度上錯誤,請重新輸入.');Exit;end; Result:=true; if Result then Error(Edit_TROLLEY_NUM,TxtError,''); end; procedure TFrame_Uncap.FillDefaultValue(sPartnumValue,sDefaultTxt:string); var tmpList:TStrings; begin if sDefaultTxt='' then Exit; tmpList:=TStringList.Create; try tmpList.DelimitedText:=sDefaultTxt; if tmpList.Count>23 then begin Edit_Avulsion_Speed1.Text:=tmpList.Strings[4]; //撕離速度上 Edit_Avulsion_Speed2.Text:=tmpList.Strings[5]; //撕離速度下 // Edit_Torsion1.Text:=tmpList.Strings[20]; //扭矩上 // Edit_Torsion2.Text:=tmpList.Strings[21]; //扭矩下 Edit_JiaoDai_Speed1.Text:=tmpList.Strings[22]; //繞膠帶速度上 Edit_JiaoDai_Speed2.Text:=tmpList.Strings[23]; //繞膠帶速度下 end; finally tmpList.Free; end; end; function TFrame_Uncap.DoExec():boolean; var LotNoRecord:TLotNoRecord; vId:Integer; sTxt:string; sError:string; vP_ID:Double; begin Result:=false; if CheckValid(sTxt) then //上传数据 begin LotNoRecord:=TLotNoRecord.Create('-1'); //初始化记录 LotNoRecord.P_LOT:=ksoap.P_Lot; LotNoRecord.P_LOT_TYPE:='正常板'; 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; //線別編號 LotNoRecord.P_TROLLEY_NUM := Edit_TROLLEY_NUM.Text; //烤架编号 LotNoRecord.P_SIDE := sTxt; // 面次 LotNoRecord.P_DIE_NAME:=Edit_JiaoDai.Text; LotNoRecord.P_COMPRESS_SEC:=StrToFloat(Edit_JiaoDai_Speed2.Text); LotNoRecord.P_PREHEATING_SEC :=StrToFloat(Edit_JiaoDai_Speed1.Text); // LotNoRecord.P_PRODUCT_PRESSURE:=StrToFloat(Edit_Torsion2.Text); // LotNoRecord.P_COM_TEMPERATURE:=StrToFloat(Edit_Torsion1.Text); LotNoRecord.P_ELE_AREA2:=StrToFloat(Edit_Avulsion_Speed2.Text); LotNoRecord.P_ELE_AREA1:=StrToFloat(Edit_Avulsion_Speed1.Text); 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; //打开窗体 if Result then begin frmInkPrinterConent:=TfrmInkPrinterConent.Create(nil); try frmInkPrinterConent.LotNoRecord:=LotNoRecord; frmInkPrinterConent.vP_ID:=LotNoRecord.P_ID; frmInkPrinterConent.vId:=vId; frmInkPrinterConent.Text6.Text:='更改治具編號'; frmInkPrinterConent.ShowModal; finally frmInkPrinterConent.Free; end; end; end; end; end.