260817cai

检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\郑丰平开发代码\项目代码\卓日\检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7djZhuori\检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

检验管理/TradeManage.skincfg

@@ -0,0 +1,50 @@
+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=1
+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
+dxSkinsDefaultPainters=1
+dxSkinValentine=1
+dxSkinVS2010=1
+dxSkinWhiteprint=1
+dxSkinXmas2008Blue=1

检验管理/U_CKProductBCPInList.dfm

@@ -20,7 +20,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1228
+    Width = 1236
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 83
@@ -137,7 +137,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
   object Panel1: TPanel
     Left = 0
     Top = 33
-    Width = 1228
+    Width = 1236
     Height = 76
     Align = alTop
     BevelInner = bvRaised
@@ -464,8 +464,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
   object cxGrid2: TcxGrid
     Left = 0
     Top = 109
-    Width = 1228
-    Height = 532
+    Width = 1236
+    Height = 540
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2

检验管理/U_CKProductBCPInList.pas

@@ -11,7 +11,20 @@ uses
   ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxLookAndFeels, cxLookAndFeelPainters,
-  cxNavigator;
+  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
   TfrmCKProductBCPInList = class(TForm)
@@ -463,7 +476,7 @@ begin
     end;
     SCreateCDS20(ADOQueryTemp, CDS_HZ);
     SInitCDSData20(ADOQueryTemp, CDS_HZ);
-    
+
     with ADOQueryTemp do
     begin
       Close;
@@ -472,6 +485,7 @@ begin
       sql.add('@mainID=' + quotedstr(Trim('')));
       sql.add(',@DName=' + quotedstr(Trim(DCode)));
       sql.add(',@flag=''0'' ');
+//      showmessage(sql.Text);
       Open;
     end;
     SCreateCDS20(ADOQueryTemp, CDS_PRT);

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