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
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\项目代码\D7wmguihua\桂华管理系统\testDll.exe
HostApplication=D:\D7W\项目代码\D7wmguihua\桂华管理系统\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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

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

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

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

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

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

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

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

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

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