unit U_ProductOrderLBNameSet; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxButtonEdit, RM_e_Graphic, RM_e_Jpeg, RM_e_bmp; type TfrmProductOrderLBNameSet = class(TfrmBaseList) ToolBar1: TToolBar; TBRafresh: TToolButton; TBFind: TToolButton; TBClose: TToolButton; Panel1: TPanel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; Label1: TLabel; cxGridPopupMenu1: TcxGridPopupMenu; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; Order_Main: TClientDataSet; RM1: TRMGridReport; RMDBMain: TRMDBDataSet; RMXLSExport1: TRMXLSExport; Label4: TLabel; BuyerNameHZ: TEdit; PopupMenu1: TPopupMenu; N2: TMenuItem; ToolButton1: TToolButton; Label8: TLabel; mprtcodename: TEdit; Label9: TLabel; orderno: TEdit; ADOQueryPrint: TADOQuery; CDS_Print: TClientDataSet; ToolButton2: TToolButton; ToolButton3: TToolButton; PiZhong: TEdit; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ADOQueryCmdSC: TADOQuery; ADOQueryCmdFileContent: TBlobField; ADOQueryCmdFtFileName: TStringField; ADOQueryCmdFileEditDate: TDateTimeField; ADOQueryCmdFileSize: TFloatField; ADOQueryCmdFiller: TStringField; ADOQueryCmdLastEditTime: TDateTimeField; ADOQueryCmdLastEditer: TStringField; ADOQueryCmdFileCreateDate: TDateTimeField; ADOQueryCmdchildPath: TStringField; ADOQueryCmdFileType: TStringField; ToolButton9: TToolButton; ToolButton10: TToolButton; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column16: TcxGridDBColumn; v1OrdDate: TcxGridDBColumn; v1OrderNo: TcxGridDBColumn; v1DeliveryDate: TcxGridDBColumn; v1Column8: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; cxGrid2: TcxGrid; TV2: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; v1PRTColor: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; v1Column5: TcxGridDBColumn; VC_PRTPs: TcxGridDBColumn; v1PRTOrderQty: TcxGridDBColumn; v1OrderUnit: TcxGridDBColumn; v1Column9: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; TV2Column1: TcxGridDBColumn; cxGridDBColumn7: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; ADOQuerySub: TADOQuery; DataSource2: TDataSource; ORDER_SUB: TClientDataSet; Tv1Column15: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; RMJPEGExport1: TRMJPEGExport; RMBMPExport1: TRMBMPExport; TV2Column2: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure OrderNoMChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ordernoKeyPress(Sender: TObject; var Key: Char); procedure ToolButton2Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure v1Column3PropertiesEditValueChanged(Sender: TObject); procedure v1Column1PropertiesEditValueChanged(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure v1Column6PropertiesEditValueChanged(Sender: TObject); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure ToolButton6Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject); procedure v1Column8PropertiesChange(Sender: TObject); procedure ToolButton8Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject); procedure BuyNameKeyPress(Sender: TObject; var Key: Char); procedure ordernoChange(Sender: TObject); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); private DQdate: TDateTime; procedure InitGrid(); procedure InitSub(); procedure InitForm(); procedure SCLABEL(MMainId: string); procedure UPBQ(MMainId: string); function UPLabel(LabelName, LabelPath: string): Boolean; function PostFileToData(LabelName, LabelPath: string): boolean; { Private declarations } public FFInt, FCloth: Integer; canshu1, CANSHU2: string; { Public declarations } end; var newh: hwnd; implementation uses U_DataLink, U_OrderInPut, U_RTFun, U_LabelList, U_CompressionFun; {$R *.dfm} procedure TfrmProductOrderLBNameSet.UPBQ(MMainId: string); var OpenDiaLog: TOpenDialog; fFileName: string; fFilePath: string; maxNo: string; FJStream: TMemoryStream; mfileSize: integer; mCreationTime: TdateTime; mWriteTime: TdateTime; begin try ADOQueryCmd.Connection.BeginTrans; fFilePath := ExtractFilePath(Application.ExeName) + 'image\label0001.jpg'; fFileName := 'label.jpg'; application.ProcessMessages; if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'TP_File', 4, 1) = False then begin adoqueryCmd.Connection.RollbackTrans; Application.MessageBox('取最大号失败！', '提示', 0); Exit; end; //获取文件信息 GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime); with adoqueryCmd do begin close; sql.Clear; sql.Add('delete from TP_File '); sql.Add('where TFType=''标签图片'' and WBID=' + quotedstr(Trim(MMainId))); // ShowMessage(SQL.Text) ; execsql; end; try FJStream := TMemoryStream.Create; with adoqueryCmd do begin close; sql.Clear; sql.Add('select * from TP_File '); sql.Add('where TFID=' + quotedstr(trim(maxNo))); open; append; fieldbyname('TFID').Value := trim(maxNo); fieldbyname('WBID').Value := Trim(MMainId); fieldbyname('TFType').Value := trim('标签图片'); fieldbyname('Filler').Value := trim(DName); fieldbyname('FileName').Value := trim(fFileName); fieldbyname('TFDate').Value := mWriteTime; FJStream.LoadFromFile(fFilePath); // CompressionStream(FJStream); tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream); post; end; finally FJStream.Free; end; adoqueryCmd.Connection.CommitTrans; except adoqueryCmd.Connection.RollbackTrans; application.MessageBox('附件保存失败！', '提示信息', 0); end; end; procedure TfrmProductOrderLBNameSet.SCLABEL(MMainId: string); var fPrintFile, fImagePath2: string; i, j, k: integer; begin fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + MMainId + '.rmf'; ExportFtErpFile(MMainId + '.rmf', ADOQueryTemp); with ADOQueryPrint do begin Close; SQL.Clear; sql.Add('exec P_Ord_Print_CSRoll2 '); sql.Add('@SubID=''' + trim(Order_Sub.fieldbyname('SubID').AsString) + ''' '); Open; end; if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\label0001.jpg'; if FileExists(fImagePath2) then DeleteFile(fImagePath2); fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\label.jpg'; RM1.PrepareReport; RM1.ExportTo(RMjpegExport1, fImagePath2); end else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); end; end; procedure TfrmProductOrderLBNameSet.InitSub(); begin ADOQuerySub.Close; if Order_Main.IsEmpty then exit; ADOQuerySub.DisableControls; with ADOQuerySub do begin close; sql.Clear; sql.Add('select * '); sql.Add(',HZJGC=[dbo].[F_Ord_Get_JGC](subid)'); sql.Add(' from JYOrder_sub A'); sql.Add('where mainid =' + quotedstr((Order_Main.fieldbyname('mainID').AsString))); open; end; SCreateCDS(ADOQuerySub, ORDER_SUB); SInitCDSData(ADOQuerySub, ORDER_SUB); ADOQuerySub.EnableControls; end; function TfrmProductOrderLBNameSet.PostFileToData(LabelName, LabelPath: string): boolean; var mFileName, fFileName, fpathFileName: string; Stream: TMemoryStream; mfileSize: integer; mCreationTime: TdateTime; mWriteTime: TdateTime; // ADOQueryCmdFileContent: TBlobField; begin result := false; fFileName := Trim(LabelName) + '.rmf'; fpathFileName := Trim(LabelPath); try ADOQueryCmdSC.Connection.BeginTrans; try with ADOQueryCmdSC do begin close; sql.Clear; sql.Add('delete from RT_FileUpdate'); sql.Add('where FileName=' + quotedStr(trim(fFileName))); execsql; end; with ADOQueryCmdSC do begin close; sql.Clear; sql.Add('select * from RT_FileUpdate'); sql.Add('where FileName=' + quotedStr(trim(fFileName))); Open; ////////////////////////// //获取文件信息 GetFileInfo(Trim(fpathFileName), mfileSize, mCreationTime, mWriteTime); if RecordCount <= 0 then begin Append; fieldByName('FileName').AsString := trim(fFileName); end else begin edit; end; fieldByName('FileEditDate').Value := mWriteTime; fieldByName('FileCreateDate').Value := mCreationTime; fieldByName('FileSize').Value := mfileSize; fieldByName('Filler').Value := Dname; fieldByName('LastEditer').Value := Dname; fieldByName('LastEditTime').Value := Now(); // if pos('.rmf',fFileName)>0 then begin fieldByName('FilePath').Value := 'report'; fieldByName('FileType').Value := '公用'; end; //将OLE数据存入数据库 RM1.SaveToBlobField(TBlobField(FieldByName('Files'))); // ADOQueryCmdFileContent.LoadFromFile(fpathFileName); //ADOQueryCmdFileContent.LoadFromStream(Stream); post; end; finally end; result := true; ADOQueryCmdSC.Connection.CommitTrans; except ADOQueryCmdSC.Connection.RollbackTrans; Result := False; application.MessageBox(pchar('提交文件[' + trim(fFileName) + ']失败!'), '提示信息', MB_ICONERROR); end; end; function TfrmProductOrderLBNameSet.UPLabel(LabelName, LabelPath: string): Boolean; begin try ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin close; sql.Clear; sql.Add('select * from P_Label'); sql.Add('where LabelCaption=' + quotedstr(LabelName)); Open; if ADOQueryCmd.IsEmpty then begin Append; fieldByName('filler').value := DName; fieldByName('filltime').value := DServerDate; fieldByName('beizhu').value := ''; fieldByName('LabelCaption').value := trim(LabelPath); fieldByName('LabelType').value := '中文标签'; fieldByName('LabelFileName').value := trim(LabelName); RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile'))); end else begin Edit; fieldByName('Editer').value := DName; fieldByName('EditTime').value := DServerDate; end; RM1.SaveToBlobField(TBlobField(FieldByName('LabelFile'))); Post; end; ADOQueryCmd.Connection.CommitTrans; result := true; except ADOQueryCmd.Connection.RollbackTrans; Result := false; application.MessageBox('保存标签模板出错!', '警告信息', 0); end; end; procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; Action := caFree; end; procedure TfrmProductOrderLBNameSet.FormCreate(Sender: TObject); begin inherited; cxgrid1.Align := alClient; //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); DQdate := SGetServerDate(ADOQueryTemp); end; procedure TfrmProductOrderLBNameSet.TBCloseClick(Sender: TObject); begin Close; WriteCxGrid('标签设置', Tv1, '生产指示单管理'); end; procedure TfrmProductOrderLBNameSet.InitGrid(); var fwhere, Pwhere: string; begin Pwhere := SGetFilters(Panel1, 1, 2); begin if trim(Pwhere) <> '' then fwhere := fwhere + ' and ' + trim(Pwhere); end; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.add('select AA.* '); sql.add(' from '); sql.add(' (select A.*'); sql.add(' ,mprtcodename=(select top 1 mprtcodename from JYOrder_Sub B where B.MainId=A.MainId ) '); sql.add(' ,BuyerNameHZ=cast((select B.BuyerName+'';'' from JYOrder_Sub B where B.MainId=A.MainId for xml path('''')) as varchar(200)) '); sql.add(' from JYOrder_Main A '); sql.add(' where A.OrdDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)))); sql.add(' and A.OrdDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)))); sql.Add('AND ISNULL(DANWEI,''内'')=' + quotedstr(canshu2)); sql.add(')AA where 1=1 ' + fwhere); // showmessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; procedure TfrmProductOrderLBNameSet.InitForm(); begin ReadCxGrid('标签设置', Tv1, '生产指示单管理'); BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 7; EndDate.DateTime := SGetServerDate(ADOQueryTemp); end; procedure TfrmProductOrderLBNameSet.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main); end; procedure TfrmProductOrderLBNameSet.TBRafreshClick(Sender: TObject); begin InitGrid(); end; procedure TfrmProductOrderLBNameSet.OrderNoMChange(Sender: TObject); begin if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main); end; procedure TfrmProductOrderLBNameSet.FormShow(Sender: TObject); begin inherited; canshu1 := self.fParameters1; CANSHU2 := self.fParameters2; InitForm(); end; procedure TfrmProductOrderLBNameSet.BuyNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin InitGrid(); end; end; procedure TfrmProductOrderLBNameSet.CheckBox1Click(Sender: TObject); begin InitGrid(); end; procedure TfrmProductOrderLBNameSet.CheckBox2Click(Sender: TObject); begin TBRafresh.Click; end; procedure TfrmProductOrderLBNameSet.ToolButton1Click(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmOrderInPut := TfrmOrderInPut.Create(Application); with frmOrderInPut do begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); ToolBar2.Visible := False; TBSave.Visible := False; ScrollBox1.Enabled := False; Tv1.OptionsSelection.CellSelect := False; if ShowModal = 1 then begin end; end; finally frmOrderInPut.Free; end; end; procedure TfrmProductOrderLBNameSet.ordernoChange(Sender: TObject); begin if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main); end; procedure TfrmProductOrderLBNameSet.ordernoKeyPress(Sender: TObject; var Key: Char); begin // if Key = #13 then // begin // if Length(conno.Text) < 3 then // Exit; // try // ADOQueryMain.DisableControls; // with ADOQueryMain do // begin // Filtered := False; // Close; // sql.Clear; // sql.add('exec P_View_Order :begdate,:enddate,:WSql'); // begin // Parameters.ParamByName('WSql').Value := ' and conno like ''' + '%' + Trim(conno.Text) + '%' + ''''; // end; // Parameters.ParamByName('begdate').Value := '1899-01-01'; // Parameters.ParamByName('enddate').Value := '2050-01-01'; // ExecSQL; // Open; // end; // SCreateCDS(ADOQueryMain, Order_Main); // SInitCDSData(ADOQueryMain, Order_Main); // finally // ADOQueryMain.EnableControls; // end; // end; end; procedure TfrmProductOrderLBNameSet.ToolButton2Click(Sender: TObject); var FlabelCaption: string; fmainid: string; begin if Order_Main.IsEmpty = true then begin exit; end; fmainid := Trim(Order_main.fieldbyname('mainid').AsString); try frmLabelList := TfrmLabelList.Create(Application); with frmLabelList do begin if ShowModal = 1 then begin FlabelCaption := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString); SCLABEL(Trim(FlabelCaption)); Sleep(150); UPBQ(Trim(FlabelCaption)); end; end; finally frmLabelList.Free; end; // if FlabelCaption <> '' then // begin // with Order_Main do // begin // // with ADOQueryCmd do // begin // Close; // sql.Clear; // sql.Add('Update JYOrder_Main Set LBName=''' + Trim(FlabelCaption) + ''''); // sql.Add(' where mainid=''' + Trim(self.Order_main.fieldbyname('mainid').AsString) + ''''); // ExecSQL; // end; // with Self.Order_Main do // begin // Edit; // FieldByName('LBName').Value := Trim(FlabelCaption); // Post; // end; // // end; // end; if FlabelCaption = '' then exit; with Order_Main do begin DisableControls; First; while not eof do begin if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set LBName=''' + Trim(FlabelCaption) + ''''); sql.Add(' where mainid=''' + Trim(self.Order_main.fieldbyname('mainid').AsString) + ''''); ExecSQL; end; with Self.Order_Main do begin Edit; FieldByName('LBName').Value := Trim(FlabelCaption); Post; end; end; next; end; First; EnableControls; end; // initgrid(); tv1.Controller.EditingController.ShowEdit(); order_main.locate('mainid', fmainid, []); end; procedure TfrmProductOrderLBNameSet.ToolButton3Click(Sender: TObject); var FPiZhong: string; FReal: Double; begin if Order_Main.IsEmpty = true then begin exit; end; if Trim(PiZhong.Text) = '' then begin Application.MessageBox('皮重不能为空!', '提示', 0); Exit; end; if TryStrToFloat(PiZhong.Text, FReal) = False then begin Application.MessageBox('皮重非法数字!', '提示', 0); Exit; end; with Order_Main do begin DisableControls; First; while not eof do begin if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set PiZhong=' + (PiZhong.Text)); sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; FieldByName('PiZhong').Value := PiZhong.Text; Post; end; end; next; end; First; EnableControls; end; // initgrid(); tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmProductOrderLBNameSet.ToolButton4Click(Sender: TObject); var FlabelCaption: string; fmainid: string; begin if Order_Main.IsEmpty = true then begin exit; end; fmainid := Trim(Order_main.fieldbyname('mainid').AsString); try frmLabelList := TfrmLabelList.Create(Application); with frmLabelList do begin if ShowModal = 1 then begin FlabelCaption := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString); SCLABEL(Trim(FlabelCaption)); Sleep(150); UPBQ(Trim(FlabelCaption)); end; end; finally frmLabelList.Free; end; if FlabelCaption = '' then exit; with Order_Main do begin DisableControls; First; while not eof do begin if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set NLBName=''' + Trim(FlabelCaption) + ''''); sql.Add(' where mainid=''' + Trim(self.Order_Main.fieldbyname('mainid').AsString) + ''''); ExecSQL; end; with Self.Order_Main do begin Edit; FieldByName('NLBName').Value := Trim(FlabelCaption); Post; end; end; next; end; First; EnableControls; end; // initgrid(); tv1.Controller.EditingController.ShowEdit(); order_main.locate('mainid', fmainid, []); end; procedure TfrmProductOrderLBNameSet.v1Column3PropertiesEditValueChanged(Sender: TObject); var mvalues: string; begin mvalues := TCXTextEdit(Sender).Text; with Order_Main do begin edit; fieldbyname('NLBName').Value := mvalues; post; end; tv1.Controller.EditingController.ShowEdit(); if trim(mvalues) = '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set NLBName='''' '); sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); ExecSQL; end; end end; procedure TfrmProductOrderLBNameSet.v1Column1PropertiesEditValueChanged(Sender: TObject); var mvalues, FFieldName: string; begin mvalues := TCXTextEdit(Sender).Text; FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); with Order_Main do begin edit; fieldbyname(FFieldName).Value := mvalues; post; end; tv1.Controller.EditingController.ShowEdit(); if trim(mvalues) = '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set' + Trim(FFieldName) + '='''' '); sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); ExecSQL; end; end end; procedure TfrmProductOrderLBNameSet.ToolButton5Click(Sender: TObject); var FReal: Double; begin if Order_Main.IsEmpty = true then begin exit; end; if Trim(PiZhong.Text) = '' then begin Application.MessageBox('换算系数不能为空!', '提示', 0); Exit; end; if TryStrToFloat(PiZhong.Text, FReal) = False then begin Application.MessageBox('换算系数非法数字!', '提示', 0); Exit; end; with Order_Main do begin DisableControls; First; while not eof do begin if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set XS=' + (PiZhong.Text)); sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; FieldByName('XS').Value := PiZhong.Text; Post; end; end; next; end; First; EnableControls; end; // initgrid(); tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmProductOrderLBNameSet.v1Column6PropertiesEditValueChanged(Sender: TObject); var mvalues: string; begin mvalues := TCXTextEdit(Sender).Text; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set XSType=''' + trim(mvalues) + ''' '); sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); ExecSQL; end; with Order_Main do begin edit; fieldbyname('XSType').Value := mvalues; post; end; tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmProductOrderLBNameSet.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin if Order_Main.IsEmpty then exit; ToolButton1.Click; end; procedure TfrmProductOrderLBNameSet.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin InitSub(); end; procedure TfrmProductOrderLBNameSet.ToolButton6Click(Sender: TObject); var fPrintFile: string; Txt, fImagePath: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; begin if Order_Main.IsEmpty = true then begin exit; end; if Order_Sub.IsEmpty then exit; if trim(Order_main.fieldbyname('LBName').AsString) = '' then exit; with ADOQueryPrint do begin Close; SQL.Clear; sql.Add('exec P_Ord_Print_CSRoll '); sql.Add('@SubID=''' + trim(Order_Sub.fieldbyname('SubID').AsString) + ''' '); Open; end; ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf', ADOQueryTemp); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf'; if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); PostFileToData(trim(ADOQueryPrint.fieldbyname('LBName').AsString), fPrintFile); UPLabel(trim(ADOQueryPrint.fieldbyname('LBName').AsString), fPrintFile); RM1.ShowReport; end else begin Application.MessageBox(PChar('没有找到' + trim(fPrintFile)), '提示信息', 0); end; end; procedure TfrmProductOrderLBNameSet.ToolButton7Click(Sender: TObject); var fPrintFile: string; Txt, fImagePath: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; begin if Order_Main.IsEmpty then exit; if trim(Order_Main.fieldbyname('NLBName').AsString) = '' then exit; with ADOQueryPrint do begin Close; SQL.Clear; sql.Add('exec P_Ord_Print_CSBao '); sql.Add('@MainId=''' + trim(Order_Main.fieldbyname('MainId').AsString) + ''' '); Open; end; ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf', ADOQueryTemp); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf'; if FileExists(fPrintFile) then begin // RMVariables['QRBARCODE'] := fImagePath; RM1.LoadFromFile(fPrintFile); RM1.ShowReport; end else begin Application.MessageBox(PChar('没有找到' + trim(fPrintFile)), '提示信息', 0); end; end; procedure TfrmProductOrderLBNameSet.v1Column8PropertiesChange(Sender: TObject); var mvalues: string; begin mvalues := TCXTextEdit(Sender).Text; with Order_Main do begin edit; fieldbyname('Orddefstr15').Value := mvalues; post; end; tv1.Controller.EditingController.ShowEdit(); with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' '); sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); ExecSQL; end; end; procedure TfrmProductOrderLBNameSet.ToolButton8Click(Sender: TObject); var FReal: Double; begin if Order_Main.IsEmpty = true then begin exit; end; if Trim(PiZhong.Text) = '' then begin Application.MessageBox('标签份数不能为空!', '提示', 0); Exit; end; if TryStrToFloat(PiZhong.Text, FReal) = False then begin Application.MessageBox('标签份数非法数字!', '提示', 0); Exit; end; with Order_Main do begin DisableControls; First; while not eof do begin if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set LabQty=' + (PiZhong.Text)); sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; FieldByName('LabQty').Value := PiZhong.Text; Post; end; end; next; end; First; EnableControls; end; // initgrid(); tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmProductOrderLBNameSet.ToolButton9Click(Sender: TObject); var FReal: Double; begin if Order_Main.IsEmpty = true then begin exit; end; if Trim(PiZhong.Text) = '' then begin Application.MessageBox('标签份数不能为空!', '提示', 0); Exit; end; if TryStrToFloat(PiZhong.Text, FReal) = False then begin Application.MessageBox('标签份数非法数字!', '提示', 0); Exit; end; with Order_Main do begin DisableControls; First; while not eof do begin if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set MBJS=' + (PiZhong.Text)); sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; FieldByName('MBJS').Value := PiZhong.Text; Post; end; end; next; end; First; EnableControls; end; // initgrid(); tv1.Controller.EditingController.ShowEdit(); end; procedure TfrmProductOrderLBNameSet.ToolButton10Click(Sender: TObject); var FReal: Double; begin if Order_Main.IsEmpty = true then begin exit; end; if Trim(PiZhong.Text) = '' then begin Application.MessageBox('标签份数不能为空!', '提示', 0); Exit; end; if TryStrToFloat(PiZhong.Text, FReal) = False then begin Application.MessageBox('标签份数非法数字!', '提示', 0); Exit; end; with Order_Main do begin DisableControls; First; while not eof do begin if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update JYOrder_Main Set BBQFS=' + (PiZhong.Text)); sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; FieldByName('BBQFS').Value := PiZhong.Text; Post; end; end; next; end; First; EnableControls; end; // initgrid(); tv1.Controller.EditingController.ShowEdit(); end; end.