unit U_TableInspection; interface uses Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, ShellAPI, IdFTP, FireDAC.Stan.StorageXML; type TfrmTableInspection = class(TfrmBaseList) cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; cxStyle2: TcxStyle; cxGridPopupMenu1: TcxGridPopupMenu; DataSource1: TDataSource; ADOQueryMain: TADOQuery; ADOCmd: TADOQuery; RMDB_Main: TRMDBDataSet; RM2: TRMGridReport; DS_2: TDataSource; CDS_MJCD: TClientDataSet; ADOQueryPrint: TADOQuery; cxGridPopupMenu2: TcxGridPopupMenu; ADOQueryMainDSC: TADOQuery; Panel2: TPanel; Label9: TLabel; JYLen: TEdit; Label5: TLabel; BTPrint: TButton; Button5: TButton; Panel3: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; SpeedButton11: TSpeedButton; SpeedButton12: TSpeedButton; SpeedButton49: TSpeedButton; Label31: TLabel; Label32: TLabel; JYNW: TEdit; MovePanel1: TMovePanel; Label17: TLabel; Label18: TLabel; Label20: TLabel; Label21: TLabel; Label7: TLabel; Label8: TLabel; Edit1: TEdit; Button1: TButton; Button4: TButton; Edit2: TEdit; CDQty: TEdit; RadioGroup1: TRadioGroup; Button2: TButton; RM3: TRMGridReport; Panel5: TPanel; Panel6: TPanel; Label1: TLabel; Label35: TLabel; Label39: TLabel; APID: TEdit; edtChen: TEdit; Edit8: TEdit; ToolBar1: TToolBar; ToolButton1: TToolButton; TBCD: TToolButton; TBClose: TToolButton; edtYJ: TEdit; Label2: TLabel; ADOTmp: TADOQuery; ToolButton2: TToolButton; Button3: TButton; Label16: TLabel; edtMaBiao: TEdit; lblbq: TLabel; Button6: TButton; Label19: TLabel; KuangHao: TEdit; ToolButton4: TToolButton; Button7: TButton; ScrollBox1: TScrollBox; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton; SpeedButton16: TSpeedButton; SpeedButton17: TSpeedButton; SpeedButton18: TSpeedButton; SpeedButton21: TSpeedButton; SpeedButton22: TSpeedButton; SpeedButton23: TSpeedButton; SpeedButton24: TSpeedButton; SpeedButton25: TSpeedButton; SpeedButton26: TSpeedButton; SpeedButton29: TSpeedButton; SpeedButton30: TSpeedButton; SpeedButton31: TSpeedButton; SpeedButton32: TSpeedButton; SpeedButton33: TSpeedButton; SpeedButton34: TSpeedButton; SpeedButton37: TSpeedButton; SpeedButton38: TSpeedButton; SpeedButton39: TSpeedButton; SpeedButton40: TSpeedButton; SpeedButton41: TSpeedButton; SpeedButton42: TSpeedButton; SpeedButton45: TSpeedButton; SpeedButton46: TSpeedButton; SpeedButton47: TSpeedButton; SpeedButton48: TSpeedButton; SpeedButton50: TSpeedButton; SpeedButton51: TSpeedButton; SpeedButton54: TSpeedButton; SpeedButton55: TSpeedButton; SpeedButton56: TSpeedButton; SpeedButton57: TSpeedButton; SpeedButton58: TSpeedButton; SpeedButton59: TSpeedButton; SpeedButton62: TSpeedButton; SpeedButton63: TSpeedButton; SpeedButton64: TSpeedButton; SpeedButton65: TSpeedButton; SpeedButton66: TSpeedButton; SpeedButton67: TSpeedButton; SpeedButton70: TSpeedButton; SpeedButton71: TSpeedButton; SpeedButton72: TSpeedButton; SpeedButton73: TSpeedButton; SpeedButton74: TSpeedButton; SpeedButton75: TSpeedButton; SpeedButton19: TSpeedButton; SpeedButton20: TSpeedButton; SpeedButton27: TSpeedButton; SpeedButton28: TSpeedButton; SpeedButton35: TSpeedButton; SpeedButton36: TSpeedButton; SpeedButton43: TSpeedButton; SpeedButton44: TSpeedButton; SpeedButton52: TSpeedButton; SpeedButton53: TSpeedButton; SpeedButton60: TSpeedButton; SpeedButton61: TSpeedButton; SpeedButton68: TSpeedButton; SpeedButton69: TSpeedButton; SpeedButton76: TSpeedButton; SpeedButton77: TSpeedButton; SpeedButton78: TSpeedButton; SpeedButton79: TSpeedButton; SpeedButton80: TSpeedButton; SpeedButton81: TSpeedButton; SpeedButton82: TSpeedButton; SpeedButton83: TSpeedButton; Order_MJ: TClientDataSet; CDS_3: TClientDataSet; DS_3: TDataSource; ADOQueryImage: TADOQuery; DataSource2: TDataSource; IdFTP1: TIdFTP; Label10: TLabel; Label12: TLabel; Edit3: TEdit; Edit4: TEdit; Label26: TLabel; Label34: TLabel; Edit6: TEdit; ComboBox1: TComboBox; JYXs: TEdit; Label38: TLabel; Panel4: TPanel; cxGrid3: TcxGrid; Tv3: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; v3Column1: TcxGridDBColumn; v3Column2: TcxGridDBColumn; v3Column5: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; tv2CDType: TcxGridDBColumn; tv2CDWZ: TcxGridDBColumn; v2Column2: TcxGridDBColumn; Tv2CDQty: TcxGridDBColumn; Tv2CDReason: TcxGridDBColumn; v2Column1: TcxGridDBColumn; v2Column3: TcxGridDBColumn; v2Column4: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; AOrdDefNote1: TRichEdit; Panel1: TPanel; Pic_Image1: TcxDBImage; Tv3Column1: TcxGridDBColumn; Button8: TButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBCDClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure BTPrintClick(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton12Click(Sender: TObject); procedure SpeedButton13Click(Sender: TObject); procedure cxGridDBColumn2PropertiesChange(Sender: TObject); procedure Button1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure SpeedButton49Click(Sender: TObject); procedure APIDKeyPress(Sender: TObject; var Key: Char); procedure Edit2Change(Sender: TObject); procedure Edit3Click(Sender: TObject); procedure Edit4Click(Sender: TObject); procedure Edit6Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure APIDClick(Sender: TObject); procedure JYNWKeyPress(Sender: TObject; var Key: Char); procedure FormCreate(Sender: TObject); procedure Edit8Click(Sender: TObject); procedure JYLenChange(Sender: TObject); procedure Button4Click(Sender: TObject); procedure edtYJClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure edtChenClick(Sender: TObject); procedure Button6Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Pic_Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Pic_Image1DblClick(Sender: TObject); private { Private declarations } FFFJYID, FOperationStatus, FCDName, FYXJL, FJHGZ, FClothDegree: string; FAPID, FOrderNo, FMainId, FSubId, FTPId, FConNo, FConMainId, FConSubId: string; FP_Code, FP_CodeName, FP_Spec, FP_Color, FP_ColorNo, FP_KuanNo, FP_MF, FP_KZ, FP_HX, FP_KHHX, FP_TPColorNo, YBPS, YBQty: string; FRCGangNo, FGangNo: string; isCommopen, IsJsMessage: boolean; fxsType, fRollType: string; procedure InitCDPanel(); //刷新疵点选项 procedure InitCDGrid(); //刷新疵点信息 procedure InitJYGrid(); //刷新检验信息 function CheckData(CKType: string): Boolean; //校验数据 function SaveData(): Boolean; //保存数据 procedure InitLCK(MAPID: string); //扫描流程卡 procedure InitDDB(); //扫描待定布 procedure ClearGlobal(); //清除全局ID procedure PrintCKMDG(MRKOrdID: string); //打印入库单 procedure PrtData(FJYID: string); //打印卷标签 procedure QuantityConversion(); //数量换算 procedure InitImage(YFTPName: string); procedure LookImage(FileName: string); procedure OpenCom(DllName: string); procedure CloseCom(DllName: string); procedure On1201(var Message: Tmessage); message 1201; procedure On1301(var Message: Tmessage); message 1301; public fmanage: string; fFlileFlag: string; { Public declarations } end; var frmTableInspection: TfrmTableInspection; newh, newh1: hwnd; implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_iniParam, U_ProductOrderListSel, U_JYG, U_ZdyMapSel; {$R *.dfm} procedure TfrmTableInspection.InitImage(YFTPName: string); begin with ADOQueryImage do begin close; sql.Clear; sql.Add('select * from TP_File A'); sql.Add('where isnull(WBID,'''')<>'''' and WBID=' + quotedstr(YFTPName)); // showmessage(sql.text); open; end; end; procedure TfrmTableInspection.QuantityConversion(); var MLen, MNWet, MGWet, MPWet, MCC, FYJZQty: Double; begin MLen := StrToFloatdef(trim(JYLen.Text), 0); MNWet := StrToFloatdef(trim(JYNW.Text), 0); MCC := StrToFloatdef(trim(JYXs.Text), 0); //长度 与 减去长度 if TV2.DataController.Summary.FooterSummaryValues[2] <> NULL then begin FYJZQty := StrToFloatdef(TV2.DataController.Summary.FooterSummaryValues[2], 0); end else begin FYJZQty := 0; end; { // 换算重量 if MCC > 0 then begin MGWet := StrToFloat(format('%.1f', [(MLen - FYJZQty) * MCC])); MNWet := MGWet - MPWet; JYGW.Text := FloatToStr(MGWet); JYNW.Text := FloatToStr(MNWet); end; } MNWet := MGWet - MPWet; //换算米数 if MCC > 0 then begin MLen := RoundFloat(MNWet * MCC, 1); JYLen.Text := FloatToStr(MLen); end; JYNW.Text := FloatToStr(MNWet); end; function TfrmTableInspection.CheckData(CKType: string): Boolean; var mvalue: Double; begin try if Trim(FAPID) = '' then raise Exception.Create('请扫描流程卡！'); // if Trim(FMainId) = '' then // raise Exception.Create('请扫描流程卡！'); // if Trim(FSubId) = '' then // raise Exception.Create('请扫描流程卡！'); if Trim(CKType) = '提交' then begin // if Trim(KuangHao.Text) = '' then // raise Exception.Create('框号不能为空！'); // if Trim(JYPerson.Text) = '' then // raise Exception.Create('请输入验布工！'); if trim(Label9.Caption) = '' then raise Exception.Create('长度单位不能为空!'); if strtofloatdef(trim(JYNW.Text), 0) <= 0.00 then raise Exception.Create('重量不能小于0!'); if strtofloatdef(trim(JYLen.Text), 0) <= 0.00 then raise Exception.Create('长度不能小于0!'); if Trim(JYLen.Text) <> '' then begin if strtofloatdef(trim(JYLen.Text), 0) > 400 then raise Exception.Create('长度不能大于400!'); end; if (strtofloatdef(trim(JYLen.Text), 0) = 0) and (strtofloatdef(trim(JYNW.Text), 0) = 0) then raise Exception.Create('长度和重量不能都为0!!'); end; Result := True; except Result := false; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); end; end; procedure TfrmTableInspection.ClearGlobal(); begin FAPID := ''; FJHGZ := ''; FOrderNo := ''; FConNo := ''; FConMainId := ''; FConSubId := ''; FMainId := ''; FSubId := ''; FTPId := ''; FP_KHHX := ''; FP_TPColorNo := ''; FRCGangNo := ''; FGangNo := ''; FP_Code := ''; FP_CodeName := ''; FP_Spec := ''; FP_Color := ''; FP_ColorNo := ''; FP_KuanNo := ''; FP_MF := ''; FP_KZ := ''; FP_HX := ''; FFFJYID := ''; FClothDegree := ''; JYXS.Text := ''; AOrdDefNote1.Text := ''; JYNW.Text := ''; end; procedure TfrmTableInspection.Pic_Image1DblClick(Sender: TObject); begin if TcxDBImage(Sender).Picture.Height = 0 then exit; LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); end; procedure TfrmTableInspection.LookImage(FileName: string); var sFieldName: string; begin sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\图片查看'; if not DirectoryExists(pchar(sFieldName)) then CreateDirectory(pchar(sFieldName), nil); sFieldName := sFieldName + '\' + trim(FileName); try IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1'); IdFTP1.Username := 'three'; IdFTP1.Password := '641010'; IdFTP1.Connect(); except ; end; if IdFTP1.Connected then begin try IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false); except Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING); IdFTP1.Quit; Exit; end; end else begin Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING); IdFTP1.Quit; Exit; end; if IdFTP1.Connected then IdFTP1.Quit; ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); end; procedure TfrmTableInspection.Pic_Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Panel1.Handle, wm_SysCommand, $F012, 0); end; procedure TfrmTableInspection.PrintCKMDG(MRKOrdID: string); var fPrintFile: string; Txt, fImagePath: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; begin with ADOQueryPrint do begin Close; SQL.Clear; sql.Add(' exec P_Print_RKMDGangNo '); SQL.Add(' @RKOrdID=''' + Trim(MRKOrdID) + ''''); Open; end; try Moudle := LoadLibrary('MakeQRBarcode.dll'); @Makebar := GetProcAddress(Moudle, 'Make'); @Mixtext := GetProcAddress(Moudle, 'MixText'); Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').AsString); fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); if FileExists(fImagePath) then DeleteFile(fImagePath); Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); except application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR); exit; end; ExportFtErpFile('验布工仓库码单.rmf', ADOTmp); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\验布工仓库码单.rmf'; if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); Rm2.DefaultCopies := 1; RM2.ShowReport; end else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); Exit; end; end; procedure TfrmTableInspection.InitDDB(); begin with ADOTmp do begin Close; sql.Clear; sql.Add('select * from CK_BanCP_CR where JYID=''' + Trim(APID.Text) + ''' and CRFlag=''入库'''); Open; end; if ADOTmp.IsEmpty = False then begin APID.Text := ''; Application.MessageBox('已产生入库数据检验!', '提示', 0); Exit; end; with ADOTmp do begin Close; sql.Clear; sql.Add('select A.*,B.*,C.*,D.JYID,D.JYXH,D.JYXS,D.JYGW,D.JYTare,D. JYNW,D.JYLen '); sql.Add('from CK_SXPB_CR A'); sql.Add('inner join JYOrder_Main B on A.ORDMainIdCK=B.MainId'); sql.Add('inner join JYOrder_Sub C on A.ORDSubIdCK=C.SubId'); sql.Add('inner join JY_Cloth D on D.APID=A.SPID'); sql.Add('where JYType=''待定'' and JYID=''' + Trim(APID.Text) + ''''); Open; end; if ADOTmp.IsEmpty then begin ClearGlobal(); Application.MessageBox('此条码不是待定状态无法重新检验！', '提示', 0); end else begin FAPID := Trim(ADOTmp.fieldbyname('SPID').AsString); FMainId := Trim(ADOTmp.fieldbyname('ORDMainIdRK').AsString); FSubId := Trim(ADOTmp.fieldbyname('ORDSubIdRK').AsString); FFFJYID := Trim(ADOTmp.fieldbyname('JYID').AsString); FClothDegree := Trim(ADOTmp.fieldbyname('ClothDegree').AsString); JYXS.Text := Trim(ADOTmp.fieldbyname('Xs').AsString); AOrdDefNote1.Text := '计划单:' + Trim(ADOTmp.fieldbyname('OrderNo').AsString) + #13 + '品名:' + Trim(ADOTmp.fieldbyname('MPRTCodeName').AsString) + #13 + '颜色:' + trim(ADOTmp.fieldbyname('PRTColor').AsString) + #13 + '包装要求:' + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + '门幅:' + Trim(ADOTmp.fieldbyname('MPRTMF').AsString) + #13 + '克重:' + Trim(ADOTmp.fieldbyname('MPRTKZ').AsString) + #13 + '特别提示:' + Trim(ADOTmp.fieldbyname('Note').AsString); JYXS.Text := Trim(ADOTmp.fieldbyname('JYXS').AsString); JYNW.Text := Trim(ADOTmp.fieldbyname('JYNW').AsString); JYLen.Text := Trim(ADOTmp.fieldbyname('JYLen').AsString); if Trim(ADOTmp.fieldbyname('OrderUnit').AsString) <> '' then begin Label20.Caption := Label9.Caption; Label7.Caption := Label9.Caption; end; end; with ADOCmd do begin Close; sql.Clear; sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add(' ' + quotedstr(trim(DName))); sql.Add(',getdate() '); sql.Add(',' + quotedstr(trim(self.Caption))); sql.Add(',' + quotedstr(trim('翻布重检验'))); sql.Add(',' + quotedstr(trim('卷号：' + trim(APID.Text)))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); ExecSQL; end; InitJYGrid(); InitCDGrid(); APID.Text := ''; end; procedure TfrmTableInspection.InitLCK(MAPID: string); begin with ADOTmp do begin Close; sql.Clear; sql.Add('EXEC P_JY_Get_LCK @SPID=''' + Trim(MAPID) + ''''); Open; end; if ADOTmp.IsEmpty = False then begin InitImage(Trim(ADOTmp.fieldbyname('YFTPName').AsString)); FAPID := Trim(MAPID); FConMainId := Trim(ADOTmp.fieldbyname('CKConMainId').AsString); FConSubId := Trim(ADOTmp.fieldbyname('CKConSubId').AsString); FConNo := Trim(ADOTmp.fieldbyname('CKConNo').AsString); if Trim(ADOTmp.fieldbyname('ORDMainIdCK').AsString) = '' then begin FOrderNo := Trim(ADOTmp.fieldbyname('QCOrderNo').AsString); FMainId := Trim(ADOTmp.fieldbyname('ORDMainIdRK').AsString); FSubId := Trim(ADOTmp.fieldbyname('ORDSubIdRK').AsString); end else begin FOrderNo := Trim(ADOTmp.fieldbyname('CKOrderNo').AsString); FMainId := Trim(ADOTmp.fieldbyname('ORDMainIdCK').AsString); FSubId := Trim(ADOTmp.fieldbyname('ORDSubIdCK').AsString); end; FTPId := Trim(ADOTmp.fieldbyname('TPId').AsString); FP_KHHX := Trim(ADOTmp.fieldbyname('SPHXKH').AsString); FP_TPColorNo := Trim(ADOTmp.fieldbyname('TPColorNo').AsString); FClothDegree := Trim(ADOTmp.fieldbyname('ClothDegree').AsString); FP_Code := Trim(ADOTmp.fieldbyname('SPCode').AsString); FP_CodeName := Trim(ADOTmp.fieldbyname('SPName').AsString); FP_Spec := Trim(ADOTmp.fieldbyname('SPSpec').AsString); FP_Color := Trim(ADOTmp.fieldbyname('SPColor').AsString); FP_ColorNo := Trim(ADOTmp.fieldbyname('SPColorNo').AsString); FP_MF := Trim(ADOTmp.fieldbyname('SPMF').AsString); FP_KZ := Trim(ADOTmp.fieldbyname('SPKZ').AsString); FP_HX := Trim(ADOTmp.fieldbyname('SPHX').AsString); FRCGangNo := Trim(ADOTmp.fieldbyname('RCGangNo').AsString); FGangNo := Trim(ADOTmp.fieldbyname('GangNo').AsString); KuangHao.Text := ''; JYXS.Text := Trim(ADOTmp.fieldbyname('Xs').AsString); AOrdDefNote1.Text := '计划单:' + FOrderNo + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '品名:' + FP_CodeName + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '色号:' + FP_ColorNo + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '颜色:' + FP_Color + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '花型号:' + FP_HX + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '染厂缸号:' + FRCGangNo + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '本厂缸号:' + FGangNo + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '开卡匹数:' + Trim(ADOTmp.fieldbyname('PiQty').AsString) + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '开卡数量:' + Trim(ADOTmp.fieldbyname('Qty').AsString) + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '验布匹数:' + Trim(ADOTmp.fieldbyname('DJJS').AsString) + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '验布数量:' + Trim(ADOTmp.fieldbyname('DJJZ').AsString) + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '公司船样要求:' + Trim(ADOTmp.fieldbyname('GSChuanYangNote').AsString) + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '仓库船样要求:' + Trim(ADOTmp.fieldbyname('CKChuanYangNote').AsString) + #13; AOrdDefNote1.Text := AOrdDefNote1.Text + '包装要求:' + #13 + Trim(ADOTmp.fieldbyname('PZFYNote').AsString) + #13; end else begin ClearGlobal(); end; InitJYGrid(); InitCDGrid(); APID.Text := ''; end; procedure TfrmTableInspection.CloseCom(DllName: string); type TMyFunc = function(sCommName: PAnsiChar): HWND; stdcall; var Tf1: TMyFunc; Tp1: TFarProc; Th1: Thandle; begin Th1 := LoadLibrary(Pchar(trim(DllName))); if Th1 > 0 then begin try Tp1 := GetProcAddress(Th1, 'CommClose'); if Tp1 <> nil then begin Tf1 := TMyFunc(Tp1); newh1 := Tf1('Comm1'); end else begin end; finally // FreeLibrary(Th1); end; end else begin application.MessageBox(Pchar('找不到 ' + trim(DllName) + ' 文件！'), '提示'); end; end; procedure TfrmTableInspection.OpenCom(DllName: string); type TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): HWND; stdcall; var Tf: TMyFunc; Tp: TFarProc; Th: Thandle; begin // closeCom(FComFile); Th := LoadLibrary(Pchar(trim(DllName))); if Th > 0 then begin try Tp := GetProcAddress(Th, 'CommOpen'); if Tp <> nil then begin Tf := TMyFunc(Tp); newh := Tf(self.Handle, 'Comm1', 500, 1); if newh < 1 then begin application.MessageBox(Pchar('打开串口失败！'), '提示'); end else IsCommOpen := true; end else begin IsCommOpen := false; end; finally // FreeLibrary(Th); end; end else begin IsCommOpen := false; application.MessageBox(Pchar('找不到 ' + trim(DllName) + ' 文件！'), '提示'); end; end; procedure TfrmTableInspection.FormDestroy(Sender: TObject); begin inherited; frmTableInspection := nil; end; procedure TfrmTableInspection.On1301(var Message: Tmessage); var i1, i2: integer; unitname: string; fdata: double; begin i1 := Message.WParam; i2 := Message.LParam; if (trim(edtMaBiao.Text) = '√') then begin JYLen.Text := format('%.1f', [i1 / 100000]); if i2 = 0 then Label9.Caption := 'M' else Label9.Caption := 'Y'; edit1.Text := format('%.1f', [i1 / 100000]); end; end; procedure TfrmTableInspection.On1201(var Message: Tmessage); var i1, i2: integer; unitname: string; fdata: double; begin i1 := Message.WParam; i2 := Message.LParam; end; procedure TfrmTableInspection.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; if isCommopen then begin closeCom(DZCDYDllName); closeCom(MBDYDllName); end; Action := caFree; end; procedure TfrmTableInspection.InitCDGrid(); begin with ADOQueryMain do begin Close; SQL.Clear; sql.Add('select * from JY_Cloth_CD where JYID=' + quotedstr(Trim(FFFJYID))); Open; end; SCreateCDS(ADOQueryMain, CDS_MJCD); SInitCDSData(ADOQueryMain, CDS_MJCD); end; procedure TfrmTableInspection.InitJYGrid(); var MJYNW, MJYLen: double; begin with ADOQueryMain do begin Close; SQL.Clear; sql.Add('select A.*'); sql.Add('from JY_Cloth A where APID=''' + Trim(FAPID) + ''''); // if Trim(SCXFlag) <> '' then // sql.Add(' and JTType=''' + Trim(SCXFlag) + ''''); sql.Add(' and Filler=''' + Trim(DName) + ''''); sql.Add('and convert(varchar(10),filltime,120)=convert(varchar(10),getdate(),120)'); sql.Add(' order by filltime desc'); // ShowMessage(SQL.Text); Open; end; SCreateCDS(ADOQueryMain, CDS_3); SInitCDSData(ADOQueryMain, CDS_3); // if TV3.DataController.Summary.FooterSummaryValues[1] <> NULL then // MJYLen := TV3.DataController.Summary.FooterSummaryValues[1] // else // MJYLen := 0; // if TV3.DataController.Summary.FooterSummaryValues[3] <> NULL then // MJYNW := TV3.DataController.Summary.FooterSummaryValues[3] // else // MJYNW := 0; /////////////////////// 显示产量 //////////////////////////////// // with ADOTmp do // begin // Close; // SQL.Clear; // sql.Add('select COUNT(mjid) PS,SUM(JYGW) MZ,SUM(JYLen) ZD,SUM(JYNW) JZ '); // sql.Add('from JY_Cloth where CONVERT(varchar(10),Filltime,120)=CONVERT(varchar(10),GETDATE(),120)'); // if Trim(SCXFlag) <> '' then // sql.Add(' and JTType=''' + Trim(SCXFlag) + ''''); // sql.Add(' and Filler=''' + Trim(DName) + ''''); // Open; // end; // lblbq.Caption := '匹数：' + ADOTmp.FieldByname('PS').AsString; // lblbq.Caption := lblbq.Caption + ' 米数：' + ADOTmp.FieldByname('ZD').AsString; // lblbq.Caption := lblbq.Caption + ' 毛重：' + ADOTmp.FieldByname('MZ').AsString; // lblbq.Caption := lblbq.Caption + ' 净重：' + ADOTmp.FieldByname('JZ').AsString; /////////////////////// 显示产量 //////////////////////////////// end; procedure TfrmTableInspection.TBCloseClick(Sender: TObject); begin Close; end; procedure TfrmTableInspection.TBCDClick(Sender: TObject); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := 'WFBCD'; flagname := '疵点'; fnote := True; V1Note.Caption := '英文名称'; if ShowModal = 1 then begin Self.InitCDPanel(); end; end; finally frmZDYHelp.Free; end; end; procedure TfrmTableInspection.FormShow(Sender: TObject); begin inherited; fFlileFlag := UserDataFlag + 'HX'; InitCDPanel(); InitCDGrid(); if IsINIFile() then ReadINIFile() else WriteINIFile; if trim(fmanage) <> '高权限' then begin if trim(DZCDYDllName) <> '' then OpenCom(DZCDYDllName); if trim(MBDYDllName) <> '' then OpenCom(MBDYDllName); edtChen.Visible := true; edtMaBiao.Visible := true; Label35.Visible := true; end; end; procedure TfrmTableInspection.InitCDPanel(); var AA: array[0..100] of string; i, j: Integer; begin with ADOTmp do begin Close; sql.Clear; sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO '); Open; end; if ADOTmp.IsEmpty then begin Application.MessageBox('没有定义疵点！', '提示', 0); Exit; end; with ADOTmp do begin First; i := 0; while not Eof do begin AA[i] := Trim(fieldbyname('ZDYName').AsString); i := i + 1; Next; end; end; i := i - 1; if i > 69 then begin i := 69; end; for j := 0 to i do begin with ScrollBox1 do begin TSpeedButton(Controls[j]).Visible := True; TSpeedButton(Controls[j]).Hint := AA[j]; if Length(AA[j]) > 4 then begin TSpeedButton(Controls[j]).Caption := Copy(Trim(AA[j]), 1, 4) + #13 + Copy(Trim(AA[j]), 5, Length(AA[j]) - 4); end else TSpeedButton(Controls[j]).Caption := AA[j]; end; end; end; procedure TfrmTableInspection.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin if CDS_MJCD.IsEmpty then Exit; if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then begin if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; CDS_MJCD.Delete; end; end; function TfrmTableInspection.SaveData(): Boolean; var maxno, FJYID, BZID, strsql: string; FJYLen, FYJZQty: Double; begin if FOperationStatus = '翻布重检' then begin FJYID := FFFJYID; end else begin FJYID := ''; end; try ADOCmd.Connection.BeginTrans; ///保存主表 with ADOCmd do begin Close; sql.Clear; SQL.Add('select * from JY_Cloth where JYID=''' + Trim(FJYID) + ''''); Open; end; with ADOCmd do begin if Trim(FJYID) = '' then begin Append; if GetLSNo(ADOTmp, maxno, Trim(SCXFlag), 'JY_Cloth', 4, 1) = False then begin ADOCmd.Connection.RollbackTrans; Application.MessageBox('生成流水号异常！', '提示', 0); exit; end; end else begin maxno := Trim(FJYID); Edit; end; FieldByName('OrderNo').value := Trim(FOrderNo); FieldByName('MainId').value := Trim(FMainId); FieldByName('SubId').value := Trim(FSubId); FieldByName('ConNo').value := Trim(FConNo); FieldByName('ConMainId').value := Trim(FConMainId); FieldByName('ConSubId').value := Trim(FConSubId); FieldByName('TPId').value := Trim(FTPId); FieldByName('ClothDegree').value := Trim(FClothDegree); FieldByName('APId').value := Trim(FAPID); FieldByName('JYID').Value := Trim(maxno); FieldByName('JYCRType').Value := '未入库'; FieldByName('RCGangNo').value := FRCGangNo; FieldByName('P_Code').value := FP_Code; FieldByName('P_CodeName').value := FP_CodeName; FieldByName('P_Spec').value := FP_Spec; FieldByName('P_Color').value := FP_Color; FieldByName('P_ColorNo').value := FP_ColorNo; FieldByName('P_KuanNo').value := FP_KuanNo; FieldByName('P_MF').value := FP_MF; FieldByName('P_KZ').value := FP_KZ; FieldByName('P_HX').value := FP_HX; FieldByName('P_KHHX').value := FP_KHHX; FieldByName('P_TPColorNo').value := FP_TPColorNo; // 疵点 长度 与 减去长度 if TV2.DataController.Summary.FooterSummaryValues[2] <> NULL then begin FYJZQty := StrToFloatdef(TV2.DataController.Summary.FooterSummaryValues[2], 0); end else begin FYJZQty := 0; end; FieldByName('YJZQty').Value := FYJZQty; if Trim(Edit3.Text) <> '' then begin FieldByName('JYType').Value := '正品'; end; if Trim(Edit4.Text) <> '' then begin FieldByName('JYType').Value := '次品'; end; FieldByName('JYLen').Value := RoundFloat(StrToFloatdef(trim(JYLen.Text), 0), 1); FieldByName('JYYLen').Value := RoundFloat(StrToFloatdef(trim(JYLen.Text), 0) / 0.9144, 1); FieldByName('jyxh').Value := 0; //净重 FieldByName('JYNW').Value := StrToFloatdef(trim(JYNW.Text), 0); FieldByName('JYGW').Value := StrToFloatdef(trim(JYNW.Text), 0); FieldByName('JYTare').Value := 0; //系数 FieldByName('JYXS').Value := StrToFloatdef(trim(JYXS.Text), 0); if Trim(FJYID) = '' then begin FieldByName('Filler').Value := Trim(DName); end else begin FieldByName('Editer').Value := Trim(DName); FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp); end; //检验机台号 if Trim(SCXFlag) <> '' then begin FieldByName('JTType').Value := Trim(SCXFlag); end; Post; end; //////// 更新卷号 //////// with ADOCmd do begin Close; sql.Clear; sql.Add('exec P_JY_UP_JYXH'); sql.Add('@JYID=''' + Trim(maxno) + ''''); open; end; //////// 更新卷号 //////// FJYID := Trim(maxno); FFFJYID := Trim(maxno); ///保存母卷疵点表 with CDS_MJCD do begin First; while not Eof do begin if Trim(CDS_MJCD.fieldbyname('JCID').AsString) = '' then begin if GetLSNo(ADOTmp, maxno, 'JC', 'JY_Cloth_CD', 5, 1) = False then begin ADOCmd.Connection.RollbackTrans; Application.MessageBox('取子流水号失败！', '提示', 0); Exit; end; end else begin maxno := Trim(CDS_MJCD.fieldbyname('JCID').AsString); end; with ADOCmd do begin Close; SQL.Clear; sql.Add('select * from JY_Cloth_CD '); sql.Add(' where JCID=''' + Trim(maxno) + ''''); Open; end; with ADOCmd do begin if Trim(CDS_MJCD.fieldbyname('JYID').AsString) = '' then Append else Edit; FieldByName('JYID').Value := Trim(FJYID); FieldByName('JCID').Value := Trim(maxno); RTSetSaveDataCDS(ADOCmd, Tv2, CDS_MJCD, 'JY_Cloth_CD', 0); FieldByName('KouFenType').Value := CDS_MJCD.fieldbyname('KouFenType').Value; Post; end; CDS_MJCD.Edit; CDS_MJCD.FieldByName('JCID').Value := Trim(maxno); Next; end; end; // with ADOCmd do // begin // close; // sql.Clear; // sql.Add('update JY_Cloth SET CDList= dbo.F_Get_Order_SubStr(JYID,''MJCDHZSL'')'); // sql.Add('where JYID=''' + Trim(FJYID) + ''' '); // execsql; // end; //出入库及库存 with ADOCmd do begin Close; sql.Clear; sql.Add('exec P_JY_Cloth_CRK @JYID=''' + trim(FJYID) + ''''); execsql; end; //更新开卡进度 with ADOCmd do begin Close; sql.Clear; sql.Add('exec P_JY_UP_LCK @APID=''' + trim(FAPID) + ''''); execsql; end; ADOCmd.Connection.CommitTrans; Result := True; except Result := False; ADOCmd.Connection.RollbackTrans; Application.MessageBox('保存失败！', '提示', 0); end; end; procedure TfrmTableInspection.BTPrintClick(Sender: TObject); var fPrintFile: string; mvalue: Double; i: Integer; begin APID.SetFocus; if CheckData('提交') = False then exit; // if FJHGZ = '手动输入' then // begin // with ADOTmp do // begin // Close; // sql.Clear; // SQL.Add('select * from JY_Cloth where APID=' + quotedstr(Trim(FAPID))); // SQL.Add(' and JYXH=' + Trim(JYXH.Text)); // Open; // end; // if not ADOTmp.IsEmpty then // begin // if Application.MessageBox('当前卷号已存在，是否继续保存？', '提示', 32 + 4) <> IDYES then // Exit; // end; // end; if SaveData() then begin JYLen.Text := ''; JYNW.Text := ''; Edit3.Text := '√'; Edit4.Text := ''; if Trim(Edit6.Text) = '√' then begin PrtData(FFFJYID); end; end; FOperationStatus := ''; FFFJYID := ''; InitLCK(FAPID); // InitJYGrid(); // InitCDGrid(); JYLen.SetFocus; end; procedure TfrmTableInspection.PrtData(FJYID: string); var fPrintFile: string; Txt, fImagePath, Txt2, fImagePath2: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; begin with ADOQueryPrint do begin Close; SQL.Clear; sql.Add(' EXEC P_JY_Print_Lab '); SQL.Add(' @JYID=''' + Trim(FJYID) + ''''); Open; end; if ADOQueryPrint.IsEmpty then begin application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR); exit; end; ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf', ADOTmp); if Trim(ADOQueryPrint.fieldbyname('LBName').AsString) <> '' then begin fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf' end else begin ExportFtErpFile('通用中文标签.rmf', ADOTmp); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用中文标签.rmf'; end; if FileExists(fPrintFile) then begin RM2.LoadFromFile(fPrintFile); if Trim(ADOQueryPrint.fieldbyname('LBName').AsString) <> '次品标签' then Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1) else Rm2.DefaultCopies := 1; RM2.PrintReport; end else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); end; end; procedure TfrmTableInspection.SpeedButton1Click(Sender: TObject); var fsj: string; begin fsj := Trim(TSpeedButton(Sender).Hint); if Trim(fsj) = '' then Exit; if TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Name = 'KuangHao' then Exit; fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := fsj + Trim(TSpeedButton(Sender).Caption); TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; end; procedure TfrmTableInspection.SpeedButton12Click(Sender: TObject); var fsj: string; begin fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); if Trim(fsj) = '' then Exit; TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Copy(fsj, 1, Length(fsj) - 1); TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; end; procedure TfrmTableInspection.SpeedButton13Click(Sender: TObject); var i: Integer; begin if CheckData('疵点') = False then exit; FCDName := Trim(TSpeedButton(Sender).Hint); MovePanel1.Visible := True; Label21.Caption := Trim(FCDName); //显示数字键盘 Edit1.SetFocus; Panel3.Visible := True; with Panel3 do begin for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin TSpeedButton(Controls[i]).Hint := Trim(Edit1.Name); end; end; end; end; procedure TfrmTableInspection.cxGridDBColumn2PropertiesChange(Sender: TObject); var fsj: string; begin fsj := Trim(Order_MJ.fieldbyname('SubId').AsString); Order_MJ.DisableControls; with Order_MJ do begin First; while not Eof do begin if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then begin Edit; FieldByName('SSel').Value := False; end; Next; end; end; Order_MJ.EnableControls; Order_MJ.Locate('SubId', fsj, []); end; procedure TfrmTableInspection.Button1Click(Sender: TObject); var mvalue: Double; begin { if Trim(Edit1.Text)='' then begin Application.MessageBox('位置不能为空！','提示',0); exit; end; } if Trim(Edit1.Text) <> '' then begin if Trim(Edit2.Text) <> '' then begin if StrToFloat(Edit2.Text) < StrToFloat(Edit1.Text) then begin Application.MessageBox('疵点位置录入错误!', '提示', 0); Exit; end; end; end; if CDQty.Text <> '' then begin if TryStrToFloat(CDQty.Text, mvalue) = False then begin Application.MessageBox('非法数字!', '提示', 0); Exit; end; end; with CDS_MJCD do begin Append; FieldByName('cdname').Value := Trim(FCDName); FieldByName('CDbeg').Value := Trim(Edit1.Text); FieldByName('CDEnd').Value := Trim(Edit2.Text); FieldByName('KouFenQty').Value := 0; if RadioGroup1.ItemIndex > -1 then FieldByName('KouFenType').Value := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; if RadioGroup1.ItemIndex > -1 then begin if RadioGroup1.ItemIndex < 3 then begin FieldByName('KouFenQty').Value := RadioGroup1.ItemIndex + 1; end else begin FieldByName('KouFenQty').Value := 4; end; end; if Trim(FCDName) = '测幅宽' then FieldByName('KouFenQty').Value := 0; FieldByName('CDQty').Value := StrToFloatdef(trim(CDQty.Text), 0); if Trim(edtYJ.Text) <> '' then begin FieldByName('YJQty').Value := StrToFloatdef(trim(CDQty.Text), 0); end else begin FieldByName('YJQty').Value := 0; end; Post; end; Edit1.Text := ''; Edit2.Text := ''; CDQty.Text := ''; MovePanel1.Visible := False; Panel3.Visible := False; end; procedure TfrmTableInspection.ToolButton1Click(Sender: TObject); begin InitCDPanel(); end; procedure TfrmTableInspection.Button5Click(Sender: TObject); begin Application.MessageBox('没功能，先放着!', '提示', 0); Exit; end; procedure TfrmTableInspection.SpeedButton49Click(Sender: TObject); begin Panel3.Visible := False; end; procedure TfrmTableInspection.APIDKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin if StrToIntDef(APID.Text, 0) > 0 then APID.Text := 'DC' + APID.Text; ClearGlobal(); FOperationStatus := '打卷检验'; InitLCK(APID.Text); APID.Text := ''; end; end; procedure TfrmTableInspection.Edit2Change(Sender: TObject); var mvalue: Double; begin if Trim(Edit1.Text) <> '' then begin if TryStrToFloat(Edit1.Text, mvalue) = False then begin Application.MessageBox('非法数字!', '提示', 0); Exit; end; end else begin Exit; end; if Trim(Edit2.Text) <> '' then begin if TryStrToFloat(Edit2.Text, mvalue) = False then begin Application.MessageBox('非法数字!', '提示', 0); Exit; end; end else begin Exit; end; CDQty.Text := FloatToStr(StrToFloat(Edit2.Text) - StrToFloat(Edit1.Text)); end; procedure TfrmTableInspection.Edit3Click(Sender: TObject); begin if Trim(Edit3.Text) = '' then begin Edit3.Text := '√'; Edit4.Text := ''; end else begin Edit3.Text := ''; Edit4.Text := '√'; end; end; procedure TfrmTableInspection.Edit4Click(Sender: TObject); begin if Trim(Edit4.Text) = '' then begin Edit4.Text := '√'; Edit3.Text := ''; end else begin Edit4.Text := ''; Edit3.Text := '√'; end; end; procedure TfrmTableInspection.Edit6Click(Sender: TObject); begin if Trim(Edit6.Text) = '' then begin Edit6.Text := '√'; end else begin Edit6.Text := ''; end; end; procedure TfrmTableInspection.Button2Click(Sender: TObject); begin RadioGroup1.ItemIndex := -1; end; procedure TfrmTableInspection.APIDClick(Sender: TObject); var i: Integer; begin Panel3.Visible := True; with Panel3 do begin for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; end; procedure TfrmTableInspection.JYNWKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin BTPrint.Click; end; end; procedure TfrmTableInspection.FormCreate(Sender: TObject); begin inherited; IsCommopen := false; IsJsMessage := false; end; procedure TfrmTableInspection.Edit8Click(Sender: TObject); begin if Trim(Edit8.Text) = '' then begin Edit8.Text := '√'; Button5.Visible := true; end else begin Edit8.Text := ''; Button5.Visible := false; end; end; procedure TfrmTableInspection.JYLenChange(Sender: TObject); begin //QuantityConversion(); end; procedure TfrmTableInspection.Button4Click(Sender: TObject); begin MovePanel1.Visible := false; end; procedure TfrmTableInspection.edtYJClick(Sender: TObject); begin if Trim(TEdit(Sender).Text) = '' then begin TEdit(Sender).Text := '√'; end else begin TEdit(Sender).Text := ''; end; end; procedure TfrmTableInspection.ToolButton2Click(Sender: TObject); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := 'JYPerson'; flagname := '验布工'; // fnote := True; // V1Note.Caption := '编号'; if ShowModal = 1 then begin end; end; finally frmZDYHelp.free; end; end; procedure TfrmTableInspection.Button3Click(Sender: TObject); begin try frmJYG := TfrmJYG.Create(self); with frmJYG do begin FlagStr := 'JYPerson'; if ShowModal = 1 then begin // JYPerson.Text := frmJYG.FSDPerson; end; end; finally frmJYG.Free; end; end; procedure TfrmTableInspection.edtChenClick(Sender: TObject); begin if Trim(TEdit(Sender).Text) = '' then begin TEdit(Sender).Text := '√'; end else begin TEdit(Sender).Text := ''; end; end; procedure TfrmTableInspection.Button6Click(Sender: TObject); begin if ScrollBox1.Visible then ScrollBox1.Visible := False else ScrollBox1.Visible := True; end; procedure TfrmTableInspection.ToolButton4Click(Sender: TObject); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin flag := 'KuangHao'; flagname := '框号'; if ShowModal = 1 then begin Self.InitCDPanel(); end; end; finally frmZDYHelp.Free; end; end; procedure TfrmTableInspection.Button7Click(Sender: TObject); begin try frmZdyMapSel := TfrmZdyMapSel.Create(self); with frmZdyMapSel do begin FlagStr := 'KuangHao'; if ShowModal = 1 then begin self.KuangHao.Text := frmZdyMapSel.FSDPerson; end; end; finally frmZdyMapSel.Free; end; end; end.