Group_DJD/D10DJjinglei
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
钟舒轶 2026-06-13 07:58:05 +08:00
parent e7c1ab19e9
commit 70f6b9aea5
19 changed files with 673 additions and 491 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
项目代码/DJ/A01基础公司管理/Company.dproj.local
View File

@ -1,63 +1,35 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="..\..\DJ"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\花蝴蝶"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -71,7 +43,7 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/> <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/> <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="D:\Dp10RepoV1"/> <File Path="..\..\..\..\D10DJjinglei"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/> <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>

BIN
项目代码/DJ/A01基础公司管理/Company.identcache
View File

Binary file not shown.

2
项目代码/DJ/A01基础公司管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\花蝴蝶\A01基础公司管理\Company.dproj"/> <Projects ActiveProject="D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\A01基础公司管理\Company.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

BIN
项目代码/DJ/A01基础公司管理/testDll.identcache
View File

Binary file not shown.

48
项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.dfm
View File

@ -195,7 +195,6 @@ inherited frmItemTestInPut: TfrmItemTestInPut
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
TabOrder = 2 TabOrder = 2
ExplicitTop = 31
object dxLayoutControl_bzplan: TdxLayoutControl object dxLayoutControl_bzplan: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -596,7 +595,7 @@ inherited frmItemTestInPut: TfrmItemTestInPut
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitLeft = -1 ExplicitLeft = -1
ExplicitTop = 174 ExplicitTop = 172
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -659,15 +658,6 @@ inherited frmItemTestInPut: TfrmItemTestInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object v1C_Code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1GramWeight: TcxGridDBColumn object Tv1GramWeight: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'GramWeight' DataBinding.FieldName = 'GramWeight'
@ -797,24 +787,6 @@ inherited frmItemTestInPut: TfrmItemTestInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object v1C_Spec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1AttName: TcxGridDBColumn
Caption = #33457#22411#22270#29255
DataBinding.FieldName = 'AttName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1WeftDamage: TcxGridDBColumn object Tv1WeftDamage: TcxGridDBColumn
Caption = #32428#21521#25439#27585#38271#24230 Caption = #32428#21521#25439#27585#38271#24230
DataBinding.FieldName = 'WeftDamage' DataBinding.FieldName = 'WeftDamage'
@ -831,24 +803,6 @@ inherited frmItemTestInPut: TfrmItemTestInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1SLabVolume: TcxGridDBColumn
Caption = #21367#26631#31614
DataBinding.FieldName = 'SLabVolume'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SLabPackage: TcxGridDBColumn
Caption = #21253#26631#31614
DataBinding.FieldName = 'SLabPackage'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1PToP: TcxGridDBColumn object Tv1PToP: TcxGridDBColumn
Caption = #28857#23545#28857#30005#38459 Caption = #28857#23545#28857#30005#38459
DataBinding.FieldName = 'PToP' DataBinding.FieldName = 'PToP'

7
项目代码/DJ/G01贸易生产计划/U_ItemTestInPut.pas
View File

@ -62,7 +62,6 @@ type
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
Tv1RollNo: TcxGridDBColumn; Tv1RollNo: TcxGridDBColumn;
Tv1Quantity: TcxGridDBColumn; Tv1Quantity: TcxGridDBColumn;
v1C_Code: TcxGridDBColumn;
Tv1GramWeight: TcxGridDBColumn; Tv1GramWeight: TcxGridDBColumn;
Tv1FullWidth: TcxGridDBColumn; Tv1FullWidth: TcxGridDBColumn;
Tv1CutttableWidth: TcxGridDBColumn; Tv1CutttableWidth: TcxGridDBColumn;
@ -75,8 +74,6 @@ type
Tv1WeftTensile: TcxGridDBColumn; Tv1WeftTensile: TcxGridDBColumn;
Tv1WaterProof: TcxGridDBColumn; Tv1WaterProof: TcxGridDBColumn;
Tv1WarpDamage: TcxGridDBColumn; Tv1WarpDamage: TcxGridDBColumn;
v1C_Spec: TcxGridDBColumn;
v1AttName: TcxGridDBColumn;
Tv1WeftDamage: TcxGridDBColumn; Tv1WeftDamage: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Gilding: TcxButtonEdit; Gilding: TcxButtonEdit;
@ -99,8 +96,6 @@ type
CustDefFloat2: TcxTextEdit; CustDefFloat2: TcxTextEdit;
Tv1SSel: TcxGridDBColumn; Tv1SSel: TcxGridDBColumn;
Tv1PH: TcxGridDBColumn; Tv1PH: TcxGridDBColumn;
Tv1SLabVolume: TcxGridDBColumn;
Tv1SLabPackage: TcxGridDBColumn;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tupimage: TToolButton; Tupimage: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
@ -819,7 +814,7 @@ begin
CopyAddRow(Tv1, CDS_1); CopyAddRow(Tv1, CDS_1);
with CDS_1 do with CDS_1 do
begin begin
Edit; edit;
fieldbyname('SSel').Value := false; fieldbyname('SSel').Value := false;
FieldByName('RollNo').Value := CDS_1.RecordCount; FieldByName('RollNo').Value := CDS_1.RecordCount;
//FieldByName('c_Name').Value := ''; //FieldByName('c_Name').Value := '';

