unit U_JYOrderCDOne; 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, Menus, MovePanel, cxTextEdit, cxContainer, cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, Math, cxNavigator; type TfrmJYOrderCDOne = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBFind: TToolButton; TBClose: TToolButton; Panel1: TPanel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; Label1: TLabel; Tv1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; cxGrid1: TcxGrid; cxGridPopupMenu1: TcxGridPopupMenu; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; Label3: TLabel; OrderNo: TEdit; TBExport: TToolButton; Order_Main: TClientDataSet; PRTMF: TEdit; Label7: TLabel; Label8: TLabel; Label10: TLabel; MJID: TEdit; Label2: TLabel; CDList: TEdit; Panel4: TPanel; Label11: TLabel; Panel10: TPanel; Image2: TImage; RichEdit1: TRichEdit; v1Column1: TcxGridDBColumn; v1PRTMF: TcxGridDBColumn; v1PRTColor: TcxGridDBColumn; v1PRTKZ: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1Column8: TcxGridDBColumn; v1Column9: TcxGridDBColumn; v1Column10: TcxGridDBColumn; v1Column11: TcxGridDBColumn; v1Column12: TcxGridDBColumn; v1PRTCodeName: TcxGridDBColumn; Label5: TLabel; PRTCodeName: TEdit; v1Column16: TcxGridDBColumn; Label6: TLabel; MJStr2: TComboBox; v1Column17: TcxGridDBColumn; v1Column20: TcxGridDBColumn; v1Column21: TcxGridDBColumn; Filler: TComboBox; TBManage: TToolButton; v1Column22: TcxGridDBColumn; v1Column23: TcxGridDBColumn; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; TBZF: TToolButton; ToolButton1: TToolButton; RM2: TRMGridReport; RMDB_Main: TRMDBDataSet; ADOQueryPrint: TADOQuery; v1Column25: TcxGridDBColumn; TBAftChkHX: TToolButton; v1Column24: TcxGridDBColumn; RadioGroup1: TRadioGroup; MovePanel2: TMovePanel; PRTColor: TComboBox; v1Column27: TcxGridDBColumn; v1Column28: TcxGridDBColumn; ToolButton2: TToolButton; v1Column14: TcxGridDBColumn; CDS_CD: TClientDataSet; RMCD: TRMGridReport; RMDBCD: TRMDBDataSet; CDS_LS: TClientDataSet; v1Column15: TcxGridDBColumn; CheckBox1: TCheckBox; MJType: TEdit; TCPDB: TToolButton; v1BaoNo: TcxGridDBColumn; v1BaoID: TcxGridDBColumn; Label4: TLabel; Label9: TLabel; BAOID: TEdit; BAONO: TEdit; ToolButton3: TToolButton; v1Column2: TcxGridDBColumn; v1Column3: TcxGridDBColumn; Label12: TLabel; SOrddefstr1: TEdit; Label13: TLabel; Label14: TLabel; PRTHX: TEdit; v1Column4: TcxGridDBColumn; v1Column5: TcxGridDBColumn; Mjstr4: TEdit; Label15: TLabel; v1Column13: TcxGridDBColumn; v1Column18: TcxGridDBColumn; v1Column19: TcxGridDBColumn; PRTkuanNo: TEdit; Label16: TLabel; CDS_HZ: TClientDataSet; RMDBHZ: TRMDBDataSet; RM3: TRMGridReport; Panel5: TPanel; Label28: TLabel; ComboBox5: TComboBox; Button5: TButton; Button6: TButton; TBDW: TToolButton; Panel2: TPanel; Label17: TLabel; Label24: TLabel; Label25: TLabel; cxCurrencyEdit1: TcxCurrencyEdit; Button1: TButton; Button2: TButton; cxCurrencyEdit2: TcxCurrencyEdit; ComboBox4: TComboBox; ToolButton4: TToolButton; Panel7: TPanel; LBCPAP: TLabel; Label31: TLabel; Button9: TButton; BTNP: TButton; BTLP: TButton; Button10: TButton; TCBNOR: TComboBox; ToolButton5: TToolButton; Panel9: TPanel; Label18: TLabel; Label19: TLabel; TZFS2: TComboBox; Button3: TButton; Button11: TButton; TZSL2: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); procedure TBExportClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure OrderNoChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image2Click(Sender: TObject); procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TBManageClick(Sender: TObject); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure TBZFClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); procedure TBAftChkHXClick(Sender: TObject); procedure OrderNoKeyPress(Sender: TObject; var Key: Char); procedure PRTColorChange(Sender: TObject); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure ToolButton2Click(Sender: TObject); procedure v1Column15PropertiesEditValueChanged(Sender: TObject); procedure TCPDBClick(Sender: TObject); procedure PRTCodeNameChange(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure TBDWClick(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure TCBNORChange(Sender: TObject); procedure Button10Click(Sender: TObject); procedure BTLPClick(Sender: TObject); procedure BTNPClick(Sender: TObject); procedure Button9Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button11Click(Sender: TObject); private DQdate: TDateTime; FLeft, FTop: Integer; CurrentPage, RecordsNumber: Integer; procedure InitGrid(); procedure InitForm(); function Savedata(): Boolean; procedure GetCDSData(); procedure GetBGData(); procedure JSbaoNum(); { Private declarations } public FFInt: Integer; { Public declarations } end; var frmJYOrderCDOne: TfrmJYOrderCDOne; implementation uses U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO; {$R *.dfm} procedure TfrmJYOrderCDOne.JSbaoNum(); var i: integer; baoID: string; strlist: Tstringlist; begin i := 0; baoID := ''; if Order_Main.IsEmpty then begin Label12.Caption := '包数：0'; exit; end; strlist := Tstringlist.Create; try with Order_Main do begin DisableControls; first; while not eof do begin if (trim(fieldbyname('BaoNO').AsString) <> '') then begin if strlist.IndexOf(trim(fieldbyname('subID').AsString) + trim(fieldbyname('BaoNO').AsString)) < 0 then begin strlist.Add(trim(fieldbyname('subID').AsString) + trim(fieldbyname('BaoNO').AsString)); end; end; { IF (trim(fieldbyname('BaoID').AsString)<>trim(baoID)) and (trim(fieldbyname('BaoID').AsString)<>'') then begin i:=i+1; baoID:=trim(fieldbyname('BaoID').AsString); end; } Next; end; EnableControls; end; Label12.Caption := '包数：' + inttostr(strlist.Count); finally strlist.Free; end; end; procedure TfrmJYOrderCDOne.FormDestroy(Sender: TObject); begin frmJYOrderCDOne := nil; end; procedure TfrmJYOrderCDOne.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TfrmJYOrderCDOne.FormCreate(Sender: TObject); begin cxgrid1.Align := alClient; DQdate := SGetServerDate(ADOQueryTemp); end; procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject); begin Close; WriteCxGrid('检验报告JF', Tv1, '检验管理'); end; procedure TfrmJYOrderCDOne.InitGrid(); var i: integer; j: Integer; fwhere, Pwhere: string; begin fwhere := ' and filltime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '; fwhere := fwhere + ' and filltime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''; Pwhere := SGetFilters(Panel1, 1, 2); if trim(Pwhere) <> '' then fwhere := fwhere + ' and ' + Pwhere; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; Filtered := False; sql.Clear; sql.Add('exec P_View_JY'); sql.Add('@pageIndex=' + inttostr(CurrentPage)); sql.Add(',@pageSize=' + inttostr(RecordsNumber)); sql.Add(',@criteria=' + quotedstr(fwhere)); // ShowMessage(sql.Text); Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(ADOQueryMain.FieldByName('TotalCount').AsInteger / RecordsNumber)); ADOQueryMain.EnableControls; end; tbfind.Click; end; procedure TfrmJYOrderCDOne.InitForm(); var fsj: string; begin ReadCxGrid('检验报告JF', Tv1, '检验管理'); fsj := 'select distinct(Filler) name from WFB_MJJY '; SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj); BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 1; EndDate.DateTime := SGetServerDate10(ADOQueryTemp); InitGrid(); end; procedure TfrmJYOrderCDOne.TBFindClick(Sender: TObject); var fsj: string; begin if ADOQueryMain.Active = False then Exit; if RadioGroup1.ItemIndex = 0 then begin fsj := ' HXFlag=0 '; end else if RadioGroup1.ItemIndex = 1 then begin fsj := ' HXFlag=1 '; end else if RadioGroup1.ItemIndex = 0 then begin fsj := ''; end; if Trim(SGetFilters(Panel1, 1, 2)) = '' then begin fsj := fsj; end else begin fsj := SGetFilters(Panel1, 1, 2) + ' and ' + fsj; end; SDofilter(ADOQueryMain, fsj); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); JSbaoNum(); end; procedure TfrmJYOrderCDOne.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then Exit; SelExportData(Tv1, ADOQueryMain, '检验报告'); end; procedure TfrmJYOrderCDOne.TBRafreshClick(Sender: TObject); begin OrderNo.SetFocus; MovePanel2.Visible := True; MovePanel2.Refresh; CurrentPage := 1; InitGrid(); MovePanel2.Visible := False; end; procedure TfrmJYOrderCDOne.OrderNoChange(Sender: TObject); begin TBFind.Click; end; procedure TfrmJYOrderCDOne.FormShow(Sender: TObject); begin CurrentPage := 1; RecordsNumber := 1000; InitForm(); if Trim(DParameters2) = '管理' then begin TBZF.Visible := True; TBManage.Visible := True; v1Column22.visible := True; v1Column15.Options.Focusing := True; ToolButton1.Visible := True; TCPDB.Visible := True; ToolButton3.Visible := True; end; if Trim(DParameters2) = '成品管理' then begin v1Column22.visible := False; TCPDB.Visible := True; ToolButton3.Visible := True; end; if Trim(DParameters2) = '' then begin TBZF.Visible := False; TBManage.Visible := False; Toolbutton1.visible := False; Toolbutton3.visible := False; v1Column22.visible := False; TCPDB.Visible := False; end; end; procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0); end; procedure TfrmJYOrderCDOne.Image2Click(Sender: TObject); begin Panel4.Visible := False; end; procedure TfrmJYOrderCDOne.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FLeft := X; FTop := Y; end; procedure TfrmJYOrderCDOne.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin Panel4.Left := FLeft; Panel4.Top := FTop + 110; Panel4.Visible := True; Panel4.Refresh; Panel10.Caption := Trim(TV1.Controller.FocusedColumn.Caption); RichEdit1.Text := Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; end; procedure TfrmJYOrderCDOne.TBManageClick(Sender: TObject); begin try frmMJEdit := TfrmMJEdit.Create(Application); with frmMJEdit do begin MJID.Text := Trim(Self.Order_Main.fieldbyname('MJID').AsString); with ADOTmp do begin Close; sql.Clear; SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), '); sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A'); sql.Add(' where A.MJID=''' + Trim(MJID.Text) + ''''); Open; end; if ADOTmp.IsEmpty then begin MJID.Text := ''; Label2.Caption := ''; Label2.Visible := False; Application.MessageBox('条码错误!', '提示', 0); Exit; end; MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString); MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString); MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString); MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('MJFK').AsString); MJSJKZ.Text := Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); M.Caption := Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString)); Ma.Caption := Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString)); if Trim(m.Caption) = '' then begin m.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString); end; if Trim(Ma.Caption) = '' then begin Ma.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString); end; if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '正品' then begin RadioGroup1.ItemIndex := 0 end else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '次品' then begin RadioGroup1.ItemIndex := 1; end else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '留样' then begin RadioGroup1.ItemIndex := 2; end; with ADOTmp do begin Close; sql.Clear; SQL.Add('select * from WFB_MJJY_CD A where A.MJID=''' + Trim(MJID.Text) + ''''); Open; end; Label2.Caption := Trim(MJID.Text); Label2.Visible := True; MJID.Text := ''; SCreateCDS20(ADOTmp, Order_MJ); SInitCDSData20(ADOTmp, Order_MJ); if ShowModal = 1 then begin TBRafresh.Click; end; end; finally frmMJEdit.Free; end; end; procedure TfrmJYOrderCDOne.N1Click(Sender: TObject); begin SelOKNo(Order_Main, True); end; procedure TfrmJYOrderCDOne.N2Click(Sender: TObject); begin SelOKNo(Order_Main, False); end; procedure TfrmJYOrderCDOne.TBZFClick(Sender: TObject); begin if Order_Main.Locate('ssel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; if Application.MessageBox('确定要作废数据吗？作废后数据不能恢复。', '提示', 32 + 4) <> IDYES then Exit; Order_Main.DisableControls; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty = False then begin Order_Main.EnableControls; Application.MessageBox('已产生入库数据不能删除!', '提示', 0); Exit; end else begin //begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete WFB_MJJY where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); 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(Order_Main.FieldByName('MJID').AsString) + ' 颜色:' + trim(Order_Main.FieldByName('subID').AsString)))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); ExecSQL; ExecSQL; end; // end; end; Order_Main.Delete; end else Next; end; end; Order_Main.EnableControls; end; procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject); var fPrintFile: string; Txt, fImagePath: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; begin if Order_Main.IsEmpty then Exit; if Order_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; Order_Main.DisableControls; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson=''' + Trim(DName) + ''''); sql.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; try Moudle := LoadLibrary('MakeQRBarcode.dll'); @Makebar := GetProcAddress(Moudle, 'Make'); @Mixtext := GetProcAddress(Moudle, 'MixText'); if Order_Main.fieldbyname('LBtype').AsString = '特殊' then begin Txt := Trim(Order_Main.fieldbyname('TSZF').AsString) + Trim(Order_Main.fieldbyname('SOrddefstr1').AsString) + '00' + trim(Order_Main.fieldbyname('SMJLen').AsString); end else begin Txt := Trim(Order_Main.fieldbyname('MJID').AsString); end; 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); Order_Main.EnableControls; exit; end; with ADOQueryPrint do begin Close; SQL.Clear; sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName '); sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) '); sql.Add(',B.MPRTCF,C.*,A.*,right(cast(cast(A.mjlen*100+100000 as int) as varchar(10)),5) as SMJLen '); sql.Add(' from WFB_MJJY A'); sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); Open; end; if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) else fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用标签.rmf'; if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); //RM2.ShowReport; RM2.PrintReport; end else begin Order_Main.EnableControls; Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\卷标签.rmf'), '提示', 0); Exit; end; end; Next; end; end; Order_Main.EnableControls; end; procedure TfrmJYOrderCDOne.RadioGroup1Click(Sender: TObject); begin TBFind.Click; end; procedure TfrmJYOrderCDOne.TBAftChkHXClick(Sender: TObject); var fsj, fsj10: string; begin if Order_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; Order_Main.DisableControls; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin if Trim(fsj) = '' then begin fsj := Trim(Order_Main.fieldbyname('SubId').AsString); end else begin if Trim(fsj) <> Trim(Order_Main.fieldbyname('SubId').AsString) then begin Order_Main.EnableControls; Application.MessageBox('不同产品不能一起回修!', '提示', 0); Exit; end; end; end; Next; end; end; Order_Main.EnableControls; Order_Main.DisableControls; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin if Trim(fsj10) = '' then begin fsj10 := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString); end else begin if Trim(fsj10) <> Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) then begin Order_Main.EnableControls; Application.MessageBox('不同染厂不能一起回修!', '提示', 0); Exit; end; end; end; Next; end; end; Order_Main.EnableControls; end; function TfrmJYOrderCDOne.Savedata(): Boolean; var maxno, LLID: string; HXPS: Integer; HXQty, HXMQty: Double; begin HXPS := 0; HXQty := 0; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select Top 1 * from Contract_Cloth_LL where OrdSubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); sql.Add(' and FirstName=''' + Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) + ''''); Open; end; LLID := Trim(ADOQueryTemp.fieldbyname('LLID').AsString); if Trim(LLID) = '' then begin Result := False; Application.MessageBox('没有相对应的加工厂!', '提示', 0); Exit; end; try ADOQueryCmd.Connection.BeginTrans; if GetLSNo(ADOQueryCmd, maxno, 'HX', 'Contract_Cloth_BefChkHX', 2, 1) = False then begin Result := False; ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取回修最大号失败!', '提示', 0); Exit; end; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin HXPS := HXPS + 1; HXQty := HXQty + Order_Main.FieldByName('MJLen').Value; end; Next; end; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add(''); Open; end; except end; end; procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin TBRafresh.Click; end; end; procedure TfrmJYOrderCDOne.PRTColorChange(Sender: TObject); begin TBFind.Click; if Order_Main.IsEmpty = False then begin //InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); //InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); end; end; procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin if Order_Main.IsEmpty = False then begin InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp); //InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); //InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp); end; end; procedure TfrmJYOrderCDOne.GetCDSData(); begin CDS_CD.FieldByName('MJXH').Value := CDS_LS.fieldbyname('MJXH').Value; CDS_CD.FieldByName('GangNo').Value := CDS_LS.fieldbyname('Aorddefstr1').Value; CDS_CD.FieldByName('PRTColor').Value := CDS_LS.fieldbyname('PRTColor').Value; CDS_CD.FieldByName('PRTEColor').Value := CDS_LS.fieldbyname('SOrddefstr4').Value; CDS_CD.FieldByName('MJLen').Value := CDS_LS.fieldbyname('MJLen').Value; CDS_CD.FieldByName('MJJZ').Value := CDS_LS.fieldbyname('MJQty4').Value; CDS_CD.FieldByName('MJMZ').Value := CDS_LS.fieldbyname('MJMaoZ').Value; CDS_CD.FieldByName('MJFK').Value := CDS_LS.fieldbyname('MJFK').Value; CDS_CD.FieldByName('KFQtyHZ').Value := CDS_LS.fieldbyname('KFQtyHZ').Value; CDS_CD.FieldByName('DengJi').Value := CDS_LS.fieldbyname('DengJi').Value; CDS_CD.FieldByName('PanDing').Value := CDS_LS.fieldbyname('PanDing').Value; CDS_CD.FieldByName('MJID').Value := CDS_LS.fieldbyname('MJID').Value; end; procedure TfrmJYOrderCDOne.ToolButton2Click(Sender: TObject); var fPrintFile, fPrintFile10, FMainID: string; begin if Order_Main.IsEmpty then Exit; if Order_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据', '提示', 0); Exit; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete TBSubID where DName=''' + Trim(DCode) + ''''); ExecSQL; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('SELECT * FROM TBSubID where 1=2 '); open; end; FMainID := ''; Order_Main.DisableControls; try ADOQueryCmd.Connection.BeginTrans; with Order_Main do begin First; while not Eof do begin if Fieldbyname('Ssel').AsBoolean then begin if FMainID = '' then begin FMainID := Trim(Order_Main.fieldbyname('APID').AsString); end else begin if Trim(Order_Main.fieldbyname('APID').AsString) <> FMainID then begin application.MessageBox('选择的不是同一个检验指示单，不能一起打印！', '提示信息', 0); ADOQueryCmd.Connection.RollbackTrans; EnableControls; exit; end; end; ADOQueryCmd.append; ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString); ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); ADOQueryCmd.post; end; Next; end; end; ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; end; Order_Main.EnableControls; with ADOQueryCmd do begin Close; sql.Clear; sql.add('exec P_Do_Print_JYBB '); sql.add('@mainID=' + quotedstr(Trim(''))); sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@flag=''0'' '); Open; end; SCreateCDS20(ADOQueryCmd, CDS_HZ); SInitCDSData20(ADOQueryCmd, CDS_HZ); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\检验报告普通版.rmf'; if FileExists(fPrintFile) then begin RM3.LoadFromFile(fPrintFile); RM3.ShowReport; end else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); end; end; procedure TfrmJYOrderCDOne.GetBGData(); var FMJId: string; i, j, z: Integer; begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select MJXH=Cast(0 as int),GangNo=Cast('''' as varchar(20)),PRTColor=Cast('''' as varchar(20)),MJID=Cast('''' as varchar(20))'); sql.Add(',PRTEColor=Cast('''' as varchar(20)),MJLen=Cast(0 as decimal(18,2)),MJJZ=Cast(0 as decimal(18,2)),XH=Cast(0 as int)'); sql.Add(',MJMZ=Cast(0 as decimal(18,2)),MJFK=Cast(0 as decimal(18,2)),KFQtyHZ=Cast(0 as int),DengJi=Cast('''' as varchar(20)),PanDing=Cast('''' as varchar(20))'); sql.Add(',CDName0=Cast('''' as varchar(20)),CDBeg0=Cast('''' as varchar(20)),KFQty0=Cast(0 as int)'); sql.Add(',CDName1=Cast('''' as varchar(20)),CDBeg1=Cast('''' as varchar(20)),KFQty1=Cast(0 as int)'); sql.Add(',CDName2=Cast('''' as varchar(20)),CDBeg2=Cast('''' as varchar(20)),KFQty2=Cast(0 as int)'); sql.Add(',CDName3=Cast('''' as varchar(20)),CDBeg3=Cast('''' as varchar(20)),KFQty3=Cast(0 as int)'); sql.Add(',CDName4=Cast('''' as varchar(20)),CDBeg4=Cast('''' as varchar(20)),KFQty4=Cast(0 as int)'); sql.Add(',CDName5=Cast('''' as varchar(20)),CDBeg5=Cast('''' as varchar(20)),KFQty5=Cast(0 as int)'); sql.Add(',CDName6=Cast('''' as varchar(20)),CDBeg6=Cast('''' as varchar(20)),KFQty6=Cast(0 as int)'); sql.Add(',CDName7=Cast('''' as varchar(20)),CDBeg7=Cast('''' as varchar(20)),KFQty7=Cast(0 as int)'); sql.Add(',CDName8=Cast('''' as varchar(20)),CDBeg8=Cast('''' as varchar(20)),KFQty8=Cast(0 as int)'); sql.Add(',CDName9=Cast('''' as varchar(20)),CDBeg9=Cast('''' as varchar(20)),KFQty9=Cast(0 as int)'); Open; end; SCreateCDS20(ADOQueryTemp, CDS_CD); SInitCDSData20(ADOQueryTemp, CDS_CD); if CDS_CD.IsEmpty = False then CDS_CD.Delete; with ADOQueryTemp do begin Close; SQL.Clear; sql.Add('select A.*,Case when isnull(MJType,'''')=''正品'' and KFQtyHZ<26 then ''A'' '); sql.Add(' when isnull(MJType,'''')=''正品'' and KFQtyHZ>33 then ''C'''); sql.Add(' when isnull(MJType,'''')=''正品'' and KFQtyHZ>25 and A.KFQtyHZ<34 then ''B'''); sql.Add(' else MJType end as DengJi'); sql.Add('from (select A.CDBeg,A.CDName,A.KouFenQty,B.MJXH,C.Aorddefstr1,JS.PRTColor,JS.SOrddefstr4,B.MJID '); sql.Add(',CDEName=(select Note from KH_Zdy KZ where KZ.ZdyName=A.CDName and KZ.Type=''WFBCD'' )'); sql.Add(',B.MJLen,B.MJQty4,B.MJMaoZ,B.MJTypeOther,B.MJSJKZ,B.MJFK,B.MJType,B.PanDing'); sql.Add(',KFQtyHZ=(select Sum(KouFenQty) from WFB_MJJY_CD MCD where MCD.MJID=B.MJID)'); sql.Add(' from WFB_MJJY B inner join WFB_MJJY_CD A on B.MJID=A.MJID'); sql.Add(' inner join JYOrder_Sub_AnPai C on B.APID=C.APID'); sql.Add(' inner join JYOrder_Sub JS on C.SubId=JS.SubId'); SQL.Add(' where B.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); if Trim(MJType.Text) <> '' then begin sql.Add(' and isnull(B.MJType,'''')=''' + Trim(MJType.Text) + ''''); end; sql.Add(')A order by PRTColor,Cast(Aorddefstr1 as int),MJID,MJXH'); Open; end; //ShowMessage(ADOQueryTemp.SQL.Text); //ShowMessage(IntToStr(ADOQueryTemp.RecordCount)); SCreateCDS20(ADOQueryTemp, CDS_LS); SInitCDSData20(ADOQueryTemp, CDS_LS); CDS_LS.DisableControls; with CDS_LS do begin First; while not Eof do begin if CDS_CD.IsEmpty then begin with CDS_CD do begin Append; GetCDSData(); if CheckBox1.Checked = True then FieldByName('CDName0').Value := CDS_LS.fieldbyname('CDEName').Value else FieldByName('CDName0').Value := CDS_LS.fieldbyname('CDName').Value; FieldByName('CDBeg0').Value := CDS_LS.fieldbyname('CDBeg').Value; FieldByName('KFQty0').Value := CDS_LS.fieldbyname('KouFenQty').Value; FieldByName('XH').Value := 0; Post; FMJId := Trim(CDS_LS.fieldbyname('MJID').AsString); i := 0; //列号 j := 0; z := 0; //行号 end; end else begin if Trim(CDS_LS.fieldbyname('MJID').AsString) = FMJId then begin i := i + 1; if i < 10 then begin with CDS_CD do begin Edit; GetCDSData(); if CheckBox1.Checked = True then FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value else FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value; FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value; FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value; Post; end; end else begin i := 0; with CDS_CD do begin Append; GetCDSData(); if CheckBox1.Checked = True then FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value else FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value; FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value; FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value; Post; end; end; end else begin i := 0; with CDS_CD do begin Append; GetCDSData(); if CheckBox1.Checked = True then FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value else FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value; FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value; FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value; Post; end; FMJId := Trim(CDS_LS.fieldbyname('MJID').AsString); end; end; Next; end; end; CDS_LS.EnableControls; end; procedure TfrmJYOrderCDOne.v1Column15PropertiesEditValueChanged(Sender: TObject); var mvalue: string; begin mvalue := TcxTextEdit(Sender).EditingText; with Order_Main do begin Edit; FieldByName('PanDing').Value := Trim(mvalue); Post; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('UPdate WFB_MJJY Set PanDing=''' + Trim(mvalue) + ''''); SQL.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; end; procedure TfrmJYOrderCDOne.TCPDBClick(Sender: TObject); begin frmCPDBao := TfrmCPDBao.Create(Application); with frmCPDBao do begin show; end; end; procedure TfrmJYOrderCDOne.PRTCodeNameChange(Sender: TObject); begin TBFind.Click; end; procedure TfrmJYOrderCDOne.ToolButton3Click(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('BaoID').AsString) = '' then begin application.MessageBox('未打包不能打印', '提示'); exit; end; try Moudle := LoadLibrary('MakeQRBarcode.dll'); @Makebar := GetProcAddress(Moudle, 'Make'); @Mixtext := GetProcAddress(Moudle, 'MixText'); Txt := Trim(Order_Main.fieldbyname('BaoID').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); Order_Main.EnableControls; exit; end; with ADOQueryPrint do begin Close; SQL.Clear; sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); sql.Add('from WFB_MJJY A'); sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); SQL.Add(' where A.BaoID=''' + Trim(Order_Main.fieldbyname('BaoID').AsString) + ''''); SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName'); Open; end; if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf' else fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用包标签.rmf'; if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); RM2.ShowReport; //RM2.printReport; end else begin Order_Main.EnableControls; Application.MessageBox(PChar('没有找' + trim(fPrintFile)), '提示', 0); Exit; end; end; procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject); begin Panel5.Visible := false; end; procedure TfrmJYOrderCDOne.Button5Click(Sender: TObject); begin if Order_Main.IsEmpty then Exit; if Order_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; if trim(ComboBox5.Text) = '' then begin Application.MessageBox('数量单位不能为空!', '提示', 0); Exit; end; try Order_Main.DisableControls; ADOQueryCmd.Connection.BeginTrans; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update WFB_MJJY Set MJTypeOther=''' + trim(ComboBox5.Text) + ''' '); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; end; Next; end; end; ADOQueryCmd.Connection.CommitTrans; Order_Main.EnableControls; application.MessageBox('数据保存成功！', '提示信息'); Panel5.Visible := false; TBRafresh.Click; except ADOQueryCmd.Connection.RollbackTrans; Order_Main.EnableControls; application.MessageBox('数据保存失败！', '提示信息', 0); end; end; procedure TfrmJYOrderCDOne.TBDWClick(Sender: TObject); begin Panel5.Left := (self.Width - Panel5.Width) div 2; Panel5.Visible := true; end; procedure TfrmJYOrderCDOne.ToolButton4Click(Sender: TObject); begin Panel2.Left := (self.Width - Panel2.Width) div 2; Panel2.Visible := true; end; procedure TfrmJYOrderCDOne.Button1Click(Sender: TObject); var i, J: string; begin if Order_Main.IsEmpty then Exit; if Order_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; if trim(ComboBox4.Text) = '' then begin Application.MessageBox('换算类型不能为空!', '提示', 0); Exit; end; i := floattostr(strtofloatdef(trim(cxCurrencyEdit1.Text), 0)); J := floattostr(strtofloatdef(trim(cxCurrencyEdit2.Text), 0)); try Order_Main.DisableControls; ADOQueryCmd.Connection.BeginTrans; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin with ADOQueryCmd do begin Close; sql.Clear; // sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) '); if trim(ComboBox4.Text) = '长度换算净重' then begin // MKXs='''+trim(i)+''', sql.Add('Update WFB_MJJY Set MJQty3=''' + trim(J) + ''',MJQty4=cast(1.00000* MJlen *''' + trim(i) + ''' as decimal(18,1)) '); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('Update WFB_MJJY Set MJMaoZ=MJQty4+MJQty3 '); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); end; if trim(ComboBox4.Text) = '净重换算长度' then begin // MKXs='''+trim(i)+''', sql.Add('Update WFB_MJJY Set MJQty3=''' + trim(J) + ''',MJlen=cast(1.00000* MJQty4 *''' + trim(i) + ''' as decimal(18,0)) '); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('Update WFB_MJJY Set MJMaoZ=MJQty4+MJQty3 '); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); end; ExecSQL; end; end; Next; end; end; ADOQueryCmd.Connection.CommitTrans; Order_Main.EnableControls; application.MessageBox('数据保存成功！', '提示信息'); Panel2.Visible := false; TBRafresh.Click; exit; except ADOQueryCmd.Connection.RollbackTrans; Order_Main.EnableControls; application.MessageBox('数据保存失败！', '提示信息', 0); end; end; procedure TfrmJYOrderCDOne.Button2Click(Sender: TObject); begin Panel2.Visible := false; end; procedure TfrmJYOrderCDOne.TCBNORChange(Sender: TObject); begin RecordsNumber := StrToInt(TCBNOR.Text); CurrentPage := 1; InitGrid(); end; procedure TfrmJYOrderCDOne.Button10Click(Sender: TObject); begin CurrentPage := 1; InitGrid(); end; procedure TfrmJYOrderCDOne.BTLPClick(Sender: TObject); begin if CurrentPage > 1 then CurrentPage := CurrentPage - 1; InitGrid(); end; procedure TfrmJYOrderCDOne.BTNPClick(Sender: TObject); begin if CurrentPage < Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber then CurrentPage := CurrentPage + 1; InitGrid(); end; procedure TfrmJYOrderCDOne.Button9Click(Sender: TObject); begin CurrentPage := Ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber); InitGrid(); end; procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject); begin Panel9.Left := (self.Width - Panel9.Width) div 2; Panel9.Visible := true; end; procedure TfrmJYOrderCDOne.Button3Click(Sender: TObject); var SL, SL2, PZ: string; begin if Order_Main.IsEmpty then Exit; if Order_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; if trim(TZFS2.Text) = '' then begin Application.MessageBox('调整方式不能为空!', '提示', 0); Exit; end; if trim(TZSL2.Text) = '' then begin Application.MessageBox('调整数量不能为空!', '提示', 0); Exit; end; PZ := ''; try Order_Main.DisableControls; ADOQueryCmd.Connection.BeginTrans; with Order_Main do begin First; while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin if Trim(TZFS2.Text) = '增加' then begin SL := FloatToStr(Order_Main.fieldbyname('MJMaoz').AsFloat + strtofloat(TZSL2.Text)); SL2 := FloatToStr(Order_Main.fieldbyname('MJQty4').AsFloat + strtofloat(TZSL2.Text)); end else if Trim(TZFS2.Text) = '减少' then begin SL := FloatToStr(Order_Main.fieldbyname('MJMaoz').AsFloat - strtofloat(TZSL2.Text)); SL := FloatToStr(Order_Main.fieldbyname('MJQty4').AsFloat - strtofloat(TZSL2.Text)); end else begin if Trim(TZFS2.Text) = '皮重计算毛重' then begin PZ := TZSL2.Text; SL2 := FloatToStr(Order_Main.fieldbyname('MJQty4').AsFloat); SL := FloatToStr(strtofloat(SL2) + strtofloat(PZ)); end else if Trim(TZFS2.Text) = '皮重计算净重' then begin PZ := TZSL2.Text; SL := FloatToStr(Order_Main.fieldbyname('MJMaoZ').AsFloat); SL2 := FloatToStr(strtofloat(SL) + strtofloat(PZ)); end; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update WFB_MJJY Set MJMaoz=''' + SL + ''',MJQty4=''' + SL2 + ''' '); if PZ <> '' then sql.Add(',MJQty3=''' + PZ + ''''); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update CK_BanCP_CR Set KGQty=''' + SL + ''' '); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; end; Next; end; end; ADOQueryCmd.Connection.CommitTrans; Order_Main.EnableControls; application.MessageBox('数据保存成功！', '提示信息'); Panel9.Visible := false; TZFS2.Text := ''; TZSL2.Text := ''; TBRafresh.Click; except ADOQueryCmd.Connection.RollbackTrans; Order_Main.EnableControls; application.MessageBox('数据保存失败！', '提示信息', 0); end; end; procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject); begin Panel9.Visible := false; end; end.