加一份码单

检验管理/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 = TradeManage.dll testDll.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+TradeManage.dll: ..\..\D7DJshunyang\打卷检验管理\TradeManage.dpr
+  $(DCC)
+
+testDll.exe: ..\..\D7DJshunyang\打卷检验管理\testDll.dpr
+  $(DCC)
+
+

检验管理/TradeManage.dof

@@ -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;

检验管理/U_DataLink.dfm

@@ -2,8 +2,8 @@ object DataLink_TradeManage: TDataLink_TradeManage
   OldCreateOrder = False
   OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
-  Left = 277
+  Left = 279
-  Top = 210
+  Top = 211
   Height = 349
   Width = 482
   object AdoDataLink: TADOQuery

检验管理/U_JYOrderCDOne.dfm

@@ -1,6 +1,6 @@
 object frmJYOrderCDOne: TfrmJYOrderCDOne
-  Left = 481
+  Left = 595
-  Top = 228
+  Top = 385
   Width = 1382
   Height = 754
   Caption = #26816#39564#25253#21578
@@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1366
+    Width = 1374
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -188,7 +188,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     end
     object ComboBox1: TComboBox
       Left = 535
-      Top = 33
+      Top = 30
       Width = 149
       Height = 24
       Style = csDropDownList
@@ -198,10 +198,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Font.Name = #23435#20307
       Font.Style = []
       ItemHeight = 16
-      ItemIndex = 0
       ParentFont = False
       TabOrder = 0
-      Text = #26816#39564#30721#21333
       OnChange = ComboBox1Change
       Items.Strings = (
         #26816#39564#30721#21333
@@ -212,6 +210,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #28151#33394#21253#30721#21333
         #28151#33394#21253#30721#21333'2'
         #22825#28193#30721#21333
+        #28151#33394#21253#30721#21333#20004#20301
+        ''
         '')
     end
     object ToolButton9: TToolButton
@@ -242,7 +242,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1366
+    Width = 1374
     Height = 88
     Align = alTop
     BevelInner = bvRaised
@@ -763,8 +763,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object cxGrid1: TcxGrid
     Left = 0
     Top = 150
-    Width = 1366
+    Width = 1374
-    Height = 565
+    Height = 573
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3

检验管理/U_JYOrderCDOne.pas

@@ -542,6 +542,7 @@ begin
     TBPZ.Visible := false;
 //    TCPDB.Visible:=False;
   end;
+  ComboBox1.ItemIndex:=0;
 end;
 
 procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@@ -1554,6 +1555,32 @@ begin
     end;
   end;
 
+    if (trim(ComboBox1.Text) = '»ìÉ«°üÂëµ¥Á½Î»') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_HSDB ');
+      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) = '살<>관쯤데2') then
   begin
     with ADOQueryTemp do

检验管理/U_testdll.dfm

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 153
+  Left = 155
-  Top = 124
+  Top = 125
   Width = 791
   Height = 554
   Caption = 'Form1'

检验管理/testDll.cfg

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