4
项目代码/DJ/G01贸易生产计划/U_ItemTestList.dfm
View File

@ -7,7 +7,6 @@ inherited frmItemTestList: TfrmItemTestList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitTop = -142
ExplicitWidth = 1306 ExplicitWidth = 1306
ExplicitHeight = 751 ExplicitHeight = 751
PixelsPerInch = 96 PixelsPerInch = 96
@ -393,7 +392,6 @@ inherited frmItemTestList: TfrmItemTestList
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #35270#22270 Caption = #35270#22270
ImageIndex = 0 ImageIndex = 0
ExplicitHeight = 427
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 4 Left = 4
Top = 10 Top = 10
@ -1027,7 +1025,6 @@ inherited frmItemTestList: TfrmItemTestList
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
Control = cxGrid5 Control = cxGrid5
ExplicitTop = 191
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
@ -1036,7 +1033,6 @@ inherited frmItemTestList: TfrmItemTestList
Height = 228 Height = 228
Align = alBottom Align = alBottom
TabOrder = 3 TabOrder = 3
ExplicitLeft = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

284
项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -222,23 +222,25 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end end
object ConNo: TcxTextEdit object ConNo: TcxTextEdit
Tag = 7 Tag = 7
Left = 446 Left = 657
Top = 13 Top = 13
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 2 TabOrder = 3
Width = 150 Width = 150
end end
object OrdDate: TcxDateEdit object OrdDate: TcxDateEdit
Tag = 2 Tag = 2
Left = 657 Left = 458
Top = 13 Top = 49
AutoSize = False
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 3 TabOrder = 6
Width = 131 Height = 29
Width = 148
end end
object DLYDate: TcxDateEdit object DLYDate: TcxDateEdit
Tag = 2 Tag = 2
@ -270,8 +272,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
end end
object factoryName: TcxButtonEdit object factoryName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 446 Left = 10000
Top = 49 Top = 10000
Hint = 'FtyName/'#21152#24037#21378 Hint = 'FtyName/'#21152#24037#21378
Properties.Buttons = < Properties.Buttons = <
item item
@ -282,13 +284,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = FtyNamePropertiesButtonClick Properties.OnButtonClick = FtyNamePropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 6 TabOrder = 28
Visible = False
Width = 150 Width = 150
end end
object Gilding: TcxButtonEdit object Gilding: TcxButtonEdit
Tag = 2 Tag = 2
Left = 67 Left = 10000
Top = 85 Top = 10000
Hint = 'Gilding/'#28907#37329 Hint = 'Gilding/'#28907#37329
Properties.Buttons = < Properties.Buttons = <
item item
@ -299,13 +302,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = GildingPropertiesButtonClick Properties.OnButtonClick = GildingPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 7 TabOrder = 23
Visible = False
Width = 131 Width = 131
end end
object PackSeal: TcxButtonEdit object PackSeal: TcxButtonEdit
Tag = 2 Tag = 2
Left = 657 Left = 10000
Top = 85 Top = 10000
Hint = 'PackSeal/'#23553#26465 Hint = 'PackSeal/'#23553#26465
Properties.Buttons = < Properties.Buttons = <
item item
@ -320,13 +324,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 10 TabOrder = 24
Visible = False
Width = 131 Width = 131
end end
object ShippingSample: TcxButtonEdit object ShippingSample: TcxButtonEdit
Tag = 2 Tag = 2
Left = 247 Left = 458
Top = 85 Top = 13
Hint = 'ShippingSample/'#33337#26679 Hint = 'ShippingSample/'#33337#26679
AutoSize = False AutoSize = False
Properties.Buttons = < Properties.Buttons = <
@ -338,14 +343,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = GildingPropertiesButtonClick Properties.OnButtonClick = GildingPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 8 TabOrder = 2
Height = 29 Height = 29
Width = 150 Width = 150
end end
object SizeNote: TcxButtonEdit object SizeNote: TcxButtonEdit
Tag = 2 Tag = 2
Left = 446 Left = 10000
Top = 85 Top = 10000
Hint = 'SizeNote/'#24320#21098 Hint = 'SizeNote/'#24320#21098
Properties.Buttons = < Properties.Buttons = <
item item
@ -356,30 +361,31 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = GildingPropertiesButtonClick Properties.OnButtonClick = GildingPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 9 TabOrder = 26
Visible = False
Width = 150 Width = 150
end end
object OrdNote: TcxMemo object OrdNote: TcxMemo
Tag = 2 Tag = 2
Left = 67 Left = 67
Top = 241 Top = 205
Properties.ScrollBars = ssVertical
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 14
Height = 89
Width = 721
end
object PackNote: TcxMemo
Tag = 2
Left = 67
Top = 157
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 13 TabOrder = 13
Height = 89
Width = 740
end
object PackNote: TcxMemo
Tag = 2
Left = 67
Top = 121
Properties.ScrollBars = ssVertical
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 12
Height = 77 Height = 77
Width = 721 Width = 740
end end
object PackType: TcxButtonEdit object PackType: TcxButtonEdit
Tag = 2 Tag = 2
@ -400,7 +406,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 15 TabOrder = 14
Visible = False Visible = False
Width = 131 Width = 131
end end
@ -423,7 +429,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 16 TabOrder = 15
Visible = False Visible = False
Width = 131 Width = 131
end end
@ -446,7 +452,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 23 TabOrder = 22
Visible = False Visible = False
Width = 131 Width = 131
end end
@ -469,13 +475,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 17 TabOrder = 16
Visible = False Visible = False
Width = 131 Width = 131
end end
object LabVolume: TcxButtonEdit object LabVolume: TcxButtonEdit
Left = 67 Left = 10000
Top = 121 Top = 10000
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -485,13 +491,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = LabVolumePropertiesButtonClick Properties.OnButtonClick = LabVolumePropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 11 TabOrder = 25
Visible = False
OnEnter = LabVolumeEnter OnEnter = LabVolumeEnter
Width = 183 Width = 183
end end
object LabPackage: TcxButtonEdit object LabPackage: TcxButtonEdit
Left = 299 Left = 10000
Top = 121 Top = 10000
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -501,7 +508,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = LabVolumePropertiesButtonClick Properties.OnButtonClick = LabVolumePropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 12 TabOrder = 27
Visible = False
OnEnter = LabPackageEnter OnEnter = LabPackageEnter
Width = 162 Width = 162
end end
@ -519,7 +527,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = GildingPropertiesButtonClick Properties.OnButtonClick = GildingPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 20 TabOrder = 19
Visible = False Visible = False
Width = 150 Width = 150
end end
@ -537,7 +545,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = GildingPropertiesButtonClick Properties.OnButtonClick = GildingPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 22 TabOrder = 21
Visible = False Visible = False
Width = 150 Width = 150
end end
@ -555,7 +563,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Properties.OnButtonClick = GildingPropertiesButtonClick Properties.OnButtonClick = GildingPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 18 TabOrder = 17
Visible = False Visible = False
Width = 150 Width = 150
end end
@ -565,7 +573,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 19 TabOrder = 18
Visible = False Visible = False
Width = 94 Width = 94
end end
@ -575,15 +583,62 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 21 TabOrder = 20
Visible = False Visible = False
Width = 82 Width = 82
end end
object JYNo: TcxTextEdit
Tag = 2
Left = 667
Top = 49
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 7
Width = 137
end
object PB_Code: TcxTextEdit
Tag = 2
Left = 67
Top = 85
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 8
Width = 155
end
object PB_Spec: TcxTextEdit
Tag = 2
Left = 283
Top = 85
AutoSize = False
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 9
Height = 29
Width = 150
end
object PB_Width: TcxTextEdit
Tag = 2
Left = 470
Top = 85
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 10
Width = 150
end
object PB_GramWeight: TcxTextEdit
Tag = 2
Left = 657
Top = 85
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 11
Width = 150
end
object dxLayoutControl_bzplanGroup_Root: TdxLayoutGroup object dxLayoutControl_bzplanGroup_Root: TdxLayoutGroup
AlignHorz = ahLeft AlignHorz = ahLeft
AlignVert = avTop AlignVert = avTop
Hidden = True Hidden = True
ItemIndex = 3 ItemIndex = 2
ShowBorder = False ShowBorder = False
Index = -1 Index = -1
end end
@ -591,7 +646,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Parent = dxLayoutControl_bzplanGroup_Root Parent = dxLayoutControl_bzplanGroup_Root
CaptionOptions.Text = 'Hidden Group' CaptionOptions.Text = 'Hidden Group'
Hidden = True Hidden = True
ItemIndex = 3 ItemIndex = 2
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
Index = 0 Index = 0
@ -629,30 +684,32 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 150 ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 2 Index = 3
end end
object dxLayoutItem5: TdxLayoutItem object dxLayoutItem5: TdxLayoutItem
Parent = dxLayoutGroup_1 Parent = dxLayoutGroup_2
AlignVert = avClient
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
SizeOptions.Width = 202
AllowRemove = False AllowRemove = False
CaptionOptions.Text = #25490#21333#26085#26399 CaptionOptions.Text = #25490#21333#26085#26399
Control = OrdDate Control = OrdDate
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 131 ControlOptions.OriginalWidth = 148
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 3 Index = 2
end end
object dxLayoutGroup_2: TdxLayoutGroup object dxLayoutGroup_2: TdxLayoutGroup
Parent = dxLayoutControl_bzplanGroup_Root Parent = dxLayoutControl_bzplanGroup_Root
CaptionOptions.Text = 'Hidden Group' CaptionOptions.Text = 'Hidden Group'
Hidden = True Hidden = True
ItemIndex = 3
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
Index = 1 Index = 1
end end
object dxLayoutItem2: TdxLayoutItem object dxLayoutItem2: TdxLayoutItem
Parent = dxLayoutGroup_2
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
CaptionOptions.Text = #21152#24037#21378 CaptionOptions.Text = #21152#24037#21378
@ -660,12 +717,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 150 ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 2 Index = -1
end end
object dxLayoutItem6: TdxLayoutItem object dxLayoutItem6: TdxLayoutItem
Parent = dxLayoutGroup_2 Parent = dxLayoutGroup_2
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
SizeOptions.Width = 185
AllowRemove = False AllowRemove = False
CaptionOptions.Text = #20132#36135#26085#26399 CaptionOptions.Text = #20132#36135#26085#26399
Control = DLYDate Control = DLYDate
@ -686,30 +744,20 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 1 Index = 1
end end
object dxLayoutGroup_3: TdxLayoutGroup
Parent = dxLayoutControl_bzplanGroup_Root
CaptionOptions.Text = 'Hidden Group'
Hidden = True
ItemIndex = 3
LayoutDirection = ldHorizontal
ShowBorder = False
Index = 2
end
object dxLayoutItem8: TdxLayoutItem object dxLayoutItem8: TdxLayoutItem
Parent = dxLayoutGroup_3 Parent = dxLayoutGroup_1
AlignVert = avClient AlignVert = avClient
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
SizeOptions.SizableVert = False SizeOptions.SizableVert = False
CaptionOptions.Text = #33337' '#26679 CaptionOptions.Text = #33853#33394#25968#37327
Control = ShippingSample Control = ShippingSample
ControlOptions.OriginalHeight = 25 ControlOptions.OriginalHeight = 25
ControlOptions.OriginalWidth = 150 ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 1 Index = 2
end end
object dxLayoutItem9: TdxLayoutItem object dxLayoutItem9: TdxLayoutItem
Parent = dxLayoutGroup_3
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
CaptionOptions.Text = #28907' '#37329 CaptionOptions.Text = #28907' '#37329
@ -717,10 +765,9 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 131 ControlOptions.OriginalWidth = 131
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 0 Index = -1
end end
object dxLayoutItem10: TdxLayoutItem object dxLayoutItem10: TdxLayoutItem
Parent = dxLayoutGroup_3
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
CaptionOptions.Text = #24320' '#21098 CaptionOptions.Text = #24320' '#21098
@ -728,10 +775,9 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 150 ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 2 Index = -1
end end
object dxLayoutItem11: TdxLayoutItem object dxLayoutItem11: TdxLayoutItem
Parent = dxLayoutGroup_3
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
CaptionOptions.Text = #23553' '#26465 CaptionOptions.Text = #23553' '#26465
@ -739,7 +785,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 131 ControlOptions.OriginalWidth = 131
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 3 Index = -1
end end
object dxLayoutGroup_4: TdxLayoutGroup object dxLayoutGroup_4: TdxLayoutGroup
Parent = dxLayoutControl_bzplanGroup_Root Parent = dxLayoutControl_bzplanGroup_Root
@ -747,14 +793,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Hidden = True Hidden = True
ItemIndex = 1 ItemIndex = 1
ShowBorder = False ShowBorder = False
Index = 4 Index = 3
end end
object dxLayoutItem12: TdxLayoutItem object dxLayoutItem12: TdxLayoutItem
Parent = dxLayoutGroup_4 Parent = dxLayoutGroup_4
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
SizeOptions.SizableVert = True SizeOptions.SizableVert = True
CaptionOptions.Text = #21253#35013#35201#27714 CaptionOptions.Text = #26816#39564#35201#27714
Control = PackNote Control = PackNote
ControlOptions.OriginalHeight = 77 ControlOptions.OriginalHeight = 77
ControlOptions.OriginalWidth = 704 ControlOptions.OriginalWidth = 704
@ -817,17 +863,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = -1 Index = -1
end end
object dxLayoutGroup_label: TdxLayoutGroup
Parent = dxLayoutControl_bzplanGroup_Root
CaptionOptions.Text = 'Hidden Group'
Hidden = True
ItemIndex = 1
LayoutDirection = ldHorizontal
ShowBorder = False
Index = 3
end
object dxLayoutItem20: TdxLayoutItem object dxLayoutItem20: TdxLayoutItem
Parent = dxLayoutGroup_label
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
SizeOptions.Width = 237 SizeOptions.Width = 237
@ -836,10 +872,9 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 183 ControlOptions.OriginalWidth = 183
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 0 Index = -1
end end
object dxLayoutItem21: TdxLayoutItem object dxLayoutItem21: TdxLayoutItem
Parent = dxLayoutGroup_label
SizeOptions.AssignedValues = [sovSizableHorz] SizeOptions.AssignedValues = [sovSizableHorz]
SizeOptions.SizableHorz = True SizeOptions.SizableHorz = True
SizeOptions.Width = 204 SizeOptions.Width = 204
@ -848,7 +883,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.OriginalHeight = 29 ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 162 ControlOptions.OriginalWidth = 162
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 1 Index = -1
end end
object dxLayoutItem22: TdxLayoutItem object dxLayoutItem22: TdxLayoutItem
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
@ -905,6 +940,75 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = -1 Index = -1
end end
object dxLayoutItem_JYNo: TdxLayoutItem
Parent = dxLayoutGroup_2
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True
SizeOptions.SizableVert = True
SizeOptions.Width = 191
CaptionOptions.Text = #26816#39564#21333#21495
Control = JYNo
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 137
ControlOptions.ShowBorder = False
Index = 3
end
object dxLayoutItem_PB_Code: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup1
AlignHorz = ahClient
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True
SizeOptions.SizableVert = True
SizeOptions.Width = 65
CaptionOptions.Text = #22383#24067#32534#21495
Control = PB_Code
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False
Index = 0
end
object dxLayoutItem_PB_Spec: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup1
AlignVert = avClient
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True
SizeOptions.SizableVert = True
CaptionOptions.Text = #22383#24067#35268#26684
Control = PB_Spec
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False
Index = 1
end
object dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup
Parent = dxLayoutControl_bzplanGroup_Root
LayoutDirection = ldHorizontal
Index = 2
end
object dxLayoutItem_PB_Width: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup1
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True
SizeOptions.SizableVert = True
CaptionOptions.Text = #38376#24133
Control = PB_Width
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False
Index = 2
end
object dxLayoutItem_C_GramWeight: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup1
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
SizeOptions.SizableHorz = True
SizeOptions.SizableVert = True
CaptionOptions.Text = #20811#37325
Control = PB_GramWeight
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 150
ControlOptions.ShowBorder = False
Index = 3
end
end end
object dxLayoutControl_other: TdxLayoutControl object dxLayoutControl_other: TdxLayoutControl
Left = 926 Left = 926

