This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-01 13:52:08 +08:00
parent 0c5916875a
commit 9392ae980b
6 changed files with 85 additions and 16 deletions

View File

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

View File

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

View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\多锦\检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJduojin\检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
@ -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;

View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=0
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1
dxSkinCaramel=1
dxSkinCoffee=1
dxSkinDarkRoom=1
dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=1
dxSkinFoggy=1
dxSkinGlassOceans=1
dxSkinHighContrast=1
dxSkiniMaginary=1
dxSkinLilian=1
dxSkinLiquidSky=1
dxSkinLondonLiquidSky=1
dxSkinMcSkin=1
dxSkinMetropolis=1
dxSkinMetropolisDark=1
dxSkinMoneyTwins=1
dxSkinOffice2007Black=1
dxSkinOffice2007Blue=1
dxSkinOffice2007Green=1
dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=1
dxSkinOffice2010Black=1
dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=1
dxSkinOffice2013White=1
dxSkinPumpkin=1
dxSkinSeven=1
dxSkinSevenClassic=1
dxSkinSharp=1
dxSkinSharpPlus=1
dxSkinSilver=1
dxSkinSpringTime=1
dxSkinStardust=1
dxSkinSummer2008=1
dxSkinTheAsphaltWorld=1
dxSkinsDefaultPainters=1
dxSkinValentine=1
dxSkinVS2010=1
dxSkinWhiteprint=1
dxSkinXmas2008Blue=1

View File

@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1384
Width = 1392
Height = 62
AutoSize = True
ButtonHeight = 30
@ -206,10 +206,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ItemIndex = 0
ParentFont = False
TabOrder = 0
Text = #26816#39564#30721#21333'('#33521#25991')'
OnChange = ComboBox1Change
Items.Strings = (
#26816#39564#30721#21333'('#33521#25991')'
@ -217,7 +215,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#26579#33394')'
#26816#39564#30721#21333'('#21360#33457')'
#26816#39564#30721#21333'('#27719#24635')'
#26816#39564#30721#21333)
#26816#39564#30721#21333
#26816#39564#30721#21333'('#36275#31859#34394#31859')')
end
object Edit4: TEdit
Left = 685
@ -269,7 +268,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel
Left = 0
Top = 62
Width = 1384
Width = 1392
Height = 88
Align = alTop
BevelInner = bvRaised
@ -784,8 +783,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid
Left = 0
Top = 150
Width = 1384
Height = 568
Width = 1392
Height = 576
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3

View File

@ -1578,7 +1578,7 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(챘路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(챘路쵠鑒)')or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路)')or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路쵠鑒)') then
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(챘路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(챘路쵠鑒)')or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路)')or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路쵠鑒)') then
begin
with ADOQueryTemp do
begin