Group_99/D7wmguihua
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-11 14:53:45 +08:00
parent c05d9910d9
commit cbee4b4ae6
6 changed files with 41 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
桂华管理系统/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\D7wmguihua\桂华管理系统\testDll.exe HostApplication=D:\D7W\项目代码\D7wmguihua\桂华管理系统\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

29
桂华管理系统/TradeManage.dpr
View File

@ -1,11 +1,12 @@
library TradeManage; library TradeManage;
uses uses
SysUtils, SysUtils,
classes, classes,
forms, forms,
WinTypes, WinTypes,
WinProcs, WinProcs,
midaslib,
U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas', U_GetDllForm in 'U_GetDllForm.pas',
U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
@ -68,7 +69,7 @@ uses
{$R *.res} {$R *.res}
procedure DllEnterPoint(dwReason: DWORD);far;stdcall; procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin begin
DLLProc := @DLLEnterPoint; DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH); DllEnterPoint(DLL_PROCESS_ATTACH);
@ -79,14 +80,16 @@ begin
{ if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then { if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
Application:=NewDllApp; } Application:=NewDllApp; }
end; end;
exports
GetDllForm;
begin
try
NewDllApp:=Application;
DLLProc := @DLLUnloadProc;
except
end; exports
GetDllForm;
begin
try
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except
end;
end. end.

6
桂华管理系统/U_ClothContractList.dfm
View File

@ -661,6 +661,12 @@ object frmClothContractList: TfrmClothContractList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column2: TcxGridDBColumn
Caption = #25209#27425#21495
DataBinding.FieldName = 'batchno'
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #25104#21697#21697#21517 Caption = #25104#21697#21697#21517
DataBinding.FieldName = 'CP_CodeName' DataBinding.FieldName = 'CP_CodeName'

16
桂华管理系统/U_ClothContractList.pas
View File

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox,
cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu; dxBarBuiltInMenu, dxSkinsCore, 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, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmClothContractList = class(TForm) TfrmClothContractList = class(TForm)
@ -112,6 +125,7 @@ type
v1Column22: TcxGridDBColumn; v1Column22: TcxGridDBColumn;
v1Column23: TcxGridDBColumn; v1Column23: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

2
桂华管理系统/U_OrdeFollower.dfm
View File

@ -441,7 +441,7 @@ object frmOrdeFollower: TfrmOrdeFollower
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 73 Width = 74
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #31614#35746#26085#26399 Caption = #31614#35746#26085#26399

3
桂华管理系统/U_OrdeFollower_input.dfm
View File

@ -128,7 +128,8 @@ object frmOrdeFollower_input: TfrmOrdeFollower_input
#21040#36135 #21040#36135
#35843#25320#20837#24211 #35843#25320#20837#24211
#21378#20869#22238#20462 #21378#20869#22238#20462
#22238#20462) #22238#20462
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end