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

检验管理/TradeManage.skincfg

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