unit U_SketchManageListD; 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, cxContainer, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, StrUtils, cxCheckBox, cxPC, cxMemo, Menus, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; type TfrmSketchManageListD = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBClose: TToolButton; Panel1: TPanel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; Label2: TLabel; cxGridPopupMenu1: TcxGridPopupMenu; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; Label3: TLabel; M_HXCODE: TEdit; TBExport: TToolButton; Order_Main: TClientDataSet; RM1: TRMGridReport; RMXLSExport1: TRMXLSExport; CDS_PRT: TClientDataSet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1OrderNo: TcxGridDBColumn; v1Column5: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; RMDBPRT: TRMDBDataSet; RMDBDataSet1: TRMDBDataSet; ClientDataSet1: TClientDataSet; v1Column31: TcxGridDBColumn; IdFTP1: TIdFTP; ADOQueryImage: TADOQuery; DSImage: TDataSource; v1Column1: TcxGridDBColumn; v1Column2: TcxGridDBColumn; v1Column4: TcxGridDBColumn; v1Column6: TcxGridDBColumn; ClientDataSet2: TClientDataSet; RMDBDataSet2: TRMDBDataSet; Label4: TLabel; COHRNAME: TEdit; edit2: TEdit; v1Column7: TcxGridDBColumn; v1Column8: TcxGridDBColumn; Label7: TLabel; XGGORDERNO: TEdit; v1Column10: TcxGridDBColumn; v1Column9: TcxGridDBColumn; v1Column11: TcxGridDBColumn; v1Column13: TcxGridDBColumn; v1Column14: TcxGridDBColumn; v1Column15: TcxGridDBColumn; v1Column16: TcxGridDBColumn; v1Column17: TcxGridDBColumn; v1Column18: TcxGridDBColumn; v1Column20: TcxGridDBColumn; v1Column21: TcxGridDBColumn; v1Column22: TcxGridDBColumn; v1Column23: TcxGridDBColumn; v1Column24: TcxGridDBColumn; v1Column25: TcxGridDBColumn; v1Column26: TcxGridDBColumn; v1Column27: TcxGridDBColumn; edit1: TComboBox; Edit3: TEdit; ComboBox2: TComboBox; v1Column3: TcxGridDBColumn; v1Column12: TcxGridDBColumn; Label5: TLabel; Label6: TLabel; chkYDD: TCheckBox; chkWDD: TCheckBox; chkwzb: TCheckBox; chkDYZ: TCheckBox; chkFXPWWC: TCheckBox; chkFDPZ: TCheckBox; cbbISSaved: TComboBox; Label8: TLabel; v1Column19: TcxGridDBColumn; Panel6: TPanel; Label9: TLabel; LBCPAP: TLabel; BTLP: TButton; BTNP: TButton; cxTabControl1: TcxTabControl; CheckBox1: TCheckBox; v1Column28: TcxGridDBColumn; TCBNOR: TEdit; Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; lbl1: TLabel; chkslt: TCheckBox; Tv1Column3: TcxGridDBColumn; Label1: TLabel; XGOrderNo: TEdit; CheckBox2: TCheckBox; Tv1Column4: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBEditClick(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure TBExportClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure TBAddClick(Sender: TObject); procedure M_HXCODEChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBViewClick(Sender: TObject); procedure Picture4DblClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure FormDestroy(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure cxTabControl1CanClose(Sender: TObject; var ACanClose: Boolean); procedure cxTabControl1Change(Sender: TObject); procedure edit1Change(Sender: TObject); procedure ComboBox2Change(Sender: TObject); procedure cbbISSavedChange(Sender: TObject); procedure chkYDDClick(Sender: TObject); procedure chkwzbClick(Sender: TObject); procedure chkWDDClick(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure v1Column15PropertiesCustomClick(Sender: TObject); procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); procedure TBCopyClick(Sender: TObject); procedure M_HXCODEKeyPress(Sender: TObject; var Key: Char); procedure BTLPClick(Sender: TObject); procedure BTNPClick(Sender: TObject); procedure N3Click(Sender: TObject); procedure TCBNORKeyPress(Sender: TObject; var Key: Char); procedure ToolButton5Click(Sender: TObject); private FInt, PFInt: Integer; CurrentPage, RecordsNumber: Integer; procedure InitGrid(); procedure InitForm(); function DelData(): Boolean; procedure InitButton(); procedure LookImage(FileName: string); procedure InitImage(); { Private declarations } public canshu1, FCheJian, FCXMG: string; FChtType: string; fFlileFlag: string; CXTJ1, CXZ1: string; CXTJ2, CXZ2: string; { Public declarations } end; var frmSketchManageListD: TfrmSketchManageListD; implementation uses U_DataLink, U_Fun, U_ZDYHelp, U_FjList10, U_SketchManage, U_QXGL, U_OrderInPut; //U_ShuttleClothSCInPut2 {$R *.dfm} procedure TfrmSketchManageListD.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TfrmSketchManageListD.InitButton(); begin end; procedure TfrmSketchManageListD.TBCloseClick(Sender: TObject); begin WriteCxGrid(Trim(self.Caption), Tv1, '坯布生产管理'); Close; end; procedure TfrmSketchManageListD.InitGrid(); var fwhere, Pwhere: string; begin fwhere := ''; Pwhere := SGetFilters(Panel1, 1, 2); if trim(Pwhere) <> '' then fwhere := fwhere + ' AND ' + trim(Pwhere); if (Edit1.Text <> '') and (edit2.Text <> '') then begin fwhere := fwhere + ' AND ' + trim(cxz1) + ' like ' + quotedstr('%' + edit2.Text + '%') end; if (ComboBox2.Text <> '') and (edit3.Text <> '') then begin fwhere := fwhere + ' AND ' + trim(cxz2) + ' like ' + quotedstr('%' + edit3.Text + '%'); end; if Trim(cbbISSaved.Text) = '已存档' then begin fwhere := fwhere + ' AND AA.ISSaved=1 ' end; if Trim(cbbISSaved.Text) = '未存档' then begin fwhere := fwhere + ' AND AA.ISSaved=0 '; end; if chkYDD.Checked then // fwhere := fwhere + ' AND isnull(AA.ORDERNO,'''')<>'''' '; fwhere := fwhere + ' AND isnull(DDTYPE2,'''')=''订单'' '; if chkWDD.Checked then // fwhere := fwhere + ' AND isnull(AA.ORDERNO,'''')='''' '; fwhere := fwhere + ' AND isnull(DDTYPE2,'''')=''打样'' '; if chkwzb.Checked then fwhere := fwhere + ' AND isnull(AA.G_ZBDATE,'''')='''' '; if chkslt.Checked then fwhere := fwhere + ' AND not EXISTS(select X.FilesOther from TP_File X where X.TFType=''MGSLT'' and X.WBID=AA.MgId ) '; if chkDYZ.Checked then fwhere := fwhere + ' AND EXISTS(select X.XMNAME from Sketch_XMAP X where X.XMNAME=''小片'' and X.MgId=AA.MgId and isnull(X.XMAPSJ,'''')<>'''' and isnull(X.XMWCSJ,'''')='''') '; if chkFXPWWC.Checked then fwhere := fwhere + ' AND EXISTS(select X.XMNAME from Sketch_XMAP X where X.XMNAME=''小片'' and X.MgId=AA.MgId and isnull(X.XMWCSJ,'''')='''' and DATEDIFF(dd,X.XMAPSJ,GETDATE() )>=5) '; if chkFDPZ.Checked then fwhere := fwhere + ' AND EXISTS(select X.XMNAME from Sketch_XMAP X where X.XMNAME=''大片'' and X.MgId=AA.MgId and isnull(X.XMAPSJ,'''')<>'''' and isnull(X.XMWCSJ,'''')='''') '; if CheckBox2.Checked then begin fwhere := fwhere + 'AND isnull(AA.G_ZBDATE,'''')<>'''' and not exists(select * from Sketch_XMAP X where X.MgId=AA.MgId ) '; end; if FCXMG <> '' then begin fwhere := fwhere + ' AND MGID IN (' + FCXMG + ') '; end; if Trim(XGOrderNo.Text) <> '' then begin fwhere := fwhere + ' AND MGID IN (select distinct Y.MGMainId from JYOrder_Main X inner join JYOrder_Sub Y on X.MainId=Y.MainId where X.OrderNo like ' + Quotedstr('%' + Trim(XGOrderNo.Text) + '%') + ') '; end; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.Add(' select top ' + inttostr(RecordsNumber) + ' temp_row.* '); // where Y.MGMainId=temp_row.MgId sql.Add(' ,XGOrderno=cast((select distinct X.OrderNO +'' '' from JYOrder_Main X inner join JYOrder_Sub Y on X.MainId=Y.MainId AND Y.MGMainId=temp_row.MgId for xml path('''') ) as varchar(1000)) '); sql.Add(' ,BQSD=(select top 1 ''查看'' from Sketch_BQSD X where X.HxCode=temp_row.M_HXCODE and isnull(X.SQKHNAME,'''')<>'''' ) '); sql.Add(' ,DTP=(case when isnull(IMG_SJT,'''')<>'''' then ''设计稿'' else '''' end) '); sql.Add(' ,SLT=(select top 1 FilesOther from TP_File X where X.WBID=temp_row.MGID and X.TFType=''MGSLT'' ) '); sql.Add(' , XXMNOTE=Replace(cast((select isnull(XMNOTE,'''')+'' ;'' '); sql.Add(' from Sketch_XMAP X where X.XMNAME=''小片'' and X.MgId=temp_row.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); sql.Add(' , DXMNOTE=Replace(cast((select isnull(XMNOTE,'''')+'' ;'' '); sql.Add(' from Sketch_XMAP X where X.XMNAME=''大片'' and X.MgId=temp_row.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); sql.Add(' , XXMAPSJ=Replace(cast((select ''开始：''+convert(varchar(10),X.XMAPSJ,120)+'' 完成：''+isnull(convert(varchar(10),X.XMWCSJ,120),'''')+'' ;'' '); sql.Add(' from Sketch_XMAP X where X.XMNAME=''小片'' and X.MgId=temp_row.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); sql.Add(' , DXMAPSJ=Replace(cast((select ''开始：''+convert(varchar(10),X.XMAPSJ,120)+'' 完成：''+isnull(convert(varchar(10),X.XMWCSJ,120),'''')+'' ;'' '); sql.Add(' from Sketch_XMAP X where X.XMNAME=''大片'' and X.MgId=temp_row.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); sql.Add('from (select row_number() over(order by AA.FILLTIME DESC ) as rownumber '); //--序号 sql.Add(',COUNT(1) OVER() AS TotalCount '); //总记录数 sql.Add(',* from ( '); sql.Add(' select A.*,M_DBSPEC1=(M_DBSPEC+''/''+isnull(M_DBNAME,'''')) '); sql.Add(' ,COHRNAME=ISNULL((select top 1 COHRNAME from COMPANY X where X.CONAME=A.M_KHNAME and COTYPE=''客户'' AND VALID=''Y'' ),M_KHNAME) '); sql.Add(' ,XGGOrderNo=orderno+'';''+cast((select distinct X.OrderNO +'' '' from JYOrder_Main X inner join JYOrder_Sub Y on X.MainId=Y.MainId AND Y.MGMainId=A.MGID for xml path('''') ) as varchar(1000)) '); SQL.Add(',DDTYPE2=(CASE WHEN (SELECT COUNT(MGMainId) FROM JYOrder_Sub Y WHERE Y.MGMainId=a.MgId AND MGMainId IS NOT NULL)>0 THEN ''订单'' else M_TYPE end) '); SQL.Add(' FROM Sketch_MAIN A'); sql.Add(' where 1=1 '); if CheckBox1.Checked then begin sql.Add('AND A.FILLTIME>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' '); sql.Add('and A.FILLTIME<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); end; sql.Add(' ) AA where 1=1 '); sql.Add(fwhere); sql.Add(') temp_row'); sql.Add(' where rownumber> ' + inttostr((CurrentPage - 1) * RecordsNumber)); // ShowMessage(SQL.Text); Open; end; // try // ADOQueryMain.DisableControls; // with ADOQueryMain do // begin // Filtered := False; // Close; // sql.Clear; // sql.Add(' select top ' + inttostr(RecordsNumber) + ' temp_row.* FROM ( '); // // SQL.Add('select a.*'); // // where Y.MGMainId=temp_row.MgId // sql.Add(',DDTYPE2=(CASE WHEN (SELECT COUNT(MAINID) FROM JYOrder_Sub Y WHERE Y.MGMainId=a.MgId)>0 THEN ''订单'' else M_TYPE end)'); // sql.Add(' ,XGOrderno=cast((select distinct X.OrderNO +'' '' from JYOrder_Main X inner join JYOrder_Sub Y on X.MainId=Y.MainId AND Y.MGMainId=a.MgId for xml path('''') ) as varchar(1000)) '); // sql.Add(' ,XGGOrderNo=orderno+'';''+cast(ISNULL((select distinct X.OrderNO +'' '' from JYOrder_Main X inner join JYOrder_Sub Y on X.MainId=Y.MainId AND Y.MGMainId=A.MGID for xml path('''') ),'''') as varchar(1000)) '); // sql.Add(' ,BQSD=(select top 1 ''查看'' from Sketch_BQSD X where X.HxCode=a.M_HXCODE and isnull(X.SQKHNAME,'''')<>'''' ) '); // sql.Add(' ,DTP=(case when isnull(IMG_SJT,'''')<>'''' then ''设计稿'' else '''' end) '); // sql.Add(' ,SLT=(select top 1 FilesOther from TP_File X where X.WBID=a.MGID and X.TFType=''MGSLT'' ) '); // // sql.Add(' , XXMNOTE=Replace(cast((select isnull(XMNOTE,'''')+'' ;'' '); // sql.Add(' from Sketch_XMAP X where X.XMNAME=''小片'' and X.MgId=a.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); // // sql.Add(' , DXMNOTE=Replace(cast((select isnull(XMNOTE,'''')+'' ;'' '); // sql.Add(' from Sketch_XMAP X where X.XMNAME=''大片'' and X.MgId=a.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); // // sql.Add(' , XXMAPSJ=Replace(cast((select ''开始：''+convert(varchar(10),X.XMAPSJ,120)+'' 完成：''+isnull(convert(varchar(10),X.XMWCSJ,120),'''')+'' ;'' '); // sql.Add(' from Sketch_XMAP X where X.XMNAME=''小片'' and X.MgId=a.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); // sql.Add(' , DXMAPSJ=Replace(cast((select ''开始：''+convert(varchar(10),X.XMAPSJ,120)+'' 完成：''+isnull(convert(varchar(10),X.XMWCSJ,120),'''')+'' ;'' '); // sql.Add(' from Sketch_XMAP X where X.XMNAME=''大片'' and X.MgId=a.MgId for xml path('''')) as varchar(500)) ,'';'',char(13)) '); // sql.Add(',row_number() over(order by A.FILLTIME DESC ) as rownumber'); //// sql.Add('from (select row_number() over(order by A.FILLTIME DESC ) as rownumber '); //--序号 // sql.Add(',COUNT(1) OVER() AS TotalCount '); //总记录数 // SQL.Add(' FROM Sketch_MAIN A'); // sql.Add(' where 1=1 '); // SQL.Add(')temp_row '); // sql.Add(' where rownumber> ' + inttostr((CurrentPage - 1) * RecordsNumber)); // if CheckBox1.Checked then // begin // sql.Add('AND FILLTIME>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' '); // sql.Add('and FILLTIME<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); // end; // // sql.Add(fwhere); //// sql.Add(') temp_row'); //// sql.Add(' where rownumber> ' + inttostr((CurrentPage - 1) * RecordsNumber)); // ShowMessage(SQL.Text); // Open; // end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber)); lbl1.Caption := '记录条数:' + Order_Main.FieldByName('TotalCount').AsString; finally ADOQueryMain.EnableControls; end; end; procedure TfrmSketchManageListD.InitForm(); begin // InitButton(); CurrentPage := 1; RecordsNumber := 30; TCBNOR.Text := '30'; fFlileFlag := UserDataFlag + 'HX'; ReadCxGrid(Trim(self.Caption), Tv1, '坯布生产管理'); BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 30; EndDate.DateTime := SGetServerDate10(ADOQueryTemp); InitGrid(); end; procedure TfrmSketchManageListD.TBEditClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmSketchManage := TfrmSketchManage.Create(Application); with frmSketchManage do begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MGID').AsString); canshu1 := Self.canshu1; if ShowModal = 1 then begin InitGrid(); Self.Order_Main.Locate('MGID', frmSketchManage.FMainId, []); end; end; finally frmSketchManage.Free; end; end; procedure TfrmSketchManageListD.TBDelClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; if Order_Main.FieldByName('G_ZBDATE').AsString <> '' then begin Application.MessageBox('已经有制版日期，不能删除！', '提示', 0); Exit; end; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; if DelData() then begin Order_Main.Delete; end; end; function TfrmSketchManageListD.DelData(): Boolean; begin try Result := false; ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete Sketch_main where MGID=''' + Trim(Order_Main.fieldbyname('MGID').AsString) + ''''); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; Result := True; except ADOQueryCmd.Connection.RollbackTrans; Result := False; Application.MessageBox('数据删除异常！', '提示', 0); end; end; procedure TfrmSketchManageListD.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then Exit; TcxGridToExcel('坯布生产单', cxGrid1); end; procedure TfrmSketchManageListD.TBRafreshClick(Sender: TObject); begin BegDate.SetFocus; CurrentPage := 1; InitGrid(); end; procedure TfrmSketchManageListD.TBAddClick(Sender: TObject); begin try frmSketchManage := TfrmSketchManage.Create(Application); with frmSketchManage do begin PState := 0; FMainId := ''; FSubId := ''; canshu1 := Self.canshu1; if ShowModal = 1 then begin InitGrid(); end; end; finally frmSketchManage.Free; end; end; procedure TfrmSketchManageListD.M_HXCODEChange(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 TfrmSketchManageListD.FormShow(Sender: TObject); begin InitForm(); end; procedure TfrmSketchManageListD.TBViewClick(Sender: TObject); begin try frmSketchManage := TfrmSketchManage.Create(Application); with frmSketchManage do begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MGID').AsString); ftype := '查看'; canshu1 := Self.canshu1; // TBSave.Visible := False; // ToolBar3.Visible := False; // ScrollBox1.Enabled := False; if ShowModal = 1 then begin end; end; finally frmSketchManage.Free; end; end; procedure TfrmSketchManageListD.Picture4DblClick(Sender: TObject); begin if TcxDBImage(Sender).Picture.Height = 0 then exit; LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); end; procedure TfrmSketchManageListD.LookImage(FileName: string); var sFieldName: string; begin sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\图片查看'; if not DirectoryExists(pchar(sFieldName)) then CreateDirectory(pchar(sFieldName), nil); sFieldName := sFieldName + '\' + trim(FileName); try IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '服务器地址', '127.0.0.1'); IdFTP1.Username := 'three'; IdFTP1.Password := '641010'; IdFTP1.Connect(); except ; end; if IdFTP1.Connected then begin // Panel2.Caption := '正在下载数据，请稍等...'; // Panel2.Visible := true; application.ProcessMessages; try // ShowMessage(PChar(fFlileFlag + '\' + Trim(FileName))); IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false); except // Panel2.Visible := false; Application.MessageBox('客户图样文件不存在', '提示', MB_ICONWARNING); IdFTP1.Quit; Exit; end; end else begin // Panel2.Visible := false; Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING); IdFTP1.Quit; Exit; end; // Panel2.Visible := false; if IdFTP1.Connected then IdFTP1.Quit; ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); end; procedure TfrmSketchManageListD.InitImage(); begin ADOQueryImage.Close; if Order_Main.IsEmpty then exit; // with ADOQueryImage do // begin // close; // sql.Clear; // sql.Add('select * from TP_File A'); // sql.Add('where mgid=' + quotedstr(trim(Order_Main.fieldbyname('mgid').AsString))); // sql.Add('and TFType=' + quotedstr(trim('寻样'))); // open; // end; end; procedure TfrmSketchManageListD.ToolButton1Click(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmFjList10 := TfrmFjList10.Create(Application); with frmFjList10 do begin fkeyno := Trim(Self.Order_Main.fieldbyname('MainId').AsString); fType := '分析单'; if ShowModal = 1 then begin end; InitGrid(); end; finally frmFjList10.Free; end; end; procedure TfrmSketchManageListD.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin if TV1.Controller.FocusedColumn.DataBinding.FilterFieldName = 'DTP' then begin if ACellViewInfo.Value = '设计稿' then LookImage(Trim(Self.Order_Main.fieldbyname('IMG_SJT').AsString)); end; if TV1.Controller.FocusedColumn.DataBinding.FilterFieldName = 'BQSD' then begin if ACellViewInfo.Value = '查看' then begin try frmQXGL := TfrmQXGL.Create(Application); with frmQXGL do begin FM_HXCODE := Trim(Self.Order_Main.fieldbyname('M_HXCODE').AsString); if ShowModal = 1 then begin end; end; finally frmQXGL.Free; end; end; end; end; procedure TfrmSketchManageListD.FormDestroy(Sender: TObject); begin frmSketchManageListd := nil; end; procedure TfrmSketchManageListD.ToolButton2Click(Sender: TObject); begin if Order_Main.IsEmpty then exit; try with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Sketch_main SET SHSTATUS=''已审核'',SHtime=getdate(),SHPERSON=' + quotedstr(Trim(DName))); sql.Add('where MGID=' + quotedstr(trim(Order_Main.fieldbyname('MGID').AsString))); execsql; end; application.MessageBox('已完成！', '提示信息'); TBRafresh.Click; except application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmSketchManageListD.ToolButton3Click(Sender: TObject); begin if Order_Main.IsEmpty then exit; try with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Sketch_main SET SHSTATUS=''未审核'',SHtime=NULL,SHPERSON=NULL'); sql.Add('where MGID=' + quotedstr(trim(Order_Main.fieldbyname('MGID').AsString))); execsql; end; application.MessageBox('操作成功！', '提示信息'); TBRafresh.Click; except application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmSketchManageListD.cxTabControl1CanClose(Sender: TObject; var ACanClose: Boolean); begin InitGrid(); end; procedure TfrmSketchManageListD.cxTabControl1Change(Sender: TObject); begin InitGrid(); end; procedure TfrmSketchManageListD.edit1Change(Sender: TObject); begin CXTJ1 := ''; CXZ1 := ''; if edit1.Text <> '' then begin CXTJ1 := edit1.Text; if CXTJ1 = '客户花型' then begin CXZ1 := 'M_KHHX'; end else if CXTJ1 = '工厂花型' then begin CXZ1 := 'G_FACTORYHX'; end else if CXTJ1 = '工厂' then begin CXZ1 := 'G_FACTORYNAME'; end else if CXTJ1 = '花型类型' then begin CXZ1 := 'M_HXTYPE'; end else if CXTJ1 = '底布规格' then begin CXZ1 := 'M_DBSPEC'; end else if CXTJ1 = '业务员' then begin CXZ1 := 'YWY'; end else if CXTJ1 = '制版公司编码' then begin CXZ1 := 'G_ZBFACTORYCODE'; end else if CXTJ1 = '制版公司' then begin CXZ1 := 'G_ZBFACTORYNAME'; end else if CXTJ1 = '手刮样等级' then begin CXZ1 := 'G_SGYDJ'; end else if CXTJ1 = '制单人' then begin CXZ1 := 'FILLER'; end; end; end; procedure TfrmSketchManageListD.ComboBox2Change(Sender: TObject); begin CXTJ2 := ''; CXZ2 := ''; if ComboBox2.Text <> '' then begin CXTJ2 := ComboBox2.Text; if CXTJ2 = '客户花型' then begin CXZ2 := 'M_KHHX'; end else if CXTJ2 = '工厂花型' then begin CXZ2 := 'G_FACTORYHX'; end else if CXTJ2 = '工厂' then begin CXZ2 := 'G_FACTORYNAME'; end else if CXTJ2 = '花型类型' then begin CXZ2 := 'M_HXTYPE'; end else if CXTJ2 = '底布规格' then begin CXZ2 := 'M_DBSPEC'; end else if CXTJ2 = '业务员' then begin CXZ2 := 'YWY'; end else if CXTJ2 = '制版公司编码' then begin CXZ2 := 'G_ZBFACTORYCODE'; end else if CXTJ2 = '制版公司' then begin CXZ2 := 'G_ZBFACTORYNAME'; end else if CXTJ2 = '手刮样等级' then begin CXZ2 := 'G_SGYDJ'; end else if CXTJ2 = '制单人' then begin CXZ2 := 'filler'; end; end; end; procedure TfrmSketchManageListD.cbbISSavedChange(Sender: TObject); begin InitGrid(); end; procedure TfrmSketchManageListD.chkYDDClick(Sender: TObject); begin if chkYDD.Checked then chkWDD.Checked := False; CurrentPage := 1; InitGrid(); end; procedure TfrmSketchManageListD.chkwzbClick(Sender: TObject); begin CurrentPage := 1; InitGrid(); end; procedure TfrmSketchManageListD.chkWDDClick(Sender: TObject); begin if chkWDD.Checked then chkYDD.Checked := False; CurrentPage := 1; InitGrid(); end; procedure TfrmSketchManageListD.ToolButton4Click(Sender: TObject); begin if Order_Main.IsEmpty then exit; try while Order_Main.Locate('SSel', True, []) do begin with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Sketch_main SET ISSaved=1,ISSaveDate=getdate()'); sql.Add('where MGID=' + quotedstr(trim(Order_Main.fieldbyname('MGID').AsString))); execsql; end; with Order_Main do begin Edit; FieldByName('SSel').Value := False; FieldByName('ISSaved').Value := True; Post; end; end; except application.MessageBox('操作失败！', '提示信息', 0); end; end; procedure TfrmSketchManageListD.v1Column15PropertiesCustomClick(Sender: TObject); begin Application.MessageBox('已经有制版日期，不能删除！', '提示', 0); end; procedure TfrmSketchManageListD.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); var FValue: string; FBounds: TRect; begin FBounds := AViewInfo.Bounds; if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then begin ACanvas.FillRect(FBounds); ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1); FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); InflateRect(FBounds, -1, -1); //Platform specific. May not work on Linux. ACanvas.Font.Color := clBlack; ACanvas.Brush.Style := bsClear; ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); ADone := True; end; end; procedure TfrmSketchManageListD.TBCopyClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; try frmSketchManage := TfrmSketchManage.Create(Application); with frmSketchManage do begin CopyInt := 99; PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('MGID').AsString); canshu1 := Self.canshu1; if ShowModal = 1 then begin InitGrid(); Self.Order_Main.Locate('MGID', frmSketchManage.FMainId, []); end; end; finally frmSketchManage.Free; end; end; procedure TfrmSketchManageListD.M_HXCODEKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin CurrentPage := 1; InitGrid(); end; end; procedure TfrmSketchManageListD.BTLPClick(Sender: TObject); begin if CurrentPage > 1 then CurrentPage := CurrentPage - 1; InitGrid(); end; procedure TfrmSketchManageListD.BTNPClick(Sender: TObject); begin if CurrentPage < Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber then CurrentPage := CurrentPage + 1; InitGrid(); end; procedure TfrmSketchManageListD.N3Click(Sender: TObject); begin Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); end; procedure TfrmSketchManageListD.TCBNORKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin RecordsNumber := StrToIntDef(TCBNOR.Text, 10); CurrentPage := 1; InitGrid(); end; end; procedure TfrmSketchManageListD.ToolButton5Click(Sender: TObject); begin if Order_Main.IsEmpty then Exit; if order_Main.fieldbyname('frommainid').AsString = '' then begin application.MessageBox('无订单信息！', '提示信息', 0); exit; end; try frmOrderInPut := TfrmOrderInPut.Create(Application); with frmOrderInPut do begin PState := 1; FMainId := Trim(Self.Order_Main.fieldbyname('frommainid').AsString); ToolBar2.Visible := False; TBSave.Visible := False; ToolButton3.Visible := False; ScrollBox1.Enabled := False; cxGrid1.Enabled := False; if ShowModal = 1 then begin end; end; finally frmOrderInPut.Free; end; end; end.