Group_99/D10myZesheng
7
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-12 10:25:54 +08:00
parent 865a9f3ac9
commit f7ff171ad7
13 changed files with 53 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
G01贸易生产计划/TradePlan.dpr
View File

@ -27,7 +27,8 @@ uses
U_TradeSalesContractSel in '..\G00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList},
U_TradeInspSet in 'U_TradeInspSet.pas' {frmTradeInspSet},
U_LbaelMapSet in '..\A00通用窗体\U_LbaelMapSet.pas' {frmLbaelMapSet};
U_LbaelMapSet in '..\A00通用窗体\U_LbaelMapSet.pas' {frmLbaelMapSet},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
{$R *.res}

25
G01贸易生产计划/TradePlan.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10myZesheng\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\D10W\项目代码\D10myZesheng\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -136,26 +136,22 @@
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
<DCCReference Include="..\Z99Dependency\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<DCCReference Include="..\Z99Dependency\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<DCCReference Include="..\Z99Dependency\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
<DCCReference Include="..\Z99Dependency\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\Z99Dependency\design\U_globalVar.pas"/>
<DCCReference Include="..\Z99Dependency\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmFjList_RZ</Form>
@ -193,6 +189,7 @@
<Form>frmLbaelMapSet</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

2
G01贸易生产计划/U_DataLink.pas
View File

@ -5,7 +5,7 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList;
System.ImageList, dxSkinsCore, dxSkinsDefaultPainters;
type
TMyThread = class(TThread)

4
G01贸易生产计划/U_TradeInspSet.dfm
View File

@ -762,4 +762,8 @@ inherited frmTradeInspSet: TfrmTradeInspSet
Left = 59
Top = 352
end
object RMRichObject1: TRMRichObject
Left = 496
Top = 367
end
end

4
G01贸易生产计划/U_TradeInspSet.pas
View File

@ -16,7 +16,8 @@ uses
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore,
cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, RM_Preview,
cxPC, U_BaseHelp, System.ImageList, Vcl.ImgList, RTComboBox, RM_BarCode,
RM_e_Xls, dxScrollbarAnnotations;
RM_e_Xls, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters,
RM_RichEdit;
type
TfrmTradeInspSet = class(TfrmBaseHelp)
@ -87,6 +88,7 @@ type
CDUnit: TComboBox;
Label7: TLabel;
addwet: TEdit;
RMRichObject1: TRMRichObject;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

2
G01贸易生产计划/U_TradePlanList.pas
View File

@ -15,7 +15,7 @@ uses
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations;
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmTradePlanList = class(TfrmBaseList)

3
G03贸易布匹检验/TradeInsp.dpr
View File

@ -26,7 +26,8 @@ uses
U_LablePrint in '..\A00通用窗体\U_LablePrint.pas' {frmLablePrint},
U_TradeMachInsp in 'U_TradeMachInsp.pas' {frmTradeMachInsp},
U_LbaelMapSet in '..\A00通用窗体\U_LbaelMapSet.pas' {frmLbaelMapSet},
U_TradePlanSel in '..\G00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel};
U_TradePlanSel in '..\G00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
{$R *.res}

25
G03贸易布匹检验/TradeInsp.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\泽晟\G03贸易布匹检验\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\D10W\项目代码\D10myZesheng\G03贸易布匹检验\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -136,26 +136,22 @@
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
<DCCReference Include="..\Z99Dependency\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<DCCReference Include="..\Z99Dependency\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<DCCReference Include="..\Z99Dependency\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
<DCCReference Include="..\Z99Dependency\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\Z99Dependency\design\U_globalVar.pas"/>
<DCCReference Include="..\Z99Dependency\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmFjList_RZ</Form>
@ -189,6 +185,7 @@
<Form>frmTradePlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

18
G03贸易布匹检验/U_DataLink.pas
View File

@ -5,23 +5,7 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList,
;
System.ImageList, dxSkinsCore, dxSkinsDefaultPainters;
type
TMyThread = class(TThread)

12
G03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -20,7 +20,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
AutoSize = True
BorderStyle = bsSingle
TabOrder = 4
ExplicitWidth = 1417
DesignSize = (
1419
24)
@ -128,7 +127,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
ParentFont = False
PopupMenu = PM_1
TabOrder = 3
ExplicitWidth = 1417
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
@ -551,7 +549,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1417
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -652,7 +649,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Color = 16242829
ParentBackground = False
TabOrder = 1
ExplicitWidth = 1417
object Label3: TLabel
Left = 195
Top = 10
@ -1043,8 +1039,8 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
end
end
object MovePanel2: TMovePanel [4]
Left = 592
Top = 216
Left = 589
Top = 217
Width = 289
Height = 49
BevelInner = bvLowered
@ -1156,4 +1152,8 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = N4Click
end
end
object RMRichObject1: TRMRichObject
Left = 541
Top = 396
end
end

3
G03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -14,7 +14,7 @@ uses
RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
dxScrollbarAnnotations;
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, RM_RichEdit;
type
TfrmTradeClothInspList = class(TfrmBaseList)
@ -122,6 +122,7 @@ type
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Tv1Column13: TcxGridDBColumn;
RMRichObject1: TRMRichObject;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);

4
G03贸易布匹检验/U_TradeMachInsp.dfm
View File

@ -3447,4 +3447,8 @@
Left = 426
Top = 588
end
object RMRichObject1: TRMRichObject
Left = 541
Top = 396
end
end

25
G03贸易布匹检验/U_TradeMachInsp.pas
View File

@ -11,26 +11,10 @@ uses
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, Menus,
U_BaseList, dxDateRanges,
dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, ShellAPI, IdFTP,
FireDAC.Stan.StorageXML, cxPC, dxScrollbarAnnotations,
;
U_BaseList, dxDateRanges, dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, ShellAPI, IdFTP, FireDAC.Stan.StorageXML, cxPC,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, RM_RichEdit;
type
TfrmTradeMachInsp = class(TfrmBaseList)
@ -300,6 +284,7 @@ type
Tv3Column5: TcxGridDBColumn;
lbl2: TLabel;
AddLenPresent: TEdit;
RMRichObject1: TRMRichObject;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);