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_TradeSalesContractSel in '..\G00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList}, U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList},
U_TradeInspSet in 'U_TradeInspSet.pas' {frmTradeInspSet}, 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} {$R *.res}

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

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <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> <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> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -136,26 +136,22 @@
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="U_iniParam.pas"/> <DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas"> <DCCReference Include="..\Z99Dependency\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form> <Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas"> <DCCReference Include="..\Z99Dependency\design\U_BaseInput.pas">
<Form>frmBaseInput</Form> <Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas"> <DCCReference Include="..\Z99Dependency\design\U_BaseList.pas">
<Form>frmBaseList</Form> <Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <DCCReference Include="..\Z99Dependency\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/> <DCCReference Include="..\Z99Dependency\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/> <DCCReference Include="..\Z99Dependency\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/> <DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"> <DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form> <Form>frmZDYHelp</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas"> <DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmFjList_RZ</Form> <Form>frmFjList_RZ</Form>
@ -193,6 +189,7 @@
<Form>frmLbaelMapSet</Form> <Form>frmLbaelMapSet</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

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

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

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

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

@ -16,7 +16,8 @@ uses
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore,
cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, RM_Preview, cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, RM_Preview,
cxPC, U_BaseHelp, System.ImageList, Vcl.ImgList, RTComboBox, RM_BarCode, cxPC, U_BaseHelp, System.ImageList, Vcl.ImgList, RTComboBox, RM_BarCode,
RM_e_Xls, dxScrollbarAnnotations; RM_e_Xls, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters,
RM_RichEdit;
type type
TfrmTradeInspSet = class(TfrmBaseHelp) TfrmTradeInspSet = class(TfrmBaseHelp)
@ -87,6 +88,7 @@ type
CDUnit: TComboBox; CDUnit: TComboBox;
Label7: TLabel; Label7: TLabel;
addwet: TEdit; addwet: TEdit;
RMRichObject1: TRMRichObject;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); 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, IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations; dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters;
type type
TfrmTradePlanList = class(TfrmBaseList) TfrmTradePlanList = class(TfrmBaseList)

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

@ -26,7 +26,8 @@ uses
U_LablePrint in '..\A00通用窗体\U_LablePrint.pas' {frmLablePrint}, U_LablePrint in '..\A00通用窗体\U_LablePrint.pas' {frmLablePrint},
U_TradeMachInsp in 'U_TradeMachInsp.pas' {frmTradeMachInsp}, U_TradeMachInsp in 'U_TradeMachInsp.pas' {frmTradeMachInsp},
U_LbaelMapSet in '..\A00通用窗体\U_LbaelMapSet.pas' {frmLbaelMapSet}, 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} {$R *.res}

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

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <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> <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> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -136,26 +136,22 @@
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="U_iniParam.pas"/> <DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas"> <DCCReference Include="..\Z99Dependency\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form> <Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas"> <DCCReference Include="..\Z99Dependency\design\U_BaseInput.pas">
<Form>frmBaseInput</Form> <Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas"> <DCCReference Include="..\Z99Dependency\design\U_BaseList.pas">
<Form>frmBaseList</Form> <Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <DCCReference Include="..\Z99Dependency\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/> <DCCReference Include="..\Z99Dependency\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/> <DCCReference Include="..\Z99Dependency\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/> <DCCReference Include="..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"> <DCCReference Include="..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas">
<Form>frmZDYHelp</Form> <Form>frmZDYHelp</Form>
<FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas"> <DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmFjList_RZ</Form> <Form>frmFjList_RZ</Form>
@ -189,6 +185,7 @@
<Form>frmTradePlanSel</Form> <Form>frmTradePlanSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

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

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

@ -20,7 +20,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 4 TabOrder = 4
ExplicitWidth = 1417
DesignSize = ( DesignSize = (
1419 1419
24) 24)
@ -128,7 +127,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1417
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -551,7 +549,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1417
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -652,7 +649,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Color = 16242829 Color = 16242829
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1417
object Label3: TLabel object Label3: TLabel
Left = 195 Left = 195
Top = 10 Top = 10
@ -1043,8 +1039,8 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
end end
end end
object MovePanel2: TMovePanel [4] object MovePanel2: TMovePanel [4]
Left = 592 Left = 589
Top = 216 Top = 217
Width = 289 Width = 289
Height = 49 Height = 49
BevelInner = bvLowered BevelInner = bvLowered
@ -1156,4 +1152,8 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = N4Click OnClick = N4Click
end end
end end
object RMRichObject1: TRMRichObject
Left = 541
Top = 396
end
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, RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, dxDateTimeWheelPicker, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
dxScrollbarAnnotations; dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, RM_RichEdit;
type type
TfrmTradeClothInspList = class(TfrmBaseList) TfrmTradeClothInspList = class(TfrmBaseList)
@ -122,6 +122,7 @@ type
ToolButton3: TToolButton; ToolButton3: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
RMRichObject1: TRMRichObject;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

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

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

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