This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-08 11:36:11 +08:00
parent 0026e9e246
commit 8ac4fefe4d
10 changed files with 83 additions and 19 deletions

View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\项目代码\向恒\发货申请(ShipmentRequest.dll)\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7zzXiangHeng\发货申请(ShipmentRequest.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

View File

@ -67,15 +67,15 @@ begin
SetLength(user, 255);
SetLength(pswd, 255);
user := 'rtsa';
user := 'longfengsa';
dtbase := 'xianghengdata';
server := '101.132.143.144,7781';
pswd := 'rightsoft@5740';
server := '116.62.5.81,7781';
pswd := 'rightsoft@81';
// pswd := 'rightsoft@123';
// pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr;
// DConString := DataBaseStr;
// DName:='周高祥';
// DParameters1:='高权限';
//DParameters3:='1';

View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\Ïòºã\Å÷²¼²Ö¿â(GreyClothWarehouse.dll)\testDll.exe
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7zzXiangHeng\Å÷²¼²Ö¿â(GreyClothWarehouse.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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 = GreyClothWarehouse.dll testDll.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
GreyClothWarehouse.dll: GreyClothWarehouse.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

@ -5,7 +5,20 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, SyncObjs, ExtCtrls,
cxClasses, dxSkinsCore, dxSkinsDefaultPainters;
cxClasses, dxSkinsCore, dxSkinsDefaultPainters, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type
TMyThread = class(TThread)

View File

@ -70,13 +70,12 @@ begin
SetLength(user, 255);
SetLength(pswd, 255);
user := 'rtsa';
user := 'longfengsa';
dtbase := 'xianghengdata';
server := '101.132.143.144,7781';
pswd := 'rightsoft@5740';
// pswd := 'rightsoft';
server := '116.62.5.81,7781';
pswd := 'rightsoft@81';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr;
// DConString := DataBaseStr;
// DName:='周高祥';
//DParameters1:='高权限'; //高权限
//DParameters3:='1';

View File

@ -11,7 +11,18 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, Menus, cxCheckBox, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
dxSkinscxPCPainter, 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,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmPBKCListSel = class(TForm)
@ -144,6 +155,10 @@ begin
SQL.Add(' and jhchejian=' + QuotedStr(Trim(jhCheJian.Text)));
end;
if Trim(C_CodeName.Text) <> '' then
begin
SQL.Add(' and C.C_CodeName like ''%''+ Trim(C_CodeName.Text) +''%''');
end;
// SQL.Add(' and E.FSID=' + quotedstr(FCKOrdNo) + ')');
// ShowMessage(SQL.Text);
Open;

View File

@ -161,7 +161,7 @@ object frmPBSMCK: TfrmPBSMCK
object Label33: TLabel
Left = 6
Top = 232
Width = 80
Width = 72
Height = 23
Caption = #24378#21046#21457#36135
Font.Charset = ANSI_CHARSET

View File

@ -11,7 +11,21 @@ uses
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, cxMaskEdit,
cxButtonEdit, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
RM_e_Xls, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
RM_e_Xls, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter,
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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
type
TfrmPBSMCK = class(TForm)