~

打卷检验管理/TradeManage.dpr

@@ -1,9 +1,9 @@
 library TradeManage;
 uses
   SysUtils,
-  classes,
+  classes,                         
   forms,
-  WinTypes,
+  WinTypes,                       
   WinProcs,
   U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
   U_GetDllForm in 'U_GetDllForm.pas',                                                                   

打卷检验管理/U_CKProductJYHZList.dfm

@@ -195,6 +195,13 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
       Height = 12
       Caption = 'PO#'
     end
+    object Label16: TLabel
+      Left = 783
+      Top = 40
+      Width = 42
+      Height = 12
+      Caption = #33394'   '#21495
+    end
     object MPRTCodeName: TEdit
       Tag = 2
       Left = 266
@@ -262,7 +269,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
       Tag = 2
       Left = 831
       Top = 12
-      Width = 68
+      Width = 79
       Height = 20
       Style = csDropDownList
       ItemHeight = 12
@@ -319,6 +326,15 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
       TabOrder = 12
       OnChange = MPRTCodeNameChange
     end
+    object SOrddefstr1: TEdit
+      Tag = 2
+      Left = 830
+      Top = 36
+      Width = 80
+      Height = 20
+      TabOrder = 13
+      OnChange = MPRTCodeNameChange
+    end
   end
   object cxGrid2: TcxGrid
     Left = 0
@@ -477,6 +493,12 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid2Level1: TcxGridLevel
       GridView = Tv1

打卷检验管理/U_CKProductJYHZList.pas

@@ -11,7 +11,21 @@ uses
   cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
   cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit,
   cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport,
-  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+  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;
 
 type
   TfrmCKProductJYHZList = class(TForm)
@@ -85,6 +99,9 @@ type
     Tv1Column2: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
     Tv1Column4: TcxGridDBColumn;
+    Label16: TLabel;
+    SOrddefstr1: TEdit;
+    Tv1Column5: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -148,9 +165,9 @@ begin
     with ADOQueryMain do
     begin
       Close;
-      sql.Clear;
+      sql.Clear;                                                          
       Filtered:=False;
-      sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4, ');
+      sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.SOrddefstr1, ');
       sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,');
       sql.Add('JQty=(select count(*) from WFB_MJJY X where X.SubId=A.SubId),');
       sql.Add('SCKROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''Òѳö¿â''),');
@@ -163,7 +180,7 @@ begin
       sql.Add('inner join JYOrder_sub D on D.subID=A.subID ');
       Sql.add('where A.fillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' ');
       Sql.add('and A.fillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' ');
-      Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4');
+      Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.SOrddefstr1');
       Open;
       //ShowMessage(SQL.Text);
     end;