13
项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.pas
View File

@ -85,7 +85,6 @@ type
v1AttName: TcxGridDBColumn; v1AttName: TcxGridDBColumn;
Tv1batchNo: TcxGridDBColumn; Tv1batchNo: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
dxLayoutGroup_3: TdxLayoutGroup;
dxLayoutItem8: TdxLayoutItem; dxLayoutItem8: TdxLayoutItem;
dxLayoutItem9: TdxLayoutItem; dxLayoutItem9: TdxLayoutItem;
dxLayoutItem10: TdxLayoutItem; dxLayoutItem10: TdxLayoutItem;
@ -121,7 +120,6 @@ type
dxLayoutItem17: TdxLayoutItem; dxLayoutItem17: TdxLayoutItem;
dxLayoutItem18: TdxLayoutItem; dxLayoutItem18: TdxLayoutItem;
dxLayoutItem19: TdxLayoutItem; dxLayoutItem19: TdxLayoutItem;
dxLayoutGroup_label: TdxLayoutGroup;
dxLayoutItem20: TdxLayoutItem; dxLayoutItem20: TdxLayoutItem;
dxLayoutItem21: TdxLayoutItem; dxLayoutItem21: TdxLayoutItem;
RMPreview1: TRMPreview; RMPreview1: TRMPreview;
@ -161,6 +159,17 @@ type
Timport: TToolButton; Timport: TToolButton;
CDS_LM: TClientDataSet; CDS_LM: TClientDataSet;
Tv1BatchNoQty: TcxGridDBColumn; Tv1BatchNoQty: TcxGridDBColumn;
JYNo: TcxTextEdit;
PB_Code: TcxTextEdit;
PB_Spec: TcxTextEdit;
PB_Width: TcxTextEdit;
PB_GramWeight: TcxTextEdit;
dxLayoutItem_JYNo: TdxLayoutItem;
dxLayoutItem_PB_Code: TdxLayoutItem;
dxLayoutItem_PB_Spec: TdxLayoutItem;
dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup;
dxLayoutItem_PB_Width: TdxLayoutItem;
dxLayoutItem_C_GramWeight: TdxLayoutItem;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);

