增加一个：检验码单(足米虚米)。的码单

检验管理/TradeManage.skincfg

@@ -1,50 +1,50 @@
 [ExpressSkins]
 Default=1
 ShowNotifications=1
-Enabled=0
+Enabled=1
-dxSkinBlack=1
+dxSkinBlack=0
-dxSkinBlue=1
+dxSkinBlue=0
-dxSkinBlueprint=1
+dxSkinBlueprint=0
-dxSkinCaramel=1
+dxSkinCaramel=0
-dxSkinCoffee=1
+dxSkinCoffee=0
-dxSkinDarkRoom=1
+dxSkinDarkRoom=0
-dxSkinDarkSide=1
+dxSkinDarkSide=0
-dxSkinDevExpressDarkStyle=1
+dxSkinDevExpressDarkStyle=0
-dxSkinDevExpressStyle=1
+dxSkinDevExpressStyle=0
-dxSkinFoggy=1
+dxSkinFoggy=0
-dxSkinGlassOceans=1
+dxSkinGlassOceans=0
-dxSkinHighContrast=1
+dxSkinHighContrast=0
-dxSkiniMaginary=1
+dxSkiniMaginary=0
-dxSkinLilian=1
+dxSkinLilian=0
-dxSkinLiquidSky=1
+dxSkinLiquidSky=0
-dxSkinLondonLiquidSky=1
+dxSkinLondonLiquidSky=0
-dxSkinMcSkin=1
+dxSkinMcSkin=0
-dxSkinMetropolis=1
+dxSkinMetropolis=0
-dxSkinMetropolisDark=1
+dxSkinMetropolisDark=0
-dxSkinMoneyTwins=1
+dxSkinMoneyTwins=0
-dxSkinOffice2007Black=1
+dxSkinOffice2007Black=0
-dxSkinOffice2007Blue=1
+dxSkinOffice2007Blue=0
-dxSkinOffice2007Green=1
+dxSkinOffice2007Green=0
-dxSkinOffice2007Pink=1
+dxSkinOffice2007Pink=0
-dxSkinOffice2007Silver=1
+dxSkinOffice2007Silver=0
-dxSkinOffice2010Black=1
+dxSkinOffice2010Black=0
-dxSkinOffice2010Blue=1
+dxSkinOffice2010Blue=0
-dxSkinOffice2010Silver=1
+dxSkinOffice2010Silver=0
-dxSkinOffice2013DarkGray=1
+dxSkinOffice2013DarkGray=0
-dxSkinOffice2013LightGray=1
+dxSkinOffice2013LightGray=0
-dxSkinOffice2013White=1
+dxSkinOffice2013White=0
-dxSkinPumpkin=1
+dxSkinPumpkin=0
-dxSkinSeven=1
+dxSkinSeven=0
-dxSkinSevenClassic=1
+dxSkinSevenClassic=0
-dxSkinSharp=1
+dxSkinSharp=0
-dxSkinSharpPlus=1
+dxSkinSharpPlus=0
-dxSkinSilver=1
+dxSkinSilver=0
-dxSkinSpringTime=1
+dxSkinSpringTime=0
-dxSkinStardust=1
+dxSkinStardust=0
-dxSkinSummer2008=1
+dxSkinSummer2008=0
-dxSkinTheAsphaltWorld=1
+dxSkinTheAsphaltWorld=0
 dxSkinsDefaultPainters=1
-dxSkinValentine=1
+dxSkinValentine=0
-dxSkinVS2010=1
+dxSkinVS2010=0
-dxSkinWhiteprint=1
+dxSkinWhiteprint=0
-dxSkinXmas2008Blue=1
+dxSkinXmas2008Blue=0

检验管理/U_DataLink.pas

@@ -4,7 +4,8 @@ interface
 
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
-  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
+  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
+  dxSkinsDefaultPainters;
 var
    DConString:String;   {全局连接字符串}
    server, dtbase, user, pswd: String;  {数据库连接参数}

检验管理/U_JYOrderCDOne.dfm

@@ -1,6 +1,6 @@
 object frmJYOrderCDOne: TfrmJYOrderCDOne
-  Left = 296
+  Left = 48
-  Top = 178
+  Top = 143
   Width = 1400
   Height = 757
   Caption = #26816#39564#25253#21578

检验管理/U_JYOrderCDOne.pas

@@ -11,7 +11,8 @@ 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, dxSkinsDefaultPainters,
+  dxSkinscxPCPainter;
 
 type
   TfrmJYOrderCDOne = class(TForm)
@@ -1584,7 +1585,7 @@ begin
     begin
       Close;
       sql.Clear;
-      sql.add('exec P_Print_CKMDYDL ');                                        
+      sql.add('exec P_Print_CKMDYDL ');
       sql.add('@DName=' + quotedstr(Trim(DCode)));
       Open;
     end;
@@ -1653,6 +1654,32 @@ begin
       Open;
     end;
   end;
+
+    if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(×ãÃ×ÐéÃ×)') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDYDL_1 ');
+
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp, CDS_HZ);
+    SInitCDSData20(ADOQueryTemp, CDS_HZ);
+
+    with ADOQueryPrint do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID=' + quotedstr(Trim('')));
+      sql.add(',@DName=' + quotedstr(Trim(DCode)));
+      sql.add(',@flag=''2'' ');
+      Open;
+    end;
+  end;
   if FileExists(fPrintFile) then
   begin
     RM1.LoadFromFile(fPrintFile);