加码单

检验管理/ProjectGroup1.bpg

@@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = testDll.exe ProductPrice.dll
+PROJECTS = TradeManage.dll testDll.exe
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
 
+TradeManage.dll: TradeManage.dpr
+  $(DCC)
+
 testDll.exe: testDll.dpr
   $(DCC)
 
-ProductPrice.dll: ProductPrice.dpr
-  $(DCC)
-
 

检验管理/ProjectGroup1.~bpg

@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = testDll.exe ProductPrice.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+ProductPrice.dll: ProductPrice.dpr
+  $(DCC)
+
+

检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\陈亿项目代码\项目代码\军耀打卷\检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJjunyao\检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
@@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
 c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

检验管理/TradeManage.dpr

@@ -3,7 +3,7 @@ uses
   SysUtils,
   classes,
   forms,
-  WinTypes,
+  WinTypes,                                             
   WinProcs,
   U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
   U_GetDllForm in 'U_GetDllForm.pas',

检验管理/U_JYOrderCDOne.dfm

@@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1374
+    Width = 1366
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -200,7 +200,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #31859#25968#30721#21333'('#25171#21253')'
         #30721#25968#30721#21333'('#25171#21253')'
         'po'#30721#21333
-        #19968#21015#30721#21333)
+        #19968#21015#30721#21333
+        #26816#39564#30721#21333'('#38271#24230')')
     end
     object ToolButton9: TToolButton
       Left = 664
@@ -230,7 +231,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1374
+    Width = 1366
     Height = 88
     Align = alTop
     BevelInner = bvRaised
@@ -730,8 +731,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object cxGrid1: TcxGrid
     Left = 0
     Top = 150
-    Width = 1374
-    Height = 573
+    Width = 1366
+    Height = 565
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3

检验管理/U_JYOrderCDOne.pas

@@ -11,7 +11,20 @@ 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,
-  cxCurrencyEdit;
+  cxCurrencyEdit, 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)
@@ -1434,7 +1447,7 @@ begin
     ExecSQL;
   end;
 
-  if (trim(ComboBox1.Text) = '쇱駱쯤데BG') or (trim(ComboBox1.Text) = '쇱駱쯤데ST') or (trim(ComboBox1.Text) = '쇱駱쯤데02') or (trim(ComboBox1.Text) = '쇱駱쯤데BT') or (trim(ComboBox1.Text) = '쇱駱쯤데櫓匡') or (trim(ComboBox1.Text) = '쏜笙쯤데') or (trim(ComboBox1.Text) = '쵠鑒쯤데(댔관)') or (trim(ComboBox1.Text) = '쯤鑒쯤데(댔관)') or (trim(ComboBox1.Text) = 'po쯤데')  then
+  if (trim(ComboBox1.Text) = '쇱駱쯤데BG') or (trim(ComboBox1.Text) = '쇱駱쯤데ST') or (trim(ComboBox1.Text) = '쇱駱쯤데02') or (trim(ComboBox1.Text) = '쇱駱쯤데BT') or (trim(ComboBox1.Text) = '쇱駱쯤데櫓匡') or (trim(ComboBox1.Text) = '쏜笙쯤데') or (trim(ComboBox1.Text) = '쵠鑒쯤데(댔관)') or (trim(ComboBox1.Text) = '쯤鑒쯤데(댔관)') or (trim(ComboBox1.Text) = 'po쯤데') then
   begin
     with ADOQueryTemp do
     begin
@@ -1459,7 +1472,7 @@ begin
     end;
   end;
 
-  if  (trim(ComboBox1.Text) = '寧죗쯤데') then
+  if (trim(ComboBox1.Text) = '寧죗쯤데') then
   begin
     with ADOQueryTemp do
     begin
@@ -1477,7 +1490,7 @@ begin
       Close;
       sql.Clear;
       sql.add('exec P_Do_PrintMd_HZ ');
-      sql.add('@mainID=' + quotedstr(Trim('')));        
+      sql.add('@mainID=' + quotedstr(Trim('')));
       sql.add(',@DName=' + quotedstr(Trim(DCode)));
       sql.add(',@flag=''2'' ');
       Open;
@@ -1508,7 +1521,31 @@ begin
       Open;
     end;
   end;
+  if (trim(ComboBox1.Text) = '쇱駱쯤데(낀똑)') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd10 ');
+      sql.add('@mainID=' + quotedstr(Trim('')));
+      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 trim(ComboBox1.Text) = '¼ìÑéÂëµ¥»ã×Ü' then
   begin
     with ADOQueryTemp do

检验管理/testDll.cfg

@@ -31,8 +31,8 @@
 -M
 -$M16384,1048576
 -K$00400000
--LE"c:\program files\borland\delphi7\Projects\Bpl"
--LN"c:\program files\borland\delphi7\Projects\Bpl"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST

检验管理/testDll.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\路展贸易管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJjunyao\检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=