unit U_ClothSCList; 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, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, jpeg, U_SLT, dxBarBuiltInMenu, cxPC, cxCheckBox; type FdDy = record inc: integer; //客户端套接字句柄 FDdys: string[32]; //客户端套接字 FdDysName: string[32]; //客户端套接字 end; type TfrmClothSCList = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBFind: TToolButton; TBAdd: TToolButton; TBEdit: TToolButton; TBDel: TToolButton; TBPrint: TToolButton; TBClose: TToolButton; Panel1: TPanel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; Label1: TLabel; Label2: TLabel; cxGridPopupMenu1: TcxGridPopupMenu; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; Label3: TLabel; ConNo: TEdit; Label5: TLabel; C_CodeName: TEdit; TBExport: TToolButton; Order_Main: TClientDataSet; RM1: TRMGridReport; RMXLSExport1: TRMXLSExport; CDS_PRT: TClientDataSet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1OrderNo: TcxGridDBColumn; v1Column2: TcxGridDBColumn; v1Column3: TcxGridDBColumn; v1Column5: TcxGridDBColumn; v1PRTMF: TcxGridDBColumn; v1PRTKZ: TcxGridDBColumn; v1PRTOrderQty: TcxGridDBColumn; v1Column4: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1Column8: TcxGridDBColumn; v1Column9: TcxGridDBColumn; RMDBPRT: TRMDBDataSet; v1Column12: TcxGridDBColumn; TBCopy: TToolButton; TBView: TToolButton; v1Column19: TcxGridDBColumn; RMDBPZ: TRMDBDataSet; CDS_PZ: TClientDataSet; CDS_SJ: TClientDataSet; RMDBSJ: TRMDBDataSet; v1Column21: TcxGridDBColumn; Label10: TLabel; C_Code: TEdit; v1Column22: TcxGridDBColumn; v1Column1: TcxGridDBColumn; v1Column10: TcxGridDBColumn; v1Column11: TcxGridDBColumn; v1Column15: TcxGridDBColumn; v1Column13: TcxGridDBColumn; v1Column16: TcxGridDBColumn; v1Column17: TcxGridDBColumn; v1Column20: TcxGridDBColumn; v1Column23: TcxGridDBColumn; v1Column24: TcxGridDBColumn; v1Column25: TcxGridDBColumn; v1Column26: TcxGridDBColumn; v1Column27: TcxGridDBColumn; v1Column28: TcxGridDBColumn; ToolButton1: TToolButton; RMDBDataSet1: TRMDBDataSet; ClientDataSet1: TClientDataSet; Panel2: TPanel; WFGYSName: TComboBox; Label4: TLabel; v1Column14: TcxGridDBColumn; CDS_WJG: TClientDataSet; RMDBWJG: TRMDBDataSet; v1Column18: TcxGridDBColumn; v1Column29: TcxGridDBColumn; Label6: TLabel; YCLNAME: TEdit; v1Column31: TcxGridDBColumn; v1Column30: TcxGridDBColumn; v1Column32: TcxGridDBColumn; v1Column33: TcxGridDBColumn; ComboBox1: TComboBox; v1Column34: TcxGridDBColumn; KHNAME: TEdit; Label7: TLabel; btn1: TToolButton; lbl1: TLabel; orderflag: TComboBox; Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; ToolButton2: TToolButton; Tv1Column13: TcxGridDBColumn; GroupBox1: TGroupBox; ScrollBox1: TScrollBox; adoqueryPicture: TADOQuery; Tv1Column14: TcxGridDBColumn; Label8: TLabel; RTQYJTInfo: TEdit; cxTabControl1: TcxTabControl; ToolButton3: TToolButton; ToolButton4: TToolButton; Tv1Column15: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); procedure TBEditClick(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure TBExportClick(Sender: TObject); procedure TBPrintClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure TBAddClick(Sender: TObject); procedure ConNoChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure conPress(Sender: TObject; var Key: Char); procedure TBViewClick(Sender: TObject); procedure TBCopyClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure btn1Click(Sender: TObject); procedure orderflagChange(Sender: TObject); procedure C_CodeKeyPress(Sender: TObject; var Key: Char); procedure YCLNAMEKeyPress(Sender: TObject; var Key: Char); procedure KHNAMEKeyPress(Sender: TObject; var Key: Char); procedure C_CodeNameKeyPress(Sender: TObject; var Key: Char); procedure Tv1DblClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); private FInt, PFInt: Integer; procedure InitGrid(); procedure InitForm(); function DelData(): Boolean; procedure InitButton(); procedure InitImage(); { Private declarations } public canshu1, FCheJian: string; dFdDy: array[0..20] of FdDy; { Public declarations } end; var // frmCPManage: TfrmCPManage; Mach: array of TfrmSlt; //var //frmClothSCList: TfrmClothSCList; implementation uses U_DataLink, U_ClothSCInPut, U_Fun, U_ZDYHelp, U_SCPerson, U_ClothSCInPutSC, U_FileUp; {$R *.dfm} procedure TfrmClothSCList.InitImage(); var i, j: integer; jpg: TJpegImage; myStream: TADOBlobStream; begin j := length(Mach); if j > 0 then begin for i := 0 to j - 1 do begin Mach[i].free; end; end; SetLength(Mach, 0); if order_main.IsEmpty then exit; try with adoqueryPicture do begin close; sql.Clear; sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName from TP_File A,XD_File B '); sql.add('where A.TFID =B.XFID and A.WBID=' + quotedstr(trim(order_main.fieldbyname('mainid').AsString))); open; end; j := adoqueryPicture.RecordCount; if j < 1 then exit; adoqueryPicture.DisableControls; adoqueryPicture.First; SetLength(Mach, j); jpg := TJpegImage.Create(); for i := 0 to j - 1 do begin if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then begin myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread); jpg.LoadFromStream(myStream); Mach[i] := TfrmSlt.Create(Self); Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString); Mach[i].Parent := ScrollBox1; Mach[i].Left := 0 + i * 165; Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg); end; adoqueryPicture.Next; end; adoqueryPicture.EnableControls; finally jpg.free; application.ProcessMessages; end; end; procedure TfrmClothSCList.FormClose(Sender: TObject; var Action: TCloseAction); var i, j: integer; begin j := length(Mach); if j > 0 then begin for i := 0 to j - 1 do begin Mach[i].free; end; end; SetLength(Mach, 0); // writeCxGrid(self.C Action := caFree; end; procedure TfrmClothSCList.InitButton(); begin if Trim(canshu1) = '查询' then begin TBAdd.Visible := False; TBCopy.Visible := False; TBEdit.Visible := False; TBDel.Visible := False; end; if (Trim(canshu1) = '一车间生产') or (Trim(canshu1) = '二车间生产') then begin TBAdd.Visible := False; TBCopy.Visible := False; TBEdit.Visible := False; TBDel.Visible := False; end; end; procedure TfrmClothSCList.TBCloseClick(Sender: TObject); begin Close; WriteCxGrid('坯布生产计划单', Tv1, '坯布生产管理'); end; procedure TfrmClothSCList.InitGrid(); begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; // sql.Add('WITH YCLData AS ( SELECT MAINID, YCLNAME = STRING_AGG(YCLNAME, '', '') WITHIN GROUP (ORDER BY pbid, YCLNAME) FROM Cloth_YCL_PB WHERE YCLNAME IS NOT NULL GROUP BY MAINID )'); sql.Add('select A.*,B.*,CustomerNoName=(select TOP 1 CustomerNoName from JYOrderCon_Main_PB X where X.MainId=A.ConMainId) '); SQL.Add(',YCLNAME= STUFF(( SELECT '','' +convert(VARCHAR, YCLNAME) FROM Cloth_YCL_PB c where c.MAINID = A.MAINID order by pbid FOR XML PATH('''')), 1, 1, '''') '); // sql.Add(',yclname=(select yclname from YCLData e where e.mainid=a.mainid )'); sql.Add(' ,HTSYRName=(select TOP 1 SYRName from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)'); sql.Add(' ,ConPayment=(select TOP 1 Payment from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)'); sql.Add(' ,ConPRTPrice=(select TOP 1 PRTPrice from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) '); sql.Add(' ,ConDYMoney=(select TOP 1 DYMoney from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) '); SQL.Add(',APPS=(SELECT COUNT(*) FROM JYCon_Sub_AnPai e where e.subid=b.subid)'); SQL.Add(',jyps=(SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid)'); SQL.Add(',jyqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid)'); SQL.Add(',CKps=(SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''已出库'')'); SQL.Add(',CKqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''已出库'')'); SQL.Add(',KCps=(SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''未出库'')'); SQL.Add(',KCqty=(SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''未出库'')'); SQL.Add(',wjyps=piqty-isnull((SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid),0)'); SQL.Add(',wjyqty=c_qty-isnull((SELECT sum(mjmaoz) FROM WFB_MJJY_PB e where e.mainid=a.mainid),0)'); sql.Add(' ,ZdyNameZ=(select TOP 1 X.ZdyNameZ from KH_Zdy_Attachment X inner join JYOrderCon_Main_PB Y on X.Type=''KHName'' and X.ZdyCode=Y.CustomerNo where Y.MainId=A.ConMainId) '); sql.Add(' ,DDZT=(case when '); SQL.Add(' (SELECT COUNT(*) FROM WFB_MJJY_PB e where e.mainid=a.mainid AND MJSTR4=''已出库'')>=PiQty THEN ''已完成'''); sql.add(' when BegFlag=0 then ''待开始'' else ''已开始'' end) '); sql.Add(' from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId'); sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); sql.Add('and A.ORDERFLAG=''' + Trim(orderflag.Text) + ''''); case cxTabControl1.TabIndex of 0: begin sql.Add(' and isnull(A.status,''0'')=''0'' '); end; 1: begin sql.Add(' and isnull(A.status,''0'')=''1'' '); end; //SUBSTRING(A.C_colorNO, 2,4) end; sql.add('order by A.FILLTIME DESC'); // ShowMessage(sql.Text); Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; procedure TfrmClothSCList.InitForm(); begin InitButton(); ReadCxGrid('坯布生产计划单', Tv1, '坯布生产管理'); BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 60; EndDate.DateTime := SGetServerDate10(ADOQueryTemp); InitGrid(); end; procedure TfrmClothSCList.TBFindClick(Sender: TObject); begin TBRafresh.Click; if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothSCList.TBEditClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmClothSCInPut := TfrmClothSCInPut.Create(Application); with frmClothSCInPut do begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString); if ShowModal = 1 then begin InitGrid(); Self.Order_Main.Locate('MainId', frmClothSCInPut.FMainId, []); end; end; finally frmClothSCInPut.Free; end; end; procedure TfrmClothSCList.TBDelClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; with ADOQueryTemp do begin Close; sql.Clear; SQL.Add('select A.*'); sql.Add('from JYCon_Sub_AnPai A'); sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); sql.Add(' and A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty = False then begin Application.MessageBox('已产生安排数据不能删除!', '提示', 0); Exit; end; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; if DelData() then begin //TBRafresh.Click; //TBFind.Click; Order_Main.Delete; end; end; function TfrmClothSCList.DelData(): Boolean; begin try Result := false; ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Cloth_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Cloth_YCL_PB where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; Result := True; except ADOQueryCmd.Connection.RollbackTrans; Result := False; Application.MessageBox('数据删除异常！', '提示', 0); end; end; procedure TfrmClothSCList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then Exit; TcxGridToExcel('坯布生产单', cxGrid1); end; procedure TfrmClothSCList.TBPrintClick(Sender: TObject); var fPrintFile, FWeiZhi: string; i, j, k: integer; begin if Order_Main.IsEmpty then Exit; ExportFtErpFile(trim(ComboBox1.Text) + '.rmf', ADOQueryTemp); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(ComboBox1.Text) + '.rmf'; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select PZNote1=PZNote,WeiZhi1=WeiZhi,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10 '); sql.Add(' ,SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20 '); sql.Add(' ,SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30 '); sql.Add(' ,SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36,SPZ37=PZ37, SPZ38=PZ38, SPZ39=PZ39, SPZ40=PZ40 '); sql.Add(' ,SPZ41=PZ41, SPZ42=PZ42, SPZ43=PZ43, SPZ44=PZ44, SPZ45=PZ45, SPZ46=PZ46, SPZ47=PZ47, SPZ48=PZ48, SPZ49=PZ49, SPZ50=PZ50 '); sql.Add(' ,SPZ51=PZ51, SPZ52=PZ52, SPZ53=PZ53, SPZ54=PZ54, SPZ55=PZ55, SPZ56=PZ56, SPZ57=PZ57, SPZ58=PZ58, SPZ59=PZ59, SPZ60=PZ60'); sql.Add(' ,SPZ61=PZ61, SPZ62=PZ62, SPZ63=PZ63, SPZ64=PZ64, SPZ65=PZ65, SPZ66=PZ66, SPZ67=PZ67, SPZ68=PZ68, SPZ69=PZ69, SPZ70=PZ70'); sql.Add(' ,SPZ71=PZ71, SPZ72=PZ72, SPZ73=PZ73, SPZ74=PZ74, SPZ75=PZ75, SPZ76=PZ76, SPZ77=PZ77, SPZ78=PZ78, SPZ79=PZ79, SPZ80=PZ80'); sql.Add(' ,SPZ81=PZ81, SPZ82=PZ82, SPZ83=PZ83, SPZ84=PZ84, SPZ85=PZ85, SPZ86=PZ86, SPZ87=PZ87, SPZ88=PZ88, SPZ89=PZ89, SPZ90=PZ90'); sql.Add(' ,SPZ91=PZ91, SPZ92=PZ92, SPZ93=PZ93, SPZ94=PZ94, SPZ95=PZ95, SPZ96=PZ96, SPZ97=PZ97, SPZ98=PZ98, SPZ99=PZ99, SPZ100=PZ100'); sql.Add(' ,SPZ101=PZ101, SPZ102=PZ102, SPZ103=PZ103, SPZ104=PZ104, SPZ105=PZ105, SPZ106=PZ106, SPZ107=PZ107, SPZ108=PZ108 ,SPZ109=PZ109 ,SPZ110=PZ110'); sql.Add(',SPZ111=PZ111 ,SPZ112=PZ112 ,SPZ113=PZ113 ,SPZ114=PZ114 ,SPZ115=PZ115 ,SPZ116=PZ116 ,SPZ117=PZ117 ,SPZ118=PZ118 ,SPZ119=PZ119 ,SPZ120=PZ120'); sql.Add(',SPZ121=PZ121 ,SPZ122=PZ122 ,SPZ123=PZ123 ,SPZ124=PZ124 ,SPZ125=PZ125 ,SPZ126=PZ126 ,SPZ127=PZ127 ,SPZ128=PZ128 ,SPZ129=PZ129 ,SPZ130=PZ130'); sql.Add(',SPZ131=PZ131 ,SPZ132=PZ132 ,SPZ133=PZ133 ,SPZ134=PZ134 ,SPZ135=PZ135 ,SPZ136=PZ136 ,SPZ137=PZ137 ,SPZ138=PZ138 ,SPZ139=PZ139 ,SPZ140=PZ140'); sql.Add(',SPZ141=PZ141 ,SPZ142=PZ142 ,SPZ143=PZ143 ,SPZ144=PZ144 '); sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add(' and RTrim(PZType)=''排针'' '); Open; end; SCreateCDS20(ADOQueryTemp, CDS_PZ); SInitCDSData20(ADOQueryTemp, CDS_PZ); if CDS_PZ.IsEmpty then begin CDS_PZ.Append; CDS_PZ.Post; end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add(' and RTrim(PZType)=''三角'' '); Open; end; SCreateCDS20(ADOQueryTemp, CDS_SJ); SInitCDSData20(ADOQueryTemp, CDS_SJ); // j := 0; // k := 1; // // ADOQueryTemp.First; // FWeiZhi := ADOQueryTemp.FieldByName('WeiZhi').AsString; // while not ADOQueryTemp.Eof do // begin // if Trim(ADOQueryTemp.FieldByName('WeiZhi').AsString) <> FWeiZhi then // begin // with CDS_SJ do // begin // Append; // Post; // end; // end; // FWeiZhi := ADOQueryTemp.FieldByName('WeiZhi').AsString; // with CDS_SJ do // begin // Append; // for i := 0 to ADOQueryTemp.FieldCount - 1 do // begin // fields[i].value := ADOQueryTemp.Fields[i].Value; // end; // fieldByName('Sflag').AsString := '1'; // fieldByName('Sindex').value := k; // fieldByName('Ssel').value := false; // fieldByName('SDefNote').value := ''; // inc(k); // Post; // end; // // ADOQueryTemp.Next; // j := j + 1; // end; if CDS_SJ.IsEmpty then begin CDS_SJ.Append; CDS_SJ.Post; end; with ADOQueryTemp do begin Filtered := False; Close; sql.Clear; sql.Add('Select A.* '); sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))'); sql.Add(' from Cloth_YCL_PB A'); sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId'); sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT); if CDS_PRT.IsEmpty then begin CDS_PRT.Append; CDS_PRT.Post; end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, ClientDataSet1); SInitCDSData20(ADOQueryTemp, ClientDataSet1); if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); RMVariables['ZSCPS'] := ClientDataSet1.fieldbyname('ZSCPS').Value; RMVariables['ZSCQty'] := ClientDataSet1.fieldbyname('ZSCQty').Value; RMVariables['WFJHPSHZ'] := ClientDataSet1.fieldbyname('WFJHPSHZ').Value; RMVariables['WFJHQtyHZ'] := ClientDataSet1.fieldbyname('WFJHQtyHZ').Value; RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value; RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value; RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value; RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value; RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value; RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value; RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value; RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value; RMVariables['JXPERSON1'] := Order_Main.fieldbyname('JXPERSON1').Value; RMVariables['ISHS'] := Order_Main.fieldbyname('ISHS').Value; RMVariables['dprice'] := ClientDataSet1.fieldbyname('dprice').Value; RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value; RMVariables['MF'] := Order_Main.fieldbyname('MF').Value; RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value; RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value; RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value; RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value; RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value; RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value; RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value; RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value; RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value; RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value; RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value; RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value; RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value; RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value; RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value; RMVariables['BatchNoHZ'] := Order_Main.fieldbyname('BatchNoHZ').Value; RMVariables['ConPayment'] := Order_Main.fieldbyname('ConPayment').Value; RMVariables['ConPRTPrice'] := Order_Main.fieldbyname('ConPRTPrice').Value; RMVariables['ConDYMoney'] := Order_Main.fieldbyname('ConDYMoney').Value; RMVariables['ZdyNameZ'] := Order_Main.fieldbyname('ZdyNameZ').Value; RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value; RMVariables['WzPrice'] := Order_Main.fieldbyname('WzPrice').Value; RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value; RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value; RMVariables['ZZSH'] := Order_Main.fieldbyname('ZZSH').Value; RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value; RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value; RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value; RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value; RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value; RMVariables['Filler'] := Order_Main.fieldbyname('Filler').Value; RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value; RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value; RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value; RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value; RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value; RMVariables['kzzhuan'] := Order_Main.fieldbyname('kzzhuan').Value; RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value; RMVariables['ZongZhenQty'] := Order_Main.fieldbyname('ZongZhenQty').Value; RMVariables['KHName'] := Order_Main.fieldbyname('KHName').Value; RMVariables['HZPaiSha'] := Order_Main.fieldbyname('HZPaiSha').Value; RMVariables['KHConNo'] := Order_Main.fieldbyname('KHConNo').Value; RMVariables['dangwei'] := ClientDataSet1.fieldbyname('dangwei').Value; RMVariables['xiaolv'] := ClientDataSet1.fieldbyname('xiaolv').Value; RM1.ShowReport; end else begin Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0); end; end; procedure TfrmClothSCList.TBRafreshClick(Sender: TObject); begin InitGrid(); end; procedure TfrmClothSCList.TBAddClick(Sender: TObject); begin try frmClothSCInPut := TfrmClothSCInPut.Create(Application); with frmClothSCInPut do begin PState := 0; FMainId := ''; FSubId := ''; frmClothSCInPut.orderflag.text := '生产'; if ShowModal = 1 then begin InitGrid(); end; end; finally frmClothSCInPut.Free; end; end; procedure TfrmClothSCList.ConNoChange(Sender: TObject); begin if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothSCList.FormShow(Sender: TObject); begin InitForm(); end; procedure TfrmClothSCList.conPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin if Length(Trim(ConNo.Text)) < 4 then Exit; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; //sql.Add('exec Cloth_QryList :MainId,:WSql'); // Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''' // +' and ConType=''生产'' '; sql.Add('select * from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId'); sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + ''''); Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; end; procedure TfrmClothSCList.TBViewClick(Sender: TObject); begin try frmClothSCInPut := TfrmClothSCInPut.Create(Application); with frmClothSCInPut do begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString); FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); TBSave.Visible := False; ToolBar3.Visible := False; ScrollBox1.Enabled := False; if ShowModal = 1 then begin end; end; finally frmClothSCInPut.Free; end; end; procedure TfrmClothSCList.TBCopyClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmClothSCInPut := TfrmClothSCInPut.Create(Application); with frmClothSCInPut do begin PState := 1; FCopyInt := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); if ShowModal = 1 then begin end; end; finally frmClothSCInPut.Free; end; end; procedure TfrmClothSCList.ToolButton1Click(Sender: TObject); var fPrintFile: string; begin if Order_Main.IsEmpty then Exit; if Trim(WFGYSName.Text) = '' then begin Application.MessageBox('外发单位不能为空!', '提示', 0); Exit; end; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf'; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select PZNote1=PZNote,WeiZhi1=WeiZhi,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10 '); sql.Add(' ,SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20 '); sql.Add(' ,SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30 '); sql.Add(' ,SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36,SPZ37=PZ37, SPZ38=PZ38, SPZ39=PZ39, SPZ40=PZ40 '); sql.Add(' ,SPZ41=PZ41, SPZ42=PZ42, SPZ43=PZ43, SPZ44=PZ44, SPZ45=PZ45, SPZ46=PZ46, SPZ47=PZ47, SPZ48=PZ48, SPZ49=PZ49, SPZ50=PZ50 '); sql.Add(' ,SPZ51=PZ51, SPZ52=PZ52, SPZ53=PZ53, SPZ54=PZ54, SPZ55=PZ55, SPZ56=PZ56, SPZ57=PZ57, SPZ58=PZ58, SPZ59=PZ59, SPZ60=PZ60'); sql.Add(' ,SPZ61=PZ61, SPZ62=PZ62, SPZ63=PZ63, SPZ64=PZ64, SPZ65=PZ65, SPZ66=PZ66, SPZ67=PZ67, SPZ68=PZ68, SPZ69=PZ69, SPZ70=PZ70'); sql.Add(' ,SPZ71=PZ71, SPZ72=PZ72, SPZ73=PZ73, SPZ74=PZ74, SPZ75=PZ75, SPZ76=PZ76, SPZ77=PZ77, SPZ78=PZ78, SPZ79=PZ79, SPZ80=PZ80'); sql.Add(' ,SPZ81=PZ81, SPZ82=PZ82, SPZ83=PZ83, SPZ84=PZ84, SPZ85=PZ85, SPZ86=PZ86, SPZ87=PZ87, SPZ88=PZ88, SPZ89=PZ89, SPZ90=PZ90'); sql.Add(' ,SPZ91=PZ91, SPZ92=PZ92, SPZ93=PZ93, SPZ94=PZ94, SPZ95=PZ95, SPZ96=PZ96, SPZ97=PZ97, SPZ98=PZ98, SPZ99=PZ99, SPZ100=PZ100'); sql.Add(' ,SPZ101=PZ101, SPZ102=PZ102, SPZ103=PZ103, SPZ104=PZ104, SPZ105=PZ105, SPZ106=PZ106, SPZ107=PZ107, SPZ108=PZ108 ,SPZ109=PZ109 ,SPZ110=PZ110'); sql.Add(' ,SPZ111=PZ111 ,SPZ112=PZ112 ,SPZ113=PZ113 ,SPZ114=PZ114 ,SPZ115=PZ115 ,SPZ116=PZ116 ,SPZ117=PZ117 ,SPZ118=PZ118 ,SPZ119=PZ119 ,SPZ120=PZ120'); sql.Add(' ,SPZ121=PZ121 ,SPZ122=PZ122 ,SPZ123=PZ123 ,SPZ124=PZ124 ,SPZ125=PZ125 ,SPZ126=PZ126 ,SPZ127=PZ127 ,SPZ128=PZ128 ,SPZ129=PZ129 ,SPZ130=PZ130'); sql.Add(' ,SPZ131=PZ131 ,SPZ132=PZ132 ,SPZ133=PZ133 ,SPZ134=PZ134 ,SPZ135=PZ135 ,SPZ136=PZ136 ,SPZ137=PZ137 ,SPZ138=PZ138 ,SPZ139=PZ139 ,SPZ140=PZ140'); sql.Add(' ,SPZ141=PZ141 ,SPZ142=PZ142 ,SPZ143=PZ143 ,SPZ144=PZ144 '); sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add(' and RTrim(PZType)=''排针'' '); Open; end; SCreateCDS20(ADOQueryTemp, CDS_PZ); SInitCDSData20(ADOQueryTemp, CDS_PZ); if CDS_PZ.IsEmpty then begin CDS_PZ.Append; CDS_PZ.Post; end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add(' and RTrim(PZType)=''三角'' '); Open; end; SCreateCDS20(ADOQueryTemp, CDS_SJ); SInitCDSData20(ADOQueryTemp, CDS_SJ); if CDS_SJ.IsEmpty then begin CDS_SJ.Append; CDS_SJ.Post; end; with ADOQueryTemp do begin Filtered := False; Close; sql.Clear; sql.Add('Select A.* '); sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))'); sql.Add(' from Cloth_YCL_PB A'); sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId'); sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT); if CDS_PRT.IsEmpty then begin CDS_PRT.Append; CDS_PRT.Post; end; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, ClientDataSet1); SInitCDSData20(ADOQueryTemp, ClientDataSet1); with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add(' and WFGYSName=''' + Trim(WFGYSName.Text) + ''''); Open; end; SCreateCDS20(ADOQueryTemp, CDS_WJG); SInitCDSData20(ADOQueryTemp, CDS_WJG); if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); RMVariables['WFGYSName'] := CDS_WJG.fieldbyname('WFGYSName').Value; RMVariables['WFJHPS'] := CDS_WJG.fieldbyname('WFJHPS').Value; RMVariables['WFJHQty'] := CDS_WJG.fieldbyname('WFJHQty').Value; RMVariables['JGPrice'] := CDS_WJG.fieldbyname('JGPrice').Value; RMVariables['JHJiaoQi'] := CDS_WJG.fieldbyname('JHJiaoQi').Value; RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value; RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value; RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value; RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value; RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value; RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value; RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value; RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value; RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value; RMVariables['MF'] := Order_Main.fieldbyname('MF').Value; RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value; RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value; RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value; RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value; RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value; RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value; RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value; RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value; RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value; RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value; RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value; RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value; RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value; RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value; RMVariables['Price'] := Order_Main.fieldbyname('Price').Value; RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value; RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value; RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value; RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value; RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value; RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value; RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value; RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value; RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value; RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value; RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value; RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value; RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value; RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value; RMVariables['ZongZhenQty'] := Order_Main.fieldbyname('ZongZhenQty').Value; RMVariables['KHName'] := Order_Main.fieldbyname('KHName').Value; RMVariables['HZPaiSha'] := Order_Main.fieldbyname('HZPaiSha').Value; RMVariables['KHConNo'] := Order_Main.fieldbyname('KHConNo').Value; RM1.ShowReport; end else begin Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf'), '提示', 0); end; end; procedure TfrmClothSCList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var fsj: string; begin if Order_Main.IsEmpty = False then fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''' else fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where 1=2'; WFGYSName.Items.Clear; SInitComBoxBySql(ADOQueryTemp, WFGYSName, True, fsj); end; procedure TfrmClothSCList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var FDDZT: string; begin if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('DDZT').Index] = null then Exit; FDDZT := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('DDZT').Index]; if FDDZT = '已开始' then ACanvas.Font.Color := $FF0000; if FDDZT = '已完成' then ACanvas.Font.Color := $0000FF; if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('jyps').Index] > AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('PiQty').Index] then begin ACanvas.Brush.Color := $008080FF; end; end; procedure TfrmClothSCList.btn1Click(Sender: TObject); begin try frmClothSCInPut := TfrmClothSCInPut.Create(Application); with frmClothSCInPut do begin PState := 0; frmClothSCInPut.FMainId := ''; FSubId := ''; frmClothSCInPut.orderflag.text := '打样'; if ShowModal = 1 then begin InitGrid(); end; end; finally frmClothSCInPut.Free; end; end; procedure TfrmClothSCList.orderflagChange(Sender: TObject); begin TBRafresh.Click; end; procedure TfrmClothSCList.C_CodeKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then TBRafresh.Click(); if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothSCList.YCLNAMEKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then TBRafresh.Click(); if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothSCList.KHNAMEKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then TBRafresh.Click(); if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothSCList.C_CodeNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then TBRafresh.Click(); if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothSCList.Tv1DblClick(Sender: TObject); begin TBView.Click(); end; procedure TfrmClothSCList.ToolButton2Click(Sender: TObject); begin try frmFileUp := TfrmFileUp.Create(Application); with frmFileUp do begin Code.Text := Trim(Self.Order_Main.fieldbyname('mainid').AsString); CYID := Trim(Self.Order_Main.fieldbyname('mainid').AsString); if ShowModal = 1 then begin Self.InitGrid(); // Self.Order_Main.Locate('CYID', CYID, []); end; end; finally frmFileUp.Free; end; end; procedure TfrmClothSCList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin if Order_Main.ISEMPTY = FALSE then begin InitImage(); end; end; procedure TfrmClothSCList.ToolButton3Click(Sender: TObject); begin if Order_Main.IsEmpty then exit; if not Order_Main.Locate('SSel', True, []) then begin application.MessageBox('请选择数据！', '提示信息', 0); Exit; end; try while Order_Main.Locate('SSel', True, []) do begin with ADOQueryCmd do begin close; sql.Clear; sql.Add('update CLOTH_Main SET status=''1'''); sql.Add('where mainid=' + quotedstr(trim(Order_Main.fieldbyname('MAINID').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('mainid').AsString)))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); execsql; end; Order_Main.Delete; end; application.MessageBox('完成成功！', '提示信息'); TBRafresh.Click; except application.MessageBox('完成失败！', '提示信息', 0); end; end; procedure TfrmClothSCList.ToolButton4Click(Sender: TObject); begin if Order_Main.IsEmpty then exit; if not Order_Main.Locate('SSel', True, []) then begin application.MessageBox('请选择数据！', '提示信息', 0); Exit; end; try while Order_Main.Locate('SSel', True, []) do begin with ADOQueryCmd do begin close; sql.Clear; sql.Add('update CLOTH_Main SET status=''0'''); sql.Add('where mainid=' + quotedstr(trim(Order_Main.fieldbyname('MAINID').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('mainid').AsString)))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); execsql; end; Order_Main.Delete; end; application.MessageBox('撤销成功！', '提示信息'); TBRafresh.Click; except application.MessageBox('撤销失败！', '提示信息', 0); end; end; procedure TfrmClothSCList.cxTabControl1Change(Sender: TObject); begin ToolButton3.VISIBLE := FALSE; ToolButton4.VISIBLE := FALSE; case cxTabControl1.TabIndex of 0: begin ToolButton3.VISIBLE := TRUE; end; 1: begin ToolButton4.VISIBLE := TRUE; end; //SUBSTRING(A.C_colorNO, 2,4) end; initgrid(); end; end.