~

检验管理/FieldExportSet/检验信息.INI

@@ -0,0 +1,2 @@
+[导出设置]
+导出字段=Begin/选中/订单号/缸号/品名中文/颜色/门幅/克重/打码人/打码时间/卷条码/卷号/类型/包号/包条码/皮重/净重/毛重/卷长度/疵点数量/长度单位/疵点情况/入库状态/扣分/色号/花型号/客户订单号/染厂缸号/备注/款号/出库状态/加长/加重

检验管理/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=

检验管理/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;  {数据库连接参数}

检验管理/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

检验管理/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.