42
项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.dfm
View File

@ -425,7 +425,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
ImageIndex = 0 ImageIndex = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 17 Left = 17
Top = 3 Top = 2
Width = 1040 Width = 1040
Height = 246 Height = 246
TabOrder = 0 TabOrder = 0
@ -585,6 +585,46 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
end end
object Tv1PB_Code: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'PB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1PB_Spec: TcxGridDBColumn
Caption = #22383#24067#35268#26684
DataBinding.FieldName = 'PB_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1PB_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'PB_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1PB_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'PB_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1JYNo: TcxGridDBColumn
Caption = #26816#39564#21333#21495
DataBinding.FieldName = 'JYNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object tv1ordNote: TcxGridDBColumn object tv1ordNote: TcxGridDBColumn
Caption = #22791#27880#35201#27714 Caption = #22791#27880#35201#27714
DataBinding.FieldName = 'ordNote' DataBinding.FieldName = 'ordNote'

5
项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.pas
View File

@ -209,6 +209,11 @@ type
TV2Column11: TcxGridDBColumn; TV2Column11: TcxGridDBColumn;
TV2Column12: TcxGridDBColumn; TV2Column12: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Tv1PB_Code: TcxGridDBColumn;
Tv1PB_Spec: TcxGridDBColumn;
Tv1PB_Width: TcxGridDBColumn;
Tv1PB_GramWeight: TcxGridDBColumn;
Tv1JYNo: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);

