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

2025-10-14 14:37:25 +08:00 · 2025-10-14 14:37:25 +08:00 · 7a36717ea5
commit 7a36717ea5
parent b1ba2e69fd
8 changed files with 72 additions and 33 deletions
--- a/样品/ProjectGroup1.bpg
+++ b/样品/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)
-

--- a/样品/ProjectGroup1.~bpg
+++ b/样品/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)
+
+
--- a/样品/U_CPAdd.dfm
+++ b/样品/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
-    Height = 443
+    Width = 1288
+    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
--- a/样品/U_CPAdd.pas
+++ b/样品/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);
--- a/样品/U_CPManage.dfm
+++ b/样品/U_CPManage.dfm
@ -1,6 +1,6 @@
 object frmCPManage: TfrmCPManage
-  Left = 188
-  Top = 159
+  Left = 432
+  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
-      Top = 0
+      Left = 0
+      Top = 30
      AutoSize = True
      Caption = #26631#31614#25171#21360
      ImageIndex = 12
      OnClick = ToolButton4Click
    end
    object ToolButton8: TToolButton
-      Left = 615
-      Top = 0
+      Left = 87
+      Top = 30
      AutoSize = True
      Caption = #26631#31614#39044#35272
      ImageIndex = 12
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
-      Left = 702
-      Top = 0
+      Left = 174
+      Top = 30
      AutoSize = True
      Caption = #25171#21360
      ImageIndex = 12
      OnClick = ToolButton9Click
    end
    object ToolButton5: TToolButton
-      Left = 765
-      Top = 0
+      Left = 237
+      Top = 30
      AutoSize = True
      Caption = #22270#29255#19978#20256
      ImageIndex = 109
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
-      Left = 852
-      Top = 0
+      Left = 324
+      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
-      Top = 0
+      Left = 411
+      Top = 30
      AutoSize = True
      Caption = #20851#38381
      ImageIndex = 55
      OnClick = TBCloseClick
    end
    object ComboBox1: TComboBox
-      Left = 1002
-      Top = 5
+      Left = 474
+      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
-      Top = 0
+      Left = 586
+      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
--- a/样品/U_CPManage.pas
+++ b/样品/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);
--- a/样品/YPGL.dof
+++ b/样品/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=
--- a/样品/testDll.cfg
+++ b/样品/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