Group_99/D7zzXiangHeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
发货申请(ShipmentRequest.dll)/ShipmentRequest.dof
View File

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

8
发货申请(ShipmentRequest.dll)/U_GetDllForm.pas
View File

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

2
坯布仓库(GreyClothWarehouse.dll)/GreyClothWarehouse.dof
View File

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

8
坯布仓库(GreyClothWarehouse.dll)/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = GreyClothWarehouse.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
GreyClothWarehouse.dll: GreyClothWarehouse.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

23
坯布仓库(GreyClothWarehouse.dll)/ProjectGroup1.~bpg Normal file
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)

15
坯布仓库(GreyClothWarehouse.dll)/U_DataLink.pas
View File

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

9
坯布仓库(GreyClothWarehouse.dll)/U_GetDllForm.pas
View File

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

17
坯布仓库(GreyClothWarehouse.dll)/U_PBKCListSel.pas
View File

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

2
坯布仓库(GreyClothWarehouse.dll)/U_PBSMCK.dfm
View File

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

16
坯布仓库(GreyClothWarehouse.dll)/U_PBSMCK.pas
View File

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