18
项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj.local
View File

@ -69,17 +69,17 @@
<File Path="U_ItemTestInPut.dfm"/> <File Path="U_ItemTestInPut.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

BIN
项目代码/DJ/G01贸易生产计划/djdPackPlan.identcache
View File

Binary file not shown.

BIN
项目代码/DJ/G01贸易生产计划/testDll.identcache
View File

Binary file not shown.

14
项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.dproj.local
View File

@ -59,8 +59,8 @@
<Transaction>1899-12-30 00:00:00.000.178,D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.178,D:\rtgit\git_clone\D10DJjinglei\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G03贸易布匹检验\U_CDList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas</Transaction>
@ -91,17 +91,17 @@
<Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\DJ"/> <File Path="..\..\DJ"/>

BIN
项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.identcache
View File

Binary file not shown.

2
项目代码/DJ/G03贸易布匹检验/U_GetDllForm.pas
View File

@ -80,6 +80,8 @@ begin
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
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;
// DParameters1:='高权限'; // DParameters1:='高权限';
dname := 'ADMIN';
dcode := 'ADMIN';
end end
else else
begin begin

605
项目代码/DJ/G03贸易布匹检验/U_MachRollMain.dfm
View File

File diff suppressed because it is too large Load Diff

46
项目代码/DJ/G03贸易布匹检验/U_MachRollMain.pas
View File

