~

打卷检验管理/ProjectGroup2.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: TradeManage.dpr
+  $(DCC)
+
+testDll.exe: 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_ClothHCList.dfm

@@ -1,6 +1,6 @@
 object frmClothHCList: TfrmClothHCList
-  Left = 377
+  Left = 317
-  Top = 240
+  Top = 196
   Width = 1179
   Height = 705
   Caption = #26816#39564#25351#31034#21333#26597#35810
@@ -177,6 +177,19 @@ object frmClothHCList: TfrmClothHCList
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label7: TLabel
+      Left = 748
+      Top = 46
+      Width = 54
+      Height = 12
+      Caption = #32568'    '#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object BegDate: TDateTimePicker
       Left = 76
       Top = 18
@@ -285,6 +298,16 @@ object frmClothHCList: TfrmClothHCList
       TabOrder = 9
       OnChange = OrderNoMChange
     end
+    object ganghao: TEdit
+      Tag = 2
+      Left = 805
+      Top = 42
+      Width = 85
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 10
+      OnChange = OrderNoMChange
+    end
   end
   object cxGrid2: TcxGrid
     Left = 0
@@ -433,6 +456,12 @@ object frmClothHCList: TfrmClothHCList
         HeaderAlignmentHorz = taCenter
         Width = 65
       end
+      object TV2Column1: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'ganghao'
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = TV2

打卷检验管理/U_ClothHCList.pas

@@ -11,7 +11,20 @@ uses
   cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
   RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
   cxTextEdit, cxDropDownEdit, cxCheckBox, cxLookAndFeels,
-  cxLookAndFeelPainters, cxNavigator;
+  cxLookAndFeelPainters, 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
   TfrmClothHCList = class(TForm)
@@ -62,6 +75,9 @@ type
     V2Column2: TcxGridDBColumn;
     PRTHX: TEdit;
     Label5: TLabel;
+    TV2Column1: TcxGridDBColumn;
+    ganghao: TEdit;
+    Label7: TLabel;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

打卷检验管理/U_MJManageNewFDNew.dfm

@@ -2714,6 +2714,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label54: TLabel
+      Left = 836
+      Top = 4
+      Width = 40
+      Height = 19
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
     object BTAdd: TButton
       Left = 1070
       Top = 8

打卷检验管理/U_MJManageNewFDNew.pas

@@ -266,6 +266,7 @@ type
     MJQty5: TEdit;
     Edit13: TEdit;
     Edit14: TEdit;
+    Label54: TLabel;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -2484,6 +2485,8 @@ begin
     Label25.Caption := 'É«ºÅ:' + Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
     Label47.Visible := true;
     Label47.Caption := 'ÑÕÉ«:' + Trim(ADOTmp.fieldbyname('PRTcolor').AsString);
+    Label54.Visible := true;
+    Label54.Caption := '客户:' + Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
     if Trim(ADOTmp.fieldbyname('PRTHX').AsString) <> '' then
     begin
       Label2.Visible := true;

打卷检验管理/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