From 7a36717ea581301914201868de98d37c9b4f7457 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 14 Oct 2025 14:37:25 +0800 Subject: [PATCH] =?UTF-8?q?=E6=A0=B7=E5=93=81=E4=BF=A1=E6=81=AF=E7=AE=A1?= =?UTF-8?q?=E7=90=86-----=E7=99=BB=E8=AE=B0=E7=AA=97=E5=8F=A3=E3=80=81?= =?UTF-8?q?=E6=9F=A5=E8=AF=A2=E7=AA=97=E5=8F=A3=E5=A2=9E=E5=8A=A0=E5=AD=97?= =?UTF-8?q?=E6=AE=B5=E2=80=98=E5=86=85=E9=83=A8=E5=A4=87=E6=B3=A8=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 样品/ProjectGroup1.bpg | 8 +++---- 样品/ProjectGroup1.~bpg | 23 ++++++++++++++++++ 样品/U_CPAdd.dfm | 13 +++++++--- 样品/U_CPAdd.pas | 1 + 样品/U_CPManage.dfm | 53 +++++++++++++++++++++++------------------ 样品/U_CPManage.pas | 1 + 样品/YPGL.dof | 2 +- 样品/testDll.cfg | 4 ++-- 8 files changed, 72 insertions(+), 33 deletions(-) create mode 100644 样品/ProjectGroup1.~bpg diff --git a/样品/ProjectGroup1.bpg b/样品/ProjectGroup1.bpg index 7c050f6..0cec548 100644 --- 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) - diff --git a/样品/ProjectGroup1.~bpg b/样品/ProjectGroup1.~bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ 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) + + diff --git a/样品/U_CPAdd.dfm b/样品/U_CPAdd.dfm index 05b14f8..dfef19b 100644 --- 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 diff --git a/样品/U_CPAdd.pas b/样品/U_CPAdd.pas index 2fae002..9d2a2e7 100644 --- 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); diff --git a/样品/U_CPManage.dfm b/样品/U_CPManage.dfm index 9389da1..7a25ef3 100644 --- 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 diff --git a/样品/U_CPManage.pas b/样品/U_CPManage.pas index f6aa381..e570152 100644 --- 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); diff --git a/样品/YPGL.dof b/样品/YPGL.dof index 9069afb..83a7efb 100644 --- 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= diff --git a/样品/testDll.cfg b/样品/testDll.cfg index 6c57635..e9c1cc1 100644 --- 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