@ -300,6 +300,14 @@ type
dxLayoutItem_btnClear: TdxLayoutItem; dxLayoutItem_btnClear: TdxLayoutItem;
BatchNoQty: TcxTextEdit; BatchNoQty: TcxTextEdit;
dxLayoutItem_BatchNoQty: TdxLayoutItem; dxLayoutItem_BatchNoQty: TdxLayoutItem;
PB_Code: TcxTextEdit;
PB_Spec: TcxTextEdit;
dxLayoutItem_PB_Code: TdxLayoutItem;
dxLayoutItem_PB_Spec: TdxLayoutItem;
CINote: TcxMemo;
dxLayoutItem_note: TdxLayoutItem;
JYNote: TcxMemo;
dxLayoutItem_JYNote: TdxLayoutItem;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure Button_badClick(Sender: TObject); procedure Button_badClick(Sender: TObject);
@ -353,7 +361,7 @@ type
private private
FCIID, FOperationStatus, FCIFName, FWorkshop: string; FCIID, FOperationStatus, FCIFName, FWorkshop: string;
FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string; FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string;
FBatchNO, FLenUnit, FC_Code, FC_Name, FC_EName, FC_Spec, FC_Width, FC_GramWeight: string; FBatchNO, FLenUnit, FC_Code, FC_Name, FC_EName, FC_Spec, FC_Width, FC_GramWeight, FPB_Code, FPB_Spec: string;
FC_Color, FC_EColor, FC_ColorNo, FC_StyleNo, FC_Composition, FC_Pattern, FC_CustPattern, FC_ColorDepth: string; FC_Color, FC_EColor, FC_ColorNo, FC_StyleNo, FC_Composition, FC_Pattern, FC_CustPattern, FC_ColorDepth: string;
Faddwet, faddlen, FPackbag: double; Faddwet, faddlen, FPackbag: double;
FFtyPCId, FGangNo, FRulePieceNo, FRulePackNo, FCDUnit: string; FFtyPCId, FGangNo, FRulePieceNo, FRulePackNo, FCDUnit: string;
@ -776,11 +784,11 @@ begin
C_GramWeight3.text := ''; C_GramWeight3.text := '';
ValidC_Width.text := ''; ValidC_Width.text := '';
BDBC_Width.text := ''; BDBC_Width.text := '';
hand_feel.text := ''; // hand_feel.text := '';
color_diff.text := ''; // color_diff.text := '';
TW_diff.text := ''; // TW_diff.text := '';
LMR_diff.text := ''; // LMR_diff.text := '';
color_light.text := ''; // color_light.text := '';
JingMi.text := ''; JingMi.text := '';
WeiMi.text := ''; WeiMi.text := '';
LYFlag.text := ''; LYFlag.text := '';
@ -1273,6 +1281,8 @@ begin
InputWeight.Text := ''; InputWeight.Text := '';
FLenUnit := ''; FLenUnit := '';
BatchNO.Text := ''; BatchNO.Text := '';
FPB_Code := '';
FPB_Spec := '';
Faddwet := 0; Faddwet := 0;
faddlen := 0; faddlen := 0;
FPackbag := 0; FPackbag := 0;
@ -1388,11 +1398,11 @@ begin
FC_EName := trim(fieldbyName('C_EName').AsString); FC_EName := trim(fieldbyName('C_EName').AsString);
FBatchNO := Trim(fieldbyname('BatchNO').AsString); FBatchNO := Trim(fieldbyname('BatchNO').AsString);
FC_Spec := trim(fieldbyName('C_Spec').AsString); FC_Spec := trim(fieldbyName('C_Spec').AsString);
FC_Color := trim(fieldbyName('C_Color').AsString); FC_Color := trim(fieldbyName('C_CustColorNo').AsString);
FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString); FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString);
FC_EColor := trim(fieldbyName('C_EColor').AsString); FC_EColor := trim(fieldbyName('C_EColor').AsString);
FC_Width := trim(fieldbyName('C_Width').AsString); FC_Width := trim(fieldbyName('PB_Width').AsString);
FC_GramWeight := trim(fieldbyName('C_GramWeight').AsString); FC_GramWeight := trim(fieldbyName('PB_GramWeight').AsString);
C_width.Text := FC_Width; C_width.Text := FC_Width;
C_GramWeight.Text := FC_GramWeight; C_GramWeight.Text := FC_GramWeight;
FC_Pattern := trim(fieldbyName('C_Pattern').AsString); FC_Pattern := trim(fieldbyName('C_Pattern').AsString);
@ -1400,6 +1410,8 @@ begin
FFtyPCId := trim(fieldbyName('FtyPCId').AsString); FFtyPCId := trim(fieldbyName('FtyPCId').AsString);
FRulePieceNo := trim(fieldbyName('RulePieceNo').AsString); FRulePieceNo := trim(fieldbyName('RulePieceNo').AsString);
FRulePackNo := trim(fieldbyName('RulePackNo').AsString); FRulePackNo := trim(fieldbyName('RulePackNo').AsString);
FPB_Code := trim(fieldbyName('PB_Code').AsString);
FPB_Spec := trim(fieldbyName('PB_Spec').AsString);
if FRulePieceNo = '' then if FRulePieceNo = '' then
FRulePieceNo := '按缸号生成'; FRulePieceNo := '按缸号生成';
@ -1489,8 +1501,10 @@ begin
c_eColor.Text := FC_EColor; c_eColor.Text := FC_EColor;
FtyPCId.Text := FFtyPCId; FtyPCId.Text := FFtyPCId;
BCIOID.Text := FBCIOID; BCIOID.Text := FBCIOID;
PB_Code.Text := FPB_Code;
PB_Spec.Text := FPB_Spec;
Piece.Text := trim(fieldbyName('ordPiece').AsString); Piece.Text := trim(fieldbyName('ordPiece').AsString);
BatchNoQty.text := trim(fieldbyName('BatchNoQty').AsString); BatchNoQty.text := trim(fieldbyName('ShippingSample').AsString);
Qty.Text := trim(fieldbyName('ordQty').AsString) + trim(fieldbyName('ordUnit').AsString); Qty.Text := trim(fieldbyName('ordQty').AsString) + trim(fieldbyName('ordUnit').AsString);
// 皮重 // 皮重
Tare.Text := trim(fieldbyName('RuleLaterTare').AsString); Tare.Text := trim(fieldbyName('RuleLaterTare').AsString);
@ -1509,6 +1523,13 @@ begin
packnote.Lines.Add(trim(fieldbyName('packnote').AsString)); packnote.Lines.Add(trim(fieldbyName('packnote').AsString));
packnote.Lines.Add('备注：'); packnote.Lines.Add('备注：');
packnote.Lines.Add(trim(fieldbyName('ordnote').AsString)); packnote.Lines.Add(trim(fieldbyName('ordnote').AsString));
JYNote.Lines.Clear;
JYNote.Lines.Add(trim(fieldbyName('PackNote').AsString));
CINote.Lines.Clear;
CINote.Lines.Add(trim(fieldbyName('OrdNote').AsString));
// 定长 dxLayoutItem_pieceorder // 定长 dxLayoutItem_pieceorder
if fieldbyName('FixedLength').AsInteger > 0 then if fieldbyName('FixedLength').AsInteger > 0 then
begin begin
@ -2817,6 +2838,11 @@ begin
fieldbyName('JingMi').value := trim(JingMi.Text); fieldbyName('JingMi').value := trim(JingMi.Text);
fieldbyName('WeiMi').value := trim(WeiMi.Text); fieldbyName('WeiMi').value := trim(WeiMi.Text);
fieldbyName('LYFlag').value := trim(LYFlag.Text); fieldbyName('LYFlag').value := trim(LYFlag.Text);
fieldbyName('BatchNoQty').value := trim(BatchNoQty.Text);
fieldbyName('PB_Code').value := FPB_Code;
fieldbyName('PB_Spec').value := FPB_Spec;
fieldbyName('JYNote').value := trim(JYNote.Text);
fieldbyName('CINote').value := trim(CINote.Text);
/// 新加的一堆 /// /// 新加的一堆 ///
//拼匹 //拼匹