From 15f3ec4b42ae2303d4282765d29a2e5856d7d6e8 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 15 Oct 2025 15:53:47 +0800 Subject: [PATCH] ~ --- 检验管理/FieldExportSet/检验信息.INI | 2 + 检验管理/TradeManage.dof | 2 +- 检验管理/U_DataLink.pas | 16 +++++- 检验管理/U_JYOrderCDOne.dfm | 10 +++- 检验管理/U_JYOrderCDOne.pas | 85 +++++++++++++++++++++++++++- 5 files changed, 110 insertions(+), 5 deletions(-) create mode 100644 检验管理/FieldExportSet/检验信息.INI diff --git a/检验管理/FieldExportSet/检验信息.INI b/检验管理/FieldExportSet/检验信息.INI new file mode 100644 index 0000000..7cb1db7 --- /dev/null +++ b/检验管理/FieldExportSet/检验信息.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin/ѡ//׺/Ʒ/ɫ/ŷ///ʱ//////Ƥ//ë//õ/ȵλ/õ/״̬/۷/ɫ/ͺ/ͻ/Ⱦ׺/ע//״̬/ӳ/ diff --git a/检验管理/TradeManage.dof b/检验管理/TradeManage.dof index ea0e9c2..4fe9429 100644 --- a/检验管理/TradeManage.dof +++ b/检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJmingqing\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/检验管理/U_DataLink.pas b/检验管理/U_DataLink.pas index 54c5229..8e27ed0 100644 --- a/检验管理/U_DataLink.pas +++ b/检验管理/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index e796dbc..73643f1 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -248,10 +248,18 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne ImageIndex = 75 OnClick = TBExportClick end - object TBClose: TToolButton + object ToolButton13: TToolButton Left = 1042 Top = 30 AutoSize = True + Caption = #36873#25321#23548#20986 + ImageIndex = 56 + OnClick = ToolButton13Click + end + object TBClose: TToolButton + Left = 1129 + Top = 30 + AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 28eb196..ace7872 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -11,10 +11,23 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, - cxCurrencyEdit, MMSystem; + cxCurrencyEdit, MMSystem, 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; type - TfrmJYOrderCDOne = class(TForm) + TfrmJYOrderCDOne = class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBFind: TToolButton; @@ -192,6 +205,7 @@ type Edit4: TEdit; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; + ToolButton13: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -248,6 +262,7 @@ type procedure ToolButton12Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); + procedure ToolButton13Click(Sender: TObject); // procedure Edit5Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject); private @@ -2003,5 +2018,71 @@ begin Panel11.Visible := false; end; +procedure TfrmJYOrderCDOne.ToolButton13Click(Sender: TObject); +var + MSID: string; +begin + if ADOQueryMain.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + MSID := ''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while Order_Main.Locate('SSel', True, []) do + begin + if MSID <> '' then + begin + MSID := MSID + ',' + QuotedStr(Trim(Order_Main.fieldbyname('MJID').AsString)); + end + else + begin + MSID := QuotedStr(Trim(Order_Main.fieldbyname('MJID').AsString)); + end; + Edit; + FieldByName('SSel').Value := False; + Post; + end; + end; + Order_Main.EnableControls; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered := False; + sql.Clear; + sql.Add('select A.*,'); + SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,'); + sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,'); + sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),'); + sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID)'); + SQL.Add('from WFB_MJJY A'); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_Main C on C.MainID=A.MainID '); + sql.Add('where A.FillTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' '); + sql.Add('and A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' '); + sql.Add(' and MJID in ( ' + MSID + ') '); + if Trim(DParameters2) = 'Ʒ' then + begin + sql.add('and mjtype=''Ʒ'' '); + end; + sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh'); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; + SelExportData(Tv1, ADOQueryMain, 'Ϣ'); + InitGrid(); +end; + end.