样品信息管理-----登记窗口、查询窗口增加字段‘内部备注’

样品/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 = YPGL.dll testDll.exe
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
 
+YPGL.dll: YPGL.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)
+
+

样品/U_CPAdd.dfm

@@ -19,7 +19,7 @@ object frmCPAdd: TfrmCPAdd
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1280
+    Width = 1288
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 59
@@ -114,8 +114,8 @@ object frmCPAdd: TfrmCPAdd
   object cxGrid1: TcxGrid
     Left = 0
     Top = 33
-    Width = 1280
+    Width = 1288
-    Height = 443
+    Height = 451
     Align = alClient
     TabOrder = 1
     object Tv1: TcxGridDBTableView
@@ -494,6 +494,13 @@ object frmCPAdd: TfrmCPAdd
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column2: TcxGridDBColumn
+        Tag = 3
+        Caption = #20869#37096#22791#27880
+        DataBinding.FieldName = 'InternalNote'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

样品/U_CPAdd.pas

@@ -77,6 +77,7 @@ type
     CheckBox2: TCheckBox;
     CYNO1: TEdit;
     ADOQuery1: TADOQuery;
+    Tv1Column2: TcxGridDBColumn;
     procedure FormShow(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);

样品/U_CPManage.dfm

@@ -1,6 +1,6 @@
 object frmCPManage: TfrmCPManage
-  Left = 188
+  Left = 432
-  Top = 159
+  Top = 223
   Width = 1382
   Height = 754
   Caption = #20135#21697#26723#26696
@@ -20,7 +20,7 @@ object frmCPManage: TfrmCPManage
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1366
+    Width = 1374
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 95
@@ -95,43 +95,44 @@ object frmCPManage: TfrmCPManage
       AutoSize = True
       Caption = #23548#20986
       ImageIndex = 53
+      Wrap = True
       OnClick = ToolButton1Click
     end
     object ToolButton4: TToolButton
-      Left = 528
+      Left = 0
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #26631#31614#25171#21360
       ImageIndex = 12
       OnClick = ToolButton4Click
     end
     object ToolButton8: TToolButton
-      Left = 615
+      Left = 87
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #26631#31614#39044#35272
       ImageIndex = 12
       OnClick = ToolButton8Click
     end
     object ToolButton9: TToolButton
-      Left = 702
+      Left = 174
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25171#21360
       ImageIndex = 12
       OnClick = ToolButton9Click
     end
     object ToolButton5: TToolButton
-      Left = 765
+      Left = 237
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #22270#29255#19978#20256
       ImageIndex = 109
       OnClick = ToolButton5Click
     end
     object ToolButton6: TToolButton
-      Left = 852
+      Left = 324
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #22270#29255#19979#36733
       ImageIndex = 104
@@ -139,16 +140,16 @@ object frmCPManage: TfrmCPManage
       OnClick = ToolButton6Click
     end
     object TBClose: TToolButton
-      Left = 939
+      Left = 411
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
       OnClick = TBCloseClick
     end
     object ComboBox1: TComboBox
-      Left = 1002
+      Left = 474
-      Top = 5
+      Top = 35
       Width = 112
       Height = 20
       Style = csDropDownList
@@ -162,8 +163,8 @@ object frmCPManage: TfrmCPManage
         #33521#25991#26631#31614)
     end
     object ToolButton11: TToolButton
-      Left = 1114
+      Left = 586
-      Top = 0
+      Top = 30
       Caption = #20462#25913#26368#22823#21495
       ImageIndex = 16
       OnClick = ToolButton11Click
@@ -173,14 +174,14 @@ object frmCPManage: TfrmCPManage
     Left = 213
     Top = 93
     Width = 8
-    Height = 622
+    Height = 630
     HotZoneClassName = 'TcxMediaPlayer9Style'
     Control = Panel5
   end
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1366
+    Width = 1374
     Height = 62
     Align = alTop
     BevelInner = bvRaised
@@ -488,7 +489,7 @@ object frmCPManage: TfrmCPManage
     Left = 0
     Top = 93
     Width = 213
-    Height = 622
+    Height = 630
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -497,7 +498,7 @@ object frmCPManage: TfrmCPManage
       Left = 2
       Top = 2
       Width = 209
-      Height = 618
+      Height = 626
       Align = alClient
       Bands = <
         item
@@ -937,6 +938,12 @@ object frmCPManage: TfrmCPManage
           Options.Editing = False
           Width = 60
         end
+        object Tv1Column1: TcxGridDBColumn
+          Caption = #20869#37096#22791#27880
+          DataBinding.FieldName = 'InternalNote'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
       end
       object cxGrid1Level1: TcxGridLevel
         GridView = Tv1

样品/U_CPManage.pas

@@ -148,6 +148,7 @@ type
     RMXLSExport1: TRMXLSExport;
     ToolButton10: TToolButton;
     ToolButton11: TToolButton;
+    Tv1Column1: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

样品/YPGL.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\Ðì¼ÓÑÞÏîÄ¿´úÂë\ÏîÄ¿´úÂë\Óþ²©\ÑùÆ·\testDll.exe
+HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7YPyubo\ÑùÆ·\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

样品/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