unit U_XYHDBLYList; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math; type TMyF = function(App: TApplication; //主应用程序 (对Delphi而言) FormH: HWND; //创建窗口的父窗口句柄 (对PB而言) FormID: Integer; //要调用dll中功能窗体的Id号; 如果只有一个功能窗口，FormID默认为0 Language: Integer; //0=Delphi; 1=PB WinStyle: Integer; //0=子窗口; 1：普通窗口 (PB中都为普通窗口) UID: PChar; //用户Id UName: PChar; //用户名 Para: PChar; Title: PChar; Defstr1: PChar; Defstr2: PChar; Defstr3: PChar; Defstr4: PChar; Defstr5: PChar; Defstr6: PChar; Defstr7: PChar; Defstr8: PChar; Defstr9: PChar; Defstr10: PChar; Datalink: PChar): HWND; stdcall; TfrmXYHDBLYLIST = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBClose: TToolButton; Panel1: TPanel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; Tv1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; cxGrid1: TcxGrid; cxGridPopupMenu1: TcxGridPopupMenu; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; Label3: TLabel; OrderNo: TEdit; v1OrderNo: TcxGridDBColumn; v1OrdDate: TcxGridDBColumn; v1DeliveryDate: TcxGridDBColumn; v1ConNo: TcxGridDBColumn; v1MPRTSpec: TcxGridDBColumn; Order_Main: TClientDataSet; RM1: TRMGridReport; RMDBMain: TRMDBDataSet; RMXLSExport1: TRMXLSExport; v1CustomerNoName: TcxGridDBColumn; Label4: TLabel; CustomerNoName: TEdit; v1MPRTCodeName: TcxGridDBColumn; v1MPRTMF: TcxGridDBColumn; PopupMenu1: TPopupMenu; N2: TMenuItem; Label8: TLabel; MPRTCodeName: TEdit; Label9: TLabel; ConNo: TEdit; v1MPRTKZ: TcxGridDBColumn; Label10: TLabel; MPRTSpec: TEdit; Label11: TLabel; MPRTCode: TEdit; Label12: TLabel; MPRTKZ: TEdit; Label13: TLabel; KHConNo: TEdit; ADOQueryPrint: TADOQuery; CDS_Print: TClientDataSet; v1Column2: TcxGridDBColumn; v1Column3: TcxGridDBColumn; ADOQuerySub: TADOQuery; DataSource2: TDataSource; v1Column5: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; JGType: TEdit; Label2: TLabel; v1Column8: TcxGridDBColumn; ADOQueryImage: TADOQuery; DSImage: TDataSource; IdFTP1: TIdFTP; v1Column4: TcxGridDBColumn; v1Column1: TcxGridDBColumn; RMDBMX: TRMDBDataSet; CDSPRTMX: TClientDataSet; CDSPRTHZ: TClientDataSet; RMDBHZ: TRMDBDataSet; RM2: TRMGridReport; v1Column9: TcxGridDBColumn; v1Column12: TcxGridDBColumn; v1Column13: TcxGridDBColumn; v1Column14: TcxGridDBColumn; v1Column15: TcxGridDBColumn; N1: TMenuItem; v1Column16: TcxGridDBColumn; RMJPEGExport1: TRMJPEGExport; RMDB_Main2: TRMDBDataSet; CDS_Main2: TClientDataSet; CDS_Main3: TClientDataSet; RMDB_Main3: TRMDBDataSet; ADOQuery1: TADOQuery; v1Column17: TcxGridDBColumn; Label6: TLabel; YWY: TEdit; ORDER_SUB: TClientDataSet; PopupMenu2: TPopupMenu; N3: TMenuItem; N4: TMenuItem; Label25: TLabel; PRTHXHZ: TEdit; RM3: TRMGridReport; Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; yin1: TMenuItem; Tv1Column3: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; ComboBox1: TComboBox; N5: TMenuItem; N6: TMenuItem; Tv1Column5: TcxGridDBColumn; ADOQuery2: TADOQuery; VCWTJL: TcxGridDBColumn; Label1: TLabel; FILLER: TEdit; Tv1Column6: TcxGridDBColumn; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; cxStyleRepository2: TcxStyleRepository; cxStyle2: TcxStyle; cxStyle3: TcxStyle; VC_LYSL: TcxGridDBColumn; cxStyle4: TcxStyle; VC_ISRK: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; ToolButton1: TToolButton; ToolButton2: TToolButton; Tv1Column10: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure OrderNoMChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBTPClick(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure N1Click(Sender: TObject); procedure OrderNoKeyPress(Sender: TObject; var Key: Char); procedure ConNoKeyPress(Sender: TObject; var Key: Char); procedure cxTabControl1Change(Sender: TObject); procedure TWCClick(Sender: TObject); procedure TNowcClick(Sender: TObject); procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); procedure ToolButton10Click(Sender: TObject); procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); private DQdate: TDateTime; procedure InitGrid(); procedure InitForm(); function DelData(): Boolean; procedure InitGridFH(); procedure InitImage(fwbid: string); { Private declarations } public FFInt, FCloth: Integer; fDConString_link1: string; canshu1, canshu2: string; fFlileFlag: string; FNOTE: string; procedure InitDllEvt(FromFile: string; FormID: Integer; Para: string; FormType: Integer; Title: string; Def1: string; Def2: string; Def3: string; Def4: string; Def5: string; Def6: string; Def7: string; Def8: string; Def9: string; Def10: string); { Public declarations } end; var frmXYHDBLYLIST: TfrmXYHDBLYLIST; TP: FARPROC; Tf: TMyF; implementation uses U_DataLink, U_Fun, U_ZDYHelp; {$R *.dfm} procedure TfrmXYHDBLYLIST.InitDllEvt(FromFile: string; FormID: Integer; Para: string; FormType: Integer; Title: string; Def1: string; Def2: string; Def3: string; Def4: string; Def5: string; Def6: string; Def7: string; Def8: string; Def9: string; Def10: string); var Th: HMODULE; begin Th := LoadLibrary(PChar(FromFile)); if Th > 0 then begin TP := GetProcAddress(Th, 'GetDllForm'); if TP <> nil then begin Tf := TMyF(Tp); Tf(Application, 0, FormID, 0, FormType, PChar(DCode), PChar(DName), PChar(Para), PChar(Title), PChar(Def1), PChar(Def2), PChar(Def3), PChar(Def4), PChar(Def5), PChar(Def6), PChar(Def7), PChar(Def8), PChar(Def9), PChar(Def10), pchar(fDConString_link1)); end; end else begin Application.MessageBox(PChar('打不开文件' + FromFile + '！'), '错误', MB_ICONERROR); end; end; procedure TfrmXYHDBLYLIST.InitImage(fwbid: string); begin ADOQueryImage.close; if fwbid = '' then exit; with ADOQueryImage do begin close; sql.Clear; sql.Add('select * from TP_File A'); sql.Add('where WBID=' + quotedstr(trim(fwbid))); open; end; end; procedure TfrmXYHDBLYLIST.FormDestroy(Sender: TObject); begin // frmProductOrderList:=nil; end; procedure TfrmXYHDBLYLIST.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TfrmXYHDBLYLIST.FormCreate(Sender: TObject); begin cxgrid1.Align := alClient; DQdate := SGetServerDate(ADOQueryTemp); end; procedure TfrmXYHDBLYLIST.TBCloseClick(Sender: TObject); begin WriteCxGrid(Self.Caption, Tv1, '生产指示单管理7'); Close; end; procedure TfrmXYHDBLYLIST.InitGrid(); var STRwhere, Pwhere: string; begin STRwhere := ''; //if Trim(canshu1) = '录入' then Pwhere := SGetFilters(Panel1, 1, 2); begin if trim(Pwhere) <> '' then STRwhere := STRwhere + ' and ' + trim(Pwhere); end; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.add('SELECT A.*,A.OrderNo OrderNoM , '); sql.Add('LYSL=(SELECT SUM(Qty)FROM CK_Sample_CR B WHERE b.orderno=a.orderno and crflag=''入库'' )'); sql.Add(',GGYSL=(SELECT SUM(Qty) FROM CYGG_InOut B WHERE b.FromOrderNo=a.orderno and crflag=''入库'')'); SQL.Add(',PRTHXHZ=cast((select B.PRTHX+'';'' from JYOrder_Sub B where B.MainId=A.MainId for xml path('''')) as varchar(200)),'); SQL.Add('WTJL=(select COUNT(X.MainId) from JyOrder_Main_Jd X where X.MainId=A.MainId and X.hasProblem=1),'); SQL.Add('OrderQty=(select Sum(PRTOrderQty) from JYOrder_Sub B where B.MainId=A.MainId group by B.MainId),'); SQL.Add('ZQty=(select Sum(PRTOrderQty) from JYOrder_Sub B where B.MainId=A.MainId group by B.MainId),'); SQL.Add('OrderUnit=(select Top 1 OrderUnit from JYOrder_Sub B where B.MainId=A.MainId),'); SQL.Add('PriceUnit=(select Top 1 PriceUnit from JYOrder_Sub B where B.MainId=A.MainId),'); SQL.Add('PRTPrice=(select Top 1 PRTPrice from JYOrder_Sub B where B.MainId=A.MainId),'); // SQL.Add('JdName=(select top 1 X.JdName from JyOrder_Main_Jd X where X.MainId=A.MainId order by X.idx desc ),'); sql.Add(' JdName= [dbo].[F_Get_OrdJD](A.MainId ), '); SQL.Add('CKDATE=(SELECT TOP 1 FHDate FROM FHSQ_Main F INNER JOIN FHSQ_SUB G ON F.FSID=G.FSID WHERE SCCONNO=A.ORDERNO ORDER BY FHDATE DESC),'); SQL.Add('RKDATE=(SELECT TOP 1 CRTIME FROM CK_BanCP_CR G WHERE G.MAINID=A.MAINID ORDER BY CRTIME DESC),'); SQL.Add('YSSL=(select SUM(1) from JYOrder_Sub B where B.MainId=A.MainId),'); SQL.Add('ISRK=CASE when(SELECT count(1) FROM CK_BanCP_CR B where B.MainId=A.MainId and B.CRFlag=''入库'' )>0 then ''是'' else ''否'' end,'); SQL.Add(' SLBName=(select Top 1 SLBName from JYOrder_Sub B where B.MainId=A.MainId)'); SQL.Add('FROM JYORDER_MAIN A'); SQL.Add('WHERE SCXDH like ''%首次下%'' and jgtype in (''印花'',''数码印花'') '); SQL.Add(STRwhere); if ComboBox1.Text = '制单日期' then begin sql.Add('and OrdDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' '); sql.Add('and OrdDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); SQL.Add('ORDER BY OrdDate DESC'); end; if ComboBox1.Text = '交货日期' then begin sql.Add('and DlyDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' '); sql.Add('and DlyDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); SQL.Add('ORDER BY DlyDate DESC'); end; // ShowMessage(SQL.Text); Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; procedure TfrmXYHDBLYLIST.InitGridFH(); begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.Add('exec Order_QryList :MainId,:WSql'); Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''; Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; procedure TfrmXYHDBLYLIST.InitForm(); begin ReadCxGrid(Self.Caption, Tv1, '生产指示单管理7'); BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 180; EndDate.DateTime := SGetServerDate10(ADOQueryTemp); InitGrid(); end; procedure TfrmXYHDBLYLIST.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active = False then Exit; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); end; function TfrmXYHDBLYLIST.DelData(): Boolean; begin try Result := false; ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete JYOrder_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); sql.Add('delete JYOrder_Sub where MainId=''' + 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('OrderNO').AsString)))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; Result := True; except ADOQueryCmd.Connection.RollbackTrans; Result := False; Application.MessageBox('数据删除异常！', '提示', 0); end; end; procedure TfrmXYHDBLYLIST.TBRafreshClick(Sender: TObject); begin InitGrid(); end; procedure TfrmXYHDBLYLIST.OrderNoMChange(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 TfrmXYHDBLYLIST.FormShow(Sender: TObject); begin fFlileFlag := UserDataFlag + 'HX'; fDConString_link1 := Trim(DConString); InitForm(); end; procedure TfrmXYHDBLYLIST.TBTPClick(Sender: TObject); var FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string; begin end; procedure TfrmXYHDBLYLIST.CheckBox1Click(Sender: TObject); begin InitGrid(); end; procedure TfrmXYHDBLYLIST.CheckBox2Click(Sender: TObject); begin TBRafresh.Click; end; procedure TfrmXYHDBLYLIST.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); var id, id10: Integer; begin {try if Tv1.GroupedItemCount=0 then begin Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount; Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount; if Trim(VarToStr(ARecord.Values[id]))='' then Exit; if Id<0 then Exit; if ARecord.Values[id10]='完成' then exit; if (ARecord.Values[id]-DQdate)>=4 then Exit; if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then AStyle:=DataLink_.QHuangSe else if ARecord.Values[id]-DQdate<0 then begin AStyle:=DataLink_OrderManage.FenHongS; end; end else begin end; except end; } end; procedure TfrmXYHDBLYLIST.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; Id10:=TV1.GetColumnByFieldName('SubStatus').Index; if Id<0 then Exit; if AViewInfo.GridRecord.Values[Id10]='完成' then Exit; if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit; if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then ACanvas.Brush.Color:=clYellow else if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then begin ACanvas.Brush.Color:=clRed; end; begin ACanvas.Brush.Color:=clRed; end else if AViewInfo.GridRecord.Values[Id]='Purple' then begin ACanvas.Brush.Color:=clPurple; end else if AViewInfo.GridRecord.Values[Id]='Olive' then begin ACanvas.Brush.Color:=clOlive; end else if AViewInfo.GridRecord.Values[Id]='Teal' then begin ACanvas.Brush.Color:=clTeal; end else if AViewInfo.GridRecord.Values[Id]='Background' then begin ACanvas.Brush.Color:=clBackground; end; } end; procedure TfrmXYHDBLYLIST.N1Click(Sender: TObject); begin if Order_Main.Locate('SSel', True, []) = False 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 JYOrder_Main SET ZOrderNo=null '); 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(Order_Main.FieldByName('orderNO').AsString) + '合并计划单号：' + trim(Order_Main.FieldByName('ZorderNO').AsString))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); execsql; end; with Order_Main do begin Edit; FieldByName('SSel').Value := False; FieldByName('ZOrderNo').Value := ''; post; end; end; application.MessageBox('取消合并计划单成功！', '提示信息'); except application.MessageBox('取消合并计划单失败！', '提示信息', 0); end; end; procedure TfrmXYHDBLYLIST.OrderNoKeyPress(Sender: TObject; var Key: Char); var STRwhere, Pwhere: string; begin STRwhere := ''; //if Trim(canshu1) = '录入' then Pwhere := SGetFilters(Panel1, 1, 2); begin if trim(Pwhere) <> '' then STRwhere := STRwhere + ' and ' + trim(Pwhere); end; if Key = #13 then begin initgrid(); // try // ADOQueryMain.DisableControls; // with ADOQueryMain do // begin // Filtered := False; // Close; // sql.Clear; // sql.add('exec P_View_Order :begdate,:enddate,:WSql'); // if Trim(canshu1) <> '高权限' then // begin // Parameters.ParamByName('WSql').Value := ' and Filler=''' + Trim(DName) + ''''; // end; // begin // Parameters.ParamByName('WSql').Value := ' and orderno like ''' + '%' + Trim(OrderNoM.Text) + '%' + ''''; // end; // // Parameters.ParamByName('begdate').Value := '1899-01-01'; // Parameters.ParamByName('enddate').Value := '2050-01-01'; // ExecSQL; // Open; // end; // SCreateCDS20(ADOQueryMain, Order_Main); // SInitCDSData20(ADOQueryMain, Order_Main); // finally // ADOQueryMain.EnableControls; // end; end; end; procedure TfrmXYHDBLYLIST.ConNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.add('exec P_View_Order :begdate,:enddate,:WSql'); if Trim(canshu1) <> '高权限' then begin Parameters.ParamByName('WSql').Value := ' and A.Filler=''' + Trim(DName) + ''''; end; begin Parameters.ParamByName('WSql').Value := ' and conno like ''' + '%' + Trim(conno.Text) + '%' + ''''; end; Parameters.ParamByName('begdate').Value := '1899-01-01'; Parameters.ParamByName('enddate').Value := '2050-01-01'; ExecSQL; Open; end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; end; procedure TfrmXYHDBLYLIST.cxTabControl1Change(Sender: TObject); begin InitGrid(); end; procedure TfrmXYHDBLYLIST.TWCClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin Application.MessageBox('不能操作他人的数据!', '提示', 0); Exit; end; if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then Exit; try with ADOQueryCmd do begin close; sql.Clear; sql.Add('update JYOrder_Main SET status=''2'' '); 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('orderNO').AsString)))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); execsql; end; application.MessageBox('订单完成成功！', '提示信息'); TBRafresh.Click; except application.MessageBox('订单完成失败！', '提示信息', 0); end; end; procedure TfrmXYHDBLYLIST.TNowcClick(Sender: TObject); begin if Order_Main.IsEmpty then exit; if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin Application.MessageBox('不能操作他人的数据!', '提示', 0); Exit; end; if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then Exit; try with ADOQueryCmd do begin close; sql.Clear; sql.Add('update JYOrder_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('orderNO').AsString)))); sql.Add(',' + quotedstr(trim('成功'))); sql.Add(')'); execsql; end; application.MessageBox('订单撤销完成成功！', '提示信息'); TBRafresh.Click; except application.MessageBox('订单撤销完成失败！', '提示信息', 0); end; end; procedure TfrmXYHDBLYLIST.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin // initImage(ADOQuerySub.fieldbyname('HXFile').AsString); end; procedure TfrmXYHDBLYLIST.N3Click(Sender: TObject); begin SelOKNo(ORDER_SUB, True); end; procedure TfrmXYHDBLYLIST.N4Click(Sender: TObject); begin SelOKNo(ORDER_SUB, False); end; procedure TfrmXYHDBLYLIST.ComboBox1Change(Sender: TObject); begin InitGrid(); end; procedure TfrmXYHDBLYLIST.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin INITGRID(); end; end; procedure TfrmXYHDBLYLIST.ToolButton10Click(Sender: TObject); begin WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理'); application.MessageBox('保存成功！', '提示信息', 0); end; procedure TfrmXYHDBLYLIST.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin //ISRK // if AViewInfo.GridRecord.Values[VC_ISRK.Index] = '是' then // begin if (AViewInfo.GridRecord.Values[VC_LYSL.Index] > 0) and (AViewInfo.GridRecord.Values[Tv1Column9.Index] > 0) then ACanvas.Brush.Color := $008080FF; // end; end; procedure TfrmXYHDBLYLIST.ToolButton1Click(Sender: TObject); begin InitDllEvt('SampleWarehouse.dll', 213, '', 0, '印花样布入库', '', '', '', '', '', '', '', '', '', ''); end; procedure TfrmXYHDBLYLIST.ToolButton2Click(Sender: TObject); begin // InitDllEvt('YPCK.dll', 111, '', 0, '印花船样挂钩入库', '', '', '', '', '', '', '', '', '', ''); with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from SY_ModuleSub where ModuleId=17'); sql.Add(' and ModuleSubId=1 '); //ShowMessage(SQL.Text); Open; end; if not ADOQueryTemp.IsEmpty then begin InitDllEvt(Trim(ADOQueryTemp.FieldByName('formFile').AsString), ADOQueryTemp.FieldByName('FormID').AsInteger, Trim(ADOQueryTemp.FieldByName('FormPara').AsString), ADOQueryTemp.FieldByName('FormType').AsInteger, Trim(ADOQueryTemp.FieldByName('Formname').AsString), Trim(ADOQueryTemp.FieldByName('FormPara1').AsString), Trim(ADOQueryTemp.FieldByName('FormPara2').AsString), Trim(ADOQueryTemp.FieldByName('FormPara3').AsString), Trim(ADOQueryTemp.FieldByName('FormPara4').AsString), Trim(ADOQueryTemp.FieldByName ('FormPara5').AsString), Trim(ADOQueryTemp.FieldByName('FormPara6').AsString), Trim(ADOQueryTemp.FieldByName('FormPara7').AsString), Trim(ADOQueryTemp.FieldByName('FormPara8').AsString), Trim(ADOQueryTemp.FieldByName('FormPara9').AsString), Trim(ADOQueryTemp.FieldByName('FormPara10').AsString), ); end; end; end.