Developer
375 lines
11 KiB
ObjectPascal
375 lines
11 KiB
ObjectPascal
unit uListConent;
|
|
|
|
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,uTcpDevice,
|
|
FMX.Layouts, System.Rtti, FMX.Grid.Style, FMX.Memo, FMX.ScrollBox, FMX.Grid,
|
|
Winapi.Windows, uDM,uShowInfo, FMX.StdCtrls,uKsoap, FMX.Memo.Types;
|
|
|
|
type
|
|
TfrmListConent = class(TForm)
|
|
Rectangle1: TRectangle;
|
|
Rectangle2: TRectangle;
|
|
Rectangle3: TRectangle;
|
|
TxtFactoryCode: TText;
|
|
Rectangle4: TRectangle;
|
|
Rectangle6: TRectangle;
|
|
Text2: TText;
|
|
ImageList1: TImageList;
|
|
Rectangle18: TRectangle;
|
|
Rectangle19: TRectangle;
|
|
Rectangle20: TRectangle;
|
|
Rectangle21: TRectangle;
|
|
Text7: TText;
|
|
Rectangle26: TRectangle;
|
|
Rectangle27: TRectangle;
|
|
Text17: TText;
|
|
Rectangle33: TRectangle;
|
|
Text3: TText;
|
|
Rectangle5: TRectangle;
|
|
Rectangle7: TRectangle;
|
|
Rectangle8: TRectangle;
|
|
Rectangle9: TRectangle;
|
|
Rectangle10: TRectangle;
|
|
Rectangle11: TRectangle;
|
|
Rectangle12: TRectangle;
|
|
Memo1: TMemo;
|
|
Text4: TText;
|
|
Text5: TText;
|
|
Rectangle001: TRectangle;
|
|
Glyph1: TGlyph;
|
|
Text6: TText;
|
|
TxtPc11: TText;
|
|
Rectangle13: TRectangle;
|
|
Glyph2: TGlyph;
|
|
Text8: TText;
|
|
Text9: TText;
|
|
Rectangle15: TRectangle;
|
|
Rectangle16: TRectangle;
|
|
Text10: TText;
|
|
EdtInput1: TEdit;
|
|
EdtInput2: TEdit;
|
|
Rectangle17: TRectangle;
|
|
Rectangle22: TRectangle;
|
|
Text11: TText;
|
|
TxtEmpNo: TText;
|
|
Rectangle25: TRectangle;
|
|
Text12: TText;
|
|
TxtLotNo: TText;
|
|
Rectangle28: TRectangle;
|
|
Text13: TText;
|
|
TxtGoodsNo: TText;
|
|
Rectangle29: TRectangle;
|
|
Line1: TLine;
|
|
Rectangle30: TRectangle;
|
|
Line2: TLine;
|
|
Text14: TText;
|
|
TxtPc: TText;
|
|
Text18: TText;
|
|
TxtLine: TText;
|
|
Text20: TText;
|
|
TxtLineNum: TText;
|
|
Rectangle31: TRectangle;
|
|
Text22: TText;
|
|
TxtLotNum: TText;
|
|
Rectangle32: TRectangle;
|
|
Text26: TText;
|
|
Text29: TText;
|
|
Line3: TLine;
|
|
StringGrid1: TStringGrid;
|
|
Rectangle14: TRectangle;
|
|
StringGrid2: TStringGrid;
|
|
StringColumn1: TStringColumn;
|
|
StringColumn3: TStringColumn;
|
|
StringColumn6: TStringColumn;
|
|
StringColumn7: TStringColumn;
|
|
Timer1: TTimer;
|
|
Rectangle35: TRectangle;
|
|
Text21: TText;
|
|
Text16: TText;
|
|
Glyph23: TGlyph;
|
|
TxtVerInfo: TText;
|
|
TxtInput1Error: TText;
|
|
TxtInput2Error: TText;
|
|
procedure Rectangle28Click(Sender: TObject);
|
|
procedure Rectangle21Click(Sender: TObject);
|
|
procedure Timer1Timer(Sender: TObject);
|
|
procedure Text16Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure Text5Click(Sender: TObject);
|
|
procedure EdtInput1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
|
|
Shift: TShiftState);
|
|
procedure EdtInput2KeyDown(Sender: TObject; var Key: Word;
|
|
var KeyChar: Char; Shift: TShiftState);
|
|
procedure Rectangle20Click(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
procedure F2DCodeWork(Sender: TObject;Avalue: string);
|
|
procedure NumEnceWork(Avalue: string);
|
|
procedure RfidWork(Avalue: string);
|
|
{ Private declarations }
|
|
public
|
|
iCount:Integer;
|
|
vP_ID:Double;
|
|
vId:integer;
|
|
IsFirst:boolean;
|
|
F2DCode:T2DCode;
|
|
Rfid:TRfid;
|
|
NumEnce:TNumEnce;
|
|
end;
|
|
|
|
var
|
|
frmListConent: TfrmListConent;
|
|
|
|
implementation
|
|
|
|
{$R *.fmx}
|
|
|
|
uses uPucFun, uMain;
|
|
|
|
procedure TfrmListConent.NumEnceWork(Avalue: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TfrmListConent.EdtInput1KeyDown(Sender: TObject; var Key: Word;
|
|
var KeyChar: Char; Shift: TShiftState);
|
|
var
|
|
sError:string;
|
|
LotNoRecord:TLotNoRecord;
|
|
DetailRecord:TDetailRecord;
|
|
begin
|
|
if Key = vk_Return then
|
|
begin
|
|
with StringGrid1 do
|
|
begin
|
|
if Cells[0,RowCount-1]=EdtInput1.Text then //重复
|
|
begin
|
|
TxtShowErrorInfo(TxtInput1Error,'條碼重複輸入');
|
|
end
|
|
else
|
|
begin
|
|
// if NumEnce<>nil then
|
|
// begin
|
|
// NumEnce.SendStr('#011301');
|
|
// NumEnce.SendStr('#011401');
|
|
// Sleep(100);
|
|
// NumEnce.SendStr('#011300');
|
|
// NumEnce.SendStr('#011400');
|
|
// end;
|
|
|
|
TxtShowErrorInfo(TxtInput1Error,'');
|
|
BeginUpdate;
|
|
RowCount:=RowCount+1;
|
|
Cells[0,RowCount-1]:=EdtInput1.Text;
|
|
Cells[1,RowCount-1]:=FormatDateTime('yyyymmdd hh:mm:ss',Now);
|
|
SelectRow(RowCount-1);
|
|
EndUpdate;
|
|
inc(iCount);
|
|
Text29.Text:=iCount.ToString;
|
|
//Ksoap.Insert_cc_wip_lot_bc_history(TxtLotNo.Text,EdtInput1.Text,'A#','正常板','-1','-1','-1',vP_Id.ToString,'',sError);
|
|
if IsFirst then //第一次,插入主
|
|
begin
|
|
LotNoRecord:=TLotNoRecord.Create('-1'); //初始化记录
|
|
LotNoRecord.P_LOT:=TxtLotNo.Text;
|
|
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_CREATION_DATE:=FormatDateTime('yyyymmdd hh:mm:ss',Now);
|
|
dm.InsertMain(vId,LotNoRecord);
|
|
IsFirst:=false;
|
|
end;
|
|
DetailRecord.P_ORG_CODE:=ksoap.P_ORG_CODE; //廠區
|
|
DetailRecord.P_LOT:=TxtLotNo.Text;
|
|
DetailRecord.P_BC:=EdtInput1.Text; // 條碼(批號10碼+PNL3碼)
|
|
DetailRecord.P_PC:=ksoap.P_PC; //製程
|
|
DetailRecord.P_LINE:=ksoap.P_LINE; //線別
|
|
DetailRecord.P_LINE_NUM:=ksoap.P_LINE_NUM; //線別編號
|
|
DetailRecord.P_LOT_TYPE:='正常板';
|
|
DetailRecord.P_TROLLEY_NUM:='-1';
|
|
DetailRecord.P_COPPER_MODEL:='-1';
|
|
DetailRecord.P_BUFFER_TYPE:='-1';
|
|
DetailRecord.P_CREATION_DATE:=FormatDateTime('yyyymmdd hh:mm:ss',Now);
|
|
DetailRecord.P_ID:='0';
|
|
dm.InsertDetail(vId,DetailRecord);
|
|
end;
|
|
end;
|
|
EdtInput1.Text:='';
|
|
EdtInput1.SetFocus;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmListConent.EdtInput2KeyDown(Sender: TObject; var Key: Word;
|
|
var KeyChar: Char; Shift: TShiftState);
|
|
begin
|
|
if Key = vk_Return then
|
|
begin
|
|
with StringGrid2 do
|
|
begin
|
|
if Cells[0,RowCount-1]=EdtInput2.Text then //重复
|
|
begin
|
|
TxtShowErrorInfo(TxtInput2Error,'條碼重複輸入');
|
|
end
|
|
else
|
|
begin
|
|
TxtShowErrorInfo(TxtInput2Error,'');
|
|
BeginUpdate;
|
|
RowCount:=RowCount+1;
|
|
Cells[0,RowCount-1]:=EdtInput2.Text;
|
|
Cells[1,RowCount-1]:=FormatDateTime('yyyymmdd hh:mm:ss',Now);
|
|
SelectRow(RowCount-1);
|
|
EndUpdate;
|
|
|
|
//dm.InsertLotNo(); //
|
|
end;
|
|
end;
|
|
EdtInput2.Text:='';
|
|
EdtInput2.SetFocus;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmListConent.F2DCodeWork(Sender: TObject;Avalue:string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TfrmListConent.RfidWork(Avalue: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TfrmListConent.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
// if (StrToInt(Text29.Text)=0) then
|
|
// Text29.Text:= TxtLotNum.Text;
|
|
//退出的时候
|
|
if iCount>0 then
|
|
dm.InsertQtyTime(vId.ToString,'0',Text29.Text,'-1','-1','-1','-1');
|
|
end;
|
|
|
|
procedure TfrmListConent.FormCreate(Sender: TObject);
|
|
var
|
|
sDevName,sIp,sPort:string;
|
|
tmpValue:string;
|
|
i:integer;
|
|
begin
|
|
TxtFactoryCode.Text:=FactoryCode; //厂区
|
|
TxtEmpNo.Text:=ksoap.P_WORK_NUM; //工号
|
|
TxtLotNo.Text:=ksoap.P_Lot; //批号
|
|
TxtGoodsNo.Text:=ksoap.P_Goods_Num; //料号
|
|
TxtPc.Text:=ksoap.P_PC; //制程代码
|
|
TxtLine.Text:=ksoap.P_LINE; //制程名
|
|
TxtLineNum.Text:=ksoap.P_LINE_NUM; //线别
|
|
TxtLotNum.Text:=ksoap.P_Lot_Num.tostring;
|
|
|
|
TxtVerInfo.Text:=GetBuildInfo;
|
|
Memo1.Lines.Clear;
|
|
iCount:=0;
|
|
|
|
//根据配置加载设备
|
|
for i := 1 to 9 do
|
|
begin
|
|
tmpValue:=dm.MemTableReadKeyValue('读头','tv_line_speed'+i.ToString);
|
|
if tmpValue<>'' then
|
|
begin
|
|
if CheckParameter(tmpValue,sDevName,sIp,sPort) then
|
|
begin
|
|
if sameText(sDevName,'keyence') then //2D读头
|
|
begin
|
|
F2DCode:=T2DCode.Create(sIp,sPort.ToInteger);
|
|
F2DCode.OnWork:=F2DCodeWork;
|
|
end;
|
|
|
|
if sameText(sDevName,'RFID') then //RFID
|
|
begin
|
|
Rfid:=TRfid.Create(sIp,sPort.ToInteger);
|
|
Rfid.OnWork:=RfidWork;
|
|
end;
|
|
|
|
if sameText(sDevName,'WJ95') then //采集器
|
|
begin
|
|
NumEnce:=TNumEnce.Create(sIp,sPort.ToInteger);
|
|
NumEnce.OnWork:=NumEnceWork;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
TxtShowErrorInfo(TxtInput1Error,'');
|
|
TxtShowErrorInfo(TxtInput2Error,'');
|
|
|
|
//调整网格列宽
|
|
StringColumn6.Width:=StringGrid1.Width-StringColumn1.Width-25;
|
|
StringColumn7.Width:=StringGrid1.Width-StringColumn3.Width-25;
|
|
IsFirst:=True;
|
|
end;
|
|
|
|
procedure TfrmListConent.FormDestroy(Sender: TObject);
|
|
begin
|
|
if F2DCode<>nil then FreeandNil(F2DCode);
|
|
if Rfid<>nil then FreeandNil(Rfid);
|
|
if NumEnce<>nil then FreeandNil(NumEnce);
|
|
end;
|
|
|
|
procedure TfrmListConent.Rectangle20Click(Sender: TObject);
|
|
begin
|
|
if ShowInfoOKCancel('該批還沒有完成,真的要退出吗?') then Close;
|
|
end;
|
|
|
|
procedure TfrmListConent.Rectangle21Click(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmListConent.Rectangle28Click(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmListConent.Text16Click(Sender: TObject);
|
|
begin
|
|
ShowTouchKeyBoard();
|
|
end;
|
|
|
|
procedure TfrmListConent.Text5Click(Sender: TObject);
|
|
begin
|
|
MEMO1.Lines.Clear;
|
|
end;
|
|
|
|
procedure TfrmListConent.Timer1Timer(Sender: TObject);
|
|
begin
|
|
with StringGrid1 do
|
|
begin
|
|
BeginUpdate;
|
|
RowCount:=RowCount+1;
|
|
Cells[0,RowCount-1]:=RowCount.ToString;
|
|
Cells[1,RowCount-1]:=RowCount.ToString;
|
|
Cells[2,RowCount-1]:=RowCount.ToString;
|
|
Cells[3,RowCount-1]:=RowCount.ToString;
|
|
SelectRow(RowCount-1);
|
|
EndUpdate;
|
|
end;
|
|
|
|
with StringGrid2 do
|
|
begin
|
|
BeginUpdate;
|
|
RowCount:=RowCount+1;
|
|
Cells[0,RowCount-1]:=RowCount.ToString;
|
|
Cells[1,RowCount-1]:=RowCount.ToString;
|
|
Cells[2,RowCount-1]:=RowCount.ToString;
|
|
Cells[3,RowCount-1]:=RowCount.ToString;
|
|
SelectRow(RowCount-1);
|
|
EndUpdate;
|
|
end;
|
|
end;
|
|
|
|
end.
|