diff --git a/A00通用窗体/U_PictureUpload.dfm b/A00通用窗体/U_PictureUpload.dfm
index d7fa7fc..4d03dff 100644
--- a/A00通用窗体/U_PictureUpload.dfm
+++ b/A00通用窗体/U_PictureUpload.dfm
@@ -34,18 +34,20 @@ object frmPictureUpload: TfrmPictureUpload
end
object ScrollBox1: TScrollBox
Left = 0
- Top = 30
+ Top = 76
Width = 496
- Height = 419
+ Height = 373
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Align = alClient
TabOrder = 0
+ ExplicitTop = 38
+ ExplicitHeight = 411
object Image1: TImage
Left = 0
Top = 0
Width = 492
- Height = 415
+ Height = 369
Cursor = crSizeAll
Align = alClient
Center = True
@@ -64,13 +66,13 @@ object frmPictureUpload: TfrmPictureUpload
Left = 0
Top = 0
Width = 496
- Height = 30
+ Height = 76
AutoSize = True
- ButtonHeight = 30
- ButtonWidth = 95
+ ButtonHeight = 38
+ ButtonWidth = 123
Caption = 'ToolBar1'
- DisabledImages = BaseDataLink.cxImageList_bar
- Images = BaseDataLink.cxImageList_bar
+ DisabledImages = ImageList1
+ Images = ImageList1
List = True
ShowCaptions = True
TabOrder = 1
@@ -83,7 +85,7 @@ object frmPictureUpload: TfrmPictureUpload
OnClick = ToolButton1Click
end
object TBSave: TToolButton
- Left = 87
+ Left = 111
Top = 0
AutoSize = True
Caption = #20445#23384
@@ -92,32 +94,33 @@ object frmPictureUpload: TfrmPictureUpload
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
- Left = 150
+ Left = 190
Top = 0
AutoSize = True
Caption = #22270#29255#21478#23384#20026
ImageIndex = 13
+ Wrap = True
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
- Left = 249
- Top = 0
+ Left = 0
+ Top = 38
AutoSize = True
Caption = #21024#38500
ImageIndex = 14
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
- Left = 312
- Top = 0
+ Left = 79
+ Top = 38
AutoSize = True
Caption = #25918#24323
ImageIndex = 10
OnClick = ToolButton4Click
end
object TBClose: TToolButton
- Left = 375
- Top = 0
+ Left = 158
+ Top = 38
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
diff --git a/A00通用窗体/U_SalesContract_SXSel.pas b/A00通用窗体/U_SalesContract_SXSel.pas
index 4819b75..91d20d9 100644
--- a/A00通用窗体/U_SalesContract_SXSel.pas
+++ b/A00通用窗体/U_SalesContract_SXSel.pas
@@ -12,22 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
- Clipbrd,
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ Clipbrd, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmSalesContract_SXSel = class(TfrmBaseHelp)
@@ -179,7 +164,7 @@ begin
Close;
sql.Clear;
SQL.add('select * from V_HT_SX');
- Open;
+ Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
diff --git a/A00通用窗体/U_SalesContract_ZZDSXSel.pas b/A00通用窗体/U_SalesContract_ZZDSXSel.pas
index c358fbd..5aa83f5 100644
--- a/A00通用窗体/U_SalesContract_ZZDSXSel.pas
+++ b/A00通用窗体/U_SalesContract_ZZDSXSel.pas
@@ -12,22 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
- Clipbrd,
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ Clipbrd, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmSalesContract_ZZDSXSel = class(TfrmBaseHelp)
diff --git a/A00通用窗体/U_WBSpecSel.dfm b/A00通用窗体/U_WBSpecSel.dfm
index e242f61..44acc8b 100644
--- a/A00通用窗体/U_WBSpecSel.dfm
+++ b/A00通用窗体/U_WBSpecSel.dfm
@@ -103,7 +103,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Height = 484
Align = alClient
TabOrder = 2
- ExplicitTop = 80
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -112,7 +111,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel
item
Kind = skSum
Position = spFooter
- Column = v1Column17
end
item
Kind = skSum
@@ -151,119 +149,62 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Width = 99
end
object Tv1Column10: TcxGridDBColumn
- Caption = #19978#25490#39063#25968
- DataBinding.FieldName = 'WB_YarnArr'
+ Caption = #38050#31576#32534#21495
+ DataBinding.FieldName = 'GKBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 144
end
- object Tv1Column4: TcxGridDBColumn
- Caption = #21514#25968
- DataBinding.FieldName = 'WB_YarnStripQty'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 102
- end
- object Tv1Column2: TcxGridDBColumn
- Caption = #38646#22836
- DataBinding.FieldName = 'WB_YarnStripRemainder'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 98
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #32463#36724#38376#24133
- DataBinding.FieldName = 'WB_Width'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 78
- end
object Tv1Column12: TcxGridDBColumn
Caption = #29301#32463#31576#21495
DataBinding.FieldName = 'WB_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 66
+ Width = 91
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #31576#24133
+ DataBinding.FieldName = 'WB_Width'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 102
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #31576#40831#25968
+ DataBinding.FieldName = 'C_KCQTY'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 98
+ end
+ object Tv1Column9: TcxGridDBColumn
+ Caption = #36793#32433#25968
+ DataBinding.FieldName = 'BSQTY'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 78
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #22320#31359#20837#27861
+ DataBinding.FieldName = 'DCRQTY'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 100
end
object v1Column8: TcxGridDBColumn
Tag = 2
- Caption = #31576#31359#20837#27861
+ Caption = #36793#31359#20837#27861
DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
- Width = 66
- end
- object Tv1Column6: TcxGridDBColumn
- Caption = #32463#36724#31859#25968
- DataBinding.FieldName = 'WB_YarnLen'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column10: TcxGridDBColumn
- Caption = #22987#21514#20301#32622
- DataBinding.FieldName = 'WB_Arg_SDWZ'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column17: TcxGridDBColumn
- Caption = #22369#26012#24230#25968
- DataBinding.FieldName = 'WB_Arg_PXDS'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #20301#31227#37327
- DataBinding.FieldName = 'WB_Move'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column3: TcxGridDBColumn
- Caption = #29301#32463#24352#21147#21442#25968
- DataBinding.FieldName = 'WB_Arg_QJZL'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column12: TcxGridDBColumn
- Tag = 2
- Caption = #22791#27880
- DataBinding.FieldName = 'Note'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column8: TcxGridDBColumn
- Caption = #29301#32463#25490#21015
- DataBinding.FieldName = 'WB_YarnArrNote'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column7: TcxGridDBColumn
- Caption = #32463#23494#24230
- DataBinding.FieldName = 'WB_YarnDensity'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 118
+ Width = 98
end
end
object cxGrid1Level1: TcxGridLevel
diff --git a/A00通用窗体/U_WBSpecSel.pas b/A00通用窗体/U_WBSpecSel.pas
index 791417a..0cb7980 100644
--- a/A00通用窗体/U_WBSpecSel.pas
+++ b/A00通用窗体/U_WBSpecSel.pas
@@ -61,15 +61,8 @@ type
Tv1Column12: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
- v1Column10: TcxGridDBColumn;
- v1Column17: TcxGridDBColumn;
- Tv1Column5: TcxGridDBColumn;
- Tv1Column3: TcxGridDBColumn;
- v1Column12: TcxGridDBColumn;
- Tv1Column8: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxImageList_bar: TcxImageList;
- Tv1Column7: TcxGridDBColumn;
Label2: TLabel;
WB_Name: TEdit;
procedure FormCreate(Sender: TObject);
diff --git a/A02基础产品管理/ClothInfo.dpr b/A02基础产品管理/ClothInfo.dpr
index 237ffe0..58c1b77 100644
--- a/A02基础产品管理/ClothInfo.dpr
+++ b/A02基础产品管理/ClothInfo.dpr
@@ -53,7 +53,8 @@ uses
JDAESExtend in '..\A00ͨ÷\AES\JDAESExtend.pas',
untAES in '..\A00ͨ÷\AES\untAES.pas',
U_TatClothInfoInput in 'U_TatClothInfoInput.pas' {frmTatClothInfoInput},
- U_WBSpecInPut2 in 'U_WBSpecInPut2.pas' {frmWBSpecInPut2};
+ U_WBSpecInPut2 in 'U_WBSpecInPut2.pas' {frmWBSpecInPut2},
+ U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload};
{$R *.res}
diff --git a/A02基础产品管理/ClothInfo.dproj b/A02基础产品管理/ClothInfo.dproj
index acce40a..bb18a39 100644
--- a/A02基础产品管理/ClothInfo.dproj
+++ b/A02基础产品管理/ClothInfo.dproj
@@ -208,6 +208,10 @@
dfm
+
+
+ dfm
+
Cfg_2
Base
diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local
index e259af3..e754c4c 100644
--- a/A02基础产品管理/ClothInfo.dproj.local
+++ b/A02基础产品管理/ClothInfo.dproj.local
@@ -12,31 +12,32 @@
1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas
1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm
1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm
1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas
1899-12-30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas
1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas
- 1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas
+ 1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas
1899-12-30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas
1899-12-30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas
1899-12-30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
1899-12-30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas
1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas
1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899-12-30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas
1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899-12-30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas
1899-12-30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
@@ -46,33 +47,33 @@
1899-12-30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas
1899-12-30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas
1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas
+ 1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas
1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas
- 1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas
1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas
1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm
1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
- 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm
1899-12-30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas
- 1899-12-30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj
1899-12-30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas
1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas
+ 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=
1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=
- 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas
@@ -109,6 +110,8 @@
+
+
diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache
index 5ac4bd3..9dbcf5e 100644
Binary files a/A02基础产品管理/ClothInfo.identcache and b/A02基础产品管理/ClothInfo.identcache differ
diff --git a/A02基础产品管理/SYSTEMSET.ini b/A02基础产品管理/SYSTEMSET.ini
index e49efa9..7da7820 100644
--- a/A02基础产品管理/SYSTEMSET.ini
+++ b/A02基础产品管理/SYSTEMSET.ini
@@ -1,8 +1,8 @@
[SERVER]
-ַ=101.132.143.144
-ַ=541
+ַ=150.109.121.232
+ַ=903
ǷԶ=1
-=ó
+=ϲ
½=sss
[]
С=9
\ No newline at end of file
diff --git a/A02基础产品管理/U_ClothType.pas b/A02基础产品管理/U_ClothType.pas
index 29e0a83..ae97542 100644
--- a/A02基础产品管理/U_ClothType.pas
+++ b/A02基础产品管理/U_ClothType.pas
@@ -7,24 +7,9 @@ uses
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters,
- cxTLdxBarBuiltInMenu, dxSkinsDefaultPainters, cxContainer, cxEdit,
- dxSkinsCore, cxFilter, dxScrollbarAnnotations, cxProgressBar,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ cxTLdxBarBuiltInMenu, dxSkinsDefaultPainters, cxContainer, cxEdit, dxSkinsCore,
+ cxFilter, dxScrollbarAnnotations, cxProgressBar, dxSkinOffice2013White,
+ dxSkinSharpPlus, dxSkinWXI;
type
TfrmClothType = class(TfrmBaseList)
diff --git a/A02基础产品管理/U_DataLink.pas b/A02基础产品管理/U_DataLink.pas
index ea51d48..fd6ac08 100644
--- a/A02基础产品管理/U_DataLink.pas
+++ b/A02基础产品管理/U_DataLink.pas
@@ -5,40 +5,9 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
- System.ImageList, U_BaseDataLink,
- cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, cxLocalization,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ System.ImageList, U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer,
+ dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels, dxSkinsCore,
+ dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TMyThread = class(TThread)
diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm
index bc14b51..994adde 100644
--- a/A02基础产品管理/U_TatClothInfo.dfm
+++ b/A02基础产品管理/U_TatClothInfo.dfm
@@ -8,7 +8,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
- ExplicitLeft = -310
ExplicitWidth = 1507
ExplicitHeight = 786
PixelsPerInch = 96
@@ -108,7 +107,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
AutoSize = True
Caption = #26631#31614#25171#21360
ImageIndex = 21
- Visible = False
OnClick = ToolButton3Click
end
object btn1: TToolButton
@@ -170,7 +168,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 672
HotZoneClassName = 'TcxMediaPlayer9Style'
Control = Panel5
- ExplicitHeight = 673
end
object Panel1: TPanel [2]
Left = 0
@@ -310,7 +307,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 7
- ExplicitHeight = 673
object cxDBTreeList1: TcxDBTreeList
Left = 2
Top = 2
@@ -333,7 +329,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 0
OnDblClick = cxDBTreeList1DblClick
- ExplicitHeight = 669
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName'
Width = 210
@@ -355,7 +350,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelOuter = bvLowered
Caption = 'Panel3'
TabOrder = 4
- ExplicitHeight = 673
object cxGrid1: TcxGrid
Left = 2
Top = 42
@@ -364,7 +358,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient
PopupMenu = PM_1
TabOrder = 0
- ExplicitHeight = 262
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@@ -716,22 +709,18 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 367
Align = alBottom
TabOrder = 2
- Properties.ActivePage = cxTabSheet2
+ Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
LookAndFeel.Kind = lfUltraFlat
LookAndFeel.ScrollbarMode = sbmHybrid
LookAndFeel.SkinName = ''
- ExplicitTop = 304
ClientRectBottom = 367
ClientRectRight = 1259
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object Panel6: TPanel
Left = 0
Top = 0
@@ -769,7 +758,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 337
Align = alClient
TabOrder = 1
- ExplicitLeft = 4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -1134,9 +1122,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object cxTabSheet3: TcxTabSheet
Caption = #26679#21697#22270#29255
ImageIndex = 2
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = 0
Top = 0
@@ -1160,33 +1145,27 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object cxTabSheet4: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object QZF: TMemo
- Tag = 2
+ object cxDBImage2: TcxDBImage
Left = 0
Top = 0
- Width = 1259
- Height = 339
+ Hint = 'FileName'
Align = alClient
- Enabled = False
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
- ParentFont = False
+ DataBinding.DataField = 'FilesOther'
+ DataBinding.DataSource = DS_ImgHX2
+ Properties.GraphicClassName = 'TdxSmartImage'
+ Properties.GraphicTransparency = gtTransparent
+ Properties.ReadOnly = True
+ Properties.ShowFocusRect = False
+ Style.BorderStyle = ebsSingle
TabOrder = 0
+ ExplicitLeft = -4
+ Height = 339
+ Width = 1259
end
end
object cxTabSheet5: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object CZF: TMemo
Tag = 2
Left = 0
@@ -1203,14 +1182,29 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
+ ExplicitLeft = 4
+ end
+ object cxDBImage1: TcxDBImage
+ Left = 0
+ Top = 0
+ Hint = 'FileName'
+ Align = alClient
+ DataBinding.DataField = 'FilesOther'
+ DataBinding.DataSource = DS_ImgHX
+ Properties.GraphicClassName = 'TdxSmartImage'
+ Properties.GraphicTransparency = gtTransparent
+ Properties.ReadOnly = True
+ Properties.ShowFocusRect = False
+ Style.BorderStyle = ebsSingle
+ TabOrder = 1
+ ExplicitTop = 42
+ Height = 339
+ Width = 1259
end
end
object cxTabSheet6: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0
@@ -1468,4 +1462,26 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 945
Top = 214
end
+ object Qry_ImgHX2: TADOQuery
+ Connection = DataLink_ClothInfo.ADOLink
+ Parameters = <>
+ Left = 458
+ Top = 392
+ end
+ object DS_ImgHX2: TDataSource
+ DataSet = Qry_ImgHX2
+ Left = 383
+ Top = 456
+ end
+ object Qry_ImgHX: TADOQuery
+ Connection = DataLink_ClothInfo.ADOLink
+ Parameters = <>
+ Left = 1066
+ Top = 288
+ end
+ object DS_ImgHX: TDataSource
+ DataSet = Qry_ImgHX
+ Left = 975
+ Top = 392
+ end
end
diff --git a/A02基础产品管理/U_TatClothInfo.pas b/A02基础产品管理/U_TatClothInfo.pas
index a27f169..28fd9a5 100644
--- a/A02基础产品管理/U_TatClothInfo.pas
+++ b/A02基础产品管理/U_TatClothInfo.pas
@@ -24,23 +24,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox,
- dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White,
+ dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit;
type
FdDy = record
@@ -180,7 +165,6 @@ type
btn1: TToolButton;
ToolButton4: TToolButton;
cxTabSheet4: TcxTabSheet;
- QZF: TMemo;
cxTabSheet5: TcxTabSheet;
CZF: TMemo;
cxTabSheet6: TcxTabSheet;
@@ -214,6 +198,12 @@ type
Tv1Column12: TcxGridDBColumn;
Tv4Z_Number: TcxGridDBColumn;
TV2Z_Number: TcxGridDBColumn;
+ cxDBImage2: TcxDBImage;
+ Qry_ImgHX2: TADOQuery;
+ DS_ImgHX2: TDataSource;
+ cxDBImage1: TcxDBImage;
+ Qry_ImgHX: TADOQuery;
+ DS_ImgHX: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@@ -608,6 +598,7 @@ begin
jpg.free;
application.ProcessMessages;
end;
+
end;
procedure TfrmTatClothInfo.TBCopyClick(Sender: TObject);
@@ -1097,7 +1088,35 @@ begin
CZF.Text := Trim(CDS_1.fieldbyname('CZF').AsString);
CKF.Text := Trim(CDS_1.fieldbyname('CKF').AsString);
- QZF.Text := Trim(CDS_1.fieldbyname('QZF').AsString);
+
+ if CDS_1.fieldbyname('attname1').AsString <> '' then
+ begin
+ with Qry_ImgHX do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(CDS_1.fieldbyname('attname1').AsString)));
+ SQL.Add('AND TFTYPE=''ZC'' ');
+// ShowMessage(SQL.Text);
+ open;
+ end;
+
+ end;
+ if CDS_1.fieldbyname('attname2').AsString <> '' then
+ begin
+ with Qry_ImgHX2 do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(CDS_1.fieldbyname('attname2').AsString)));
+ SQL.Add('AND TFTYPE=''qC'' ');
+// ShowMessage(SQL.Text);
+ open;
+ end;
+
+ end;
// myStream.Free;
end;
diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm
index d5c0194..9b6bc27 100644
--- a/A02基础产品管理/U_TatClothInfoInput.dfm
+++ b/A02基础产品管理/U_TatClothInfoInput.dfm
@@ -67,32 +67,51 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 0
Top = 30
Width = 1540
- Height = 245
+ Height = 395
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clWhite
Ctl3D = False
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentColor = False
ParentCtl3D = False
+ ParentFont = False
TabOrder = 1
+ ExplicitTop = 36
object Label1: TLabel
- Left = 38
+ Left = 10
Top = 26
- Width = 64
+ Width = 71
Height = 21
- Caption = #20135#21697#32534#21495
+ Caption = #20135#21697#32534#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label5: TLabel
- Left = 385
+ Left = 336
Top = 26
- Width = 64
+ Width = 71
Height = 21
- Caption = #20135#21697#21517#31216
+ Caption = #20135#21697#21517#31216'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label3: TLabel
- Left = 50
- Top = 355
+ Left = 136
+ Top = 419
Width = 51
Height = 16
Caption = #26465#30721#65306
@@ -104,64 +123,71 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentFont = False
Visible = False
end
- object Label16: TLabel
- Left = 38
- Top = 189
- Width = 32
- Height = 21
- Caption = #22791#27880
- end
object Label55: TLabel
- Left = 34
- Top = 451
- Width = 64
- Height = 21
- Caption = #31359#32508#39034#24207
- Visible = False
- end
- object Label2: TLabel
- Left = 1114
- Top = 439
- Width = 32
- Height = 21
- Caption = #31576#21495
- Visible = False
- end
- object Label4: TLabel
- Left = 385
- Top = 62
- Width = 96
- Height = 21
- Caption = #23454#27979#24179#26041#20811#37325
- end
- object Label6: TLabel
- Left = 1114
- Top = 63
- Width = 32
- Height = 21
- Caption = #32428#23494
- end
- object Label7: TLabel
- Left = 736
- Top = 483
+ Left = 10
+ Top = 308
Width = 48
Height = 21
- Caption = #24635#22836#32441
- Visible = False
+ Caption = #31359#32508#27861
+ end
+ object Label2: TLabel
+ Left = 336
+ Top = 176
+ Width = 39
+ Height = 21
+ Caption = #31576#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label6: TLabel
+ Left = 921
+ Top = 100
+ Width = 39
+ Height = 21
+ Caption = #32428#23494'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label7: TLabel
+ Left = 687
+ Top = 139
+ Width = 55
+ Height = 21
+ Caption = #24635#22836#32441'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label8: TLabel
- Left = 38
- Top = 62
- Width = 96
- Height = 21
- Caption = #29702#35770#24179#26041#20811#37325
- end
- object Label9: TLabel
- Left = 757
- Top = 26
+ Left = 336
+ Top = 101
Width = 32
Height = 21
- Caption = #38376#24133
+ Caption = #20811#37325
+ end
+ object Label9: TLabel
+ Left = 10
+ Top = 101
+ Width = 39
+ Height = 21
+ Caption = #38376#24133'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label10: TLabel
Left = 1132
@@ -172,101 +198,216 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
end
object lbl1: TLabel
- Left = 762
- Top = 404
- Width = 96
+ Left = 10
+ Top = 139
+ Width = 103
Height = 21
- Caption = #25972#32463#24037#33402#32534#21495
- Visible = False
+ Caption = #25972#32463#24037#33402#32534#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object lbl2: TLabel
- Left = 1114
- Top = 398
- Width = 96
+ Left = 336
+ Top = 139
+ Width = 103
Height = 21
- Caption = #25972#32463#24037#33402#21517#31216
- Visible = False
+ Caption = #25972#32463#24037#33402#21517#31216'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label11: TLabel
- Left = 385
- Top = 98
+ Left = 921
+ Top = 63
Width = 32
Height = 21
Caption = #33394#21495
end
object Label12: TLabel
- Left = 38
- Top = 98
+ Left = 687
+ Top = 63
Width = 32
Height = 21
Caption = #39068#33394
end
object Label13: TLabel
- Left = 757
- Top = 98
+ Left = 10
+ Top = 63
Width = 32
Height = 21
Caption = #33457#22411
end
object Label14: TLabel
- Left = 757
+ Left = 336
Top = 63
Width = 32
Height = 21
Caption = #27454#21495
end
object Label15: TLabel
- Left = 757
- Top = 136
+ Left = 921
+ Top = 25
Width = 32
Height = 21
Caption = #35268#26684
end
object Label17: TLabel
- Left = 1114
- Top = 99
+ Left = 687
+ Top = 26
Width = 32
Height = 21
Caption = #25104#20998
end
- object Label18: TLabel
- Left = 38
- Top = 134
- Width = 64
+ object Label20: TLabel
+ Left = 687
+ Top = 101
+ Width = 39
Height = 21
- Caption = #29256#26412#32534#21495
+ Caption = #32463#23494'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label19: TLabel
- Left = 385
- Top = 135
- Width = 32
+ Left = 10
+ Top = 176
+ Width = 71
Height = 21
- Caption = #32455#32553
- end
- object Label20: TLabel
- Left = 1114
- Top = 28
- Width = 32
- Height = 21
- Caption = #32463#23494
- end
- object Label21: TLabel
- Left = 757
- Top = 172
- Width = 32
- Height = 21
- Caption = #32463#32433
+ Caption = #38050#31576#32534#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label22: TLabel
- Left = 757
- Top = 206
+ Left = 687
+ Top = 176
+ Width = 39
+ Height = 21
+ Caption = #31576#24133'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label23: TLabel
+ Left = 921
+ Top = 177
+ Width = 48
+ Height = 21
+ Caption = #31576#40831#25968
+ end
+ object Label24: TLabel
+ Left = 10
+ Top = 213
+ Width = 48
+ Height = 21
+ Caption = #36793#32433#25968
+ end
+ object Label25: TLabel
+ Left = 336
+ Top = 213
+ Width = 71
+ Height = 21
+ Caption = #22320#20256#20837#25968'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label26: TLabel
+ Left = 687
+ Top = 213
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ end
+ object Label27: TLabel
+ Left = 10
+ Top = 251
+ Width = 48
+ Height = 21
+ Caption = #32508#39029#25968
+ end
+ object Label4: TLabel
+ Left = 336
+ Top = 251
+ Width = 48
+ Height = 21
+ Caption = #32428#29273#23494
+ end
+ object Label16: TLabel
+ Left = 687
+ Top = 251
+ Width = 55
+ Height = 21
+ Caption = #26085#20135#37327'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label18: TLabel
+ Left = 921
+ Top = 250
+ Width = 64
+ Height = 21
+ Caption = #33853#24067#31859#25968
+ end
+ object Label31: TLabel
+ Left = 1145
+ Top = 25
Width = 32
Height = 21
- Caption = #32428#32433
+ Caption = #26426#22411
+ end
+ object Label29: TLabel
+ Left = 95
+ Top = 353
+ Width = 392
+ Height = 21
+ Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968'*0.059/'#25903#25968'*1.08'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label30: TLabel
+ Left = 765
+ Top = 353
+ Width = 615
+ Height = 21
+ Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#32428#23494'*'#65288#31576#24133'+'#25439#32791#65289'*0.059 / '#25903#25968' *'#26681#25968'/'#24490#29615#26681#25968'* 1.08'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object BCIID: TEdit
- Left = 107
- Top = 353
+ Left = 193
+ Top = 417
Width = 218
Height = 22
Enabled = False
@@ -279,110 +420,87 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
TabOrder = 0
Visible = False
end
- object CINote: TcxMemo
- Tag = 2
- Left = 141
- Top = 172
- ParentColor = True
- TabOrder = 1
- Height = 57
- Width = 567
- end
object ThroughHealdOrder: TcxMemo
Tag = 2
- Left = 107
- Top = 433
+ Left = 116
+ Top = 290
ParentColor = True
ParentFont = False
- TabOrder = 2
- Visible = False
- Height = 57
- Width = 589
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 1
+ Height = 63
+ Width = 1061
end
object C_Code: TcxTextEdit
Tag = 2
- Left = 141
+ Left = 116
+ Top = 22
+ ParentColor = True
+ TabOrder = 2
+ OnKeyPress = CYColorKeyPress
+ Width = 150
+ end
+ object C_Name: TcxTextEdit
+ Tag = 2
+ Left = 444
Top = 22
ParentColor = True
TabOrder = 3
OnKeyPress = CYColorKeyPress
- Width = 220
- end
- object LoomType: TcxTextEdit
- Tag = 2
- Left = 1230
- Top = 479
- ParentColor = True
- TabOrder = 4
- Visible = False
- Width = 220
- end
- object C_Name: TcxTextEdit
- Tag = 2
- Left = 488
- Top = 22
- ParentColor = True
- TabOrder = 5
- OnKeyPress = CYColorKeyPress
- Width = 220
+ Width = 150
end
object C_YarnQty: TcxTextEdit
Tag = 2
- Left = 834
- Top = 479
+ Left = 765
+ Top = 135
ParentColor = True
Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged
- TabOrder = 6
- Visible = False
- Width = 220
+ TabOrder = 4
+ Width = 150
end
- object C_ReedWidth: TcxTextEdit
+ object C_Width: TcxTextEdit
Tag = 2
- Left = 869
- Top = 26
+ Left = 116
+ Top = 97
ParentColor = True
Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged
- TabOrder = 7
- Width = 220
+ TabOrder = 5
+ Width = 150
end
object C_ReedNo: TcxTextEdit
Tag = 2
- Left = 1217
- Top = 435
+ Left = 444
+ Top = 172
ParentColor = True
- TabOrder = 8
- Visible = False
- Width = 220
+ TabOrder = 6
+ Width = 150
end
object C_GramWeight: TcxTextEdit
Tag = 2
- Left = 141
- Top = 58
+ Left = 444
+ Top = 97
ParentColor = True
- TabOrder = 9
- Width = 220
- end
- object C_TestGramWeight: TcxTextEdit
- Tag = 2
- Left = 488
- Top = 58
- ParentColor = True
- TabOrder = 10
- Width = 220
+ TabOrder = 7
+ Width = 150
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
- Left = 1217
- Top = 60
+ Left = 986
+ Top = 97
ParentColor = True
- Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged
- TabOrder = 11
- Width = 220
+ TabOrder = 8
+ OnExit = C_ReedWidthExit
+ Width = 150
end
object WB_Code: TcxButtonEdit
Tag = 2
- Left = 860
- Top = 398
+ Left = 116
+ Top = 135
ParentColor = True
Properties.Buttons = <
item
@@ -392,144 +510,215 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 12
- Visible = False
- Width = 220
+ TabOrder = 9
+ Width = 150
end
object WB_Name: TcxTextEdit
Tag = 2
- Left = 1217
- Top = 392
+ Left = 444
+ Top = 135
Enabled = False
ParentColor = True
- TabOrder = 13
- Visible = False
- Width = 220
+ TabOrder = 10
+ Width = 150
end
object C_Color: TcxTextEdit
Tag = 2
- Left = 141
- Top = 94
+ Left = 765
+ Top = 59
ParentColor = True
- TabOrder = 14
- Width = 220
+ TabOrder = 11
+ Width = 150
end
object C_ColorNo: TcxTextEdit
Tag = 2
- Left = 488
- Top = 94
+ Left = 986
+ Top = 59
ParentColor = True
- TabOrder = 15
- Width = 220
+ TabOrder = 12
+ Width = 150
end
object C_Pattern: TcxTextEdit
Tag = 2
- Left = 870
- Top = 94
+ Left = 116
+ Top = 59
ParentColor = True
- TabOrder = 16
- Width = 220
+ TabOrder = 13
+ Width = 150
end
object C_StyleNo: TcxTextEdit
Tag = 2
- Left = 870
+ Left = 444
Top = 59
ParentColor = True
- TabOrder = 17
- Width = 220
+ TabOrder = 14
+ Width = 150
end
object C_Spec: TcxTextEdit
Tag = 2
- Left = 870
- Top = 132
+ Left = 986
+ Top = 22
ParentColor = True
- TabOrder = 18
- Width = 567
+ TabOrder = 15
+ Width = 150
end
object C_Composition: TcxTextEdit
Tag = 2
- Left = 1217
- Top = 95
+ Left = 765
+ Top = 22
ParentColor = True
Properties.OnEditValueChanged = C_CompositionPropertiesEditValueChanged
- TabOrder = 19
- Width = 220
- end
- object BBNo: TcxTextEdit
- Tag = 2
- Left = 141
- Top = 131
- ParentColor = True
- TabOrder = 20
- Width = 220
- end
- object ZS: TcxTextEdit
- Tag = 2
- Left = 488
- Top = 131
- ParentColor = True
- TabOrder = 21
- Width = 220
+ TabOrder = 16
+ Width = 150
end
object MFDW: TcxComboBox
Tag = 2
- Left = 1031
- Top = 27
+ Left = 267
+ Top = 97
Properties.Items.Strings = (
#8220
'CM')
Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged
- TabOrder = 22
+ TabOrder = 17
+ Text = #8220
Width = 63
end
object C_FinishLongitudeDensity: TcxTextEdit
Tag = 2
- Left = 1217
- Top = 24
+ Left = 765
+ Top = 97
ParentColor = True
Properties.OnEditValueChanged = C_FinishLongitudeDensityPropertiesEditValueChanged
- TabOrder = 23
- Width = 220
- end
- object JinSha: TcxTextEdit
- Tag = 2
- Left = 870
- Top = 168
- ParentColor = True
- TabOrder = 24
- Width = 567
- end
- object WeiSha: TcxTextEdit
- Tag = 2
- Left = 870
- Top = 202
- ParentColor = True
- TabOrder = 25
- Width = 567
+ TabOrder = 18
+ Width = 150
end
object LPDW: TcxComboBox
Tag = 2
- Left = 296
- Top = 55
+ Left = 600
+ Top = 97
Properties.Items.Strings = (
'GSM'
'MM')
Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged
- TabOrder = 26
+ TabOrder = 19
Width = 63
end
+ object GKBH: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 172
+ ParentColor = True
+ TabOrder = 20
+ Width = 150
+ end
+ object C_ReedWidth: TcxTextEdit
+ Tag = 2
+ Left = 765
+ Top = 172
+ ParentColor = True
+ TabOrder = 21
+ OnExit = C_ReedWidthExit
+ Width = 76
+ end
+ object C_KCQTY: TcxTextEdit
+ Tag = 2
+ Left = 986
+ Top = 173
+ ParentColor = True
+ TabOrder = 22
+ Width = 150
+ end
+ object BSQTY: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 209
+ ParentColor = True
+ TabOrder = 23
+ Width = 150
+ end
+ object DCRQTY: TcxTextEdit
+ Tag = 2
+ Left = 444
+ Top = 209
+ ParentColor = True
+ TabOrder = 24
+ Width = 150
+ end
+ object WB_ReedNote: TcxTextEdit
+ Tag = 2
+ Left = 765
+ Top = 209
+ ParentColor = True
+ TabOrder = 25
+ Width = 371
+ end
+ object ZYQTY: TcxTextEdit
+ Tag = 2
+ Left = 116
+ Top = 247
+ ParentColor = True
+ TabOrder = 26
+ Width = 150
+ end
+ object WYAMI: TcxTextEdit
+ Tag = 2
+ Left = 444
+ Top = 247
+ ParentColor = True
+ TabOrder = 27
+ Width = 150
+ end
+ object DAYQTY: TcxTextEdit
+ Tag = 2
+ Left = 765
+ Top = 247
+ ParentColor = True
+ TabOrder = 28
+ Width = 150
+ end
+ object LBQTY: TcxTextEdit
+ Tag = 2
+ Left = 986
+ Top = 244
+ ParentColor = True
+ TabOrder = 29
+ Width = 150
+ end
+ object GKDW: TcxComboBox
+ Tag = 2
+ Left = 847
+ Top = 170
+ Properties.Items.Strings = (
+ #8220
+ 'CM')
+ Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged
+ TabOrder = 30
+ Text = #8220
+ Width = 63
+ end
+ object LoomType: TcxComboBox
+ Tag = 2
+ Left = 1190
+ Top = 22
+ Properties.Items.Strings = (
+ 'GSM'
+ 'MM')
+ Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged
+ TabOrder = 31
+ Width = 99
+ end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
- Top = 275
+ Top = 425
Width = 1540
- Height = 462
+ Height = 312
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
- ClientRectBottom = 462
+ ClientRectBottom = 312
ClientRectRight = 1540
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
@@ -539,7 +728,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 931
Top = 0
Width = 609
- Height = 434
+ Height = 284
Align = alClient
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
@@ -554,7 +743,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 2
Top = 31
Width = 605
- Height = 401
+ Height = 251
Align = alClient
TabOrder = 0
end
@@ -563,14 +752,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 0
Top = 0
Width = 931
- Height = 434
+ Height = 284
Align = alLeft
TabOrder = 1
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
- Height = 432
+ Height = 282
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -585,7 +774,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 432
+ ClientRectBottom = 282
ClientRectRight = 929
ClientRectTop = 0
end
@@ -593,11 +782,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 1
Top = 1
Width = 929
- Height = 432
+ Height = 282
Align = alClient
PopupMenu = PM_1
TabOrder = 1
- ExplicitLeft = -2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -629,7 +817,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
- Caption = #21407#26009#20195#21495
+ Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@@ -644,7 +832,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 100
end
object cxGridDBColumn4: TcxGridDBColumn
- Caption = #21407#26009#21517#31216
+ Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -666,6 +854,24 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 100
end
+ object TV1Column6: TcxGridDBColumn
+ Caption = #20998#29305'(Dtex)'
+ DataBinding.FieldName = 'TestDenier'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 96
+ end
+ object TV1Column14: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'Z_Number'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
object TV1Column1: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
@@ -685,82 +891,24 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 80
end
object TV1Column10: TcxGridDBColumn
- Caption = #32442#27861
- DataBinding.FieldName = 'FF'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column12: TcxGridDBColumn
- Caption = #25467#24230
- DataBinding.FieldName = 'ND'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column3: TcxGridDBColumn
- Caption = #28068
- DataBinding.FieldName = 'Dacron'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column4: TcxGridDBColumn
- Caption = #26825
- DataBinding.FieldName = 'Cotton'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column5: TcxGridDBColumn
- Caption = #40635
- DataBinding.FieldName = 'Linen'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object cxGridDBColumn5: TcxGridDBColumn
- Caption = #32433#32447#21697#29260
- DataBinding.FieldName = 'Brand'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Moving = False
- Options.Sorting = False
- Width = 100
- end
- object TV1Column6: TcxGridDBColumn
- Caption = #20998#29305'(Dtex)'
- DataBinding.FieldName = 'TestDenier'
+ Caption = #20840#24133#26681#25968
+ DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
- HeaderAlignmentHorz = taCenter
- Width = 96
- end
- object TV1Column14: TcxGridDBColumn
- Caption = #25903#25968
- DataBinding.FieldName = 'Z_Number'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 71
- end
- object TV1Column9: TcxGridDBColumn
- Caption = #25104#20998
- DataBinding.FieldName = 'Y_Composition'
- DataBinding.IsNullValueType = True
+ Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column8: TcxGridDBColumn
- Caption = #31859'/'#24212#29992#37327
+ Caption = #30334#31859#32463#38271#37325#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 96
+ Width = 163
end
object TV1Column11: TcxGridDBColumn
- Caption = #28504#36890#21495
- DataBinding.FieldName = 'PTNo'
+ Caption = #22791#27880
+ DataBinding.FieldName = 'NOTE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
@@ -779,7 +927,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 961
Top = 0
Width = 579
- Height = 434
+ Height = 284
Align = alClient
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
@@ -794,7 +942,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 2
Top = 31
Width = 575
- Height = 401
+ Height = 251
Align = alClient
TabOrder = 0
end
@@ -803,14 +951,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 0
Top = 0
Width = 961
- Height = 434
+ Height = 284
Align = alLeft
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 959
- Height = 432
+ Height = 282
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -825,7 +973,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 432
+ ClientRectBottom = 282
ClientRectRight = 959
ClientRectTop = 0
end
@@ -833,11 +981,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 1
Top = 1
Width = 959
- Height = 432
+ Height = 282
Align = alClient
PopupMenu = PM_2
TabOrder = 1
- ExplicitLeft = -2
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -869,7 +1016,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 66
end
object v2Column10: TcxGridDBColumn
- Caption = #21407#26009#20195#21495
+ Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@@ -884,7 +1031,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 100
end
object cxGridDBColumn1: TcxGridDBColumn
- Caption = #21407#26009#21517#31216
+ Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -906,10 +1053,29 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 100
end
- object Tv2Column12: TcxGridDBColumn
- Caption = #25467#24230
- DataBinding.FieldName = 'ND'
+ object Tv2Column6: TcxGridDBColumn
+ Caption = #20998#29305'(Dtex)'
+ DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 91
+ end
+ object Tv2Column14: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'Z_Number'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 88
+ end
+ object Tv2Column1: TcxGridDBColumn
+ Caption = #26681#25968
+ DataBinding.FieldName = 'YarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@@ -922,85 +1088,25 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 80
end
- object Tv2Column10: TcxGridDBColumn
- Caption = #32442#27861
- DataBinding.FieldName = 'FF'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column1: TcxGridDBColumn
- Caption = #26681#25968
- DataBinding.FieldName = 'YarnQty'
+ object Tv2Column11: TcxGridDBColumn
+ Caption = #25439#32791
+ DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
- object v2Column2: TcxGridDBColumn
- Caption = #32433#32447#21697#29260
- DataBinding.FieldName = 'Brand'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Moving = False
- Options.Sorting = False
- Width = 100
- end
- object Tv2Column3: TcxGridDBColumn
- Caption = #28068
- DataBinding.FieldName = 'Dacron'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column4: TcxGridDBColumn
- Caption = #26825
- DataBinding.FieldName = 'Cotton'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column5: TcxGridDBColumn
- Caption = #40635
- DataBinding.FieldName = 'Linen'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column6: TcxGridDBColumn
- Caption = #20998#29305'(Dtex)'
- DataBinding.FieldName = 'TestDenier'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column14: TcxGridDBColumn
- Caption = #25903#25968
- DataBinding.FieldName = 'Z_Number'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 88
- end
object Tv2Column8: TcxGridDBColumn
- Caption = #31859'/'#24212#29992#37327
+ Caption = #30334#31859#32463#38271#29992#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 113
+ Width = 151
end
- object Tv2Column9: TcxGridDBColumn
- Caption = #25104#20998
- DataBinding.FieldName = 'Y_Composition'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column11: TcxGridDBColumn
- Caption = #28504#36890#21495
- DataBinding.FieldName = 'PTNo'
+ object Tv2Column12: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@@ -1015,98 +1121,123 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
- object Panel8: TPanel
+ object Panel5: TPanel
Left = 0
Top = 0
Width = 1540
- Height = 32
+ Height = 41
Align = alTop
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -24
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
TabOrder = 0
- Visible = False
- object ToolBar4: TToolBar
- Tag = 1
- Left = 555
- Top = 1
- Width = 142
- Height = 30
- Align = alLeft
- AutoSize = True
- ButtonHeight = 30
- ButtonWidth = 67
- Caption = 'ToolBar1'
- DisabledImages = DataLink_ClothInfo.cxImageList_bar
- EdgeInner = esNone
- EdgeOuter = esNone
- Images = DataLink_ClothInfo.cxImageList_bar
- List = True
- ShowCaptions = True
- TabOrder = 0
- object ToolButton9: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = #22686#34892
- ImageIndex = 2
- OnClick = ToolButton9Click
- end
- object ToolButton10: TToolButton
- Left = 71
- Top = 0
- AutoSize = True
- Caption = #21024#34892
- ImageIndex = 6
- OnClick = ToolButton10Click
- end
+ object Label28: TLabel
+ Left = 18
+ Top = 4
+ Width = 96
+ Height = 31
+ Caption = #22270#29255#36873#25321
end
- object Panel7: TPanel
- Left = 1
- Top = 1
- Width = 554
- Height = 30
- Align = alLeft
- TabOrder = 1
- object Label49: TLabel
- Tag = 2
- Left = 23
- Top = 4
- Width = 80
- Height = 21
- Caption = #36215#32508#35268#24459#65306
- end
- object Edit1: TEdit
- Tag = 55
- Left = 100
- Top = 0
- Width = 381
- Height = 29
- TabOrder = 0
- OnKeyPress = Edit1KeyPress
- end
+ object attname2: TcxButtonEdit
+ Tag = 2
+ Left = 120
+ Top = -4
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = attname2PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 0
+ Width = 150
end
end
- object QZF: TMemo
- Tag = 2
+ object cxDBImage2: TcxDBImage
Left = 0
- Top = 32
- Width = 1540
- Height = 402
+ Top = 41
+ Hint = 'FileName'
Align = alClient
- ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+ DataBinding.DataField = 'FilesOther'
+ DataBinding.DataSource = DS_ImgHX2
+ Properties.GraphicClassName = 'TdxSmartImage'
+ Properties.GraphicTransparency = gtTransparent
+ Properties.ReadOnly = True
+ Properties.ShowFocusRect = False
+ Style.BorderStyle = ebsSingle
TabOrder = 1
+ Height = 243
+ Width = 1540
end
end
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
- object CZF: TMemo
- Tag = 2
+ object Panel3: TPanel
Left = 0
Top = 0
Width = 1540
- Height = 434
+ Height = 284
Align = alClient
- ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
+ object cxDBImage1: TcxDBImage
+ Left = 1
+ Top = 42
+ Hint = 'FileName'
+ Align = alClient
+ DataBinding.DataField = 'FilesOther'
+ DataBinding.DataSource = DS_ImgHX
+ Properties.GraphicClassName = 'TdxSmartImage'
+ Properties.GraphicTransparency = gtTransparent
+ Properties.ReadOnly = True
+ Properties.ShowFocusRect = False
+ Style.BorderStyle = ebsSingle
+ TabOrder = 0
+ Height = 241
+ Width = 1538
+ end
+ object Panel4: TPanel
+ Left = 1
+ Top = 1
+ Width = 1538
+ Height = 41
+ Align = alTop
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -24
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 1
+ object Label21: TLabel
+ Left = 18
+ Top = 4
+ Width = 96
+ Height = 31
+ Caption = #22270#29255#36873#25321
+ end
+ object ATTNAME1: TcxButtonEdit
+ Tag = 2
+ Left = 120
+ Top = -4
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 0
+ Width = 150
+ end
+ end
end
end
object cxTabSheet5: TcxTabSheet
@@ -1117,7 +1248,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 0
Top = 0
Width = 1540
- Height = 434
+ Height = 284
Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
@@ -1126,8 +1257,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1
- Left = 721
- Top = 190
+ Left = 905
+ Top = 334
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = ADOConnection1
@@ -1140,9 +1271,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
- Left = 842
- Top = 262
- DesignInfo = 17171274
+ Left = 1250
+ Top = 310
+ DesignInfo = 20317410
end
object ADOQueryCmd: TADOQuery
Connection = ADOConnection1
@@ -1181,8 +1312,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object ADOConnection1: TADOConnection
LoginPrompt = False
- Left = 844
- Top = 140
+ Left = 1340
+ Top = 268
end
object ImageList1: TImageList
DrawingStyle = dsTransparent
@@ -4897,8 +5028,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object CDS_4: TClientDataSet
Aggregates = <>
Params = <>
- Left = 1144
- Top = 276
+ Left = 1312
+ Top = 348
end
object DS_4: TDataSource
DataSet = CDS_4
@@ -4919,14 +5050,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object GPM_4: TcxGridPopupMenu
PopupMenus = <>
- Left = 1092
- Top = 270
+ Left = 1252
+ Top = 294
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
LockType = ltReadOnly
Parameters = <>
- Left = 1008
+ Left = 1280
Top = 270
end
object ADOQueryTemp2: TADOQuery
@@ -4952,4 +5083,31 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
OnClick = MenuItem1Click
end
end
+ object DS_ImgHX: TDataSource
+ DataSet = Qry_ImgHX
+ Left = 519
+ Top = 408
+ end
+ object Qry_ImgHX: TADOQuery
+ Connection = DataLink_ClothInfo.ADOLink
+ Parameters = <>
+ Left = 610
+ Top = 304
+ end
+ object Qry_ImgHX2: TADOQuery
+ Connection = DataLink_ClothInfo.ADOLink
+ Parameters = <>
+ Left = 674
+ Top = 352
+ end
+ object DataSource1: TDataSource
+ DataSet = Qry_ImgHX2
+ Left = 671
+ Top = 528
+ end
+ object DS_ImgHX2: TDataSource
+ DataSet = Qry_ImgHX2
+ Left = 599
+ Top = 416
+ end
end
diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas
index 5302adf..7c1c2b4 100644
--- a/A02基础产品管理/U_TatClothInfoInput.pas
+++ b/A02基础产品管理/U_TatClothInfoInput.pas
@@ -19,23 +19,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox,
- dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- Vcl.Menus, cxDropDownEdit;
+ dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
+ dxSkinSharpPlus, dxSkinWXI, Vcl.Menus, cxDropDownEdit, cxImage, cxDBEdit;
type
TfrmTatClothInfoInput = class(TfrmBaseInput)
@@ -56,7 +41,6 @@ type
DS_2: TDataSource;
ADOConnection1: TADOConnection;
ImageList1: TImageList;
- Label16: TLabel;
Label55: TLabel;
cxPageControl3: TcxPageControl;
cxTabSheet1: TcxTabSheet;
@@ -68,7 +52,6 @@ type
TV1: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
- cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxTabSheet2: TcxTabSheet;
@@ -80,67 +63,45 @@ type
Tv2: TcxGridDBTableView;
v2Column10: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
- v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet3: TcxTabSheet;
- Panel8: TPanel;
- ToolBar4: TToolBar;
- ToolButton9: TToolButton;
- ToolButton10: TToolButton;
- Panel7: TPanel;
- Label49: TLabel;
- Edit1: TEdit;
CDS_4: TClientDataSet;
DS_4: TDataSource;
GPM_1: TcxGridPopupMenu;
GPM_2: TcxGridPopupMenu;
GPM_4: TcxGridPopupMenu;
ToolButton11: TToolButton;
- CINote: TcxMemo;
ThroughHealdOrder: TcxMemo;
C_Code: TcxTextEdit;
Label2: TLabel;
- Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
- LoomType: TcxTextEdit;
C_Name: TcxTextEdit;
C_YarnQty: TcxTextEdit;
- C_ReedWidth: TcxTextEdit;
+ C_Width: TcxTextEdit;
C_ReedNo: TcxTextEdit;
C_GramWeight: TcxTextEdit;
- C_TestGramWeight: TcxTextEdit;
C_FinishLatitudeDensity: TcxTextEdit;
TV1Column7: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
- TV1Column3: TcxGridDBColumn;
- TV1Column4: TcxGridDBColumn;
- TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
- TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
- Tv2Column3: TcxGridDBColumn;
- Tv2Column4: TcxGridDBColumn;
- Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
- Tv2Column9: TcxGridDBColumn;
- Tv2Column10: TcxGridDBColumn;
lbl1: TLabel;
lbl2: TLabel;
WB_Code: TcxButtonEdit;
WB_Name: TcxTextEdit;
cxTabSheet4: TcxTabSheet;
- CZF: TMemo;
cxTabSheet5: TcxTabSheet;
CKF: TMemo;
TV1Column11: TcxGridDBColumn;
@@ -157,31 +118,60 @@ type
C_Spec: TcxTextEdit;
Label17: TLabel;
C_Composition: TcxTextEdit;
- TV1Column12: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
ADOQuery1: TADOQuery;
- Label18: TLabel;
- Label19: TLabel;
- BBNo: TcxTextEdit;
- ZS: TcxTextEdit;
ADOQueryTemp2: TADOQuery;
PM_1: TPopupMenu;
N1: TMenuItem;
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
- QZF: TMemo;
MFDW: TcxComboBox;
Label20: TLabel;
C_FinishLongitudeDensity: TcxTextEdit;
- Label21: TLabel;
- JinSha: TcxTextEdit;
- Label22: TLabel;
- WeiSha: TcxTextEdit;
LPDW: TcxComboBox;
TV1Column14: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
+ Label19: TLabel;
+ GKBH: TcxTextEdit;
+ Label22: TLabel;
+ C_ReedWidth: TcxTextEdit;
+ Label23: TLabel;
+ C_KCQTY: TcxTextEdit;
+ Label24: TLabel;
+ BSQTY: TcxTextEdit;
+ Label25: TLabel;
+ DCRQTY: TcxTextEdit;
+ Label26: TLabel;
+ WB_ReedNote: TcxTextEdit;
+ Label27: TLabel;
+ ZYQTY: TcxTextEdit;
+ Label4: TLabel;
+ WYAMI: TcxTextEdit;
+ Label16: TLabel;
+ DAYQTY: TcxTextEdit;
+ Label18: TLabel;
+ LBQTY: TcxTextEdit;
+ Panel3: TPanel;
+ cxDBImage1: TcxDBImage;
+ Panel4: TPanel;
+ Label21: TLabel;
+ ATTNAME1: TcxButtonEdit;
+ DS_ImgHX: TDataSource;
+ Qry_ImgHX: TADOQuery;
+ Panel5: TPanel;
+ Label28: TLabel;
+ attname2: TcxButtonEdit;
+ cxDBImage2: TcxDBImage;
+ Qry_ImgHX2: TADOQuery;
+ DataSource1: TDataSource;
+ DS_ImgHX2: TDataSource;
+ GKDW: TcxComboBox;
+ LoomType: TcxComboBox;
+ Label31: TLabel;
+ Label29: TLabel;
+ Label30: TLabel;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@@ -195,7 +185,7 @@ type
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
- procedure Edit1KeyPress(Sender: TObject; var Key: Char);
+
procedure ToolButton11Click(Sender: TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@@ -211,10 +201,16 @@ type
procedure MFDWPropertiesEditValueChanged(Sender: TObject);
procedure C_FinishLongitudeDensityPropertiesEditValueChanged(Sender: TObject);
procedure C_CompositionPropertiesEditValueChanged(Sender: TObject);
+ procedure Panel4Click(Sender: TObject);
+ procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure TV1Column10PropertiesEditValueChanged(Sender: TObject);
+ procedure C_ReedWidthExit(Sender: TObject);
private
canshu1: string;
Fint: Integer;
procedure InitGrid();
+ procedure InitImage();
procedure JSJS(); //㾭˿
procedure JSWS(); //γ˿
procedure JSKZ(); //
@@ -234,14 +230,49 @@ implementation
uses
U_DataLink, U_HttpFun, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload,
- U_YarnInfoSel, U_WBSpecSel;
+ U_YarnInfoSel, U_WBSpecSel, U_PictureUpload;
{$R *.dfm}
+procedure TfrmTatClothInfoInput.InitImage();
+begin
+ if attname1.Text <> '' then
+ begin
+ with Qry_ImgHX do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname1.Text)));
+ SQL.Add('AND TFTYPE=''ZC'' ');
+// ShowMessage(SQL.Text);
+ open;
+ end;
+
+ end;
+ if attname2.Text <> '' then
+ begin
+ with Qry_ImgHX2 do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname2.Text)));
+ SQL.Add('AND TFTYPE=''qC'' ');
+// ShowMessage(SQL.Text);
+ open;
+ end;
+
+ end;
+end;
procedure TfrmTatClothInfoInput.InitGrid();
var
myStream: TMemoryStream;
+ mSql: string;
begin
+
+ mSql := 'select distinct name=A.mctype from Bs_Machine A ';
+ SInitTcxComBoxBySql(ADOQueryTemp, LoomType, false, mSql);
myStream := TMemoryStream.Create();
with ADOQueryTemp do
@@ -276,13 +307,12 @@ begin
SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0);
- QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
- CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString);
Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString);
-
+ ATTNAME1.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME1').AsString);
+ ATTNAME2.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME2').AsString);
////////////////////////// //////////////////////////
// with ADOQueryTemp do
@@ -379,6 +409,8 @@ begin
end;
SCreateCDS(ADOQueryTemp, CDS_4);
SInitCDSData(ADOQueryTemp, CDS_4);
+
+
/////////////////ˢ۹յϢ/////////////////////////
///
end;
@@ -608,6 +640,30 @@ begin
end;
end;
+procedure TfrmTatClothInfoInput.Panel4Click(Sender: TObject);
+begin
+ try
+ frmPictureUpload := TfrmPictureUpload.create(self);
+ with frmPictureUpload do
+ begin
+ fFlileFlag := UserDataFlag + 'HX';
+ FDataId := ATTNAME1.Text;
+ FPictureName := ATTNAME1.Text;
+ FWidth := 450;
+ FHeight := 600;
+ FTFType := 'ZC';
+ if showmodal = 1 then
+ begin
+ ATTNAME1.Text := frmPictureUpload.FPictureName;
+ end;
+ end;
+ finally
+ frmPictureUpload.free;
+ end;
+ initimage();
+
+end;
+
procedure TfrmTatClothInfoInput.JSKZ();
var
SumJS, SumWS: double;
@@ -635,8 +691,7 @@ begin
//
// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
/////////////ɹ /////////////
- JinSha.text := JSGG;
- WeiSha.text := WSGG;
+
FC_Spec := '';
FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_ReedWidth.text + MFDW.text;
@@ -664,7 +719,8 @@ begin
FBCIID := '';
BCIID.text := '';
C_Code.text := '';
-
+ ATTNAME1.Text := '';
+ ATTNAME2.Text := '';
with CDS_1 do
begin
First;
@@ -692,7 +748,7 @@ begin
end;
end;
-
+ InitImage();
end;
procedure TfrmTatClothInfoInput.TBCloseClick(Sender: TObject);
@@ -750,13 +806,12 @@ begin
end;
FieldByName('BCIID').Value := Trim(maxId);
- FieldByName('QZF').Value := Trim(QZF.text);
- FieldByName('CZF').Value := Trim(CZF.text);
FieldByName('CKF').Value := Trim(CKF.text);
FieldByName('Y_Note_PLJ').Value := Trim(Y_Note_PLJ.text);
FieldByName('Y_Note_PLW').Value := Trim(Y_Note_PLW.text);
-
+ FieldByName('ATTNAME1').Value := Trim(ATTNAME1.text);
+ FieldByName('ATTNAME2').Value := Trim(ATTNAME2.text);
if trim(C_Code.Text) = '' then
C_Code.Text := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
@@ -1071,21 +1126,62 @@ begin
Application.MessageBox('ŷλΪգ', 'ʾ', 0);
Exit;
end;
+ if C_Width.Text = '' then
+ begin
+ Application.MessageBox('ŷΪգ', 'ʾ', 0);
+ Exit;
+ end;
-
-// CDS_1.First;
-// if Trim(CDS_1.fieldbyname('Y_Code').AsString) = '' then
-// begin
-// Application.MessageBox('Ҫдһ˿ԭϣ', 'ʾ', 0);
-// Exit;
-// end;
-//
-// CDS_2.First;
-// if Trim(CDS_2.fieldbyname('Y_Code').AsString) = '' then
-// begin
-// Application.MessageBox('Ҫдһγ˿ԭϣ', 'ʾ', 0);
-// Exit;
-// end;
+ if C_FinishLongitudeDensity.Text = '' then
+ begin
+ Application.MessageBox('ܲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_FinishLatitudeDensity.Text = '' then
+ begin
+ Application.MessageBox('γܲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if WB_Code.Text = '' then
+ begin
+ Application.MessageBox('ձŲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if WB_Name.Text = '' then
+ begin
+ Application.MessageBox('ƲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_YarnQty.Text = '' then
+ begin
+ Application.MessageBox('ͷƲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if GKBH.Text = '' then
+ begin
+ Application.MessageBox('رŲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_ReedNo.Text = '' then
+ begin
+ Application.MessageBox('غŲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_ReedWidth.Text = '' then
+ begin
+ Application.MessageBox('طΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if DCRQTY.Text = '' then
+ begin
+ Application.MessageBox('شΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if DAYQTY.Text = '' then
+ begin
+ Application.MessageBox('ղΪգ', 'ʾ', 0);
+ Exit;
+ end;
if trim(C_Code.Text) = '' then
begin
@@ -1109,6 +1205,52 @@ begin
end;
end;
+procedure TfrmTatClothInfoInput.attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmPictureUpload := TfrmPictureUpload.create(self);
+ with frmPictureUpload do
+ begin
+ fFlileFlag := UserDataFlag + 'HX';
+ FDataId := AttName2.Text;
+ FPictureName := AttName2.Text;
+ FWidth := 600;
+ FHeight := 600;
+ FTFType := 'QC';
+ if showmodal = 1 then
+ begin
+ AttName2.Text := frmPictureUpload.FPictureName;
+ end;
+ end;
+ finally
+ frmPictureUpload.free;
+ end;
+ initimage();
+end;
+
+procedure TfrmTatClothInfoInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmPictureUpload := TfrmPictureUpload.create(self);
+ with frmPictureUpload do
+ begin
+ fFlileFlag := UserDataFlag + 'HX';
+ FDataId := AttName1.Text;
+ FPictureName := AttName1.Text;
+ FWidth := 600;
+ FHeight := 600;
+ FTFType := 'ZC';
+ if showmodal = 1 then
+ begin
+ AttName1.Text := frmPictureUpload.FPictureName;
+ end;
+ end;
+ finally
+ frmPictureUpload.free;
+ end;
+ initimage();
+end;
+
procedure TfrmTatClothInfoInput.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@@ -1152,7 +1294,7 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
- FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
+ FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
Post;
end;
@@ -1205,6 +1347,74 @@ begin
JSKZ();
end;
+procedure TfrmTatClothInfoInput.C_ReedWidthExit(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+ GS, ZGS, MF, DS, WM, fsh: double;
+begin
+ with CDS_2 do
+ begin
+ first;
+ while not eof do
+ begin
+ with CDS_2 do
+ begin
+
+ if FieldByName('YarnQty').Value = null then
+ begin
+ GS := 0; //
+ end
+ else
+ begin
+ GS := FieldByName('YarnQty').Value; //
+ end;
+
+ if FieldByName('Y_loss').Value = null then
+ begin
+ fsh := 0; //
+ end
+ else
+ begin
+ fsh := FieldByName('Y_loss').Value; //
+ end;
+
+ if FieldByName('CycleYarnQty').Value = null then
+ begin
+ ZGS := 0; //ѭ
+ end
+ else
+ begin
+ ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+ end;
+
+ MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+
+ if FieldByName('Z_Number').Value = null then
+ begin
+ DS := 0; //֧
+ end
+ else
+ begin
+ DS := FieldByName('Z_Number').Value; //֧
+ end;
+
+ WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+ end;
+ if (ZGS <> 0) and (DS <> 0) then
+ begin
+ with CDS_2 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
+ Post;
+ end;
+ end;
+ next;
+ end;
+
+ end;
+end;
+
procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject);
begin
JSJS();
@@ -1247,31 +1457,6 @@ begin
JSWS();
end;
-procedure TfrmTatClothInfoInput.Edit1KeyPress(Sender: TObject; var Key: Char);
-var
- i, j: Integer;
-begin
- if Key = #13 then
- begin
-
- if Edit1.Text <> '' then
- begin
- i := CDS_4.RecordCount;
- i := i + 1;
- with CDS_4 do
- begin
- Append;
- FieldByName('SSEL').Value := FALSE;
- FieldByName('XuNO').Value := i;
- FieldByName('DZZQZGL').Value := Trim(Edit1.Text);
- Post;
- end;
- Edit1.Text := '';
- end;
-
- end;
-end;
-
procedure TfrmTatClothInfoInput.CYMFExit(Sender: TObject);
begin
// if pos('"', trim(CYMF.Text)) = 0 then
@@ -1358,6 +1543,51 @@ begin
end;
end;
+procedure TfrmTatClothInfoInput.TV1Column10PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+ ZS, ZGS: double;
+begin
+
+ mvalue := TcxTextEdit(Sender).EditingText;
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName(FFieldName).Value := mvalue;
+ Post;
+
+ if FieldByName('QFYARNQTY').Value = null then
+ begin
+ ZGS := 0; //QUANFU
+ end
+ else
+ begin
+ ZGS := FieldByName('QFYARNQTY').Value; //ȫ
+ end;
+
+ if FieldByName('Z_Number').Value = null then
+ begin
+ ZS := 0; //ѭ
+ end
+ else
+ begin
+ ZS := FieldByName('Z_Number').Value; //ѭ
+ end;
+
+ end;
+ if ZS <> 0 then
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
+ Post;
+ end;
+ end;
+end;
+
procedure TfrmTatClothInfoInput.TV1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@@ -1367,66 +1597,66 @@ begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
- if mvalue = '' then
- begin
- mvalue := '0';
- end;
-
- with CDS_1 do
- begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
-
- if FieldByName('YarnQty').Value = null then
- begin
- GS := 0; //
- end
- else
- begin
- GS := FieldByName('YarnQty').Value; //
- end;
-
- if FieldByName('CycleYarnQty').Value = null then
- begin
- ZGS := 0; //ѭ
- end
- else
- begin
- ZGS := FieldByName('CycleYarnQty').Value; //ѭ
- end;
-
- MF := strtofloatdef(C_ReedWidth.text, 0); //ط
-
- if FieldByName('TestDenier').Value = null then
- begin
- DS := 0; //D
- end
- else
- begin
- DS := FieldByName('TestDenier').Value; //D
- end;
-
- WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
-
- TW := strtofloatdef(C_YarnQty.text, 0); //ͷ
- end;
- if ZGS <> 0 then
- begin
- with CDS_1 do
- begin
- Edit;
- FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
- Post;
- end;
- end;
- JSKZ();
+// if mvalue = '' then
+// begin
+// mvalue := '0';
+// end;
+//
+// with CDS_1 do
+// begin
+// Edit;
+// FieldByName(FFieldName).Value := mvalue;
+// Post;
+//
+// if FieldByName('YarnQty').Value = null then
+// begin
+// GS := 0; //
+// end
+// else
+// begin
+// GS := FieldByName('YarnQty').Value; //
+// end;
+//
+// if FieldByName('CycleYarnQty').Value = null then
+// begin
+// ZGS := 0; //ѭ
+// end
+// else
+// begin
+// ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+// end;
+//
+// MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+//
+// if FieldByName('TestDenier').Value = null then
+// begin
+// DS := 0; //D
+// end
+// else
+// begin
+// DS := FieldByName('TestDenier').Value; //D
+// end;
+//
+// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+//
+// TW := strtofloatdef(C_YarnQty.text, 0); //ͷ
+// end;
+// if ZGS <> 0 then
+// begin
+// with CDS_1 do
+// begin
+// Edit;
+// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+// Post;
+// end;
+// end;
+// JSKZ();
end;
procedure TfrmTatClothInfoInput.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
- GS, ZGS, MF, DS, WM: double;
+ GS, ZGS, MF, DS, WM, fsh: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@@ -1447,6 +1677,15 @@ begin
GS := FieldByName('YarnQty').Value; //
end;
+ if FieldByName('Y_loss').Value = null then
+ begin
+ fsh := 0; //
+ end
+ else
+ begin
+ fsh := FieldByName('Y_loss').Value; //
+ end;
+
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //ѭ
@@ -1458,23 +1697,23 @@ begin
MF := strtofloatdef(C_ReedWidth.text, 0); //ط
- if FieldByName('TestDenier').Value = null then
+ if FieldByName('Z_Number').Value = null then
begin
- DS := 0; //D
+ DS := 0; //֧
end
else
begin
- DS := FieldByName('TestDenier').Value; //D
+ DS := FieldByName('Z_Number').Value; //֧
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
end;
- if ZGS <> 0 then
+ if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
Edit;
- FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2);
+ FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post;
end;
end;
@@ -1533,8 +1772,12 @@ begin
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
+ DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString);
+ C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString);
+ WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
+ BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
+ GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
- Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
with ADOQuery1 do
begin
Close;
@@ -1566,8 +1809,11 @@ begin
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
- FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
- FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
+ FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value;
+
+ FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
+ FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
+
Post;
end;
diff --git a/A02基础产品管理/U_TatClothInfo_CB.dfm b/A02基础产品管理/U_TatClothInfo_CB.dfm
index 4c48f78..2d80876 100644
--- a/A02基础产品管理/U_TatClothInfo_CB.dfm
+++ b/A02基础产品管理/U_TatClothInfo_CB.dfm
@@ -777,6 +777,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object Panel6: TPanel
Left = 0
Top = 0
@@ -1016,6 +1019,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object cxGrid4: TcxGrid
Left = 0
Top = 0
@@ -1208,6 +1214,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet3: TcxTabSheet
Caption = #26679#21697#22270#29255
ImageIndex = 2
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = 0
Top = 0
@@ -1231,6 +1240,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet4: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object QZF: TMemo
Tag = 2
Left = 0
@@ -1282,6 +1294,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet5: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object CZF: TMemo
Tag = 2
Left = 0
@@ -1303,6 +1318,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet6: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0
diff --git a/A02基础产品管理/U_TatClothInfo_CB.pas b/A02基础产品管理/U_TatClothInfo_CB.pas
index 12eee0d..7bd9a2b 100644
--- a/A02基础产品管理/U_TatClothInfo_CB.pas
+++ b/A02基础产品管理/U_TatClothInfo_CB.pas
@@ -24,23 +24,8 @@ uses
dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics,
dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils,
dxSpreadSheetFormattedTextUtils, dxSpreadSheet, dxSkinsCore,
- dxSkinsDefaultPainters, cxProgressBar,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
+ dxSkinWXI;
type
FdDy = record
diff --git a/A05基础资料管理/BaseInfo.identcache b/A05基础资料管理/BaseInfo.identcache
index c2a79f5..44c1744 100644
Binary files a/A05基础资料管理/BaseInfo.identcache and b/A05基础资料管理/BaseInfo.identcache differ
diff --git a/A05基础资料管理/U_GKInput.dfm b/A05基础资料管理/U_GKInput.dfm
index 12d50b8..bfca5f9 100644
--- a/A05基础资料管理/U_GKInput.dfm
+++ b/A05基础资料管理/U_GKInput.dfm
@@ -86,7 +86,7 @@ inherited frmGKInput: TfrmGKInput
end
object Label7: TLabel
Left = 48
- Top = 182
+ Top = 230
Width = 57
Height = 21
Caption = #22791' '#27880
@@ -100,17 +100,39 @@ inherited frmGKInput: TfrmGKInput
end
object Label1: TLabel
Left = 399
- Top = 109
+ Top = 108
Width = 64
Height = 21
Caption = #26550#23376#23618#21495
end
+ object Label4: TLabel
+ Left = 48
+ Top = 186
+ Width = 48
+ Height = 21
+ Caption = #31576#40831#25968
+ end
+ object Label5: TLabel
+ Left = 399
+ Top = 143
+ Width = 32
+ Height = 21
+ Caption = #31576#24133
+ end
+ object Label8: TLabel
+ Left = 647
+ Top = 139
+ Width = 16
+ Height = 21
+ Caption = #8220
+ end
object GKKH: TcxTextEdit
Tag = 2
Left = 159
Top = 105
Properties.OnChange = JZBHPropertiesChange
TabOrder = 1
+ OnExit = GKKHExit
Width = 200
end
object GKBH: TcxTextEdit
@@ -141,7 +163,7 @@ inherited frmGKInput: TfrmGKInput
object Note: TcxMemo
Tag = 2
Left = 159
- Top = 182
+ Top = 230
TabOrder = 4
Height = 77
Width = 518
@@ -149,11 +171,28 @@ inherited frmGKInput: TfrmGKInput
object JZCH: TcxTextEdit
Tag = 2
Left = 469
- Top = 105
+ Top = 104
Properties.OnChange = JZBHPropertiesChange
TabOrder = 5
Width = 200
end
+ object GKCS: TcxTextEdit
+ Tag = 2
+ Left = 159
+ Top = 183
+ Properties.OnChange = JZBHPropertiesChange
+ TabOrder = 6
+ OnExit = GKKHExit
+ Width = 200
+ end
+ object GKwidth: TcxTextEdit
+ Tag = 2
+ Left = 469
+ Top = 140
+ Properties.OnChange = JZBHPropertiesChange
+ TabOrder = 7
+ Width = 172
+ end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
diff --git a/A05基础资料管理/U_GKInput.pas b/A05基础资料管理/U_GKInput.pas
index 0a9b786..9c83b54 100644
--- a/A05基础资料管理/U_GKInput.pas
+++ b/A05基础资料管理/U_GKInput.pas
@@ -39,6 +39,11 @@ type
Note: TcxMemo;
Label1: TLabel;
JZCH: TcxTextEdit;
+ Label4: TLabel;
+ GKCS: TcxTextEdit;
+ Label5: TLabel;
+ GKwidth: TcxTextEdit;
+ Label8: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -47,6 +52,7 @@ type
procedure TbSaveClick(Sender: TObject);
procedure CoareaBtnDnClick(Sender: TObject);
procedure JZBHPropertiesChange(Sender: TObject);
+ procedure GKKHExit(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@@ -118,7 +124,18 @@ begin
end;
+procedure TfrmGKInput.GKKHExit(Sender: TObject);
+var
+ FKCS, FKOUHAO: double;
+begin
+ FKCS := StrToFloatDef(GKCS.Text, 0);
+ FKOUHAO := StrToFloatDef(GKKH.Text, 0);
+ if FKOUHAO <> 0 then
+ begin
+ GKwidth.Text := FloatToStr(RoundFloat(FKCS / FKOUHAO * 2, 2));
+ end;
+end;
procedure TfrmGKInput.TBRafreshClick(Sender: TObject);
begin
diff --git a/A05基础资料管理/U_GKManage.dfm b/A05基础资料管理/U_GKManage.dfm
index 3395e6a..fd56c4b 100644
--- a/A05基础资料管理/U_GKManage.dfm
+++ b/A05基础资料管理/U_GKManage.dfm
@@ -100,8 +100,6 @@ inherited frmGKManage: TfrmGKManage
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
- ExplicitLeft = 8
- ExplicitTop = 95
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -174,6 +172,20 @@ inherited frmGKManage: TfrmGKManage
HeaderAlignmentHorz = taCenter
Width = 100
end
+ object Tv2Column2: TcxGridDBColumn
+ Caption = #31576#40831#25968
+ DataBinding.FieldName = 'GKCS'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 77
+ end
+ object Tv2Column8: TcxGridDBColumn
+ Caption = #31576#24133
+ DataBinding.FieldName = 'GKwidth'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
object Tv2Column10: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@@ -205,7 +217,6 @@ inherited frmGKManage: TfrmGKManage
Color = clWhite
ParentBackground = False
TabOrder = 4
- ExplicitTop = 36
object Label1: TLabel
Left = 30
Top = 19
diff --git a/A05基础资料管理/U_GKManage.pas b/A05基础资料管理/U_GKManage.pas
index 2764af5..2a210f5 100644
--- a/A05基础资料管理/U_GKManage.pas
+++ b/A05基础资料管理/U_GKManage.pas
@@ -50,6 +50,8 @@ type
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
+ Tv2Column2: TcxGridDBColumn;
+ Tv2Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local
index 8202953..6006c2a 100644
--- a/B01基础合同管理/Contract.dproj.local
+++ b/B01基础合同管理/Contract.dproj.local
@@ -1,85 +1,85 @@
- 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas
- 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=
- 1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=
- 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas
- 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas
- 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm
- 1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
- 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas
- 1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=
- 1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas
- 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas
- 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas
- 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
- 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm
- 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas
- 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=
- 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas
- 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=
- 1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas
- 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
- 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=
- 1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas
- 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
- 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas
- 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas
- 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm
- 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm
- 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas
- 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
+ 1899-12-30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas
+ 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899-12-30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas
+ 1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas
+ 1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas
+ 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm
+ 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=
+ 1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas
+ 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas
+ 1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=
+ 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas
+ 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas
+ 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas
+ 1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm
+ 1899-12-30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas
+ 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas
+ 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
+ 1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas
+ 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899-12-30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas
+ 1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=
+ 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=
+ 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm
+ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj
+ 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
+ 1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
+ 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
+ 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm
+ 1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=
+ 1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm
+ 1899-12-30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
+ 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm
+ 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
+ 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm
+ 1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas
+ 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm
+ 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm
+ 1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas
+ 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
diff --git a/B01基础合同管理/ProjectGroup1.groupproj.local b/B01基础合同管理/ProjectGroup1.groupproj.local
index 2cf24e3..3e8695f 100644
--- a/B01基础合同管理/ProjectGroup1.groupproj.local
+++ b/B01基础合同管理/ProjectGroup1.groupproj.local
@@ -1,6 +1,6 @@
-
+
diff --git a/B02基础纱线仓库/U_CJDJ.dfm b/B02基础纱线仓库/U_CJDJ.dfm
index f2dc3a1..636aa0a 100644
--- a/B02基础纱线仓库/U_CJDJ.dfm
+++ b/B02基础纱线仓库/U_CJDJ.dfm
@@ -166,8 +166,9 @@ object frmCJDJ: TfrmCJDJ
Top = 87
Width = 216
Height = 28
- EditLabel.Width = 4
+ EditLabel.Width = 81
EditLabel.Height = 20
+ EditLabel.Caption = 'CJQuantitly'
TabOrder = 4
end
object CJJL: TcxComboBox
diff --git a/B02基础纱线仓库/U_CJDJ.pas b/B02基础纱线仓库/U_CJDJ.pas
index d0a5721..5b6ae3a 100644
--- a/B02基础纱线仓库/U_CJDJ.pas
+++ b/B02基础纱线仓库/U_CJDJ.pas
@@ -7,23 +7,7 @@ uses
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer, cxEdit, Vcl.ComCtrls, dxCore, cxDateUtils,
dxSkinsCore, dxSkinsDefaultPainters, cxTextEdit, cxMaskEdit, cxDropDownEdit,
- cxCalendar, cxButtonEdit,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ cxCalendar, cxButtonEdit, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmCJDJ = class(TForm)
@@ -93,7 +77,7 @@ end;
procedure TfrmCJDJ.Button1Click(Sender: TObject);
begin
-if (Trim(CJJL.Text) = 'ϸ') and (not SZ.Checked and not QL.Checked and not TG.Checked and not MJ.Checked) then
+ if (Trim(CJJL.Text) = 'ϸ') and (not SZ.Checked and not QL.Checked and not TG.Checked and not MJ.Checked) then
begin
Application.MessageBox('дݣ', 'ʾ', MB_ICONWARNING);
Exit;
@@ -147,14 +131,10 @@ begin
CJer.text := ADOQueryCmd.fieldbyname('CJer').asstring;
CJQuantitly.text := ADOQueryCmd.fieldbyname('CJQuantitly').asstring;
CJJL.text := ADOQueryCmd.fieldbyname('CJJL').asstring;
- SZ.Checked := (ADOQueryCmd.fieldbyname('SZ').AsString = '1') or
- (ADOQueryCmd.fieldbyname('SZ').AsBoolean);
- QL.Checked := (ADOQueryCmd.fieldbyname('QL').AsString = '1') or
- (ADOQueryCmd.fieldbyname('QL').AsBoolean);
- TG.Checked := (ADOQueryCmd.fieldbyname('TG').AsString = '1') or
- (ADOQueryCmd.fieldbyname('TG').AsBoolean);
- MJ.Checked := (ADOQueryCmd.fieldbyname('MJ').AsString = '1') or
- (ADOQueryCmd.fieldbyname('MJ').AsBoolean);
+ SZ.Checked := (ADOQueryCmd.fieldbyname('SZ').AsString = '1') or (ADOQueryCmd.fieldbyname('SZ').AsBoolean);
+ QL.Checked := (ADOQueryCmd.fieldbyname('QL').AsString = '1') or (ADOQueryCmd.fieldbyname('QL').AsBoolean);
+ TG.Checked := (ADOQueryCmd.fieldbyname('TG').AsString = '1') or (ADOQueryCmd.fieldbyname('TG').AsBoolean);
+ MJ.Checked := (ADOQueryCmd.fieldbyname('MJ').AsString = '1') or (ADOQueryCmd.fieldbyname('MJ').AsBoolean);
end;
end;
diff --git a/B02基础纱线仓库/U_DataLink.pas b/B02基础纱线仓库/U_DataLink.pas
index ffe9941..ba00914 100644
--- a/B02基础纱线仓库/U_DataLink.pas
+++ b/B02基础纱线仓库/U_DataLink.pas
@@ -7,23 +7,8 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList,
cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels,
- dxSkinsCore, dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
+ dxSkinWXI;
type
TMyThread = class(TThread)
diff --git a/B02基础纱线仓库/U_YarnInEdit.pas b/B02基础纱线仓库/U_YarnInEdit.pas
index 9e97eb9..94be0ac 100644
--- a/B02基础纱线仓库/U_YarnInEdit.pas
+++ b/B02基础纱线仓库/U_YarnInEdit.pas
@@ -12,22 +12,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnInEdit = class(TfrmBaseInput)
diff --git a/B02基础纱线仓库/U_YarnInList.dfm b/B02基础纱线仓库/U_YarnInList.dfm
index 860aaa6..f04b976 100644
--- a/B02基础纱线仓库/U_YarnInList.dfm
+++ b/B02基础纱线仓库/U_YarnInList.dfm
@@ -158,6 +158,7 @@ inherited frmYarnInList: TfrmYarnInList
Color = clWhite
ParentBackground = False
TabOrder = 4
+ ExplicitWidth = 304
object Label3: TLabel
Left = 248
Top = 46
@@ -282,7 +283,7 @@ inherited frmYarnInList: TfrmYarnInList
TabOrder = 6
ExplicitLeft = 2
ExplicitTop = 2
- ExplicitWidth = 1536
+ ExplicitWidth = 300
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
diff --git a/B02基础纱线仓库/U_YarnInList.pas b/B02基础纱线仓库/U_YarnInList.pas
index ab853ab..fde9c5a 100644
--- a/B02基础纱线仓库/U_YarnInList.pas
+++ b/B02基础纱线仓库/U_YarnInList.pas
@@ -14,23 +14,8 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, FrameDateSel, U_InputBoxSingleNumber, dxSkinsCore,
- dxSkinsDefaultPainters, cxProgressBar,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
+ dxSkinWXI;
type
TfrmYarnInList = class(TfrmBaseList)
diff --git a/B02基础纱线仓库/U_YarnInfoInPut.dfm b/B02基础纱线仓库/U_YarnInfoInPut.dfm
index c8718b7..82a1d22 100644
--- a/B02基础纱线仓库/U_YarnInfoInPut.dfm
+++ b/B02基础纱线仓库/U_YarnInfoInPut.dfm
@@ -77,6 +77,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
+ ExplicitTop = 36
object Label2: TLabel
Left = 16
Top = 159
@@ -272,6 +273,19 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Font.Style = []
ParentFont = False
end
+ object Label16: TLabel
+ Left = 796
+ Top = 34
+ Width = 240
+ Height = 21
+ Caption = #27880#65306#21697#21517'='#25104#20998'+'#25903#25968'+'#39068#33394'+'#32442#27861
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
object Brand: TcxTextEdit
Tag = 2
Left = 68
diff --git a/B02基础纱线仓库/U_YarnInfoInPut.pas b/B02基础纱线仓库/U_YarnInfoInPut.pas
index eca9993..307e29b 100644
--- a/B02基础纱线仓库/U_YarnInfoInPut.pas
+++ b/B02基础纱线仓库/U_YarnInfoInPut.pas
@@ -56,6 +56,7 @@ type
CJ: TcxButtonEdit;
Label15: TLabel;
LLSH: TcxTextEdit;
+ Label16: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
diff --git a/B02基础纱线仓库/U_YarnInfoList.pas b/B02基础纱线仓库/U_YarnInfoList.pas
index 54c5bfb..82c8b7b 100644
--- a/B02基础纱线仓库/U_YarnInfoList.pas
+++ b/B02基础纱线仓库/U_YarnInfoList.pas
@@ -13,23 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, cxMaskEdit,
- dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White,
+ dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnInfoList = class(TfrmBaseList)
diff --git a/B02基础纱线仓库/U_YarnOutEdit.dfm b/B02基础纱线仓库/U_YarnOutEdit.dfm
index 15f9c30..da3ab87 100644
--- a/B02基础纱线仓库/U_YarnOutEdit.dfm
+++ b/B02基础纱线仓库/U_YarnOutEdit.dfm
@@ -9,7 +9,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
- ExplicitLeft = -197
ExplicitWidth = 1422
ExplicitHeight = 486
PixelsPerInch = 96
diff --git a/B02基础纱线仓库/U_YarnOutEdit.pas b/B02基础纱线仓库/U_YarnOutEdit.pas
index 54dd5a5..a34f780 100644
--- a/B02基础纱线仓库/U_YarnOutEdit.pas
+++ b/B02基础纱线仓库/U_YarnOutEdit.pas
@@ -12,22 +12,7 @@ uses
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnOutEdit = class(TfrmBaseInput)
@@ -81,8 +66,7 @@ type
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
- procedure Tv1Column7PropertiesButtonClick(Sender: TObject;
- AButtonIndex: Integer);
+ procedure Tv1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
@@ -445,8 +429,7 @@ begin
end;
-procedure TfrmYarnOutEdit.Tv1Column7PropertiesButtonClick(Sender: TObject;
- AButtonIndex: Integer);
+procedure TfrmYarnOutEdit.Tv1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmTatPlanSel := TfrmTatPlanSel.Create(Application);
diff --git a/B02基础纱线仓库/U_YarnOutList.dfm b/B02基础纱线仓库/U_YarnOutList.dfm
index cbf3781..08251b2 100644
--- a/B02基础纱线仓库/U_YarnOutList.dfm
+++ b/B02基础纱线仓库/U_YarnOutList.dfm
@@ -112,7 +112,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Color = clWhite
ParentBackground = False
TabOrder = 4
- ExplicitTop = 24
+ ExplicitWidth = 304
object Label3: TLabel
Left = 251
Top = 86
@@ -205,7 +205,7 @@ inherited frmYarnOutList: TfrmYarnOutList
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
- ExplicitWidth = 1475
+ ExplicitWidth = 300
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
diff --git a/B02基础纱线仓库/U_YarnOutList.pas b/B02基础纱线仓库/U_YarnOutList.pas
index 58ced1e..e6de03b 100644
--- a/B02基础纱线仓库/U_YarnOutList.pas
+++ b/B02基础纱线仓库/U_YarnOutList.pas
@@ -13,23 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxScrollbarAnnotations, cxMaskEdit,
- FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
+ dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnOutList = class(TfrmBaseList)
diff --git a/B02基础纱线仓库/U_YarnOutReturnList.dfm b/B02基础纱线仓库/U_YarnOutReturnList.dfm
index 7f760c2..beb9faa 100644
--- a/B02基础纱线仓库/U_YarnOutReturnList.dfm
+++ b/B02基础纱线仓库/U_YarnOutReturnList.dfm
@@ -97,6 +97,7 @@ inherited frmYarnOutReturnList: TfrmYarnOutReturnList
Color = clWhite
ParentBackground = False
TabOrder = 1
+ ExplicitWidth = 304
object Label3: TLabel
Left = 469
Top = 47
@@ -171,8 +172,14 @@ inherited frmYarnOutReturnList: TfrmYarnOutReturnList
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
- ExplicitWidth = 1676
+ ExplicitWidth = 300
ExplicitHeight = 37
+ inherited lbl2: TLabel
+ Width = 16
+ Height = 21
+ ExplicitWidth = 16
+ ExplicitHeight = 21
+ end
end
object IOType: TcxComboBox
Left = 315
diff --git a/B02基础纱线仓库/U_YarnOutReturnList.pas b/B02基础纱线仓库/U_YarnOutReturnList.pas
index 67f6967..25610ba 100644
--- a/B02基础纱线仓库/U_YarnOutReturnList.pas
+++ b/B02基础纱线仓库/U_YarnOutReturnList.pas
@@ -14,23 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseHelp, cxContainer, dxScrollbarAnnotations, cxMaskEdit,
FrameDateSel, U_BaseList, System.ImageList, Vcl.ImgList, dxSkinsCore,
- dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnOutReturnList = class(TfrmBaseHelp)
diff --git a/B02基础纱线仓库/U_YarnPurOutReturn.dfm b/B02基础纱线仓库/U_YarnPurOutReturn.dfm
index d771a68..02aa23c 100644
--- a/B02基础纱线仓库/U_YarnPurOutReturn.dfm
+++ b/B02基础纱线仓库/U_YarnPurOutReturn.dfm
@@ -13,7 +13,7 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn
ExplicitWidth = 911
ExplicitHeight = 238
PixelsPerInch = 96
- TextHeight = 19
+ TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
@@ -66,84 +66,84 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn
Left = 39
Top = 51
Width = 32
- Height = 19
+ Height = 21
Caption = #32534#21495
end
object Label8: TLabel
Left = 583
Top = 12
Width = 64
- Height = 19
+ Height = 21
Caption = #23384#25918#21333#20301
end
object lbl5: TLabel
Left = 39
Top = 12
Width = 32
- Height = 19
+ Height = 21
Caption = #26085#26399
end
object Label10: TLabel
Left = 583
Top = 51
Width = 32
- Height = 19
+ Height = 21
Caption = #20214#25968
end
object Label11: TLabel
Left = 583
Top = 90
Width = 32
- Height = 19
+ Height = 21
Caption = #25968#37327
end
object Label6: TLabel
Left = 311
Top = 51
Width = 32
- Height = 19
+ Height = 21
Caption = #21697#21517
end
object Label9: TLabel
Left = 311
Top = 12
Width = 48
- Height = 19
+ Height = 21
Caption = #21152#24037#21378
end
object Label4: TLabel
Left = 39
Top = 90
Width = 32
- Height = 19
+ Height = 21
Caption = #39068#33394
end
object Label5: TLabel
Left = 311
Top = 90
Width = 48
- Height = 19
+ Height = 21
Caption = #28504#36890#21495
end
object Label1: TLabel
Left = 39
Top = 135
Width = 64
- Height = 19
+ Height = 21
Caption = #21152#24037#21333#20215
end
object Label3: TLabel
Left = 311
Top = 135
Width = 64
- Height = 19
+ Height = 21
Caption = #21407#26009#21333#20215
end
object Label7: TLabel
Left = 583
Top = 135
Width = 64
- Height = 19
+ Height = 21
Caption = #33394#32433#21333#20215
end
object Y_Code: TcxTextEdit
@@ -267,6 +267,9 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn
Left = 551
Top = 433
end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YarnStk.ADOLink
LockType = ltReadOnly
diff --git a/B02基础纱线仓库/U_YarnPurOutReturn.pas b/B02基础纱线仓库/U_YarnPurOutReturn.pas
index 0954525..6a4ba5c 100644
--- a/B02基础纱线仓库/U_YarnPurOutReturn.pas
+++ b/B02基础纱线仓库/U_YarnPurOutReturn.pas
@@ -13,25 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
- cxNavigator, U_BaseInput, cxContainer,
- dxCore, cxDateUtils, cxCurrencyEdit, cxMemo, System.ImageList,
- Vcl.ImgList, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ cxNavigator, U_BaseInput, cxContainer, dxCore, cxDateUtils, cxCurrencyEdit,
+ cxMemo, System.ImageList, Vcl.ImgList, dxSkinsCore, dxSkinsDefaultPainters,
+ cxImageList, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnPurOutReturn = class(TfrmBaseInput)
diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local
index f66b681..7d2fb73 100644
--- a/B02基础纱线仓库/YarnStk.dproj.local
+++ b/B02基础纱线仓库/YarnStk.dproj.local
@@ -1,98 +1,98 @@
- 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas
- 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas
- 1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm
- 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas
- 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm
- 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm
- 1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas
- 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas
- 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=
- 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas
- 1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=
- 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas
- 1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas
- 1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas
- 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
- 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas
- 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm
- 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas
- 1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas
- 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=
- 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas
- 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas
- 1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj
- 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm
- 1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=
- 1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas
- 1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas
- 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas
- 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm
- 1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas
- 1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas
- 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm
- 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm
- 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm
- 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas
- 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas
- 1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas
- 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas
- 1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas
- 1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas
- 1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas
- 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas
- 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas
- 1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm
- 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas
- 1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 2025/06/07 16:01:49.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas
+ 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj
+ 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas
+ 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas
+ 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm
+ 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm
+ 1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas
+ 1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=
+ 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas
+ 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas
+ 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas
+ 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm
+ 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas
+ 1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas
+ 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas
+ 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas
+ 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm
+ 1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas
+ 1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas
+ 1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas
+ 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm
+ 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm
+ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas
+ 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=
+ 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm
+ 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas
+ 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas
+ 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas
+ 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas
+ 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm
+ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas
+ 1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas
+ 1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas
+ 1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=
+ 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas
+ 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
+ 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm
+ 1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas
+ 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas
+ 1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas
+ 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas
+ 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas
+ 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm
+ 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm
+ 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=
+ 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm
+ 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas
+ 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas
+ 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm
+ 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas
+ 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas
+ 1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas
+ 1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas
+ 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas
+ 2025-06-07 16:01:49.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache
index f13bbb2..0ec69bc 100644
Binary files a/B02基础纱线仓库/YarnStk.identcache and b/B02基础纱线仓库/YarnStk.identcache differ
diff --git a/B02基础纱线仓库/testDll.res b/B02基础纱线仓库/testDll.res
index e116c48..2465ca0 100644
Binary files a/B02基础纱线仓库/testDll.res and b/B02基础纱线仓库/testDll.res differ
diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local
index 52304fa..41bf17a 100644
--- a/B04采购计划管理/PurchasePlan.dproj.local
+++ b/B04采购计划管理/PurchasePlan.dproj.local
@@ -1,61 +1,61 @@
- 1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas
- 1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm
- 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
- 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas
- 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
- 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
- 1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas
- 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas
- 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas
- 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj
- 1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas
- 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas
+ 1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
+ 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas
+ 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899-12-30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas
+ 1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm
+ 1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
+ 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
+ 1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas
+ 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899-12-30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899-12-30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas
+ 1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj
+ 1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
+ 1899-12-30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas
+ 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas
+ 1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas
+ 1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas
+ 1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
+ 1899-12-30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas
+ 1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas
diff --git a/B04采购计划管理/U_DataLink.pas b/B04采购计划管理/U_DataLink.pas
index 1a0d923..91b9a07 100644
--- a/B04采购计划管理/U_DataLink.pas
+++ b/B04采购计划管理/U_DataLink.pas
@@ -7,23 +7,7 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics,
cxEdit, cxContainer, dxSkinsForm, dxCore, dxLayoutLookAndFeels, dxSkinsCore,
- dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TMyThread = class(TThread)
diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas
index c59b0fe..814ece9 100644
--- a/B04采购计划管理/U_YarnPurchasePlanList.pas
+++ b/B04采购计划管理/U_YarnPurchasePlanList.pas
@@ -13,23 +13,8 @@ uses
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg,
RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer,
- cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
+ dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnPurchasePlanList = class(TfrmBaseList)
diff --git a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm
index ee3c0d9..f93bd90 100644
--- a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm
+++ b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm
@@ -310,6 +310,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD
Color = clWhite
ParentBackground = False
TabOrder = 5
+ ExplicitWidth = 304
object Label4: TLabel
Left = 532
Top = 45
@@ -374,7 +375,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
- ExplicitWidth = 1360
+ ExplicitWidth = 300
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
@@ -420,6 +421,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
+ ExplicitWidth = 8
end
inherited loadProcess: TPanel
Left = 454
diff --git a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas
index f5479fb..f9dfb5e 100644
--- a/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas
+++ b/B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas
@@ -13,23 +13,8 @@ uses
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg,
RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer,
- cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
+ dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnPurchasePlanList_ZZD = class(TfrmBaseList)
diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm
index 9ee567e..fb5f4ea 100644
--- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm
+++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm
@@ -2,7 +2,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 219
Top = 76
Caption = #37319#36141#35745#21010#24405#20837
- ClientHeight = 651
+ ClientHeight = 718
ClientWidth = 1524
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -11,7 +11,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1540
- ExplicitHeight = 690
+ ExplicitHeight = 757
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@@ -119,10 +119,11 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 0
Top = 186
Width = 1479
- Height = 465
+ Height = 532
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
+ ExplicitHeight = 465
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -623,12 +624,14 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 1479
Top = 186
Width = 45
- Height = 465
+ Height = 532
Align = alRight
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 4
Visible = False
+ ExplicitLeft = 1485
+ ExplicitTop = 192
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.pas b/B04采购计划管理/U_YarnPurchasePlanPut.pas
index e806b0b..3e3b143 100644
--- a/B04采购计划管理/U_YarnPurchasePlanPut.pas
+++ b/B04采购计划管理/U_YarnPurchasePlanPut.pas
@@ -15,23 +15,8 @@ uses
cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore,
- cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
+ dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnPurchasePlanPut = class(TfrmBaseInput)
@@ -189,12 +174,12 @@ begin
while not eof do
begin
FPiece := Fieldbyname('Piece').AsFloat;
- FPieceKG := Fieldbyname('PieceKG').AsFloat;
+// FPieceKG := Fieldbyname('PieceKG').AsFloat;
FPrice := Fieldbyname('Price').AsFloat; //˰
FSL := StrToFloatdef(ShuiLv.text, 0);
with Order_Sub do
begin
- FQty := RoundFloat(FPieceKG * FPiece, 2);
+ FQty := Fieldbyname('Qty').AsFloat;
FAmount := RoundFloat(FQty * FPrice, 2); //˰
FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //˰
@@ -805,8 +790,7 @@ begin
with Order_Sub do
begin
Edit;
- FieldByName('Qty').Value := FQty;
- FieldByName('Price').Value := FPrice;
+
FieldByName('Amount').Value := FAmount;
Post;
end;
diff --git a/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas b/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas
index a786f52..c42a1b5 100644
--- a/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas
+++ b/B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas
@@ -15,23 +15,8 @@ uses
cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore,
- cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
+ dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnPurchasePlanPut_ZZD = class(TfrmBaseInput)
diff --git a/E01梭织生产计划/TatPlan.dpr b/E01梭织生产计划/TatPlan.dpr
index cb8a4e7..2b983b7 100644
--- a/E01梭织生产计划/TatPlan.dpr
+++ b/E01梭织生产计划/TatPlan.dpr
@@ -43,7 +43,8 @@ uses
U_TatGYList in 'U_TatGYList.pas' {frmTatGYList},
U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut},
U_TatGYSel in '..\E00֯ͨô\U_TatGYSel.pas' {frmTatGYSel},
- U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel};
+ U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel},
+ U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload};
{$R *.res}
diff --git a/E01梭织生产计划/TatPlan.dproj b/E01梭织生产计划/TatPlan.dproj
index ae55119..92ff511 100644
--- a/E01梭织生产计划/TatPlan.dproj
+++ b/E01梭织生产计划/TatPlan.dproj
@@ -206,6 +206,10 @@
dfm
+
+
+ dfm
+
Cfg_2
Base
diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local
index 66121b4..8085fd5 100644
--- a/E01梭织生产计划/TatPlan.dproj.local
+++ b/E01梭织生产计划/TatPlan.dproj.local
@@ -1,76 +1,77 @@
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas
1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
- 1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas
- 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm
- 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas
- 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj
+ 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas
1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
+ 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm
+ 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm
+ 1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas
+ 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=
- 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas
- 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas
- 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas
- 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas
- 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas
- 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas
+ 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm
+ 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas
- 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas
+ 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm
+ 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas
+ 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas
+ 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm
+ 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm
+ 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas
1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas
+ 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj
+ 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas
1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
- 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm
- 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas
- 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm
+ 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas
+ 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas
- 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas
+ 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas
1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas
1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm
+ 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm
- 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm
+ 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas
1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas
1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm
+ 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas
+ 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas
1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas
1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas
+ 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm
1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas
- 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas
- 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm
+ 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas
1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas
+ 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm
+ 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm
1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
+ 2025-08-11 11:19:55.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas
@@ -93,6 +94,8 @@
+
+
diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache
index 83807dd..1b8b8d3 100644
Binary files a/E01梭织生产计划/TatPlan.identcache and b/E01梭织生产计划/TatPlan.identcache differ
diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm
index 6981acb..331eaab 100644
--- a/E01梭织生产计划/U_TatPlanInPut.dfm
+++ b/E01梭织生产计划/U_TatPlanInPut.dfm
@@ -2,7 +2,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 212
Top = 14
Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837
- ClientHeight = 766
+ ClientHeight = 860
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -10,7 +10,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1556
- ExplicitHeight = 805
+ ExplicitHeight = 899
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@@ -65,96 +65,55 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0
Top = 30
Width = 1540
- Height = 363
+ Height = 499
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
+ ExplicitTop = 36
object Label2: TLabel
- Left = 857
- Top = 9
- Width = 80
- Height = 21
- Caption = #19979#21333#26085#26399#65306
- end
- object Label3: TLabel
- Left = 294
- Top = 81
- Width = 80
- Height = 21
- Caption = #22383#24067#21517#31216#65306
- end
- object Label14: TLabel
- Left = 857
- Top = 44
- Width = 80
- Height = 21
- Caption = #20844#21496#25260#22836#65306
- end
- object Label5: TLabel
- Left = 582
- Top = 9
- Width = 80
- Height = 21
- Caption = #20132#36135#26085#26399#65306
- end
- object Label8: TLabel
- Left = 294
- Top = 155
- Width = 48
- Height = 21
- Caption = #21305#25968#65306
- end
- object Label12: TLabel
- Left = 857
- Top = 155
- Width = 73
- Height = 21
- Caption = #21305' '#38271#65306
- end
- object Label13: TLabel
- Left = 582
- Top = 155
- Width = 74
- Height = 21
- Caption = #24635' '#25968' '#37327#65306
- end
- object Label26: TLabel
- Left = 9
- Top = 81
- Width = 80
- Height = 21
- Caption = #22383#24067#32534#21495#65306
- end
- object Label31: TLabel
- Left = 857
- Top = 242
- Width = 73
- Height = 21
- Caption = #35268' '#26684#65306
- end
- object Label47: TLabel
- Left = 582
- Top = 44
- Width = 48
- Height = 21
- Caption = #23458#25143#65306
- end
- object Label43: TLabel
- Left = 294
- Top = 44
+ Left = 922
+ Top = 5
Width = 64
Height = 21
- Caption = #19994#21153#21592#65306
+ Caption = #19979#21333#26085#26399
+ end
+ object Label5: TLabel
+ Left = 689
+ Top = 11
+ Width = 64
+ Height = 21
+ Caption = #20132#36135#26085#26399
+ end
+ object Label8: TLabel
+ Left = 689
+ Top = 45
+ Width = 32
+ Height = 21
+ Caption = #21305#25968
+ end
+ object Label13: TLabel
+ Left = 922
+ Top = 42
+ Width = 58
+ Height = 21
+ Caption = #24635' '#25968' '#37327
+ end
+ object Label47: TLabel
+ Left = 336
+ Top = 45
+ Width = 32
+ Height = 21
+ Caption = #23458#25143
end
object lbl2: TLabel
- Left = 294
+ Left = 336
Top = 9
- Width = 80
+ Width = 64
Height = 21
- Caption = #29983#20135#31867#22411#65306
+ Caption = #29983#20135#31867#22411
end
object Label7: TLabel
Left = 9
@@ -163,13 +122,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 21
Caption = #32455#36896#21333#21495#65306
end
- object Label4: TLabel
- Left = 1126
- Top = 44
- Width = 80
- Height = 21
- Caption = #21152#24037#21333#20301#65306
- end
object Label35: TLabel
Left = 9
Top = 44
@@ -177,200 +129,320 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 21
Caption = #21512#21516#21495#65306
end
- object Label10: TLabel
- Left = 1126
- Top = 9
- Width = 78
+ object Label3: TLabel
+ Left = 11
+ Top = 82
+ Width = 71
Height = 21
- Caption = #26426' '#22411#65306
- end
- object Label9: TLabel
- Left = 9
- Top = 188
- Width = 48
- Height = 21
- Caption = #31576#24133#65306
+ Caption = #20135#21697#32534#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label6: TLabel
- Left = 582
- Top = 81
- Width = 112
+ Left = 336
+ Top = 82
+ Width = 71
Height = 21
- Caption = #29702#35770#24179#26041#20811#37325#65306
- end
- object Label11: TLabel
- Left = 582
- Top = 188
- Width = 64
- Height = 21
- Caption = #24635#22836#32441#65306
- end
- object Label15: TLabel
- Left = 582
- Top = 117
- Width = 48
- Height = 21
- Caption = #32428#23494#65306
- end
- object Label16: TLabel
- Left = 857
- Top = 81
- Width = 112
- Height = 21
- Caption = #23454#27979#24179#26041#20811#37325#65306
- end
- object Label17: TLabel
- Left = 294
- Top = 188
- Width = 48
- Height = 21
- Caption = #31576#21495#65306
+ Caption = #20135#21697#21517#31216'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label55: TLabel
- Left = 65
- Top = 409
- Width = 80
- Height = 21
- Caption = #31359#32508#39034#24207#65306
- Visible = False
- end
- object Label18: TLabel
- Left = 9
- Top = 242
+ Left = 11
+ Top = 364
Width = 48
Height = 21
- Caption = #22791#27880#65306
+ Caption = #31359#32508#27861
end
- object Label1: TLabel
- Left = 1314
- Top = 347
- Width = 96
+ object Label9: TLabel
+ Left = 336
+ Top = 232
+ Width = 39
Height = 21
- Caption = #19979#25512#22383#24067#25968#65306
- Visible = False
+ Caption = #31576#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
- object Label19: TLabel
- Left = 1314
- Top = 382
- Width = 80
+ object Label11: TLabel
+ Left = 922
+ Top = 156
+ Width = 39
Height = 21
- Caption = #35746#21333#25968#37327#65306
- Visible = False
+ Caption = #32428#23494'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label12: TLabel
+ Left = 689
+ Top = 195
+ Width = 55
+ Height = 21
+ Caption = #24635#22836#32441'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label15: TLabel
+ Left = 336
+ Top = 157
+ Width = 32
+ Height = 21
+ Caption = #20811#37325
+ end
+ object Label16: TLabel
+ Left = 11
+ Top = 157
+ Width = 39
+ Height = 21
+ Caption = #38376#24133'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object lbl1: TLabel
+ Left = 11
+ Top = 195
+ Width = 103
+ Height = 21
+ Caption = #25972#32463#24037#33402#32534#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label17: TLabel
+ Left = 336
+ Top = 195
+ Width = 103
+ Height = 21
+ Caption = #25972#32463#24037#33402#21517#31216'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label18: TLabel
+ Left = 922
+ Top = 119
+ Width = 32
+ Height = 21
+ Caption = #33394#21495
end
object Label20: TLabel
- Left = 857
- Top = 188
- Width = 80
+ Left = 689
+ Top = 119
+ Width = 32
Height = 21
- Caption = #19978#26426#38376#24133#65306
+ Caption = #39068#33394
end
object Label21: TLabel
- Left = 1126
- Top = 188
- Width = 80
+ Left = 11
+ Top = 119
+ Width = 32
Height = 21
- Caption = #25104#21697#38376#24133#65306
+ Caption = #33457#22411
end
object Label22: TLabel
- Left = 1126
- Top = 81
- Width = 80
+ Left = 336
+ Top = 119
+ Width = 32
Height = 21
- Caption = #29256#26412#32534#21495#65306
+ Caption = #27454#21495
end
object Label23: TLabel
- Left = 857
- Top = 117
- Width = 78
+ Left = 922
+ Top = 81
+ Width = 32
Height = 21
- Caption = #39068' '#33394#65306
+ Caption = #35268#26684
end
object Label24: TLabel
- Left = 294
- Top = 117
- Width = 112
+ Left = 689
+ Top = 82
+ Width = 32
Height = 21
- Caption = #25972#32463#24037#33402#21517#31216#65306
+ Caption = #25104#20998
end
object Label25: TLabel
- Left = 9
- Top = 117
- Width = 112
+ Left = 689
+ Top = 157
+ Width = 39
Height = 21
- Caption = #25972#32463#24037#33402#32534#21495#65306
+ Caption = #32463#23494'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label26: TLabel
+ Left = 11
+ Top = 232
+ Width = 71
+ Height = 21
+ Caption = #38050#31576#32534#21495'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label27: TLabel
- Left = 9
- Top = 155
- Width = 112
+ Left = 689
+ Top = 232
+ Width = 39
Height = 21
- Caption = #32455#36896#24037#33402#21333#21495#65306
- end
- object Label28: TLabel
- Left = 8
- Top = 291
- Width = 431
- Height = 63
- Caption = #32463#32433#31859#24212#29992#37327'='#26681#25968'/'#24635#26681#25968'*'#22836#32441'*'#20998#29305'(Dtex)*(1+'#25439#32791')/9000'#10#13#10
- Font.Charset = GB2312_CHARSET
+ Caption = #31576#24133'*'
+ Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
+ object Label30: TLabel
+ Left = 922
+ Top = 233
+ Width = 48
+ Height = 21
+ Caption = #31576#40831#25968
+ end
+ object Label31: TLabel
+ Left = 11
+ Top = 269
+ Width = 48
+ Height = 21
+ Caption = #36793#32433#25968
+ end
+ object Label32: TLabel
+ Left = 336
+ Top = 269
+ Width = 71
+ Height = 21
+ Caption = #22320#20256#20837#25968'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label33: TLabel
+ Left = 689
+ Top = 269
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ end
+ object Label34: TLabel
+ Left = 11
+ Top = 307
+ Width = 48
+ Height = 21
+ Caption = #32508#39029#25968
+ end
+ object Label36: TLabel
+ Left = 336
+ Top = 307
+ Width = 48
+ Height = 21
+ Caption = #32428#29273#23494
+ end
+ object Label37: TLabel
+ Left = 689
+ Top = 307
+ Width = 55
+ Height = 21
+ Caption = #26085#20135#37327'*'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label38: TLabel
+ Left = 922
+ Top = 306
+ Width = 64
+ Height = 21
+ Caption = #33853#24067#31859#25968
+ end
+ object Label39: TLabel
+ Left = 1146
+ Top = 121
+ Width = 32
+ Height = 21
+ Caption = #26426#22411
+ end
+ object Label1: TLabel
+ Left = 11
+ Top = 457
+ Width = 615
+ Height = 21
+ Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#32428#23494'*'#65288#31576#24133'+'#25439#32791#65289'*0.059 / '#25903#25968' *'#26681#25968'/'#24490#29615#26681#25968'* 1.08'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
object Label29: TLabel
- Left = 7
- Top = 317
- Width = 454
+ Left = 11
+ Top = 430
+ Width = 392
Height = 21
- Caption = #32428#32433#31859#24212#29992#37327'='#26681#25968'/'#24635#26681#25968'*('#38376#24133'+'#25439#32791')*'#20998#29305'(Dtex)*'#32428#23494'/9000'
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
+ Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968'*0.059/'#25903#25968'*1.08'
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
- object OrdPieceLen: TcxTextEdit
- Tag = 2
- Left = 963
- Top = 149
- Properties.OnChange = OrdPieceLenPropertiesChange
- TabOrder = 2
- OnKeyPress = ConNoKeyPress
- Width = 150
- end
object OrdPiece: TcxTextEdit
Tag = 2
- Left = 409
- Top = 152
- Properties.OnChange = OrdPiecePropertiesChange
- TabOrder = 3
+ Left = 766
+ Top = 42
+ TabOrder = 1
OnKeyPress = ConNoKeyPress
Width = 150
end
object OrdQty: TcxTextEdit
Tag = 2
- Left = 688
- Top = 149
- Properties.OnChange = OrdQtyPropertiesChange
- TabOrder = 1
- OnKeyPress = ConNoKeyPress
- Width = 150
- end
- object C_Name: TcxTextEdit
- Tag = 2
- Left = 409
- Top = 77
- TabOrder = 0
- OnKeyPress = ConNoKeyPress
- Width = 150
- end
- object Saleser: TcxTextEdit
- Left = 409
+ Left = 986
Top = 40
- TabOrder = 4
+ Properties.OnChange = OrdQtyPropertiesChange
+ TabOrder = 0
OnKeyPress = ConNoKeyPress
Width = 150
end
@@ -378,159 +450,51 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 117
Top = 5
Enabled = False
- TabOrder = 5
+ TabOrder = 2
OnKeyPress = ConNoKeyPress
Width = 150
end
object ConMId: TcxTextEdit
Tag = 2
- Left = 1025
- Top = 356
+ Left = 1257
+ Top = 252
Enabled = False
- TabOrder = 6
+ TabOrder = 3
Visible = False
OnKeyPress = ConNoKeyPress
Width = 120
end
object ConSId: TcxTextEdit
Tag = 2
- Left = 1169
- Top = 355
+ Left = 1329
+ Top = 193
Enabled = False
- TabOrder = 7
+ TabOrder = 4
Visible = False
OnKeyPress = ConNoKeyPress
Width = 120
end
- object ThroughHealdOrder: TcxMemo
- Tag = 2
- Left = 139
- Top = 389
- ParentColor = True
- ParentFont = False
- TabOrder = 8
- Visible = False
- Height = 57
- Width = 589
- end
- object C_FinishLatitudeDensity: TcxTextEdit
- Tag = 2
- Left = 688
- Top = 113
- ParentColor = True
- Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
- TabOrder = 9
- Width = 150
- end
- object C_TestGramWeight: TcxTextEdit
- Tag = 2
- Left = 963
- Top = 77
- ParentColor = True
- TabOrder = 10
- Width = 150
- end
- object C_GramWeight: TcxTextEdit
- Tag = 2
- Left = 688
- Top = 77
- ParentColor = True
- TabOrder = 11
- Width = 150
- end
- object C_ReedNo: TcxTextEdit
- Tag = 2
- Left = 409
- Top = 184
- ParentColor = True
- TabOrder = 12
- Width = 150
- end
- object C_ReedWidth: TcxTextEdit
- Tag = 2
- Left = 117
- Top = 184
- ParentColor = True
- Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
- TabOrder = 13
- Width = 150
- end
- object C_YarnQty: TcxTextEdit
- Tag = 2
- Left = 688
- Top = 184
- ParentColor = True
- Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
- TabOrder = 14
- Width = 150
- end
- object LoomType: TcxTextEdit
- Tag = 2
- Left = 1208
- Top = 5
- ParentColor = True
- TabOrder = 15
- Width = 150
- end
- object OrdNote: TcxMemo
- Left = 117
- Top = 224
- ParentColor = True
- TabOrder = 16
- Height = 57
- Width = 721
- end
- object OurCoName: TcxButtonEdit
- Left = 963
- Top = 40
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = True
- Properties.OnButtonClick = OurCoNamePropertiesButtonClick
- Style.ButtonStyle = btsDefault
- TabOrder = 17
- OnDblClick = OurCoNameDblClick
- Width = 150
- end
- object FtyCoName: TcxButtonEdit
- Left = 1208
- Top = 40
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = True
- Properties.OnButtonClick = FtyCoNamePropertiesButtonClick
- Style.ButtonStyle = btsDefault
- TabOrder = 18
- OnDblClick = OurCoNameDblClick
- Width = 150
- end
object OrdType: TcxComboBox
- Left = 409
+ Left = 444
Top = 5
Properties.Items.Strings = (
#22823#36135#21333
#35797#26679#21333)
- TabOrder = 19
+ TabOrder = 5
Width = 150
end
object DlyDate: TcxDateEdit
- Left = 688
- Top = 5
+ Left = 766
+ Top = 7
Properties.ShowTime = False
- TabOrder = 20
+ TabOrder = 6
Width = 150
end
object OrdDate: TcxDateEdit
- Left = 963
+ Left = 986
Top = 5
Properties.ShowTime = False
- TabOrder = 21
+ TabOrder = 7
Width = 150
end
object ConNo: TcxButtonEdit
@@ -545,12 +509,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ReadOnly = True
Properties.OnButtonClick = ConNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 22
+ TabOrder = 8
OnDblClick = OurCoNameDblClick
Width = 150
end
object CustName: TcxButtonEdit
- Left = 688
+ Left = 444
Top = 40
Properties.Buttons = <
item
@@ -560,98 +524,80 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ReadOnly = True
Properties.OnButtonClick = CustNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 23
+ TabOrder = 9
OnDblClick = OurCoNameDblClick
Width = 150
end
- object C_Spec: TcxMemo
- Tag = 2
- Left = 963
- Top = 237
- TabOrder = 24
- Height = 32
- Width = 396
- end
- object C_Code: TcxButtonEdit
+ object ThroughHealdOrder: TcxMemo
Tag = 2
Left = 117
- Top = 77
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = True
- Properties.OnButtonClick = C_CodePropertiesButtonClick
- Style.ButtonStyle = btsDefault
- TabOrder = 25
- OnDblClick = OurCoNameDblClick
+ Top = 346
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 10
+ Height = 63
+ Width = 1061
+ end
+ object C_Name: TcxTextEdit
+ Tag = 2
+ Left = 445
+ Top = 78
+ ParentColor = True
+ TabOrder = 11
Width = 150
end
- object PBQty: TcxTextEdit
+ object C_YarnQty: TcxTextEdit
Tag = 2
- Left = 1406
- Top = 341
- Properties.ReadOnly = True
- TabOrder = 26
- Visible = False
- OnKeyPress = ConNoKeyPress
- Width = 150
- end
- object DDQty: TcxTextEdit
- Tag = 2
- Left = 1406
- Top = 376
- Properties.ReadOnly = True
- TabOrder = 27
- Visible = False
- OnKeyPress = ConNoKeyPress
+ Left = 766
+ Top = 191
+ ParentColor = True
+ TabOrder = 12
Width = 150
end
object C_Width: TcxTextEdit
Tag = 2
- Left = 963
- Top = 184
+ Left = 117
+ Top = 153
ParentColor = True
- TabOrder = 28
+ TabOrder = 13
Width = 150
end
- object C_FinishWidth: TcxTextEdit
+ object C_ReedNo: TcxTextEdit
Tag = 2
- Left = 1208
- Top = 184
+ Left = 445
+ Top = 228
ParentColor = True
- TabOrder = 29
+ TabOrder = 14
Width = 150
end
- object BBNo: TcxTextEdit
+ object C_GramWeight: TcxTextEdit
Tag = 2
- Left = 1208
- Top = 77
+ Left = 445
+ Top = 153
ParentColor = True
- TabOrder = 30
+ TabOrder = 15
Width = 150
end
- object C_Color: TcxTextEdit
+ object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
- Left = 963
- Top = 113
+ Left = 986
+ Top = 153
ParentColor = True
- TabOrder = 31
- Width = 150
- end
- object WB_Name: TcxTextEdit
- Tag = 2
- Left = 409
- Top = 113
- Properties.ReadOnly = True
- TabOrder = 32
+ TabOrder = 16
+ OnExit = C_ReedWidthExit
Width = 150
end
object WB_Code: TcxButtonEdit
Tag = 2
Left = 117
- Top = 116
+ Top = 191
+ ParentColor = True
Properties.Buttons = <
item
Default = True
@@ -660,51 +606,237 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 33
- OnDblClick = OurCoNameDblClick
+ TabOrder = 17
Width = 150
end
- object GYNo: TcxButtonEdit
+ object WB_Name: TcxTextEdit
+ Tag = 2
+ Left = 445
+ Top = 191
+ Enabled = False
+ ParentColor = True
+ TabOrder = 18
+ Width = 150
+ end
+ object C_Color: TcxTextEdit
+ Tag = 2
+ Left = 766
+ Top = 115
+ ParentColor = True
+ TabOrder = 19
+ Width = 150
+ end
+ object C_ColorNo: TcxTextEdit
+ Tag = 2
+ Left = 986
+ Top = 115
+ ParentColor = True
+ TabOrder = 20
+ Width = 150
+ end
+ object C_Pattern: TcxTextEdit
Tag = 2
Left = 117
- Top = 144
+ Top = 115
+ ParentColor = True
+ TabOrder = 21
+ Width = 150
+ end
+ object C_StyleNo: TcxTextEdit
+ Tag = 2
+ Left = 445
+ Top = 115
+ ParentColor = True
+ TabOrder = 22
+ Width = 150
+ end
+ object C_Spec: TcxTextEdit
+ Tag = 2
+ Left = 986
+ Top = 78
+ ParentColor = True
+ TabOrder = 23
+ Width = 150
+ end
+ object C_Composition: TcxTextEdit
+ Tag = 2
+ Left = 766
+ Top = 78
+ ParentColor = True
+ TabOrder = 24
+ Width = 150
+ end
+ object MFDW: TcxComboBox
+ Tag = 2
+ Left = 268
+ Top = 153
+ Properties.Items.Strings = (
+ #8220
+ 'CM')
+ TabOrder = 25
+ Text = #8220
+ Width = 63
+ end
+ object C_FinishLongitudeDensity: TcxTextEdit
+ Tag = 2
+ Left = 766
+ Top = 153
+ ParentColor = True
+ TabOrder = 26
+ Width = 150
+ end
+ object LPDW: TcxComboBox
+ Tag = 2
+ Left = 601
+ Top = 153
+ Properties.Items.Strings = (
+ 'GSM'
+ 'MM')
+ TabOrder = 27
+ Width = 63
+ end
+ object GKBH: TcxTextEdit
+ Tag = 2
+ Left = 117
+ Top = 228
+ ParentColor = True
+ TabOrder = 28
+ Width = 150
+ end
+ object C_ReedWidth: TcxTextEdit
+ Tag = 2
+ Left = 766
+ Top = 228
+ ParentColor = True
+ TabOrder = 29
+ OnExit = C_ReedWidthExit
+ Width = 76
+ end
+ object C_KCQTY: TcxTextEdit
+ Tag = 2
+ Left = 986
+ Top = 229
+ ParentColor = True
+ TabOrder = 30
+ Width = 150
+ end
+ object BSQTY: TcxTextEdit
+ Tag = 2
+ Left = 117
+ Top = 265
+ ParentColor = True
+ TabOrder = 31
+ Width = 150
+ end
+ object DCRQTY: TcxTextEdit
+ Tag = 2
+ Left = 445
+ Top = 265
+ ParentColor = True
+ TabOrder = 32
+ Width = 150
+ end
+ object WB_ReedNote: TcxTextEdit
+ Tag = 2
+ Left = 766
+ Top = 265
+ ParentColor = True
+ TabOrder = 33
+ Width = 371
+ end
+ object ZYQTY: TcxTextEdit
+ Tag = 2
+ Left = 117
+ Top = 303
+ ParentColor = True
+ TabOrder = 34
+ Width = 150
+ end
+ object WYAMI: TcxTextEdit
+ Tag = 2
+ Left = 445
+ Top = 303
+ ParentColor = True
+ TabOrder = 35
+ Width = 150
+ end
+ object DAYQTY: TcxTextEdit
+ Tag = 2
+ Left = 766
+ Top = 303
+ ParentColor = True
+ TabOrder = 36
+ Width = 150
+ end
+ object LBQTY: TcxTextEdit
+ Tag = 2
+ Left = 987
+ Top = 300
+ ParentColor = True
+ TabOrder = 37
+ Width = 150
+ end
+ object GKDW: TcxComboBox
+ Tag = 2
+ Left = 848
+ Top = 226
+ Properties.Items.Strings = (
+ #8220
+ 'CM')
+ TabOrder = 38
+ Text = #8220
+ Width = 63
+ end
+ object LoomType: TcxComboBox
+ Tag = 2
+ Left = 1191
+ Top = 118
+ Properties.Items.Strings = (
+ 'GSM'
+ 'MM')
+ TabOrder = 39
+ Width = 99
+ end
+ object C_CODE: TcxButtonEdit
+ Tag = 2
+ Left = 117
+ Top = 75
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
- Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+ Properties.OnButtonClick = C_CODEPropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 34
- OnDblClick = OurCoNameDblClick
+ TabOrder = 40
+ OnDblClick = C_CODEDblClick
Width = 150
end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
- Top = 393
+ Top = 529
Width = 1540
- Height = 373
+ Height = 331
Align = alClient
TabOrder = 2
- Properties.ActivePage = cxTabSheet2
+ Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
- ClientRectBottom = 373
+ ExplicitHeight = 237
+ ClientRectBottom = 331
ClientRectRight = 1540
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
+ ExplicitHeight = 209
object GroupBox1: TGroupBox
Left = 931
Top = 0
Width = 609
- Height = 345
+ Height = 303
Align = alClient
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
@@ -714,12 +846,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
+ ExplicitHeight = 209
object Y_Note_PLJ: TMemo
Tag = 2
Left = 2
Top = 31
Width = 605
- Height = 312
+ Height = 270
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -728,20 +861,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
+ ExplicitHeight = 176
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 931
- Height = 345
+ Height = 303
Align = alLeft
TabOrder = 1
+ ExplicitHeight = 209
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
- Height = 343
+ Height = 301
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -756,7 +891,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 343
+ ExplicitHeight = 207
+ ClientRectBottom = 301
ClientRectRight = 929
ClientRectTop = 0
end
@@ -764,13 +900,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 929
- Height = 343
+ Height = 301
Align = alClient
TabOrder = 1
+ ExplicitHeight = 207
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
- OnCellClick = TV1CellClick
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -799,7 +935,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
- Caption = #21407#26009#20195#21495
+ Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@@ -811,33 +947,48 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
- Width = 131
+ Width = 100
end
object cxGridDBColumn4: TcxGridDBColumn
- Caption = #21407#26009#21517#31216
+ Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = True
- Properties.OnButtonClick = cxGridDBColumn4PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
- Width = 138
+ Width = 100
+ end
+ object TV1Column13: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'Y_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object cxGridDBColumn8: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
end
object TV1Column6: TcxGridDBColumn
- Caption = #29702#35770'D'#25968
+ Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 80
+ Width = 96
+ end
+ object TV1Column14: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'Z_Number'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 71
end
object TV1Column1: TcxGridDBColumn
Caption = #26681#25968
@@ -846,7 +997,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 60
+ Width = 80
end
object TV1Column2: TcxGridDBColumn
Caption = #24490#29615#26681#25968
@@ -855,102 +1006,31 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 96
- end
- object TV1Column8: TcxGridDBColumn
- Caption = #31859'/'#24212#29992#37327
- DataBinding.FieldName = 'MeterQty'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- HeaderAlignmentHorz = taCenter
- Width = 114
+ Width = 80
end
object TV1Column10: TcxGridDBColumn
- Caption = #35268#26684
- DataBinding.FieldName = 'Y_Spec'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 100
- end
- object TV1Column9: TcxGridDBColumn
- Caption = #25104#20998
- DataBinding.FieldName = 'Y_Composition'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column14: TcxGridDBColumn
- Caption = #25439#32791'%'
- DataBinding.FieldName = 'SH'
+ Caption = #20840#24133#26681#25968
+ DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+ Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 79
+ Width = 80
end
- object TV1Column13: TcxGridDBColumn
- Caption = #30424#22836#21495
- DataBinding.FieldName = 'PTNo'
+ object TV1Column8: TcxGridDBColumn
+ Caption = #30334#31859#32463#38271#37325#37327'KG'
+ DataBinding.FieldName = 'MeterQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 163
+ end
+ object TV1Column11: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'NOTE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
- object cxGridDBColumn8: TcxGridDBColumn
- Caption = #39068#33394
- DataBinding.FieldName = 'Y_Color'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 99
- end
- object cxGridDBColumn5: TcxGridDBColumn
- Caption = #32433#32447#21697#29260
- DataBinding.FieldName = 'Brand'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Moving = False
- Options.Sorting = False
- Width = 111
- end
- object TV1Column11: TcxGridDBColumn
- Caption = #32442#27861
- DataBinding.FieldName = 'FF'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column12: TcxGridDBColumn
- Caption = #25467#24230
- DataBinding.FieldName = 'ND'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column3: TcxGridDBColumn
- Caption = #28068
- DataBinding.FieldName = 'Dacron'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column4: TcxGridDBColumn
- Caption = #26825
- DataBinding.FieldName = 'Cotton'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object TV1Column5: TcxGridDBColumn
- Caption = #40635
- DataBinding.FieldName = 'Linen'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
@@ -961,14 +1041,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
+ ExplicitHeight = 209
object GroupBox2: TGroupBox
Left = 863
Top = 0
Width = 677
- Height = 345
+ Height = 303
Align = alClient
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
@@ -978,12 +1056,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
+ ExplicitHeight = 209
object Y_Note_PLW: TMemo
Tag = 2
Left = 2
Top = 31
Width = 673
- Height = 312
+ Height = 270
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -992,20 +1071,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
+ ExplicitHeight = 176
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 863
- Height = 345
+ Height = 303
Align = alLeft
TabOrder = 1
+ ExplicitHeight = 209
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 861
- Height = 343
+ Height = 301
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -1020,7 +1101,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 343
+ ExplicitHeight = 207
+ ClientRectBottom = 301
ClientRectRight = 861
ClientRectTop = 0
end
@@ -1028,13 +1110,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 861
- Height = 343
+ Height = 301
Align = alClient
TabOrder = 1
+ ExplicitHeight = 207
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
- OnCellClick = Tv2CellClick
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -1063,7 +1145,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Width = 66
end
object v2Column10: TcxGridDBColumn
- Caption = #21407#26009#20195#21495
+ Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@@ -1075,33 +1157,47 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ReadOnly = True
Properties.OnButtonClick = v2Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
- Width = 131
+ Width = 100
end
object cxGridDBColumn1: TcxGridDBColumn
- Caption = #21407#26009#21517#31216
+ Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = True
- Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
- Width = 138
+ Width = 100
+ end
+ object Tv2Column13: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'Y_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object v2Column6: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
end
object Tv2Column6: TcxGridDBColumn
- Caption = #29702#35770'D'#25968
+ Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 91
+ end
+ object Tv2Column14: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'Z_Number'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 80
+ Width = 88
end
object Tv2Column1: TcxGridDBColumn
Caption = #26681#25968
@@ -1121,92 +1217,25 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter
Width = 80
end
- object Tv2Column8: TcxGridDBColumn
- Caption = #31859'/'#24212#29992#37327
- DataBinding.FieldName = 'MeterQty'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 120
- end
- object Tv2Column9: TcxGridDBColumn
- Caption = #35268#26684
- DataBinding.FieldName = 'Y_Spec'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column10: TcxGridDBColumn
- Caption = #25104#20998
- DataBinding.FieldName = 'Y_Composition'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 100
- end
- object Tv2Column14: TcxGridDBColumn
- Caption = #25439#32791'CM'
- DataBinding.FieldName = 'SH'
+ object Tv2Column11: TcxGridDBColumn
+ Caption = #25439#32791
+ DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
- FooterAlignmentHorz = taCenter
- GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
- Width = 94
+ Width = 80
end
- object Tv2Column13: TcxGridDBColumn
- Caption = #28504#36890#21495
- DataBinding.FieldName = 'PTNo'
+ object Tv2Column8: TcxGridDBColumn
+ Caption = #30334#31859#32463#38271#29992#37327'KG'
+ DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 100
- end
- object v2Column6: TcxGridDBColumn
- Caption = #39068#33394
- DataBinding.FieldName = 'Y_Color'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 99
- end
- object v2Column2: TcxGridDBColumn
- Caption = #32433#32447#21697#29260
- DataBinding.FieldName = 'Brand'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Moving = False
- Options.Sorting = False
- Width = 111
+ Width = 151
end
object Tv2Column12: TcxGridDBColumn
- Caption = #25467#24230
- DataBinding.FieldName = 'ND'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column11: TcxGridDBColumn
- Caption = #32442#27861
- DataBinding.FieldName = 'FF'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column3: TcxGridDBColumn
- Caption = #28068
- DataBinding.FieldName = 'Dacron'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column4: TcxGridDBColumn
- Caption = #26825
- DataBinding.FieldName = 'Cotton'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv2Column5: TcxGridDBColumn
- Caption = #40635
- DataBinding.FieldName = 'Linen'
+ Caption = #22791#27880
+ DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@@ -1221,96 +1250,128 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object cxGrid4: TcxGrid
+ ExplicitHeight = 209
+ object Panel5: TPanel
Left = 0
- Top = 303
+ Top = 0
Width = 1540
- Height = 42
- Align = alBottom
+ Height = 41
+ Align = alTop
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -24
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
TabOrder = 0
- Visible = False
- object TV4: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_QZ
- DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
- DataController.Summary.DefaultGroupSummaryItems = <
- item
- Format = '0'
- Position = spFooter
- end
- item
- Format = '0'
- Position = spFooter
- end
- item
- Format = '0'
- Position = spFooter
- end>
- DataController.Summary.FooterSummaryItems = <
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end
- item
- Kind = skSum
- end>
- DataController.Summary.SummaryGroups = <>
- OptionsBehavior.FocusCellOnTab = True
- OptionsBehavior.GoToNextCellOnEnter = True
- OptionsBehavior.FocusCellOnCycle = True
- OptionsCustomize.ColumnFiltering = False
- OptionsView.GroupByBox = False
- object TV4Column1: TcxGridDBColumn
- Tag = 2
- Caption = #36873#25321
- DataBinding.FieldName = 'ssel'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.ImmediatePost = True
- HeaderAlignmentHorz = taCenter
- Options.Sorting = False
- Width = 63
- end
- object cxGridDBColumn16: TcxGridDBColumn
- Caption = #39034#24207
- DataBinding.FieldName = 'XuNo'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Options.Focusing = False
- Options.Sorting = False
- Width = 146
- end
- object cxGridDBColumn17: TcxGridDBColumn
- Caption = #22320#32452#32455#36215#32508#35268#24459
- DataBinding.FieldName = 'DZZQZGL'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- HeaderAlignmentHorz = taCenter
- Options.Sorting = False
- Width = 499
- end
+ ExplicitTop = -6
+ object Label28: TLabel
+ Left = 18
+ Top = 4
+ Width = 96
+ Height = 31
+ Caption = #22270#29255#36873#25321
end
- object cxGridLevel5: TcxGridLevel
- GridView = TV4
+ object attname2: TcxButtonEdit
+ Tag = 2
+ Left = 120
+ Top = -4
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = attname2PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 0
+ Width = 150
end
end
- object QZF: TMemo
+ object cxDBImage2: TcxDBImage
+ Left = 0
+ Top = 41
+ Hint = 'FileName'
+ Align = alClient
+ DataBinding.DataField = 'FilesOther'
+ DataBinding.DataSource = DS_ImgHX2
+ Properties.GraphicClassName = 'TdxSmartImage'
+ Properties.GraphicTransparency = gtTransparent
+ Properties.ReadOnly = True
+ Properties.ShowFocusRect = False
+ Style.BorderStyle = ebsSingle
+ TabOrder = 1
+ Height = 262
+ Width = 1540
+ end
+ end
+ object cxTabSheet4: TcxTabSheet
+ Caption = #31359#32508#27861
+ ImageIndex = 3
+ ExplicitHeight = 209
+ object Panel4: TPanel
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 41
+ Align = alTop
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clRed
+ Font.Height = -24
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ExplicitTop = -6
+ object Label4: TLabel
+ Left = 18
+ Top = 4
+ Width = 96
+ Height = 31
+ Caption = #22270#29255#36873#25321
+ end
+ object ATTNAME1: TcxButtonEdit
+ Tag = 2
+ Left = 120
+ Top = -4
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = ATTNAME1PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 0
+ Width = 150
+ end
+ end
+ object cxDBImage1: TcxDBImage
+ Left = 0
+ Top = 41
+ Hint = 'FileName'
+ Align = alClient
+ DataBinding.DataField = 'FilesOther'
+ DataBinding.DataSource = DS_ImgHX
+ Properties.GraphicClassName = 'TdxSmartImage'
+ Properties.GraphicTransparency = gtTransparent
+ Properties.ReadOnly = True
+ Properties.ShowFocusRect = False
+ Style.BorderStyle = ebsSingle
+ TabOrder = 1
+ ExplicitLeft = 2
+ ExplicitTop = 42
+ Height = 262
+ Width = 1540
+ end
+ end
+ object cxTabSheet5: TcxTabSheet
+ Caption = #31359#31576#27861
+ ImageIndex = 3
+ ExplicitHeight = 209
+ object CKF: TMemo
Tag = 2
Left = 0
Top = 0
@@ -1324,92 +1385,47 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
- TabOrder = 1
- end
- end
- object cxTabSheet4: TcxTabSheet
- Caption = #31359#32508#27861
- ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object CZF: TMemo
- Tag = 2
- Left = 0
- Top = 0
- Width = 1540
- Height = 345
- Align = alClient
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
- ParentFont = False
- TabOrder = 0
- end
- end
- object cxTabSheet5: TcxTabSheet
- Caption = #31359#31576#27861
- ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object CKF: TMemo
- Tag = 2
- Left = 0
- Top = 0
- Width = 1540
- Height = 345
- Align = alClient
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
- ParentFont = False
TabOrder = 0
+ ExplicitHeight = 209
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
- Left = 558
- Top = 323
+ Left = 1214
+ Top = 403
end
inherited ADOQueryBaseTemp: TADOQuery
- Left = 631
+ Left = 1231
Top = 305
end
inherited ImageList_new32: TImageList
- Left = 703
- Top = 384
+ Left = 1183
+ Top = 352
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
- Left = 968
- Top = 319
- DesignInfo = 20906952
+ Left = 1304
+ Top = 439
+ DesignInfo = 28771608
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
- Left = 961
- Top = 282
+ Left = 1257
+ Top = 386
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
- Left = 703
- Top = 329
+ Left = 1271
+ Top = 345
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
- Left = 791
- Top = 313
+ Left = 1255
+ Top = 249
end
object DS_1: TDataSource
DataSet = CDS_1
@@ -1419,43 +1435,41 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
- Left = 759
+ Left = 1175
Top = 313
end
object DS_2: TDataSource
DataSet = CDS_2
- Left = 554
- Top = 405
+ Left = 1226
+ Top = 397
end
object DS_QZ: TDataSource
DataSet = CDS_QZ
- Left = 608
+ Left = 1184
Top = 421
end
object CDS_QZ: TClientDataSet
Aggregates = <>
Params = <>
- Left = 823
- Top = 313
+ Left = 1183
+ Top = 289
end
object GPM_1: TcxGridPopupMenu
- Grid = cxGrid1
PopupMenus = <>
- Left = 855
- Top = 313
+ Left = 1143
+ Top = 369
end
object GPM_2: TcxGridPopupMenu
- Grid = cxGrid2
PopupMenus = <>
- Left = 887
+ Left = 1159
Top = 313
end
object ADOQuery1: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
- Left = 1043
- Top = 312
+ Left = 1291
+ Top = 408
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
@@ -1464,4 +1478,26 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 713
Top = 514
end
+ object Qry_ImgHX: TADOQuery
+ Connection = DataLink_TatPlan.ADOLink
+ Parameters = <>
+ Left = 610
+ Top = 304
+ end
+ object DS_ImgHX: TDataSource
+ DataSet = Qry_ImgHX
+ Left = 519
+ Top = 408
+ end
+ object DS_ImgHX2: TDataSource
+ DataSet = Qry_ImgHX2
+ Left = 599
+ Top = 416
+ end
+ object Qry_ImgHX2: TADOQuery
+ Connection = DataLink_TatPlan.ADOLink
+ Parameters = <>
+ Left = 674
+ Top = 352
+ end
end
diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas
index 273aa25..d4d86ca 100644
--- a/E01梭织生产计划/U_TatPlanInPut.pas
+++ b/E01梭织生产计划/U_TatPlanInPut.pas
@@ -21,7 +21,7 @@ uses
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
- dxSkinSharpPlus, dxSkinWXI;
+ dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit;
type
TfrmTatPlanInPut = class(TfrmBaseInput)
@@ -30,14 +30,10 @@ type
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label2: TLabel;
- Label3: TLabel;
- Label14: TLabel;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Label5: TLabel;
Label8: TLabel;
- Label12: TLabel;
- OrdPieceLen: TcxTextEdit;
OrdPiece: TcxTextEdit;
Label13: TLabel;
OrdQty: TcxTextEdit;
@@ -45,16 +41,10 @@ type
DS_1: TDataSource;
CDS_1: TClientDataSet;
DS_2: TDataSource;
- Label26: TLabel;
- Label31: TLabel;
Label47: TLabel;
- C_Name: TcxTextEdit;
- Label43: TLabel;
lbl2: TLabel;
- Saleser: TcxTextEdit;
Label7: TLabel;
OrderNo: TcxTextEdit;
- Label4: TLabel;
ToolButton8: TToolButton;
Label35: TLabel;
ConMId: TcxTextEdit;
@@ -67,116 +57,127 @@ type
GroupBox2: TGroupBox;
Y_Note_PLW: TMemo;
cxTabSheet3: TcxTabSheet;
- cxGrid4: TcxGrid;
- TV4: TcxGridDBTableView;
- TV4Column1: TcxGridDBColumn;
- cxGridDBColumn16: TcxGridDBColumn;
- cxGridDBColumn17: TcxGridDBColumn;
- cxGridLevel5: TcxGridLevel;
Panel1: TPanel;
cxPageControl2: TcxPageControl;
Panel2: TPanel;
cxPageControl1: TcxPageControl;
DS_QZ: TDataSource;
CDS_QZ: TClientDataSet;
- ThroughHealdOrder: TcxMemo;
- C_FinishLatitudeDensity: TcxTextEdit;
- C_TestGramWeight: TcxTextEdit;
- C_GramWeight: TcxTextEdit;
- C_ReedNo: TcxTextEdit;
- C_ReedWidth: TcxTextEdit;
- C_YarnQty: TcxTextEdit;
- LoomType: TcxTextEdit;
- OrdNote: TcxMemo;
- Label10: TLabel;
- Label9: TLabel;
- Label6: TLabel;
- Label11: TLabel;
- Label15: TLabel;
- Label16: TLabel;
- Label17: TLabel;
- Label55: TLabel;
- Label18: TLabel;
- OurCoName: TcxButtonEdit;
- FtyCoName: TcxButtonEdit;
OrdType: TcxComboBox;
DlyDate: TcxDateEdit;
OrdDate: TcxDateEdit;
ConNo: TcxButtonEdit;
CustName: TcxButtonEdit;
- C_Spec: TcxMemo;
- C_Code: TcxButtonEdit;
+ GPM_1: TcxGridPopupMenu;
+ GPM_2: TcxGridPopupMenu;
+ cxTabSheet4: TcxTabSheet;
+ cxTabSheet5: TcxTabSheet;
+ CKF: TMemo;
+ ADOQuery1: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ Label3: TLabel;
+ Label6: TLabel;
+ Label55: TLabel;
+ Label9: TLabel;
+ Label11: TLabel;
+ Label12: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ lbl1: TLabel;
+ Label17: TLabel;
+ Label18: TLabel;
+ Label20: TLabel;
+ Label21: TLabel;
+ Label22: TLabel;
+ Label23: TLabel;
+ Label24: TLabel;
+ Label25: TLabel;
+ Label26: TLabel;
+ Label27: TLabel;
+ Label30: TLabel;
+ Label31: TLabel;
+ Label32: TLabel;
+ Label33: TLabel;
+ Label34: TLabel;
+ Label36: TLabel;
+ Label37: TLabel;
+ Label38: TLabel;
+ ThroughHealdOrder: TcxMemo;
+ C_Name: TcxTextEdit;
+ C_YarnQty: TcxTextEdit;
+ C_Width: TcxTextEdit;
+ C_ReedNo: TcxTextEdit;
+ C_GramWeight: TcxTextEdit;
+ C_FinishLatitudeDensity: TcxTextEdit;
+ WB_Code: TcxButtonEdit;
+ WB_Name: TcxTextEdit;
+ C_Color: TcxTextEdit;
+ C_ColorNo: TcxTextEdit;
+ C_Pattern: TcxTextEdit;
+ C_StyleNo: TcxTextEdit;
+ C_Spec: TcxTextEdit;
+ C_Composition: TcxTextEdit;
+ MFDW: TcxComboBox;
+ C_FinishLongitudeDensity: TcxTextEdit;
+ LPDW: TcxComboBox;
+ GKBH: TcxTextEdit;
+ C_ReedWidth: TcxTextEdit;
+ C_KCQTY: TcxTextEdit;
+ BSQTY: TcxTextEdit;
+ DCRQTY: TcxTextEdit;
+ WB_ReedNote: TcxTextEdit;
+ ZYQTY: TcxTextEdit;
+ WYAMI: TcxTextEdit;
+ DAYQTY: TcxTextEdit;
+ LBQTY: TcxTextEdit;
+ GKDW: TcxComboBox;
+ LoomType: TcxComboBox;
+ Label39: TLabel;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
TV1Column7: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
- cxGridDBColumn5: TcxGridDBColumn;
+ TV1Column13: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
+ TV1Column6: TcxGridDBColumn;
+ TV1Column14: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
- TV1Column3: TcxGridDBColumn;
- TV1Column4: TcxGridDBColumn;
- TV1Column5: TcxGridDBColumn;
- TV1Column6: TcxGridDBColumn;
+ TV1Column10: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
- TV1Column9: TcxGridDBColumn;
+ TV1Column11: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
Tv2Column7: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
- v2Column2: TcxGridDBColumn;
+ Tv2Column13: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
+ Tv2Column6: TcxGridDBColumn;
+ Tv2Column14: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
- Tv2Column3: TcxGridDBColumn;
- Tv2Column4: TcxGridDBColumn;
- Tv2Column5: TcxGridDBColumn;
- Tv2Column6: TcxGridDBColumn;
- Tv2Column8: TcxGridDBColumn;
- Tv2Column9: TcxGridDBColumn;
- cxGridLevel1: TcxGridLevel;
- GPM_1: TcxGridPopupMenu;
- GPM_2: TcxGridPopupMenu;
- cxTabSheet4: TcxTabSheet;
- CZF: TMemo;
- cxTabSheet5: TcxTabSheet;
- CKF: TMemo;
- TV1Column11: TcxGridDBColumn;
- TV1Column12: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
+ Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
Label1: TLabel;
- PBQty: TcxTextEdit;
- Label19: TLabel;
- DDQty: TcxTextEdit;
- Label20: TLabel;
- C_Width: TcxTextEdit;
- Label21: TLabel;
- C_FinishWidth: TcxTextEdit;
- Label22: TLabel;
- BBNo: TcxTextEdit;
- Label23: TLabel;
- C_Color: TcxTextEdit;
- QZF: TMemo;
- Tv2Column10: TcxGridDBColumn;
- Tv2Column13: TcxGridDBColumn;
- TV1Column10: TcxGridDBColumn;
- TV1Column13: TcxGridDBColumn;
- Label24: TLabel;
- Label25: TLabel;
- WB_Name: TcxTextEdit;
- WB_Code: TcxButtonEdit;
- ADOQuery1: TADOQuery;
- Label27: TLabel;
- GYNo: TcxButtonEdit;
- ADOQueryMain: TADOQuery;
- TV1Column14: TcxGridDBColumn;
- Tv2Column14: TcxGridDBColumn;
- Label28: TLabel;
Label29: TLabel;
+ Panel5: TPanel;
+ Label28: TLabel;
+ attname2: TcxButtonEdit;
+ cxDBImage2: TcxDBImage;
+ Panel4: TPanel;
+ Label4: TLabel;
+ ATTNAME1: TcxButtonEdit;
+ cxDBImage1: TcxDBImage;
+ Qry_ImgHX: TADOQuery;
+ DS_ImgHX: TDataSource;
+ DS_ImgHX2: TDataSource;
+ Qry_ImgHX2: TADOQuery;
+ C_CODE: TcxButtonEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -192,9 +193,9 @@ type
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
- procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+// procedure OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OurCoNameDblClick(Sender: TObject);
- procedure FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+// procedure FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@@ -209,15 +210,20 @@ type
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
- procedure OrdPiecePropertiesChange(Sender: TObject);
+
procedure OrdQtyPropertiesChange(Sender: TObject);
- procedure OrdPieceLenPropertiesChange(Sender: TObject);
- procedure UpdateCalculations(Sender: TObject);
+ procedure TV1Column14PropertiesEditValueChanged(Sender: TObject);
+ procedure C_ReedWidthExit(Sender: TObject);
+ procedure ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure C_CODEDblClick(Sender: TObject);
+
private
FXS, FGridFlag: Integer;
FUpdating: Boolean;
FLastChanged: TObject;
procedure InitData();
+ procedure InitImage();
procedure Initexcel();
procedure CALCYarnQty();
procedure JSJS(); //㾭˿
@@ -241,9 +247,41 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel,
- U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel;
+ U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload;
{$R *.dfm}
+procedure TfrmTatPlanInPut.InitImage();
+begin
+ if attname1.Text <> '' then
+ begin
+ with Qry_ImgHX do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname1.Text)));
+ SQL.Add('AND TFTYPE=''ZC'' ');
+// ShowMessage(SQL.Text);
+ open;
+ end;
+
+ end;
+ if attname2.Text <> '' then
+ begin
+ with Qry_ImgHX2 do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from TP_File A');
+ sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname2.Text)));
+ SQL.Add('AND TFTYPE=''qC'' ');
+// ShowMessage(SQL.Text);
+ open;
+ end;
+
+ end;
+end;
+
procedure TfrmTatPlanInPut.InitClothYarn(MC_Code: string);
begin
@@ -255,19 +293,33 @@ begin
sql.Add(' where A.C_Code=''' + Trim(MC_Code) + '''');
Open;
end;
- Self.C_Code.Text := ADOQueryTemp.fieldbyname('C_Code').AsString;
- Self.C_Name.Text := ADOQueryTemp.fieldbyname('C_Name').AsString;
- Self.C_Spec.Text := ADOQueryTemp.fieldbyname('C_Spec').AsString;
- Self.C_FinishLatitudeDensity.Text := ADOQueryTemp.fieldbyname('C_FinishLatitudeDensity').AsString;
+ ConNo.tag := 9;
+ OrdPiece.tag := 9;
+ OrdQty.tag := 9;
+ ConMId.tag := 9;
+ ConSId.tag := 9;
+ SCSHData(ADOQueryTemp, ScrollBox1, 2);
- Self.C_GramWeight.Text := ADOQueryTemp.fieldbyname('C_GramWeight').AsString;
- Self.C_ReedNo.Text := ADOQueryTemp.fieldbyname('C_ReedNo').AsString;
- Self.C_YarnQty.Text := ADOQueryTemp.fieldbyname('C_YarnQty').AsString;
- Self.C_TestGramWeight.Text := ADOQueryTemp.fieldbyname('C_TestGramWeight').AsString;
- Self.LoomType.Text := ADOQueryTemp.fieldbyname('LoomType').AsString;
- Self.C_ReedWidth.Text := ADOQueryTemp.fieldbyname('C_ReedWidth').AsString;
- Self.BBNO.Text := ADOQueryTemp.fieldbyname('BBNO').AsString;
- Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString;
+ attname1.Text := ADOQueryTemp.fieldbyname('attname1').AsString;
+ attname2.Text := ADOQueryTemp.fieldbyname('attname2').AsString;
+ ConNo.tag := 2;
+ OrdPiece.tag := 2;
+ OrdQty.tag := 2;
+ ConMId.tag := 2;
+ ConSId.tag := 2;
+// Self.C_Code.Text := ADOQueryTemp.fieldbyname('C_Code').AsString;
+// Self.C_Name.Text := ADOQueryTemp.fieldbyname('C_Name').AsString;
+// Self.C_Spec.Text := ADOQueryTemp.fieldbyname('C_Spec').AsString;
+// Self.C_FinishLatitudeDensity.Text := ADOQueryTemp.fieldbyname('C_FinishLatitudeDensity').AsString;
+//
+// Self.C_GramWeight.Text := ADOQueryTemp.fieldbyname('C_GramWeight').AsString;
+// Self.C_ReedNo.Text := ADOQueryTemp.fieldbyname('C_ReedNo').AsString;
+// Self.C_YarnQty.Text := ADOQueryTemp.fieldbyname('C_YarnQty').AsString;
+//
+// Self.LoomType.Text := ADOQueryTemp.fieldbyname('LoomType').AsString;
+// Self.C_ReedWidth.Text := ADOQueryTemp.fieldbyname('C_ReedWidth').AsString;
+//
+// Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString;
// Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString;
// Self.CZF.Text := ADOQueryTemp.fieldbyname('CZF').AsString;
@@ -275,42 +327,88 @@ begin
// Self.Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLJ').AsString;
// Self.Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PLW').AsString;
//
-// with ADOQueryTemp do
-// begin
-// Close;
-// sql.Clear;
-// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
-// sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
-// Open;
-// end;
-// SCreateCDS(ADOQueryTemp, CDS_1);
-// SInitCDSData(ADOQueryTemp, CDS_1);
-// ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']);
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+ sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_1);
+ SInitCDSData(ADOQueryTemp, CDS_1);
+ ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']);
//
-// with ADOQueryTemp do
-// begin
-// Close;
-// sql.Clear;
-// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
-// sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
-// Open;
-// end;
-// SCreateCDS(ADOQueryTemp, CDS_2);
-// SInitCDSData(ADOQueryTemp, CDS_2);
-// ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']);
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+ sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_2);
+ SInitCDSData(ADOQueryTemp, CDS_2);
+ ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']);
//
-// with ADOQueryTemp do
-// begin
-// Close;
-// sql.Clear;
-// sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
-// sql.Add(' where B.C_Code=''' + Trim(MC_Code) + '''');
-// Open;
-// end;
-// SCreateCDS(ADOQueryTemp, CDS_QZ);
-// SInitCDSData(ADOQueryTemp, CDS_QZ);
-// ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']);
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+ sql.Add(' where B.C_Code=''' + Trim(MC_Code) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_QZ);
+ SInitCDSData(ADOQueryTemp, CDS_QZ);
+ ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']);
+ InitImage();
+end;
+procedure TfrmTatPlanInPut.ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmPictureUpload := TfrmPictureUpload.create(self);
+ with frmPictureUpload do
+ begin
+ fFlileFlag := UserDataFlag + 'HX';
+ FDataId := AttName1.Text;
+ FPictureName := AttName1.Text;
+ FWidth := 600;
+ FHeight := 600;
+ FTFType := 'ZC';
+ if showmodal = 1 then
+ begin
+ AttName1.Text := frmPictureUpload.FPictureName;
+ end;
+ end;
+ finally
+ frmPictureUpload.free;
+ end;
+ initimage();
+end;
+
+procedure TfrmTatPlanInPut.attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmPictureUpload := TfrmPictureUpload.create(self);
+ with frmPictureUpload do
+ begin
+ fFlileFlag := UserDataFlag + 'HX';
+ FDataId := AttName1.Text;
+ FPictureName := AttName1.Text;
+ FWidth := 600;
+ FHeight := 600;
+ FTFType := 'ZC';
+ if showmodal = 1 then
+ begin
+ AttName2.Text := frmPictureUpload.FPictureName;
+ end;
+ end;
+ finally
+ frmPictureUpload.free;
+ end;
+ initimage();
end;
procedure TfrmTatPlanInPut.CALCYarnQty();
@@ -368,8 +466,8 @@ begin
end;
SCSHData(ADOQueryMain, ScrollBox1, 0);
- QZF.Text := Trim(ADOQueryMain.FieldByName('QZF').AsString);
- CZF.Text := Trim(ADOQueryMain.FieldByName('CZF').AsString);
+ attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString);
+ attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString);
CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString);
with ADOQueryMain do
@@ -508,6 +606,7 @@ begin
ConNo.enabled := false;
// ScrollBox1.Enabled := False;
end;
+ InitImage();
end;
procedure TfrmTatPlanInPut.Initexcel();
@@ -551,35 +650,22 @@ begin
end;
procedure TfrmTatPlanInPut.FormShow(Sender: TObject);
+var
+ mSql: string;
begin
ReadCxGrid('ƻ¼11', Tv1, '');
ReadCxGrid('ƻ¼22', Tv2, '');
+ mSql := 'select distinct name=A.mctype from Bs_Machine A ';
+ SInitTcxComBoxBySql(ADOQueryTemp, LoomType, false, mSql);
InitData();
+ InitImage();
JSJS(); //㾭˿
JSWS(); //γ˿
JSKZ();
// Initexcel();
end;
-procedure TfrmTatPlanInPut.FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-begin
- try
- frmCompanySel := TfrmCompanySel.Create(Application);
- with frmCompanySel do
- begin
- FCoType := 'Ӧ';
- if ShowModal = 1 then
- begin
- FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
- FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
- end;
- end;
- finally
- frmCompanySel.Free;
- end;
-end;
-
function TfrmTatPlanInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno, maxQZID: string;
@@ -619,8 +705,8 @@ begin
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('MainId').Value := Trim(maxno);
- FieldByName('QZF').Value := Trim(QZF.text);
- FieldByName('CZF').Value := Trim(CZF.text);
+ FieldByName('attname1').Value := Trim(attname1.text);
+ FieldByName('attname2').Value := Trim(attname2.text);
FieldByName('CKF').Value := Trim(CKF.text);
RTSetsavedata(ADOQueryCmd, 'Tat_Plan_Main', ScrollBox1, 0);
Post;
@@ -772,60 +858,7 @@ begin
end;
end;
////////////////////////// γ˿ȱ //////////////////////////
- //////////////////////
-////////////////////////// //////////////////////////
- with CDS_QZ do
- begin
- First;
- while not Eof do
- begin
- if Trim(CDS_QZ.fieldbyname('QZID').AsString) = '' then
- begin
- if GetLSNo(ADOQueryTemp, maxQZID, 'QZ', 'Tat_Plan_QZ', 4, 1) = False then
- raise Exception.Create('ȡˮʧܣ');
-
- end
- else
- begin
- maxQZID := Trim(CDS_QZ.fieldbyname('QZID').AsString);
- end;
- with ADOQueryCmd do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Tat_Plan_QZ where ');
- sql.Add(' QZID=''' + Trim(maxQZID) + '''');
- Open;
- end;
- with ADOQueryCmd do
- begin
- if Trim(CDS_QZ.fieldbyname('QZID').AsString) = '' then
- begin
- Append;
-// FieldByName('Filler').Value := Trim(DName);
-// FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
- end
- else
- begin
- Edit;
-// FieldByName('Editer').Value := Trim(DName);
-// FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
- end;
- FieldByName('MainId').Value := Trim(maxno);
- FieldByName('SubId').Value := Trim(maxsubno);
- FieldByName('QZID').Value := Trim(maxQZID);
- RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_QZ, 'Tat_Plan_QZ', 0);
- Post;
- end;
- CDS_QZ.Edit;
- CDS_QZ.FieldByName('SubId').Value := Trim(maxsubno);
- CDS_QZ.FieldByName('MainId').Value := Trim(maxno);
- CDS_QZ.FieldByName('QZID').Value := Trim(maxQZID);
-
- Next;
- end;
- end;
-////////////////////////// //////////////////////////
+ //////////////////////////
ADOQueryCmd.Connection.CommitTrans;
FMainId := Trim(maxno);
FSubId := Trim(maxsubno);
@@ -882,11 +915,7 @@ begin
Application.MessageBox('Ϊ!', 'ʾ', 0);
Exit;
end;
- if Trim(OrdPieceLen.Text) = '' then
- begin
- Application.MessageBox('ƥΪ!', 'ʾ', 0);
- Exit;
- end;
+
if Trim(OrdPiece.Text) = '' then
begin
Application.MessageBox('ƥΪ!', 'ʾ', 0);
@@ -898,16 +927,73 @@ begin
Application.MessageBox('Ƿ!', 'ʾ', 0);
Exit;
end;
- if TryStrToFloat(OrdPiecelen.Text, FReal) = False then
- begin
- Application.MessageBox('ƥǷ!', 'ʾ', 0);
- Exit;
- end;
+
if TryStrToFloat(OrdPiece.Text, FReal) = False then
begin
Application.MessageBox('ƥǷ!', 'ʾ', 0);
Exit;
end;
+ if MFDW.Text = '' then
+ begin
+ Application.MessageBox('ŷλΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_Width.Text = '' then
+ begin
+ Application.MessageBox('ŷΪգ', 'ʾ', 0);
+ Exit;
+ end;
+
+ if C_FinishLongitudeDensity.Text = '' then
+ begin
+ Application.MessageBox('ܲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_FinishLatitudeDensity.Text = '' then
+ begin
+ Application.MessageBox('γܲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if WB_Code.Text = '' then
+ begin
+ Application.MessageBox('ձŲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if WB_Name.Text = '' then
+ begin
+ Application.MessageBox('ƲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_YarnQty.Text = '' then
+ begin
+ Application.MessageBox('ͷƲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if GKBH.Text = '' then
+ begin
+ Application.MessageBox('رŲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_ReedNo.Text = '' then
+ begin
+ Application.MessageBox('غŲΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if C_ReedWidth.Text = '' then
+ begin
+ Application.MessageBox('طΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if DCRQTY.Text = '' then
+ begin
+ Application.MessageBox('شΪգ', 'ʾ', 0);
+ Exit;
+ end;
+ if DAYQTY.Text = '' then
+ begin
+ Application.MessageBox('ղΪգ', 'ʾ', 0);
+ Exit;
+ end;
// with ADOQueryTemp do
// begin
// close;
@@ -1017,6 +1103,51 @@ begin
end;
end;
+procedure TfrmTatPlanInPut.TV1Column14PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+ ZS, ZGS: double;
+begin
+
+ mvalue := TcxTextEdit(Sender).EditingText;
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName(FFieldName).Value := mvalue;
+ Post;
+
+ if FieldByName('QFYARNQTY').Value = null then
+ begin
+ ZGS := 0; //QUANFU
+ end
+ else
+ begin
+ ZGS := FieldByName('QFYARNQTY').Value; //ȫ
+ end;
+
+ if FieldByName('Z_Number').Value = null then
+ begin
+ ZS := 0; //ѭ
+ end
+ else
+ begin
+ ZS := FieldByName('Z_Number').Value; //ѭ
+ end;
+
+ end;
+ if ZS <> 0 then
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
+ Post;
+ end;
+ end;
+end;
+
procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@@ -1119,7 +1250,7 @@ end;
procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
- GS, ZGS, MF, DS, WM, sunhao: double;
+ GS, ZGS, MF, DS, WM, fsh: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@@ -1140,6 +1271,15 @@ begin
GS := FieldByName('YarnQty').Value; //
end;
+ if FieldByName('Y_loss').Value = null then
+ begin
+ fsh := 0; //
+ end
+ else
+ begin
+ fsh := FieldByName('Y_loss').Value; //
+ end;
+
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //ѭ
@@ -1148,33 +1288,26 @@ begin
begin
ZGS := FieldByName('CycleYarnQty').Value; //ѭ
end;
- if FieldByName('SH').Value = null then
- begin
- sunhao := 0; //
- end
- else
- begin
- sunhao := FieldByName('SH').Value; //
- end;
+
MF := strtofloatdef(C_ReedWidth.text, 0); //ط
- if FieldByName('TestDenier').Value = null then
+ if FieldByName('Z_Number').Value = null then
begin
- DS := 0; //D
+ DS := 0; //֧
end
else
begin
- DS := FieldByName('TestDenier').Value; //D
+ DS := FieldByName('Z_Number').Value; //֧
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
end;
- if ZGS <> 0 then
+ if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
Edit;
- FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + sunhao) * DS * WM / 9000, 2);
+ FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post;
end;
end;
@@ -1197,67 +1330,59 @@ begin
if ShowModal = 1 then
begin
- Self.GYNo.text := Trim(CDS_1.FieldByName('MainID').AsString);
- if Self.OurCoName.Text <> '' then
- Self.OurCoName.Tag := 99;
- if Self.FtyCoName.Text <> '' then
- Self.FtyCoName.Tag := 99;
Self.orderno.Tag := 99;
Self.conno.Tag := 99;
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(Self.GYNo.text) + '''');
- Open;
- end;
+// with ADOQueryTemp do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(Self.GYNo.text) + '''');
+// Open;
+// end;
SCSHData(ADOQueryTemp, ScrollBox1, 0);
- Self.QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
- Self.CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
+// Self.attname1.Text := Trim(ADOQueryTemp.FieldByName('attname1').AsString);
+// Self.attname2.Text := Trim(ADOQueryTemp.FieldByName('attname2').AsString);
Self.CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(Self.GYNo.text) + '''');
- Open;
- end;
+// with ADOQueryTemp do
+// begin
+// Close;
+// SQL.Clear;
+// sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(Self.GYNo.text) + '''');
+// Open;
+// end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
Self.OrdQty.Text := Trim(ADOQueryTemp.FieldByName('OrdQty').AsString);
Self.OrdPiece.Text := Trim(ADOQueryTemp.FieldByName('OrdPiece').AsString);
- Self.OrdPiecelen.Text := Trim(ADOQueryTemp.FieldByName('OrdPiecelen').AsString);
Self.Y_Note_PLJ.Text := ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString;
Self.Y_Note_PLW.Text := ADOQueryTemp.FieldByName('Y_Note_PLW').AsString;
- Self.GYNo.text := Trim(CDS_1.FieldByName('MainID').AsString);
-
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select A.* from Tat_Plan_Yarn A ');
- sql.Add(' where YRType=''˿'' and A.MainId=''' + Trim(Self.GYNo.text) + '''');
- Open;
- end;
- SCreateCDS(ADOQueryTemp, self.CDS_1);
- SInitCDSData(ADOQueryTemp, self.CDS_1);
-
- with ADOQueryTemp do
- begin
- Close;
- sql.Clear;
- sql.Add('select A.* from Tat_Plan_Yarn A ');
- sql.Add(' where YRType=''γ˿'' and A.MainId=''' + Trim(Self.GYNo.text) + '''');
- Open;
- end;
- SCreateCDS(ADOQueryTemp, self.CDS_2);
- SInitCDSData(ADOQueryTemp, self.CDS_2);
+// with ADOQueryTemp do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('select A.* from Tat_Plan_Yarn A ');
+// sql.Add(' where YRType=''˿'' and A.MainId=''' + Trim(Self.GYNo.text) + '''');
+// Open;
+// end;
+// SCreateCDS(ADOQueryTemp, self.CDS_1);
+// SInitCDSData(ADOQueryTemp, self.CDS_1);
+//
+// with ADOQueryTemp do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('select A.* from Tat_Plan_Yarn A ');
+// sql.Add(' where YRType=''γ˿'' and A.MainId=''' + Trim(Self.GYNo.text) + '''');
+// Open;
+// end;
+// SCreateCDS(ADOQueryTemp, self.CDS_2);
+// SInitCDSData(ADOQueryTemp, self.CDS_2);
// Self.OrderNo.text := '';
@@ -1293,8 +1418,7 @@ begin
end;
finally
frmTatGYSel.Free;
- Self.OurCoName.Tag := 0;
- Self.FtyCoName.Tag := 0;
+
Self.orderno.Tag := 0;
Self.conno.Tag := 2;
end;
@@ -1368,65 +1492,65 @@ procedure TfrmTatPlanInPut.JSJS();
var
GS, ZGS, MF, DS, WM, TW: double;
begin
- if CDS_1.IsEmpty then
- exit;
- with CDS_1 do
- begin
- DisableControls;
- first;
- while not eof do
- begin
-
- with CDS_1 do
- begin
-
- if FieldByName('YarnQty').Value = null then
- begin
- GS := 0; //
- end
- else
- begin
- GS := FieldByName('YarnQty').Value; //
- end;
-
- if FieldByName('CycleYarnQty').Value = null then
- begin
- ZGS := 0; //ѭ
- end
- else
- begin
- ZGS := FieldByName('CycleYarnQty').Value; //ѭ
- end;
-
- MF := strtofloatdef(C_ReedWidth.text, 0); //ط
-
- TW := strtofloatdef(C_YarnQty.text, 0); //ͷ
-
- if FieldByName('TestDenier').Value = null then
- begin
- DS := 0; //D
- end
- else
- begin
- DS := FieldByName('TestDenier').Value; //D
- end;
-
- WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
- end;
- if ZGS <> 0 then
- begin
- with CDS_1 do
- begin
- Edit;
- FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
- Post;
- end;
- end;
- next;
- end;
- First;
- EnableControls;
- end;
+// if CDS_1.IsEmpty then
+// exit;
+// with CDS_1 do
+// begin
+// DisableControls;
+// first;
+// while not eof do
+// begin
+//
+// with CDS_1 do
+// begin
+//
+// if FieldByName('YarnQty').Value = null then
+// begin
+// GS := 0; //
+// end
+// else
+// begin
+// GS := FieldByName('YarnQty').Value; //
+// end;
+//
+// if FieldByName('CycleYarnQty').Value = null then
+// begin
+// ZGS := 0; //ѭ
+// end
+// else
+// begin
+// ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+// end;
+//
+// MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+//
+// TW := strtofloatdef(C_YarnQty.text, 0); //ͷ
+//
+// if FieldByName('TestDenier').Value = null then
+// begin
+// DS := 0; //D
+// end
+// else
+// begin
+// DS := FieldByName('TestDenier').Value; //D
+// end;
+//
+// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+// end;
+// if ZGS <> 0 then
+// begin
+// with CDS_1 do
+// begin
+// Edit;
+// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+// Post;
+// end;
+// end;
+// next;
+// end;
+// First;
+// EnableControls;
+// end;
end;
procedure TfrmTatPlanInPut.JSWS();
@@ -1435,61 +1559,61 @@ var
begin
if CDS_2.IsEmpty then
exit;
- with CDS_2 do
- begin
- DisableControls;
- first;
- while not eof do
- begin
-
- with CDS_2 do
- begin
-
- if FieldByName('YarnQty').Value = null then
- begin
- GS := 0; //
- end
- else
- begin
- GS := FieldByName('YarnQty').Value; //
- end;
-
- if FieldByName('CycleYarnQty').Value = null then
- begin
- ZGS := 0; //ѭ
- end
- else
- begin
- ZGS := FieldByName('CycleYarnQty').Value; //ѭ
- end;
-
- MF := strtofloatdef(C_ReedWidth.text, 0); //ط
-
- if FieldByName('TestDenier').Value = null then
- begin
- DS := 0; //D
- end
- else
- begin
- DS := FieldByName('TestDenier').Value; //D
- end;
-
- WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
- end;
- if ZGS <> 0 then
- begin
- with CDS_2 do
- begin
- Edit;
- FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2);
- Post;
- end;
- end;
- next;
- end;
- First;
- EnableControls;
- end;
+// with CDS_2 do
+// begin
+// DisableControls;
+// first;
+// while not eof do
+// begin
+//
+// with CDS_2 do
+// begin
+//
+// if FieldByName('YarnQty').Value = null then
+// begin
+// GS := 0; //
+// end
+// else
+// begin
+// GS := FieldByName('YarnQty').Value; //
+// end;
+//
+// if FieldByName('CycleYarnQty').Value = null then
+// begin
+// ZGS := 0; //ѭ
+// end
+// else
+// begin
+// ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+// end;
+//
+// MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+//
+// if FieldByName('TestDenier').Value = null then
+// begin
+// DS := 0; //D
+// end
+// else
+// begin
+// DS := FieldByName('TestDenier').Value; //D
+// end;
+//
+// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+// end;
+// if ZGS <> 0 then
+// begin
+// with CDS_2 do
+// begin
+// Edit;
+// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2);
+// Post;
+// end;
+// end;
+// next;
+// end;
+// First;
+// EnableControls;
+// end;
end;
//procedure TfrmTatPlanInPut.JSKZ();
@@ -1673,8 +1797,14 @@ begin
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
+ DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString);
+ C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString);
+ WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
+ BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
+ GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
+
with ADOQuery1 do
begin
Close;
@@ -1750,81 +1880,6 @@ end;
// OrdQty.text := floattostr(strtofloatdef(OrdPiece.text, 0) * strtofloatdef(OrdPieceLen.text, 0));
//end;
-procedure TfrmTatPlanInPut.UpdateCalculations(Sender: TObject);
-//var
-// dQty, dPiece, dPieceLen: Double;
-//begin
-// if FUpdating then Exit;
-// FUpdating := True;
-// try
-// FLastChanged := Sender;
-// dQty := StrToFloatDef(OrdQty.Text, 0);
-// dPiece := StrToFloatDef(OrdPiece.Text, 0);
-// dPieceLen := StrToFloatDef(OrdPieceLen.Text, 0);
-// if Sender = OrdQty then
-// begin
-// if dPiece > 0 then
-// OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece)
-// else if dPieceLen > 0 then
-// OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen);
-// end
-// else if Sender = OrdPiece then
-// begin
-// if dPieceLen > 0 then
-// OrdQty.Text := FormatFloat('0.##', dPiece * dPieceLen)
-// else if dQty > 0 then
-// OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece);
-// end
-// else if Sender = OrdPieceLen then
-// begin
-// if dPiece > 0 then
-// OrdQty.Text := FormatFloat('0.##', dPiece * dPieceLen)
-// else if dQty > 0 then
-// OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen);
-// end;
-// finally
-// FUpdating := False;
-// end;
-//end;
-var
- dQty, dPiece, dPieceLen: Double;
-begin
- if FUpdating then
- Exit;
- FUpdating := True;
- try
- dQty := StrToFloatDef(OrdQty.Text, 0);
- dPiece := StrToFloatDef(OrdPiece.Text, 0);
- dPieceLen := StrToFloatDef(OrdPieceLen.Text, 0);
- if Sender = OrdPiece then
- begin
- if dPiece > 0 then
- OrdPieceLen.Text := FormatFloat('0.##', dQty / dPiece)
- else
- OrdPieceLen.Text := '0';
- end
- else if Sender = OrdPieceLen then
- begin
- if dPieceLen > 0 then
- OrdPiece.Text := FormatFloat('0.##', dQty / dPieceLen)
- else
- OrdPiece.Text := '0';
- end;
- finally
- FUpdating := False;
- end;
-end;
-
-procedure TfrmTatPlanInPut.OrdPieceLenPropertiesChange(Sender: TObject); //pi chang
-begin
- UpdateCalculations(Sender);
-end;
-
-procedure TfrmTatPlanInPut.OrdPiecePropertiesChange(Sender: TObject); //pi shu
-begin
- UpdateCalculations(Sender);
-end;
-
procedure TfrmTatPlanInPut.OrdQtyPropertiesChange(Sender: TObject); //zong shu liang
begin
//UpdateCalculations(Sender);
@@ -1836,24 +1891,9 @@ begin
TcxButtonEdit(Sender).Text := '';
end;
-procedure TfrmTatPlanInPut.OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+procedure TfrmTatPlanInPut.C_CODEDblClick(Sender: TObject);
begin
- try
- frmCompanySel := TfrmCompanySel.Create(Application);
- with frmCompanySel do
- begin
- FCoType := '˾';
- if ShowModal = 1 then
- begin
- OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
- OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
- FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
- FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
- end;
- end;
- finally
- frmCompanySel.Free;
- end;
+ C_CODE.Text := '';
end;
procedure TfrmTatPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
@@ -1882,6 +1922,74 @@ begin
end;
end;
+procedure TfrmTatPlanInPut.C_ReedWidthExit(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+ GS, ZGS, MF, DS, WM, fsh: double;
+begin
+ with CDS_2 do
+ begin
+ first;
+ while not eof do
+ begin
+ with CDS_2 do
+ begin
+
+ if FieldByName('YarnQty').Value = null then
+ begin
+ GS := 0; //
+ end
+ else
+ begin
+ GS := FieldByName('YarnQty').Value; //
+ end;
+
+ if FieldByName('Y_loss').Value = null then
+ begin
+ fsh := 0; //
+ end
+ else
+ begin
+ fsh := FieldByName('Y_loss').Value; //
+ end;
+
+ if FieldByName('CycleYarnQty').Value = null then
+ begin
+ ZGS := 0; //ѭ
+ end
+ else
+ begin
+ ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+ end;
+
+ MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+
+ if FieldByName('Z_Number').Value = null then
+ begin
+ DS := 0; //֧
+ end
+ else
+ begin
+ DS := FieldByName('Z_Number').Value; //֧
+ end;
+
+ WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+ end;
+ if (ZGS <> 0) and (DS <> 0) then
+ begin
+ with CDS_2 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
+ Post;
+ end;
+ end;
+ next;
+ end;
+
+ end;
+end;
+
procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
begin
JSJS();
@@ -1967,22 +2075,16 @@ begin
self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString);
self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString);
- self.OurCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString);
- self.OurCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString);
-
- self.FtyCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString);
- self.FtyCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString);
-
self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
self.ConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString);
- self.Saleser.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Saleser').AsString);
+
self.C_Code.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString);
self.C_Width.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Width').AsString);
self.C_GramWeight.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString);
- self.BBNO.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BBNO').AsString);
+
self.C_Color.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString);
self.OrdQty.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConQty').AsString);
InitClothYarn(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString);
diff --git a/E02梭织经轴仓库/U_GKManageSel.dfm b/E02梭织经轴仓库/U_GKManageSel.dfm
index adfab4e..ad834cb 100644
--- a/E02梭织经轴仓库/U_GKManageSel.dfm
+++ b/E02梭织经轴仓库/U_GKManageSel.dfm
@@ -66,7 +66,7 @@ inherited frmGKManageSel: TfrmGKManageSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
- ExplicitTop = 76
+ ExplicitTop = 87
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
@@ -141,6 +141,20 @@ inherited frmGKManageSel: TfrmGKManageSel
HeaderAlignmentHorz = taCenter
Width = 100
end
+ object Tv2Column2: TcxGridDBColumn
+ Caption = #31576#40831#25968
+ DataBinding.FieldName = 'GKCS'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
+ object Tv2Column8: TcxGridDBColumn
+ Caption = #31576#24133
+ DataBinding.FieldName = 'GKwidth'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 72
+ end
object Tv2Column10: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@@ -172,7 +186,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Color = clWhite
ParentBackground = False
TabOrder = 4
- ExplicitTop = 32
object Label1: TLabel
Left = 13
Top = 11
diff --git a/E02梭织经轴仓库/U_GKManageSel.pas b/E02梭织经轴仓库/U_GKManageSel.pas
index e376e15..e0cbf18 100644
--- a/E02梭织经轴仓库/U_GKManageSel.pas
+++ b/E02梭织经轴仓库/U_GKManageSel.pas
@@ -46,6 +46,8 @@ type
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
ToolButton1: TToolButton;
+ Tv2Column2: TcxGridDBColumn;
+ Tv2Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.dfm b/E02梭织经轴仓库/U_TatWBCardInPut.dfm
index 25ea7a0..0e1f94d 100644
--- a/E02梭织经轴仓库/U_TatWBCardInPut.dfm
+++ b/E02梭织经轴仓库/U_TatWBCardInPut.dfm
@@ -9,6 +9,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
+ ExplicitLeft = -636
ExplicitWidth = 1833
ExplicitHeight = 811
PixelsPerInch = 96
@@ -21,19 +22,22 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Align = alClient
TabOrder = 0
object Panel4: TPanel
- Left = 547
+ Left = 521
Top = 1
- Width = 1269
+ Width = 1295
Height = 770
Align = alClient
TabOrder = 0
+ ExplicitLeft = 547
+ ExplicitWidth = 1269
object cxGrid2: TcxGrid
Left = 1
Top = 251
- Width = 1267
+ Width = 1293
Height = 518
Align = alClient
TabOrder = 0
+ ExplicitWidth = 1267
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -222,7 +226,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Tag = 1
Left = 1
Top = 1
- Width = 1267
+ Width = 1293
Height = 30
AutoSize = True
ButtonHeight = 30
@@ -287,10 +291,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object Panel3: TPanel
Left = 1
Top = 31
- Width = 1267
+ Width = 1293
Height = 220
Align = alTop
TabOrder = 2
+ ExplicitWidth = 1267
object Label2: TLabel
Left = 263
Top = 102
@@ -539,13 +544,12 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end
object WB_ProcessType: TcxComboBox
Tag = 2
- Left = 100
+ Left = 98
Top = 6
Properties.Items.Strings = (
#26412#21378#25972#32463
#22806#21378#25972#32463
- #25972#32463#37319#36141
- #22806#21378#27974#32433)
+ #25972#32463#37319#36141)
TabOrder = 10
Text = #26412#21378#25972#32463
Width = 150
@@ -694,7 +698,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Tag = 2
Left = 1
Top = 1
- Width = 546
+ Width = 520
Height = 770
Align = alLeft
BevelInner = bvRaised
@@ -703,148 +707,184 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentBackground = False
TabOrder = 1
ExplicitLeft = -4
- object Label15: TLabel
- Left = 237
- Top = 18
- Width = 64
- Height = 21
- Caption = #29983#20135#31867#22411
- end
object Label7: TLabel
- Left = 7
- Top = 57
+ Left = 12
+ Top = 140
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#32534#21495
end
object Label1: TLabel
- Left = 7
+ Left = 12
Top = 18
Width = 96
Height = 21
Caption = #25972#32463#20219#21153#21333#21495
end
- object Label16: TLabel
- Left = 7
- Top = 408
- Width = 64
- Height = 21
- Caption = #29301#32463#25490#21015
- Color = clWhite
- ParentColor = False
- end
object Label5: TLabel
Left = 237
- Top = 57
+ Top = 138
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#21517#31216
end
- object Label8: TLabel
- Left = 7
- Top = 332
- Width = 48
- Height = 21
- Caption = #20301#31227#37327
- end
object Label11: TLabel
- Left = 7
- Top = 137
- Width = 48
- Height = 21
- Caption = #24635#22836#20221
- end
- object Label12: TLabel
- Left = 7
- Top = 254
+ Left = 12
+ Top = 181
Width = 64
Height = 21
- Caption = #31576#31359#20837#27861
- end
- object Label13: TLabel
- Left = 7
- Top = 176
- Width = 32
- Height = 21
- Caption = #21514#25968
- end
- object Label14: TLabel
- Left = 7
- Top = 215
- Width = 64
- Height = 21
- Caption = #32463#36724#38376#24133
- end
- object Label17: TLabel
- Left = 7
- Top = 293
- Width = 64
- Height = 21
- Caption = #22987#21514#20301#32622
- end
- object Label18: TLabel
- Left = 237
- Top = 136
- Width = 64
- Height = 21
- Caption = #19978#25490#39063#25968
- end
- object Label19: TLabel
- Left = 237
- Top = 175
- Width = 32
- Height = 21
- Caption = #38646#22836
- end
- object Label22: TLabel
- Left = 237
- Top = 253
- Width = 64
- Height = 21
- Caption = #22369#26012#24230#25968
- end
- object Label23: TLabel
- Left = 237
- Top = 293
- Width = 96
- Height = 21
- Caption = #29301#32463#24352#21147#21442#25968
- end
- object Label37: TLabel
- Left = 237
- Top = 332
- Width = 32
- Height = 21
- Caption = #32463#23494
+ Caption = #24635#32463#26681#25968
end
object Label38: TLabel
- Left = 7
- Top = 96
+ Left = 12
+ Top = 59
Width = 64
Height = 21
Caption = #32455#36896#21333#21495
end
object Label47: TLabel
Left = 237
- Top = 97
+ Top = 56
Width = 32
Height = 21
Caption = #23458#25143
end
- object Label20: TLabel
- Left = 403
- Top = 209
- Width = 64
+ object Label8: TLabel
+ Left = 12
+ Top = 100
+ Width = 48
Height = 21
- Caption = #29301#32463#31576#21495
+ Caption = #35746#21333#21495
+ end
+ object Label14: TLabel
+ Left = 237
+ Top = 385
+ Width = 32
+ Height = 21
+ Caption = #31576#24133
+ end
+ object Label20: TLabel
+ Left = 237
+ Top = 303
+ Width = 32
+ Height = 21
+ Caption = #31576#21495
end
object Label39: TLabel
- Left = 237
- Top = 214
+ Left = 12
+ Top = 304
Width = 64
Height = 21
Caption = #38050#31576#32534#21495
end
+ object Label22: TLabel
+ Left = 12
+ Top = 344
+ Width = 48
+ Height = 21
+ Caption = #36793#32433#25968
+ end
+ object Label23: TLabel
+ Left = 237
+ Top = 344
+ Width = 64
+ Height = 21
+ Caption = #22320#31359#20837#25968
+ end
+ object Label37: TLabel
+ Left = 12
+ Top = 385
+ Width = 48
+ Height = 21
+ Caption = #31576#40831#25968
+ end
+ object Label41: TLabel
+ Left = 12
+ Top = 426
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ end
+ object Label12: TLabel
+ Left = 12
+ Top = 222
+ Width = 96
+ Height = 21
+ Caption = #32433#39550#26368#22823#39063#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label13: TLabel
+ Left = 12
+ Top = 263
+ Width = 32
+ Height = 21
+ Caption = #26465#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label15: TLabel
+ Left = 237
+ Top = 221
+ Width = 64
+ Height = 21
+ Caption = #19978#26550#39063#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label16: TLabel
+ Left = 237
+ Top = 262
+ Width = 32
+ Height = 21
+ Caption = #20313#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label17: TLabel
+ Left = 237
+ Top = 97
+ Width = 64
+ Height = 21
+ Caption = #20135#21697#32534#21495
+ end
+ object Label19: TLabel
+ Left = 237
+ Top = 179
+ Width = 64
+ Height = 21
+ Caption = #29983#20135#31867#22411
+ end
+ object Label18: TLabel
+ Left = 237
+ Top = 15
+ Width = 64
+ Height = 21
+ Caption = #25490#21333#26085#26399
+ end
+ object Label40: TLabel
+ Left = 12
+ Top = 461
+ Width = 96
+ Height = 21
+ Caption = #35746#21333#32463#32433#38271#24230
+ end
object WBCNO: TcxTextEdit
Tag = 1
Left = 106
@@ -854,20 +894,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
TabOrder = 0
Width = 120
end
- object WB_Type: TcxComboBox
- Tag = 1
- Left = 338
- Top = 12
- Properties.Items.Strings = (
- #22823#36135
- #35797#26679)
- TabOrder = 1
- Width = 150
- end
object WB_Code: TcxButtonEdit
Tag = 1
Left = 106
- Top = 51
+ Top = 134
ParentColor = True
Properties.Buttons = <
item
@@ -877,112 +907,32 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 2
+ TabOrder = 1
Width = 120
end
object WB_Name: TcxTextEdit
Tag = 1
Left = 338
- Top = 51
+ Top = 135
ParentColor = True
- TabOrder = 3
- Width = 150
+ TabOrder = 2
+ Width = 120
end
object WB_YarnQty: TcxTextEdit
Tag = 1
Left = 106
- Top = 131
+ Top = 175
ParentColor = True
- TabOrder = 4
+ TabOrder = 3
Width = 120
end
- object WB_Move: TcxTextEdit
- Tag = 1
- Left = 106
- Top = 326
- ParentColor = True
- TabOrder = 5
- Width = 120
- end
- object WB_ReedNote: TcxTextEdit
- Tag = 1
- Left = 106
- Top = 248
- ParentColor = True
- TabOrder = 6
- Width = 120
- end
- object WB_YarnStripQty: TcxTextEdit
- Tag = 1
- Left = 106
- Top = 170
- ParentColor = True
- TabOrder = 7
- Width = 120
- end
- object WB_Width: TcxTextEdit
- Tag = 1
- Left = 106
- Top = 209
- ParentColor = True
- TabOrder = 8
- Width = 120
- end
- object WB_Arg_SDWZ: TcxTextEdit
- Tag = 1
- Left = 106
- Top = 287
- ParentColor = True
- TabOrder = 9
- Width = 120
- end
- object WB_YarnArr: TcxTextEdit
- Tag = 1
- Left = 338
- Top = 131
- ParentColor = True
- TabOrder = 10
- Width = 150
- end
- object WB_YarnStripRemainder: TcxTextEdit
- Tag = 1
- Left = 338
- Top = 170
- ParentColor = True
- TabOrder = 11
- Width = 150
- end
- object WB_Arg_PXDS: TcxTextEdit
- Tag = 1
- Left = 337
- Top = 248
- ParentColor = True
- TabOrder = 12
- Width = 150
- end
- object WB_Arg_QJZL: TcxTextEdit
- Tag = 1
- Left = 337
- Top = 287
- ParentColor = True
- TabOrder = 13
- Width = 150
- end
- object WB_YarnArrNote: TcxMemo
- Tag = 1
- Left = 106
- Top = 363
- TabOrder = 14
- Height = 111
- Width = 423
- end
object cxGrid3: TcxGrid
Left = 2
Top = 528
- Width = 542
+ Width = 516
Height = 240
Align = alBottom
- TabOrder = 15
+ TabOrder = 4
ExplicitLeft = -1
ExplicitTop = 529
object TV3: TcxGridDBTableView
@@ -1170,18 +1120,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
GridView = TV3
end
end
- object WB_YarnDensity: TcxTextEdit
- Tag = 1
- Left = 337
- Top = 326
- ParentColor = True
- TabOrder = 16
- Width = 150
- end
object GYNo: TcxButtonEdit
Tag = 1
Left = 106
- Top = 90
+ Top = 53
Properties.Buttons = <
item
Default = True
@@ -1190,14 +1132,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = GYNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 17
+ TabOrder = 5
OnDblClick = GYNoDblClick
Width = 120
end
object CustName: TcxButtonEdit
Tag = 1
Left = 338
- Top = 92
+ Top = 54
Properties.Buttons = <
item
Default = True
@@ -1206,31 +1148,150 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = CustNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
- TabOrder = 18
+ TabOrder = 6
OnDblClick = GYNoDblClick
- Width = 150
+ Width = 120
+ end
+ object CONNO: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 94
+ ParentColor = True
+ TabOrder = 7
+ Width = 120
+ end
+ object WB_Width: TcxTextEdit
+ Tag = 1
+ Left = 338
+ Top = 378
+ ParentColor = True
+ TabOrder = 8
+ Width = 120
end
object WB_ReedNo: TcxTextEdit
- Tag = 2
- Left = 473
- Top = 206
+ Tag = 1
+ Left = 338
+ Top = 297
ParentColor = True
Properties.ReadOnly = True
- TabOrder = 19
- Width = 65
+ TabOrder = 9
+ Width = 120
end
object GKBH: TcxButtonEdit
- Tag = 2
- Left = 308
- Top = 206
+ Tag = 1
+ Left = 106
+ Top = 298
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = GKBHPropertiesButtonClick
+ TabOrder = 10
+ Width = 120
+ end
+ object BSQTY: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 338
+ ParentColor = True
+ TabOrder = 11
+ Width = 120
+ end
+ object DCRQTY: TcxTextEdit
+ Tag = 1
+ Left = 338
+ Top = 338
+ ParentColor = True
+ TabOrder = 12
+ Width = 120
+ end
+ object C_KCQTY: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 379
+ ParentColor = True
+ TabOrder = 13
+ Width = 120
+ end
+ object WB_ReedNote: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 420
+ ParentColor = True
+ TabOrder = 14
+ Width = 352
+ end
+ object F_MAXKESHU: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 216
+ ParentColor = True
+ TabOrder = 15
+ Text = '640'
+ Width = 120
+ end
+ object F_YarnStripQty: TcxTextEdit
+ Tag = 2
+ Left = 106
+ Top = 257
+ ParentColor = True
+ TabOrder = 16
+ Width = 120
+ end
+ object F_SJKESHU: TcxTextEdit
+ Tag = 2
+ Left = 338
+ Top = 216
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 17
+ Width = 120
+ end
+ object F_YUSHU: TcxTextEdit
+ Tag = 2
+ Left = 338
+ Top = 257
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 18
+ Width = 120
+ end
+ object C_CODE: TcxTextEdit
+ Tag = 1
+ Left = 338
+ Top = 95
+ ParentColor = True
+ TabOrder = 19
+ Width = 120
+ end
+ object WB_TYPE: TcxTextEdit
+ Tag = 8
+ Left = 338
+ Top = 176
+ ParentColor = True
+ Properties.ReadOnly = True
TabOrder = 20
- Width = 89
+ Text = #32463#36724
+ Width = 120
+ end
+ object BegDate: TcxDateEdit
+ Left = 338
+ Top = 10
+ AutoSize = False
+ Properties.ImmediatePost = True
+ Properties.ShowTime = False
+ TabOrder = 21
+ Height = 33
+ Width = 120
+ end
+ object ordqty: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 455
+ ParentColor = True
+ TabOrder = 22
+ Width = 120
end
end
end
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.pas b/E02梭织经轴仓库/U_TatWBCardInPut.pas
index e79dc58..91f1b92 100644
--- a/E02梭织经轴仓库/U_TatWBCardInPut.pas
+++ b/E02梭织经轴仓库/U_TatWBCardInPut.pas
@@ -14,7 +14,7 @@ uses
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer,
cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
- dxSkinSharpPlus, dxSkinWXI;
+ dxSkinSharpPlus, dxSkinWXI, dxCore, cxDateUtils;
type
TfrmTatWBCardInPut = class(TfrmBaseInput)
@@ -46,39 +46,17 @@ type
ToolButton2: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
- Label15: TLabel;
GPM_2: TcxGridPopupMenu;
Label7: TLabel;
Label1: TLabel;
PM_1: TPopupMenu;
N1: TMenuItem;
- Label16: TLabel;
WBCNO: TcxTextEdit;
- WB_Type: TcxComboBox;
WB_Code: TcxButtonEdit;
Label5: TLabel;
WB_Name: TcxTextEdit;
- Label8: TLabel;
Label11: TLabel;
- Label12: TLabel;
- Label13: TLabel;
- Label14: TLabel;
WB_YarnQty: TcxTextEdit;
- WB_Move: TcxTextEdit;
- WB_ReedNote: TcxTextEdit;
- WB_YarnStripQty: TcxTextEdit;
- WB_Width: TcxTextEdit;
- Label17: TLabel;
- WB_Arg_SDWZ: TcxTextEdit;
- Label18: TLabel;
- Label19: TLabel;
- Label22: TLabel;
- Label23: TLabel;
- WB_YarnArr: TcxTextEdit;
- WB_YarnStripRemainder: TcxTextEdit;
- WB_Arg_PXDS: TcxTextEdit;
- WB_Arg_QJZL: TcxTextEdit;
- WB_YarnArrNote: TcxMemo;
TV2Column2: TcxGridDBColumn;
DS_3: TDataSource;
GPM_3: TcxGridPopupMenu;
@@ -147,8 +125,6 @@ type
TV2Column7: TcxGridDBColumn;
TV2Column8: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn;
- Label37: TLabel;
- WB_YarnDensity: TcxTextEdit;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
@@ -157,10 +133,38 @@ type
GYNo: TcxButtonEdit;
Label47: TLabel;
CustName: TcxButtonEdit;
+ Label8: TLabel;
+ CONNO: TcxTextEdit;
+ Label14: TLabel;
Label20: TLabel;
Label39: TLabel;
+ WB_Width: TcxTextEdit;
WB_ReedNo: TcxTextEdit;
GKBH: TcxButtonEdit;
+ Label22: TLabel;
+ Label23: TLabel;
+ BSQTY: TcxTextEdit;
+ DCRQTY: TcxTextEdit;
+ Label37: TLabel;
+ C_KCQTY: TcxTextEdit;
+ Label41: TLabel;
+ WB_ReedNote: TcxTextEdit;
+ Label12: TLabel;
+ Label13: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ F_MAXKESHU: TcxTextEdit;
+ F_YarnStripQty: TcxTextEdit;
+ F_SJKESHU: TcxTextEdit;
+ F_YUSHU: TcxTextEdit;
+ Label17: TLabel;
+ C_CODE: TcxTextEdit;
+ Label19: TLabel;
+ WB_TYPE: TcxTextEdit;
+ BegDate: TcxDateEdit;
+ Label18: TLabel;
+ Label40: TLabel;
+ ordqty: TcxTextEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@@ -277,8 +281,6 @@ begin
if Trim(WB_MachNo.Text) = '' then
raise Exception.Create('ǨΪգ');
end;
- if Trim(WB_YarnDensity.Text) = '' then
- raise Exception.Create('ܲΪգ');
// if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then
// WB_ClothPiece.Text := '0';
@@ -406,19 +408,6 @@ begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
- Self.WB_YarnArr.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArr').AsString);
- Self.WB_YarnStripQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnStripQty').AsString);
- Self.WB_YarnStripRemainder.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnStripRemainder').AsString);
- Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
- Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
- Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
- Self.WB_Arg_PXDS.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_PXDS').AsString);
- Self.WB_Arg_SDWZ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_SDWZ').AsString);
- Self.WB_Arg_QJZL.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_QJZL').AsString);
- Self.WB_Move.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Move').AsString);
- Self.WB_YarnArrNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
- Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString);
- Self.Note.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
Self.InitCard3();
@@ -548,7 +537,10 @@ begin
Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
-
+ Self.CONNO.Text := Trim(CDS_1.fieldbyname('CONNO').AsString);
+ Self.C_CODE.Text := Trim(CDS_1.fieldbyname('C_CODE').AsString);
+ Self.BegDate.Date := CDS_1.fieldbyname('ORDDATE').AsDateTime;
+ Self.ordqty.Text := Trim(CDS_1.fieldbyname('ordqty').AsString);
with ADOQueryTemp do
begin
close;
@@ -562,18 +554,20 @@ begin
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
- Self.WB_YarnArr.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnArr').AsString);
- Self.WB_YarnStripQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnStripQty').AsString);
- Self.WB_YarnStripRemainder.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnStripRemainder').AsString);
+
+ Self.F_MAXKESHU.Text := ADOQueryTemp.fieldbyname('F_MAXKESHU').asstring;
+ Self.F_SJKESHU.Text := ADOQueryTemp.fieldbyname('F_SJKESHU').asstring;
+ Self.F_YarnStripQty.Text := ADOQueryTemp.fieldbyname('F_YarnStripQty').asstring;
+ Self.F_YUSHU.Text := ADOQueryTemp.fieldbyname('F_YUSHU').asstring;
+ Self.GKBH.Text := ADOQueryTemp.fieldbyname('GKBH').asstring;
+ Self.BSQTY.Text := ADOQueryTemp.fieldbyname('BSQTY').asstring;
+ Self.DCRQTY.Text := ADOQueryTemp.fieldbyname('DCRQTY').asstring;
+ Self.C_KCQTY.Text := ADOQueryTemp.fieldbyname('C_KCQTY').asstring;
+
Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
- Self.WB_Arg_PXDS.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_PXDS').AsString);
- Self.WB_Arg_SDWZ.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_SDWZ').AsString);
- Self.WB_Arg_QJZL.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_QJZL').AsString);
- Self.WB_Move.Text := Trim(ADOQueryTemp.fieldbyname('WB_Move').AsString);
- Self.WB_YarnArrNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnArrNote').AsString);
- Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString);
+
Self.Note.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
Self.InitCard3();
@@ -628,27 +622,29 @@ begin
Close;
sql.Clear;
////////////////// Ῠ //////////////////////
- sql.Add(' insert into Tat_WB_Card(WBCNO,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YarnArr,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler,WB_YarnDensity');
- sql.Add(' ,WB_YarnStripQty,WB_YarnStripRemainder,WB_Width,WB_ReedNo,WB_ReedNote,WB_Arg_PXDS,WB_Arg_SDWZ,WB_Arg_QJZL,WB_Move,WB_YarnArrNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName ');
- sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH');
+ sql.Add(' insert into Tat_WB_Card(WBCNO,TWPId,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YARNARR,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler');
+ sql.Add(' ,WB_Width,WB_ReedNo,WB_ReedNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName ');
+ sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH,C_CODE');
+ SQL.Add(' ,BSQTY,DCRQTY,C_KCQTY');
sql.Add(' ) values');
for i := 1 to MCardQty do
begin
- if GetLSNo(ADOQueryTemp, MWBCID, fDate + trim(WB_MachNo.Text), 'Tat_WB_Card', 4, 0) = False then
+ if GetLSNo(ADOQueryTemp, MWBCID, 'JZ' + fDate, 'Tat_WB_Card', 2, 0) = False then
begin
raise Exception.Create('ȡƱˮʧ!');
end;
if i > 1 then
sql.Add(',');
- sql.Add(' (' + Quotedstr(Trim(FWBCNO)));
+ sql.Add(' (' + Quotedstr(Trim(WBCNO.Text)));
+ sql.Add(',' + Quotedstr(Trim(WBCNO.Text)));
sql.Add(',' + Quotedstr(Trim(MWBCID)));
sql.Add(',' + Quotedstr(Trim(MWBType)));
sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Code.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Name.Text)));
sql.Add(',' + (Trim(WB_YarnQty.Text)));
- sql.Add(',' + Quotedstr(Trim(WB_YarnArr.Text)));
+ sql.Add(',' + (Trim(F_SJKESHU.Text)));
sql.Add(',' + FloatToStr(MWB_YarnLen));
sql.Add(',' + Quotedstr(Trim(WB_Macher.Text)));
sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text)));
@@ -656,54 +652,29 @@ begin
sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode)));
sql.Add(',' + Quotedstr(Trim(DName)));
-
- sql.Add(',' + Quotedstr(Trim(WB_YarnDensity.Text)));
-
- sql.Add(',' + Quotedstr(Trim(WB_YarnStripQty.Text)));
- sql.Add(',' + Quotedstr(Trim(WB_YarnStripRemainder.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Width.Text)));
sql.Add(',' + Quotedstr(Trim(WB_ReedNo.Text)));
sql.Add(',' + Quotedstr(Trim(WB_ReedNote.Text)));
- sql.Add(',' + Quotedstr(Trim(WB_Arg_PXDS.Text)));
- sql.Add(',' + Quotedstr(Trim(WB_Arg_SDWZ.Text)));
- sql.Add(',' + Quotedstr(Trim(WB_Arg_QJZL.Text)));
- sql.Add(',' + Quotedstr(Trim(WB_Move.Text)));
- sql.Add(',' + Quotedstr(Trim(WB_YarnArrNote.Text)));
sql.Add(',' + Quotedstr(Trim(WBFtyName.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(WBFtyName.Text)));
sql.Add(',' + Quotedstr(Trim(MWBBelong)));
sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo)));
sql.Add(',' + Quotedstr(Trim(MWBBelongCoName)));
-
sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(GYNo.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.Text)));
sql.Add(',' + Quotedstr(Trim(GKBH.Text)));
+
+ sql.Add(',' + Quotedstr(Trim(C_CODE.Text)));
+
+ sql.Add(',' + (Trim(BSQTY.Text)));
+ sql.Add(',' + (Trim(DCRQTY.Text)));
+ sql.Add(',' + Quotedstr(Trim(C_KCQTY.Text)));
+
sql.Add(' )');
end;
- ////////////////// Ῠ //////////////////////
- ///
- ////////////////// Ῠƻ //////////////////////
-// if not CDS_1.IsEmpty then
-// begin
-// with CDS_1 do
-// begin
-// First;
-// sql.Add(' delete Tat_WB_Card_Link where WBCNO=' + Quotedstr(Trim(FWBCNO)));
-//
-// while not Eof do
-// begin
-// sql.Add(' insert into Tat_WB_Card_Link(MainId,SubID,WBCNO) values');
-// sql.Add(' (' + Quotedstr(Trim(CDS_1.FieldByName('MainId').AsString)));
-// sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('SubID').AsString)));
-// sql.Add(',' + Quotedstr(Trim(FWBCNO)));
-// sql.Add(' )');
-// Next;
-// end;
-// end;
-// end;
- ////////////////// Ῠƻ //////////////////////
+
ExecSQL;
end;
with ADOQueryTemp do
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm
new file mode 100644
index 0000000..6598bbb
--- /dev/null
+++ b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm
@@ -0,0 +1,1275 @@
+inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
+ Left = -35
+ Top = 98
+ Caption = #32463#36724#35745#21010
+ ClientHeight = 772
+ ClientWidth = 1817
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Height = -16
+ Position = poMainFormCenter
+ OnClose = FormClose
+ ExplicitWidth = 1833
+ ExplicitHeight = 811
+ PixelsPerInch = 96
+ TextHeight = 21
+ object Panel2: TPanel [0]
+ Left = 0
+ Top = 0
+ Width = 1817
+ Height = 772
+ Align = alClient
+ TabOrder = 0
+ object Panel4: TPanel
+ Left = 547
+ Top = 1
+ Width = 1269
+ Height = 770
+ Align = alClient
+ TabOrder = 0
+ object cxGrid2: TcxGrid
+ Left = 1
+ Top = 168
+ Width = 1267
+ Height = 601
+ Align = alClient
+ TabOrder = 0
+ object TV2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_Card
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.GroupByBox = False
+ object cxGridDBColumn1: TcxGridDBColumn
+ Tag = 9
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ HeaderAlignmentHorz = taCenter
+ Width = 66
+ end
+ object TV2Column18: TcxGridDBColumn
+ Caption = #32463#36724#31867#22411
+ DataBinding.FieldName = 'WB_ProcessType'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxComboBoxProperties'
+ Properties.DropDownListStyle = lsFixedList
+ Properties.Items.Strings = (
+ #26412#21378#25972#32463
+ #22806#21378#25972#32463
+ #25972#32463#37319#36141)
+ HeaderAlignmentHorz = taCenter
+ Width = 122
+ end
+ object V2Column3: TcxGridDBColumn
+ Caption = #25972#32463#26426#21495
+ DataBinding.FieldName = 'WB_MachNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 103
+ end
+ object TV2Column9: TcxGridDBColumn
+ Caption = #36724#21345#21495
+ DataBinding.FieldName = 'WBCID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 114
+ end
+ object TV2Column4: TcxGridDBColumn
+ Caption = #25972#32463#38271#24230
+ DataBinding.FieldName = 'WB_YarnLen'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 122
+ end
+ object TV2Column2: TcxGridDBColumn
+ Caption = #30424#22836#31867#22411
+ DataBinding.FieldName = 'WBType'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = TV2Column2PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 114
+ end
+ object TV2Column1: TcxGridDBColumn
+ Caption = #25972#32463#21152#24037#37319#36141#32534#21495
+ DataBinding.FieldName = 'WBFtyNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 118
+ end
+ object TV2Column5: TcxGridDBColumn
+ Caption = #25972#32463#21152#24037#37319#36141#21333#20301
+ DataBinding.FieldName = 'WBFtyName'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = TV2Column5PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 153
+ end
+ object TV2Column3: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object TV2Column6: TcxGridDBColumn
+ Caption = #30424#22836#25152#23646
+ DataBinding.FieldName = 'WBBelong'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxComboBoxProperties'
+ Properties.DropDownListStyle = lsFixedList
+ Properties.Items.Strings = (
+ #26412#21378
+ #21152#24037#25143)
+ HeaderAlignmentHorz = taCenter
+ Width = 66
+ end
+ object TV2Column7: TcxGridDBColumn
+ Caption = #25152#23646#21333#20301#32534#21495
+ DataBinding.FieldName = 'WBBelongCoNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object TV2Column8: TcxGridDBColumn
+ Caption = #25152#23646#21333#20301#21517#31216
+ DataBinding.FieldName = 'WBBelongCoName'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = TV2Column8PropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 66
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = TV2
+ end
+ end
+ object ToolBar1: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 1
+ Width = 1267
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 99
+ Caption = 'ToolBar1'
+ DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
+ EdgeInner = esNone
+ EdgeOuter = esNone
+ Images = DataLink_WarpBeamStk.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 1
+ object TBSave: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #24320#21345
+ ImageIndex = 16
+ OnClick = TBSaveClick
+ end
+ object ToolButton1: TToolButton
+ Left = 71
+ Top = 0
+ AutoSize = True
+ Caption = #25171#21360
+ ImageIndex = 21
+ OnClick = ToolButton1Click
+ end
+ object ToolButton3: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#20462#25913
+ ImageIndex = 16
+ OnClick = ToolButton3Click
+ end
+ object ToolButton8: TToolButton
+ Left = 245
+ Top = 0
+ AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 5
+ OnClick = ToolButton8Click
+ end
+ object ToolButton2: TToolButton
+ Left = 316
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 419
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel3: TPanel
+ Left = 1
+ Top = 31
+ Width = 1267
+ Height = 137
+ Align = alTop
+ TabOrder = 2
+ object Label2: TLabel
+ Left = 263
+ Top = 102
+ Width = 41
+ Height = 21
+ Caption = #36724#25968'1'
+ end
+ object Label6: TLabel
+ Left = 384
+ Top = 102
+ Width = 41
+ Height = 21
+ Caption = #38271#24230'1'
+ end
+ object Label10: TLabel
+ Left = 32
+ Top = 102
+ Width = 73
+ Height = 21
+ Caption = #30424#22836#31867#22411'1'
+ end
+ object Label24: TLabel
+ Left = 263
+ Top = 142
+ Width = 41
+ Height = 21
+ Caption = #36724#25968'2'
+ Visible = False
+ end
+ object Label25: TLabel
+ Left = 32
+ Top = 142
+ Width = 73
+ Height = 21
+ Caption = #30424#22836#31867#22411'2'
+ Visible = False
+ end
+ object Label26: TLabel
+ Left = 263
+ Top = 182
+ Width = 41
+ Height = 21
+ Caption = #36724#25968'3'
+ Visible = False
+ end
+ object Label27: TLabel
+ Left = 32
+ Top = 182
+ Width = 73
+ Height = 21
+ Caption = #30424#22836#31867#22411'3'
+ Visible = False
+ end
+ object Label28: TLabel
+ Left = 384
+ Top = 142
+ Width = 41
+ Height = 21
+ Caption = #38271#24230'2'
+ Visible = False
+ end
+ object Label29: TLabel
+ Left = 384
+ Top = 182
+ Width = 41
+ Height = 21
+ Caption = #38271#24230'3'
+ Visible = False
+ end
+ object Label4: TLabel
+ Left = 32
+ Top = 56
+ Width = 32
+ Height = 21
+ Caption = #22791#27880
+ Color = clWhite
+ ParentColor = False
+ end
+ object Label21: TLabel
+ Left = 32
+ Top = 12
+ Width = 64
+ Height = 21
+ Caption = #32463#36724#31867#22411
+ end
+ object Label30: TLabel
+ Left = 254
+ Top = 12
+ Width = 128
+ Height = 21
+ Caption = #25972#32463#21152#24037#37319#36141#21333#20301
+ end
+ object Label9: TLabel
+ Left = 762
+ Top = 12
+ Width = 48
+ Height = 21
+ Caption = #25972#32463#24037
+ end
+ object Label3: TLabel
+ Left = 540
+ Top = 12
+ Width = 64
+ Height = 21
+ Caption = #25972#32463#26426#21495
+ end
+ object Label31: TLabel
+ Left = 524
+ Top = 102
+ Width = 41
+ Height = 21
+ Caption = #30424#22836'1'
+ end
+ object Label32: TLabel
+ Left = 661
+ Top = 102
+ Width = 41
+ Height = 21
+ Caption = #25152#23646'1'
+ end
+ object Label33: TLabel
+ Left = 524
+ Top = 142
+ Width = 41
+ Height = 21
+ Caption = #30424#22836'1'
+ Visible = False
+ end
+ object Label34: TLabel
+ Left = 661
+ Top = 142
+ Width = 41
+ Height = 21
+ Caption = #25152#23646'1'
+ Visible = False
+ end
+ object Label35: TLabel
+ Left = 524
+ Top = 182
+ Width = 41
+ Height = 21
+ Caption = #30424#22836'1'
+ Visible = False
+ end
+ object Label36: TLabel
+ Left = 661
+ Top = 182
+ Width = 41
+ Height = 21
+ Caption = #25152#23646'1'
+ Visible = False
+ end
+ object WBType1: TcxButtonEdit
+ Tag = 2
+ Left = 109
+ Top = 96
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = WBNoPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 0
+ Width = 150
+ end
+ object WB_YarnLen1: TcxTextEdit
+ Tag = 99
+ Left = 429
+ Top = 96
+ ParentColor = True
+ TabOrder = 1
+ Width = 91
+ end
+ object edtCardQty1: TcxTextEdit
+ Tag = 99
+ Left = 308
+ Top = 96
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 2
+ Width = 72
+ end
+ object WBType2: TcxButtonEdit
+ Tag = 2
+ Left = 109
+ Top = 136
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = WBNoPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 3
+ Visible = False
+ Width = 150
+ end
+ object edtCardQty2: TcxTextEdit
+ Tag = 99
+ Left = 308
+ Top = 136
+ ParentColor = True
+ TabOrder = 4
+ Visible = False
+ Width = 72
+ end
+ object WBType3: TcxButtonEdit
+ Tag = 2
+ Left = 109
+ Top = 176
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = WBNoPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 5
+ Visible = False
+ Width = 150
+ end
+ object edtCardQty3: TcxTextEdit
+ Tag = 99
+ Left = 308
+ Top = 176
+ ParentColor = True
+ TabOrder = 6
+ Visible = False
+ Width = 72
+ end
+ object WB_YarnLen2: TcxTextEdit
+ Tag = 99
+ Left = 429
+ Top = 136
+ ParentColor = True
+ TabOrder = 7
+ Visible = False
+ Width = 91
+ end
+ object WB_YarnLen3: TcxTextEdit
+ Tag = 99
+ Left = 429
+ Top = 176
+ ParentColor = True
+ TabOrder = 8
+ Visible = False
+ Width = 91
+ end
+ object Note: TcxMemo
+ Tag = 2
+ Left = 109
+ Top = 48
+ TabOrder = 9
+ Height = 37
+ Width = 830
+ end
+ object WB_ProcessType: TcxComboBox
+ Tag = 2
+ Left = 98
+ Top = 6
+ Properties.Items.Strings = (
+ #26412#21378#25972#32463
+ #22806#21378#25972#32463)
+ TabOrder = 10
+ Text = #26412#21378#25972#32463
+ Width = 150
+ end
+ object WBFtyName: TcxButtonEdit
+ Tag = 2
+ Left = 386
+ Top = 6
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 11
+ OnDblClick = WBFtyNameDblClick
+ Width = 150
+ end
+ object WB_MachNo: TcxButtonEdit
+ Tag = 2
+ Left = 608
+ Top = 6
+ Hint = 'WB_MachNo/'#25972#32463#26426
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = WB_MachNoPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 12
+ Width = 150
+ end
+ object WB_Macher: TcxButtonEdit
+ Tag = 2
+ Left = 814
+ Top = 6
+ Hint = 'WB_Macher/'#25190#32463#24037
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = WB_MachNoPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 13
+ Width = 150
+ end
+ object WBBelong1: TcxComboBox
+ Tag = 2
+ Left = 569
+ Top = 96
+ Properties.Items.Strings = (
+ #26412#21378
+ #21152#24037#25143)
+ TabOrder = 14
+ Text = #26412#21378
+ Width = 88
+ end
+ object WBBelongCoName1: TcxButtonEdit
+ Tag = 2
+ Left = 706
+ Top = 96
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 15
+ Text = #26412#21378
+ OnDblClick = WBFtyNameDblClick
+ Width = 150
+ end
+ object WBBelong2: TcxComboBox
+ Tag = 2
+ Left = 569
+ Top = 136
+ Properties.Items.Strings = (
+ #26412#21378
+ #21152#24037#25143)
+ TabOrder = 16
+ Text = #26412#21378
+ Visible = False
+ Width = 88
+ end
+ object WBBelongCoName2: TcxButtonEdit
+ Tag = 2
+ Left = 706
+ Top = 136
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 17
+ Text = #26412#21378
+ Visible = False
+ OnDblClick = WBFtyNameDblClick
+ Width = 150
+ end
+ object WBBelong3: TcxComboBox
+ Tag = 2
+ Left = 569
+ Top = 176
+ Properties.Items.Strings = (
+ #26412#21378
+ #21152#24037#25143)
+ TabOrder = 18
+ Text = #26412#21378
+ Visible = False
+ Width = 88
+ end
+ object WBBelongCoName3: TcxButtonEdit
+ Tag = 2
+ Left = 706
+ Top = 176
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 19
+ Text = #26412#21378
+ Visible = False
+ OnDblClick = WBFtyNameDblClick
+ Width = 150
+ end
+ end
+ end
+ object Panel1: TPanel
+ Tag = 2
+ Left = 1
+ Top = 1
+ Width = 546
+ Height = 770
+ Align = alLeft
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 1
+ object Label15: TLabel
+ Left = 237
+ Top = 18
+ Width = 64
+ Height = 21
+ Caption = #29983#20135#31867#22411
+ end
+ object Label7: TLabel
+ Left = 7
+ Top = 60
+ Width = 96
+ Height = 21
+ Caption = #25972#32463#24037#33402#32534#21495
+ end
+ object Label1: TLabel
+ Left = 7
+ Top = 18
+ Width = 96
+ Height = 21
+ Caption = #27974#32433#20219#21153#21333#21495
+ end
+ object Label5: TLabel
+ Left = 237
+ Top = 60
+ Width = 96
+ Height = 21
+ Caption = #25972#32463#24037#33402#21517#31216
+ end
+ object Label11: TLabel
+ Left = 7
+ Top = 187
+ Width = 64
+ Height = 21
+ Caption = #24635#32463#26681#25968
+ end
+ object Label13: TLabel
+ Left = 7
+ Top = 229
+ Width = 64
+ Height = 21
+ Caption = #20998#32478#26681#25968
+ end
+ object Label14: TLabel
+ Left = 237
+ Top = 441
+ Width = 32
+ Height = 21
+ Caption = #31576#24133
+ end
+ object Label18: TLabel
+ Left = 237
+ Top = 187
+ Width = 32
+ Height = 21
+ Caption = #20998#32478
+ end
+ object Label19: TLabel
+ Left = 237
+ Top = 230
+ Width = 32
+ Height = 21
+ Caption = #24182#25968
+ end
+ object Label38: TLabel
+ Left = 7
+ Top = 102
+ Width = 64
+ Height = 21
+ Caption = #32455#36896#21333#21495
+ end
+ object Label47: TLabel
+ Left = 237
+ Top = 103
+ Width = 32
+ Height = 21
+ Caption = #23458#25143
+ end
+ object Label20: TLabel
+ Left = 237
+ Top = 356
+ Width = 32
+ Height = 21
+ Caption = #31576#21495
+ end
+ object Label39: TLabel
+ Left = 7
+ Top = 355
+ Width = 64
+ Height = 21
+ Caption = #38050#31576#32534#21495
+ end
+ object Label40: TLabel
+ Left = 7
+ Top = 145
+ Width = 64
+ Height = 21
+ Caption = #20135#21697#21517#31216
+ end
+ object Label8: TLabel
+ Left = 7
+ Top = 271
+ Width = 96
+ Height = 21
+ Caption = #32433#26550#25346#32433#39063#25968
+ end
+ object Label12: TLabel
+ Left = 7
+ Top = 313
+ Width = 96
+ Height = 21
+ Caption = #32433#26550#25346#32433#39063#25968
+ end
+ object Label16: TLabel
+ Left = 237
+ Top = 272
+ Width = 48
+ Height = 21
+ Caption = #31232#36724#25968
+ end
+ object Label17: TLabel
+ Left = 237
+ Top = 314
+ Width = 48
+ Height = 21
+ Caption = #31232#36724#25968
+ end
+ object Label22: TLabel
+ Left = 7
+ Top = 398
+ Width = 48
+ Height = 21
+ Caption = #36793#32433#25968
+ end
+ object Label23: TLabel
+ Left = 237
+ Top = 399
+ Width = 64
+ Height = 21
+ Caption = #22320#31359#20837#25968
+ end
+ object Label37: TLabel
+ Left = 7
+ Top = 440
+ Width = 48
+ Height = 21
+ Caption = #31576#40831#25968
+ end
+ object Label41: TLabel
+ Left = 7
+ Top = 482
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ end
+ object Label42: TLabel
+ Left = 237
+ Top = 145
+ Width = 64
+ Height = 21
+ Caption = #20135#21697#32534#21495
+ end
+ object Label43: TLabel
+ Left = 237
+ Top = 529
+ Width = 96
+ Height = 21
+ Caption = #35745#21010#31232#36724#20010#25968
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label44: TLabel
+ Left = 7
+ Top = 528
+ Width = 96
+ Height = 21
+ Caption = #35745#21010#31232#36724#32463#38271
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object TWPId: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 12
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 0
+ Width = 120
+ end
+ object WB_Code: TcxButtonEdit
+ Tag = 1
+ Left = 106
+ Top = 54
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = WB_CodePropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 1
+ Width = 120
+ end
+ object WB_Name: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 54
+ ParentColor = True
+ TabOrder = 2
+ Width = 120
+ end
+ object WB_YarnQty: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 181
+ ParentColor = True
+ TabOrder = 3
+ Width = 120
+ end
+ object Z_FJGENSHU: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 223
+ ParentColor = True
+ TabOrder = 4
+ Width = 120
+ end
+ object WB_Width: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 434
+ ParentColor = True
+ TabOrder = 5
+ Width = 120
+ end
+ object Z_FENJIAO: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 181
+ ParentColor = True
+ TabOrder = 6
+ Width = 120
+ end
+ object Z_BINGSHU: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 223
+ ParentColor = True
+ TabOrder = 7
+ Width = 120
+ end
+ object GYNo: TcxButtonEdit
+ Tag = 1
+ Left = 105
+ Top = 96
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = GYNoPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 8
+ OnDblClick = GYNoDblClick
+ Width = 120
+ end
+ object CustName: TcxButtonEdit
+ Tag = 1
+ Left = 345
+ Top = 96
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = CustNamePropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 9
+ OnDblClick = GYNoDblClick
+ Width = 120
+ end
+ object WB_ReedNo: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 350
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 10
+ Width = 120
+ end
+ object GKBH: TcxButtonEdit
+ Tag = 1
+ Left = 103
+ Top = 349
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = GKBHPropertiesButtonClick
+ TabOrder = 11
+ Width = 120
+ end
+ object WB_TYPE: TcxTextEdit
+ Tag = 8
+ Left = 345
+ Top = 12
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 12
+ Width = 120
+ end
+ object C_NAME: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 139
+ ParentColor = True
+ TabOrder = 13
+ Width = 120
+ end
+ object Z_SJKESHU1: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 265
+ ParentColor = True
+ TabOrder = 14
+ Width = 120
+ end
+ object Z_SJKESHU2: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 307
+ ParentColor = True
+ TabOrder = 15
+ Width = 120
+ end
+ object Z_ZHOUSHU1: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 265
+ ParentColor = True
+ TabOrder = 16
+ Width = 120
+ end
+ object Z_ZHOUSHU2: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 307
+ ParentColor = True
+ TabOrder = 17
+ Width = 120
+ end
+ object BSQTY: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 392
+ ParentColor = True
+ TabOrder = 18
+ Width = 120
+ end
+ object DCRQTY: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 392
+ ParentColor = True
+ TabOrder = 19
+ Width = 120
+ end
+ object C_KCQTY: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 434
+ ParentColor = True
+ TabOrder = 20
+ Width = 120
+ end
+ object WB_ReedNote: TcxTextEdit
+ Tag = 1
+ Left = 105
+ Top = 476
+ ParentColor = True
+ TabOrder = 21
+ Width = 382
+ end
+ object C_CODE: TcxTextEdit
+ Tag = 1
+ Left = 345
+ Top = 139
+ ParentColor = True
+ TabOrder = 22
+ Width = 120
+ end
+ object XZ_GS: TcxTextEdit
+ Left = 345
+ Top = 522
+ ParentColor = True
+ TabOrder = 23
+ Width = 120
+ end
+ object XZ_YarnQty: TcxTextEdit
+ Left = 106
+ Top = 522
+ ParentColor = True
+ TabOrder = 24
+ Width = 120
+ end
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_WarpBeamStk.ADOLink
+ Left = 777
+ Top = 355
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_WarpBeamStk.ADOLink
+ Left = 945
+ Top = 474
+ end
+ inherited ImageList_new32: TImageList
+ Left = 1352
+ Top = 308
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ Left = 628
+ Top = 330
+ DesignInfo = 21627508
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_WarpBeamStk.ADOLink
+ Parameters = <>
+ Left = 1015
+ Top = 363
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_WarpBeamStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 1091
+ Top = 446
+ end
+ object RM1: TRMGridReport
+ ThreadPrepareReport = True
+ InitialZoom = pzDefault
+ PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+ DefaultCollate = False
+ SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+ PreviewOptions.RulerUnit = rmutScreenPixels
+ PreviewOptions.RulerVisible = False
+ PreviewOptions.DrawBorder = False
+ PreviewOptions.BorderPen.Color = clGray
+ PreviewOptions.BorderPen.Style = psDash
+ Dataset = RMDB_1
+ CompressLevel = rmzcFastest
+ CompressThread = False
+ LaterBuildEvents = True
+ OnlyOwnerDataSet = False
+ Left = 584
+ Top = 395
+ ReportData = {}
+ end
+ object RMXLSExport1: TRMXLSExport
+ ShowAfterExport = True
+ ExportPrecision = 1
+ PagesOfSheet = 1
+ ExportImages = True
+ ExportFrames = True
+ ExportImageFormat = ifBMP
+ JPEGQuality = 0
+ ScaleX = 1.000000000000000000
+ ScaleY = 1.000000000000000000
+ CompressFile = False
+ Left = 669
+ Top = 390
+ end
+ object RMDB_1: TRMDBDataSet
+ Visible = True
+ DataSet = ADOQueryPrint
+ Left = 1023
+ Top = 529
+ end
+ object DS_Card: TDataSource
+ DataSet = CDS_Card
+ Left = 623
+ Top = 507
+ end
+ object CDS_Card: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 658
+ Top = 476
+ end
+ object ADOQueryPrint: TADOQuery
+ Connection = DataLink_WarpBeamStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 1175
+ Top = 278
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 854
+ Top = 426
+ object N2: TMenuItem
+ Caption = #20840#36873
+ OnClick = N2Click
+ end
+ object N3: TMenuItem
+ Caption = #20840#24323
+ OnClick = N3Click
+ end
+ end
+ object GPM_2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 845
+ Top = 472
+ end
+ object PM_1: TPopupMenu
+ Left = 772
+ Top = 508
+ object N1: TMenuItem
+ Caption = #21024#38500
+ end
+ end
+ object DS_3: TDataSource
+ DataSet = CDS_3
+ Left = 910
+ Top = 616
+ end
+ object GPM_3: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 844
+ Top = 620
+ end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 767
+ Top = 622
+ end
+ object ADO_3: TADOQuery
+ Connection = DataLink_WarpBeamStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 702
+ Top = 621
+ end
+end
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.pas b/E02梭织经轴仓库/U_TatWBCardInPut2.pas
new file mode 100644
index 0000000..e85bddb
--- /dev/null
+++ b/E02梭织经轴仓库/U_TatWBCardInPut2.pas
@@ -0,0 +1,1012 @@
+unit U_TatWBCardInPut2;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+ cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+ cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
+ cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+ cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
+ RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
+ Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
+ dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer,
+ cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations,
+ dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
+ dxSkinSharpPlus, dxSkinWXI;
+
+type
+ TfrmTatWBCardInPut2 = class(TfrmBaseInput)
+ ADOQueryCmd: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ RM1: TRMGridReport;
+ RMXLSExport1: TRMXLSExport;
+ RMDB_1: TRMDBDataSet;
+ Panel2: TPanel;
+ DS_Card: TDataSource;
+ CDS_Card: TClientDataSet;
+ ADOQueryPrint: TADOQuery;
+ PopupMenu1: TPopupMenu;
+ N2: TMenuItem;
+ N3: TMenuItem;
+ Panel4: TPanel;
+ cxGrid2: TcxGrid;
+ TV2: TcxGridDBTableView;
+ cxGridDBColumn1: TcxGridDBColumn;
+ V2Column3: TcxGridDBColumn;
+ TV2Column4: TcxGridDBColumn;
+ TV2Column3: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ ToolBar1: TToolBar;
+ TBSave: TToolButton;
+ ToolButton1: TToolButton;
+ ToolButton8: TToolButton;
+ ToolButton2: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ Label15: TLabel;
+ GPM_2: TcxGridPopupMenu;
+ Label7: TLabel;
+ Label1: TLabel;
+ PM_1: TPopupMenu;
+ N1: TMenuItem;
+ TWPId: TcxTextEdit;
+ WB_Code: TcxButtonEdit;
+ Label5: TLabel;
+ WB_Name: TcxTextEdit;
+ Label11: TLabel;
+ Label13: TLabel;
+ Label14: TLabel;
+ WB_YarnQty: TcxTextEdit;
+ Z_FJGENSHU: TcxTextEdit;
+ WB_Width: TcxTextEdit;
+ Label18: TLabel;
+ Label19: TLabel;
+ Z_FENJIAO: TcxTextEdit;
+ Z_BINGSHU: TcxTextEdit;
+ TV2Column2: TcxGridDBColumn;
+ DS_3: TDataSource;
+ GPM_3: TcxGridPopupMenu;
+ CDS_3: TClientDataSet;
+ ADO_3: TADOQuery;
+ TV2Column18: TcxGridDBColumn;
+ ToolButton3: TToolButton;
+ TV2Column1: TcxGridDBColumn;
+ TV2Column5: TcxGridDBColumn;
+ Panel3: TPanel;
+ Label2: TLabel;
+ Label6: TLabel;
+ Label10: TLabel;
+ Label24: TLabel;
+ Label25: TLabel;
+ Label26: TLabel;
+ Label27: TLabel;
+ Label28: TLabel;
+ Label29: TLabel;
+ WBType1: TcxButtonEdit;
+ WB_YarnLen1: TcxTextEdit;
+ edtCardQty1: TcxTextEdit;
+ WBType2: TcxButtonEdit;
+ edtCardQty2: TcxTextEdit;
+ WBType3: TcxButtonEdit;
+ edtCardQty3: TcxTextEdit;
+ WB_YarnLen2: TcxTextEdit;
+ WB_YarnLen3: TcxTextEdit;
+ Label4: TLabel;
+ Note: TcxMemo;
+ Label21: TLabel;
+ Label30: TLabel;
+ WB_ProcessType: TcxComboBox;
+ WBFtyName: TcxButtonEdit;
+ Label9: TLabel;
+ Label3: TLabel;
+ WB_MachNo: TcxButtonEdit;
+ WB_Macher: TcxButtonEdit;
+ Label31: TLabel;
+ WBBelong1: TcxComboBox;
+ Label32: TLabel;
+ WBBelongCoName1: TcxButtonEdit;
+ Label33: TLabel;
+ WBBelong2: TcxComboBox;
+ Label34: TLabel;
+ WBBelongCoName2: TcxButtonEdit;
+ Label35: TLabel;
+ WBBelong3: TcxComboBox;
+ Label36: TLabel;
+ WBBelongCoName3: TcxButtonEdit;
+ TV2Column6: TcxGridDBColumn;
+ TV2Column7: TcxGridDBColumn;
+ TV2Column8: TcxGridDBColumn;
+ TV2Column9: TcxGridDBColumn;
+ Label38: TLabel;
+ GYNo: TcxButtonEdit;
+ Label47: TLabel;
+ CustName: TcxButtonEdit;
+ Label20: TLabel;
+ Label39: TLabel;
+ WB_ReedNo: TcxTextEdit;
+ GKBH: TcxButtonEdit;
+ WB_TYPE: TcxTextEdit;
+ Label40: TLabel;
+ C_NAME: TcxTextEdit;
+ Label8: TLabel;
+ Label12: TLabel;
+ Label16: TLabel;
+ Label17: TLabel;
+ Z_SJKESHU1: TcxTextEdit;
+ Z_SJKESHU2: TcxTextEdit;
+ Z_ZHOUSHU1: TcxTextEdit;
+ Z_ZHOUSHU2: TcxTextEdit;
+ Label22: TLabel;
+ Label23: TLabel;
+ BSQTY: TcxTextEdit;
+ DCRQTY: TcxTextEdit;
+ Label37: TLabel;
+ C_KCQTY: TcxTextEdit;
+ Label41: TLabel;
+ WB_ReedNote: TcxTextEdit;
+ Label42: TLabel;
+ C_CODE: TcxTextEdit;
+ Label43: TLabel;
+ XZ_GS: TcxTextEdit;
+ Label44: TLabel;
+ XZ_YarnQty: TcxTextEdit;
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure FormShow(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ procedure N3Click(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure ToolButton8Click(Sender: TObject);
+ procedure WBNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure WB_MachNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure TBSaveClick(Sender: TObject);
+ procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure WBFtyNameDblClick(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure TV2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure TV2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure GYNoDblClick(Sender: TObject);
+ procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ private
+ function TestData(): Boolean;
+ procedure PrtDate(MWBCID: string);
+ procedure InitCard();
+ procedure InitCardGrop();
+ procedure InitCard3();
+ procedure KaiKa(MWBType, MWBBelong, MWBBelongCoNo, MWBBelongCoName: string; MCardQty: Integer; MWB_YarnLen: Double);
+ { Private declarations }
+ public
+ FWBCNO, FTWPId, FWB_Type: string;
+
+ { Public declarations }
+ end;
+
+var
+ frmTatWBCardInPut2: TfrmTatWBCardInPut2;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel,
+ U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_GKManageSel,
+ U_TatPlanSel2;
+
+{$R *.dfm} procedure TfrmTatWBCardInPut2.InitCard3();
+begin
+ with ADO_3 do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* from Tat_WB_Formula A inner join Tat_WB_Spec B on A.WBSID=B.WBSID ');
+ sql.Add(' where WB_Code=''' + Trim(WB_Code.Text) + '''');
+ Open;
+ end;
+ SCreateCDS(ADO_3, CDS_3);
+ SInitCDSData(ADO_3, CDS_3);
+end;
+
+procedure TfrmTatWBCardInPut2.InitCardGrop();
+begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + '''');
+ Open;
+ end;
+ SCSHData(ADOQueryTemp, Panel1, 1);
+ if FWB_Type = 'ϡ' then
+ begin
+ edtCardQty1.Text := Trim(ADOQueryTemp.fieldbyname('Z_BINGSHU').AsString);
+ WB_YarnLen1.Text := Trim(ADOQueryTemp.fieldbyname('WB_Qty_YJMJZMS').AsString);
+ XZ_YarnQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_Qty_YJMJZMS').AsString);
+ XZ_GS.Text := Trim(ADOQueryTemp.fieldbyname('WB_Qty_YJJZZS').AsString);
+ edtCardQty1.Properties.ReadOnly := true;
+ Label44.Caption := 'ƻϡᾭ';
+ Label43.Caption := 'ƻϡ';
+ WB_ProcessType.Properties.Items.Clear;
+ WB_ProcessType.Properties.Items.Add('');
+ WB_ProcessType.Properties.Items.Add('⳧');
+ WB_ProcessType.ItemIndex := 0;
+ end
+ else
+ begin
+ edtCardQty1.Properties.ReadOnly := false;
+ Label44.Caption := 'ƻ֯ᾭ';
+ Label43.Caption := 'ƻ֯';
+
+ WB_ProcessType.Properties.Items.Clear;
+ WB_ProcessType.Properties.Items.Add('ɴ');
+ WB_ProcessType.Properties.Items.Add('ɴɹ');
+ WB_ProcessType.Properties.Items.Add('⳧ɴ');
+ WB_ProcessType.ItemIndex := 0;
+ end;
+
+ GYNo.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('GYSubid').AsString);
+ CustName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('CustNo').AsString);
+end;
+
+function TfrmTatWBCardInPut2.TestData(): Boolean;
+begin
+ try
+
+ if Trim(FTWPId) = '' then
+ begin
+ if GetLSNo(ADOQueryTemp, FTWPId, 'QJ', 'Tat_WB_Card', 3, 1) = False then
+ begin
+ raise Exception.Create('Ǩʧ!');
+ end;
+ TWPId.Text := FTWPId;
+ end;
+// if Trim(WB_ProcessType.Text) = '' then
+// begin
+// if Trim(WB_Macher.Text) = '' then
+// raise Exception.Create('ǤλΪգ');
+// end;
+ if trim(WB_Code.Text) = '' then
+ raise Exception.Create('ŲΪգ');
+// if StrToIntDef(edtCardQty.Text, 0) = 0 then
+// raise Exception.Create('Ϊգ');
+
+
+ if StrToIntDef(WB_YarnQty.Text, 0) = 0 then
+ raise Exception.Create('ͷƲΪգ');
+// if Trim(WB_YarnArr.Text) = '' then
+// raise Exception.Create('ŲΪգ');
+// if Trim(WB_Len.Text) = '' then
+// raise Exception.Create('᳤Ϊգ');
+// if StrToIntDef(WB_YarnLen.Text, 0) = 0 then
+// raise Exception.Create('ȲΪգ');
+// if Trim(WB_ProcessType.Text) = '' then
+// begin
+// if Trim(WB_MachNo.Text) = '' then
+// raise Exception.Create('ǨΪգ');
+// end;
+
+// if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then
+// WB_ClothPiece.Text := '0';
+ if Trim(WB_Type.Text) = '' then
+ raise Exception.Create('ͲΪգ');
+ Result := True;
+ except
+ Result := false;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.InitCard();
+begin
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* ');
+ sql.Add('from Tat_WB_Card A ');
+ sql.Add('where isnull(Status,''0'')<>''-1'' and TWPId=' + quotedstr(Trim(FTWPId)));
+ SQL.Add('AND WB_TYPE=' + quotedstr(Trim(FWB_Type)));
+
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_Card);
+ SInitCDSData(ADOQueryTemp, CDS_Card);
+end;
+
+procedure TfrmTatWBCardInPut2.PrtDate(MWBCID: string);
+var
+ fPrintFile, FFCYID: string;
+ DPS, i, j: Integer;
+begin
+
+ ExportFtErpFile('Ῠǩ.rmf', ADOQueryTemp);
+ fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ῠǩ.rmf';
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Tat_WB_Card set PrtFlag=PrtFlag+1 ');
+ sql.Add(' where WBCID=' + quotedstr(MWBCID));
+ ExecSQL;
+ end;
+
+ with ADOQueryPrint do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.*,B.*,D.* ');
+ sql.Add(' from PD_Plan_Main A inner join PD_Plan_Sub B on A.Mainid=B.MainId');
+ sql.Add(' inner join Tat_WB_Card_MS C on C.Subid=B.Subid ');
+ sql.Add(' inner join Tat_WB_Card D on C.WBCID=D.WBCID ');
+ sql.Add(' where D.WBCID=' + quotedstr(MWBCID));
+// ShowMessage(SQL.Text);
+ Open;
+ end;
+
+// with ADOQueryTemp do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''˿'' and M.WBCID=' + Quotedstr(Trim(MWBCID)));
+// Open;
+// end;
+// SCreateCDS(ADOQueryTemp, CDS_PJS);
+// SInitCDSData(ADOQueryTemp, CDS_PJS);
+//
+// with ADOQueryTemp do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''γ˿'' and M.WBCID=' + Quotedstr(Trim(MWBCID)));
+// Open;
+// end;
+// SCreateCDS(ADOQueryTemp, CDS_PWS);
+// SInitCDSData(ADOQueryTemp, CDS_PWS);
+
+ if FileExists(fPrintFile) then
+ begin
+ RM1.LoadFromFile(fPrintFile);
+ RM1.DefaultCopies := 1;
+ RM1.ShowReport;
+ end
+ else
+ begin
+ Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0);
+ Exit;
+ end;
+
+end;
+
+procedure TfrmTatWBCardInPut2.WBFtyNameDblClick(Sender: TObject);
+begin
+ self.WBFtyName.Properties.LookupItems.Text := '';
+ self.WBFtyName.Text := '';
+end;
+
+procedure TfrmTatWBCardInPut2.WBNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmWBTypeSel := TfrmWBTypeSel.Create(Application);
+ with frmWBTypeSel do
+ begin
+ if ShowModal = 1 then
+ begin
+ TcxTextEdit(Sender).Text := Trim(frmWBTypeSel.CDS_Main.fieldbyname('WBType').AsString);
+ end;
+ end;
+ finally
+ frmWBTypeSel.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmWBSpecSel := TfrmWBSpecSel.Create(Application);
+ with frmWBSpecSel do
+ begin
+
+ if ShowModal = 1 then
+ begin
+ Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
+ Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
+ Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
+
+ Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
+ Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
+ Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
+
+ Self.Note.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
+
+ Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
+ Self.InitCard3();
+ end;
+ end;
+ finally
+ frmWBSpecSel.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.WB_MachNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TcxButtonEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+// MainType := 'SalesCon';
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ inherited;
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'ͻ';
+ if ShowModal = 1 then
+ begin
+ CustName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
+ CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
+ end;
+ end;
+ finally
+ frmCompanySel.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'Ӧ';
+ if ShowModal = 1 then
+ begin
+ tcxbuttonedit(Sender).Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+ tcxbuttonedit(Sender).Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+ end;
+ end;
+
+ finally
+ frmCompanySel.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmTatWBCardInPut2.FormShow(Sender: TObject);
+begin
+ inherited;
+
+ ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ');
+ InitCardGrop();
+ InitCard();
+
+ InitCard3();
+ WB_TYPE.Text := FWB_Type;
+end;
+
+procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmGKManageSel := tfrmGKManageSel.Create(Application);
+ with frmGKManageSel do
+ begin
+
+ if ShowModal = 1 then
+ begin
+ SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
+ SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
+ end;
+ end;
+ finally
+ frmGKManageSel.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.GYNoDblClick(Sender: TObject);
+begin
+ inherited;
+ TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
+ TcxButtonEdit(Sender).Text := '';
+end;
+
+procedure TfrmTatWBCardInPut2.GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ inherited;
+ try
+ frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
+ with frmTatPlanSel2 do
+ begin
+ FISSJ := '';
+ if ShowModal = 1 then
+ begin
+ Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
+ Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring;
+ Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
+
+ Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
+
+ with ADOQueryTemp do
+ begin
+ close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from Tat_WB_Spec A');
+ sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' ');
+ Open;
+ end;
+
+ Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
+ Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
+ Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
+
+ Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
+ Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
+ Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
+
+ Self.Note.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
+ Self.InitCard3();
+
+ end;
+ end;
+ finally
+ frmTatPlanSel2.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.N2Click(Sender: TObject);
+begin
+ SelOKNo(CDS_Card, True);
+end;
+
+procedure TfrmTatWBCardInPut2.N3Click(Sender: TObject);
+begin
+ SelOKNo(CDS_Card, False);
+end;
+
+procedure TfrmTatWBCardInPut2.TBCloseClick(Sender: TObject);
+begin
+ ModalResult := 1;
+end;
+
+procedure TfrmTatWBCardInPut2.TBSaveClick(Sender: TObject);
+begin
+ if TestData() = false then
+ exit;
+
+ KaiKa(WBType1.Text, WBBelong1.Text, WBBelongCoName1.Properties.LookupItems.Text, WBBelongCoName1.Text, StrToIntdef(edtCardQty1.Text, 0), StrToFloatdef(WB_YarnLen1.Text, 0));
+// KaiKa(WBType2.Text, WBBelong2.Text, WBBelongCoName2.Properties.LookupItems.Text, WBBelongCoName2.Text, StrToIntdef(edtCardQty2.Text, 0), StrToFloatdef(WB_YarnLen2.Text, 0));
+// KaiKa(WBType3.Text, WBBelong3.Text, WBBelongCoName3.Properties.LookupItems.Text, WBBelongCoName3.Text, StrToIntdef(edtCardQty3.Text, 0), StrToFloatdef(WB_YarnLen3.Text, 0));
+end;
+
+procedure TfrmTatWBCardInPut2.KaiKa(MWBType, MWBBelong, MWBBelongCoNo, MWBBelongCoName: string; MCardQty: Integer; MWB_YarnLen: Double);
+var
+ MWBCID: string;
+ i, j: integer;
+ fDate: string;
+begin
+ if MCardQty = 0 then
+ EXIT;
+ if (WB_ProcessType.Text = 'ɹ') or (WB_ProcessType.Text = '⳧ɴ') then
+ begin
+ if WBFtyName.Text = '' then
+ begin
+ Application.MessageBox('дӹλ', 'ʾ', 0);
+ Exit;
+ end;
+
+ end;
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+
+ fDate := FormatDateTime('yyMM', SGetServerDate(ADOQueryTemp));
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ ////////////////// Ῠ //////////////////////
+ sql.Add(' insert into Tat_WB_Card(WBCNO,TWPId,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YARNARR,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler');
+ sql.Add(' ,WB_Width,WB_ReedNo,WB_ReedNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName ');
+ sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH,C_NAME,C_CODE,Z_FENJIAO,Z_FJGENSHU,Z_BINGSHU');
+ SQL.Add(' ,BSQTY,DCRQTY,C_KCQTY,XZ_GS,XZ_YarnQty');
+ sql.Add(' ) values');
+ for i := 1 to MCardQty do
+ begin
+ if GetLSNo(ADOQueryTemp, MWBCID, 'XZK' + fDate, 'Tat_WB_Card', 2, 0) = False then
+ begin
+ raise Exception.Create('ȡƱˮʧ!');
+ end;
+
+ if i > 1 then
+ sql.Add(',');
+ sql.Add(' (' + Quotedstr(Trim(FTWPId)));
+ sql.Add(',' + Quotedstr(Trim(FTWPId)));
+ sql.Add(',' + Quotedstr(Trim(MWBCID)));
+ sql.Add(',' + Quotedstr(Trim(MWBType)));
+ sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text)));
+ sql.Add(',' + Quotedstr(Trim(WB_Code.Text)));
+ sql.Add(',' + Quotedstr(Trim(WB_Name.Text)));
+ if FWB_Type = 'ϡ' then
+ begin
+ if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') then
+ begin
+ sql.Add(',' + (Trim(Z_FJGENSHU.Text)));
+ sql.Add(',' + (Trim(Z_SJKESHU2.Text)));
+ end
+ else
+ begin
+ sql.Add(',' + (Trim(Z_FJGENSHU.Text)));
+ sql.Add(',' + (Trim(Z_SJKESHU1.Text)));
+ end;
+ end
+ else
+ begin
+ sql.Add(',' + (Trim(WB_YarnQty.Text)));
+ sql.Add(',' + (Trim(Z_SJKESHU1.Text)));
+ end;
+
+ sql.Add(',' + FloatToStr(MWB_YarnLen));
+ sql.Add(',' + Quotedstr(Trim(WB_Macher.Text)));
+ sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text)));
+ sql.Add(',' + Quotedstr(Trim(WB_Type.Text)));
+ sql.Add(',' + Quotedstr(Trim(Note.Text)));
+ sql.Add(',' + Quotedstr(Trim(DCode)));
+ sql.Add(',' + Quotedstr(Trim(DName)));
+ sql.Add(',' + Quotedstr(Trim(WB_Width.Text)));
+ sql.Add(',' + Quotedstr(Trim(WB_ReedNo.Text)));
+ sql.Add(',' + Quotedstr(Trim(WB_ReedNote.Text)));
+ sql.Add(',' + Quotedstr(Trim(WBFtyName.Properties.LookupItems.Text)));
+ sql.Add(',' + Quotedstr(Trim(WBFtyName.Text)));
+ sql.Add(',' + Quotedstr(Trim(MWBBelong)));
+ sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo)));
+ sql.Add(',' + Quotedstr(Trim(MWBBelongCoName)));
+ sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text)));
+ sql.Add(',' + Quotedstr(Trim(GYNo.Text)));
+ sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text)));
+ sql.Add(',' + Quotedstr(Trim(CustName.Text)));
+ sql.Add(',' + Quotedstr(Trim(GKBH.Text)));
+ sql.Add(',' + Quotedstr(Trim(C_NAME.Text)));
+ sql.Add(',' + Quotedstr(Trim(C_CODE.Text)));
+ sql.Add(',' + (Trim(Z_FENJIAO.Text)));
+ sql.Add(',' + (Trim(Z_FJGENSHU.Text)));
+ sql.Add(',' + (Trim(Z_BINGSHU.Text)));
+
+ sql.Add(',' + (Trim(BSQTY.Text)));
+ sql.Add(',' + (Trim(DCRQTY.Text)));
+ sql.Add(',' + Quotedstr(Trim(C_KCQTY.Text)));
+ if XZ_GS.Text <> '' then
+ begin
+ sql.Add(',' + (Trim(XZ_GS.Text)));
+ end
+ else
+ begin
+ sql.Add(',0');
+ end;
+ if XZ_YarnQty.Text <> '' then
+ begin
+ sql.Add(',' + (Trim(XZ_YarnQty.Text)));
+ end
+ else
+ begin
+ sql.Add(',0');
+ end;
+
+ sql.Add(' )');
+ end;
+ ////////////////// Ῠ //////////////////////
+ ///
+ ////////////////// Ῠƻ //////////////////////
+// if not CDS_1.IsEmpty then
+// begin
+// with CDS_1 do
+// begin
+// First;
+// sql.Add(' delete Tat_WB_Card_Link where WBCNO=' + Quotedstr(Trim(FWBCNO)));
+//
+// while not Eof do
+// begin
+// sql.Add(' insert into Tat_WB_Card_Link(MainId,SubID,WBCNO) values');
+// sql.Add(' (' + Quotedstr(Trim(CDS_1.FieldByName('MainId').AsString)));
+// sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('SubID').AsString)));
+// sql.Add(',' + Quotedstr(Trim(FWBCNO)));
+// sql.Add(' )');
+// Next;
+// end;
+// end;
+// end;
+ ////////////////// Ῠƻ //////////////////////
+ ExecSQL;
+ end;
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from V_Tat_WB_CardGrop A where A.WBCNO=''' + Trim(FWBCNO) + '''');
+ Open;
+ end;
+ if ADOQueryTemp.RecordCount > 1 then
+ raise Exception.Create('ƻϢܱ!');
+
+ ADOQueryCmd.Connection.CommitTrans;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+ InitCard();
+end;
+
+procedure TfrmTatWBCardInPut2.ToolButton1Click(Sender: TObject);
+var
+ WSql: string;
+begin
+
+ if CDS_Card.IsEmpty then
+ Exit;
+ if CDS_Card.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ WSql := '';
+ CDS_Card.DisableControls;
+
+ with CDS_Card do
+ begin
+ First;
+ while not Eof do
+ begin
+ if CDS_Card.fieldbyname('SSel').AsBoolean then
+ begin
+ if WSql <> '' then
+ begin
+ WSql := WSql + ',' + QuotedStr(Trim(CDS_Card.fieldbyname('WBCID').AsString));
+ end
+ else
+ begin
+ WSql := QuotedStr(Trim(CDS_Card.fieldbyname('WBCID').AsString));
+ end;
+ end;
+ Next;
+ end;
+ end;
+
+ CDS_Card.Locate('SSel', True, []);
+ CDS_Card.EnableControls;
+
+ try
+ frmLabelPrint := TfrmLabelPrint.Create(Application);
+ with frmLabelPrint do
+ begin
+ FPreviewPrint := False;
+ FLMType := 'TatWBCard';
+ FFiltration1 := WSql;
+ if ShowModal = 1 then
+ begin
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('update Tat_WB_Card ');
+ sql.Add(' set PRTer=' + quotedstr(DName));
+ sql.Add(', PRTCount=PRTCount+1');
+ sql.Add(', PRTDate=getdate()');
+ sql.Add(' where WBCID in (' + WSql + ')');
+ ExecSQL;
+ end;
+ end;
+ end;
+ finally
+ frmLabelPrint.Free;
+ end;
+
+end;
+
+procedure TfrmTatWBCardInPut2.ToolButton2Click(Sender: TObject);
+begin
+
+ WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ');
+end;
+
+procedure TfrmTatWBCardInPut2.ToolButton3Click(Sender: TObject);
+begin
+ Note.SetFocus;
+ try
+ CDS_Card.DisableControls;
+ CDS_Card.First;
+ while not CDS_Card.Eof do
+ begin
+ ADOQueryCmd.Connection.BeginTrans;
+ try
+ with ADOQueryCmd do
+ begin
+ close;
+ sql.Clear;
+ sql.Add('select * from Tat_WB_Card A');
+ sql.Add('where WBCID=''' + trim(CDS_Card.fieldbyname('WBCID').AsString) + '''');
+ open;
+ edit;
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
+ RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1);
+ RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_Card, 'Tat_WB_Card', 0);
+ post;
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ raise Exception.Create(PChar(Exception(ExceptObject).Message));
+ end;
+ CDS_Card.Next;
+ end;
+ CDS_Card.EnableControls;
+ except
+ CDS_Card.EnableControls;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.ToolButton8Click(Sender: TObject);
+var
+ WSql: string;
+begin
+ if CDS_Card.IsEmpty then
+ Exit;
+ if CDS_Card.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+
+ WSql := '';
+ CDS_Card.DisableControls;
+
+ while CDS_Card.Locate('SSel', True, []) do
+ begin
+ if CDS_Card.fieldbyname('SSel').AsBoolean then
+ begin
+ if WSql <> '' then
+ begin
+ WSql := WSql + ',' + (Trim(CDS_Card.fieldbyname('WBCID').AsString));
+ end
+ else
+ begin
+ WSql := (Trim(CDS_Card.fieldbyname('WBCID').AsString));
+ end;
+ end;
+ CDS_Card.Delete;
+ end;
+ CDS_Card.EnableControls;
+
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+// with ADOQueryCmd do
+// begin
+// Close;
+// sql.Clear;
+// sql.Add('insert into Knit_Need_Up(UOperation,UType,UDataId) values('''',''ɾ'',' + quotedstr(MCIIDS) + ') ');
+// ExecSQL;
+// end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ Sql.Clear;
+ Sql.Add('exec P_TatWB_Card_Del ');
+ Sql.Add('@WBCIDS=' + quotedstr(Trim(WSql)));
+ Sql.Add(',@DCode=' + Quotedstr(DCode));
+ Sql.Add(',@DName=' + Quotedstr(DName));
+ Open;
+ end;
+ if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+ begin
+ raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+ end;
+ ADOQueryCmd.Connection.CommitTrans;
+
+ application.MessageBox('ɾɹ', 'ʾϢ');
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.TV2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmWBTypeSel := TfrmWBTypeSel.Create(Application);
+ with frmWBTypeSel do
+ begin
+ if ShowModal = 1 then
+ begin
+ with CDS_Card do
+ begin
+ Edit;
+ FieldByName('WBType').Value := Trim(frmWBTypeSel.CDS_Main.fieldbyname('WBType').AsString);
+ Post;
+ end;
+ end;
+ end;
+ finally
+ frmWBTypeSel.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'Ӧ';
+ if ShowModal = 1 then
+ begin
+ with CDS_Card do
+ begin
+ Edit;
+ FieldByName('WBFtyNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+ FieldByName('WBFtyName').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+ Post;
+ end;
+ end;
+ end;
+ finally
+ frmCompanySel.Free;
+ end;
+end;
+
+procedure TfrmTatWBCardInPut2.TV2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'Ӧ';
+ if ShowModal = 1 then
+ begin
+ with CDS_Card do
+ begin
+ Edit;
+ FieldByName('WBBelongCoNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+ FieldByName('WBBelongCoName').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+ Post;
+ end;
+ end;
+ end;
+ finally
+ frmCompanySel.Free;
+ end;
+end;
+
+end.
+
diff --git a/E02梭织经轴仓库/U_TatWBNeedList.dfm b/E02梭织经轴仓库/U_TatWBNeedList.dfm
index 6057cc0..42bc66a 100644
--- a/E02梭织经轴仓库/U_TatWBNeedList.dfm
+++ b/E02梭织经轴仓库/U_TatWBNeedList.dfm
@@ -3,8 +3,8 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ClientHeight = 792
ClientWidth = 1540
Font.Height = -16
+ FormStyle = fsMDIChild
Visible = True
- WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 831
PixelsPerInch = 96
@@ -31,7 +31,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ParentColor = False
ParentFont = False
ShowCaptions = True
- TabOrder = 5
+ TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -48,49 +48,16 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ImageIndex = 0
OnClick = TBFindClick
end
- object ToolButton2: TToolButton
- Left = 126
- Top = 0
- AutoSize = True
- Caption = #21333#20215#20462#25913
- ImageIndex = 3
- Visible = False
- OnClick = ToolButton2Click
- end
object TbLook: TToolButton
- Left = 213
+ Left = 126
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 8
OnClick = TbLookClick
end
- object ToolButton3: TToolButton
- Left = 276
- Top = 0
- AutoSize = True
- Caption = #23545#36134
- ImageIndex = 19
- OnClick = ToolButton3Click
- end
- object ToolButton4: TToolButton
- Left = 339
- Top = 0
- AutoSize = True
- Caption = #25764#38144#23545#36134
- ImageIndex = 11
- OnClick = ToolButton4Click
- end
- object TBdel: TToolButton
- Left = 426
- Top = 0
- AutoSize = True
- Caption = #21024#38500
- ImageIndex = 5
- OnClick = TBdelClick
- end
object TBPrint: TToolButton
- Left = 489
+ Left = 189
Top = 0
AutoSize = True
Caption = #25171#21360
@@ -98,7 +65,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
Visible = False
end
object TBExport: TToolButton
- Left = 552
+ Left = 252
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
@@ -106,7 +73,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
- Left = 645
+ Left = 345
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -114,7 +81,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
- Left = 732
+ Left = 432
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -132,7 +99,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
- TabOrder = 6
+ TabOrder = 5
object Label2: TLabel
Left = 300
Top = 46
@@ -189,13 +156,13 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
end
object cxGrid1: TcxGrid [2]
Left = 0
- Top = 138
+ Top = 109
Width = 1540
- Height = 654
+ Height = 683
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
- ExplicitTop = 144
+ ExplicitTop = 115
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -323,26 +290,11 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
TabOrder = 3
Visible = False
end
- object cxTabControl1: TcxTabControl [4]
- Left = 0
- Top = 109
- Width = 1540
- Height = 29
- Align = alTop
- TabOrder = 4
- Properties.CustomButtons.Buttons = <>
- Properties.Style = 9
- Properties.TabIndex = 0
- Properties.Tabs.Strings = (
- #26410#23545#36134
- #24050#23545#36134
- #20840#37096)
- OnChange = cxTabControl1Change
- ExplicitTop = 115
- ClientRectRight = 0
- ClientRectTop = 0
- end
inherited cxProgressBar2: TcxProgressBar
+ Left = 300
+ Top = 264
+ ExplicitLeft = 300
+ ExplicitTop = 264
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
diff --git a/E02梭织经轴仓库/U_TatWBNeedList.pas b/E02梭织经轴仓库/U_TatWBNeedList.pas
index 453a822..0b849c3 100644
--- a/E02梭织经轴仓库/U_TatWBNeedList.pas
+++ b/E02梭织经轴仓库/U_TatWBNeedList.pas
@@ -36,7 +36,6 @@ type
cxGrid1: TcxGrid;
MovePanel2: TMovePanel;
RMGridReport1: TRMGridReport;
- TBdel: TToolButton;
ToolButton1: TToolButton;
Tv1Column14: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
@@ -52,10 +51,6 @@ type
Tv1Column27: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel;
- ToolButton2: TToolButton;
- cxTabControl1: TcxTabControl;
- ToolButton3: TToolButton;
- ToolButton4: TToolButton;
Label2: TLabel;
WB_Name: TcxTextEdit;
Tv1Column1: TcxGridDBColumn;
@@ -81,7 +76,7 @@ type
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure pcidPropertiesChange(Sender: TObject);
- procedure cxTabControl1Change(Sender: TObject);
+ procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TbLookClick(Sender: TObject);
@@ -102,42 +97,17 @@ var
implementation
uses
- U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp,U_WBNeedLook;
+ U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp, U_WBNeedLook;
{$R *.dfm}
procedure TfrmTatWBNeedList.setstatus();
begin
- ToolButton3.Enabled := False;
- ToolButton4.Enabled := False;
- TBdel.Enabled := False;
Label1.Visible := false;
-
- case cxTabControl1.TabIndex of
- 0:
- begin
- ToolButton3.Enabled := true;
- TBdel.Enabled := true;
-
- Label1.Visible := true;
-
- end;
- 1:
- begin
- ToolButton4.Enabled := true;
- end;
- 2:
- begin
-
- end;
- end;
-
end;
-
-
procedure TfrmTatWBNeedList.FormDestroy(Sender: TObject);
begin
inherited;
@@ -375,7 +345,7 @@ begin
frmWBNeedLook := TfrmWBNeedLook.Create(Application);
with frmWBNeedLook do
begin
-
+ FWB_Code := SELF.CDS_Main.FieldByName('WB_Code').ASSTRING;
if ShowModal = 1 then
begin
Self.InitGrid();
diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm
index b68fef9..1a66399 100644
--- a/E02梭织经轴仓库/U_TatWBPlan.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlan.dfm
@@ -6,6 +6,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
+ ExplicitLeft = -17
ExplicitWidth = 1556
ExplicitHeight = 691
PixelsPerInch = 96
@@ -202,7 +203,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 29
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
- Time = 0.464761099538009200
+ Time = 0.464761099538009100
TabOrder = 1
end
object CustName: TEdit
@@ -331,13 +332,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter
Width = 71
end
- object Tv1Column1: TcxGridDBColumn
- Caption = #20844#21496#25260#22836
- DataBinding.FieldName = 'OurCoName'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 82
- end
object v1Column19: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
@@ -350,7 +344,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
end
object v1Column21: TcxGridDBColumn
Caption = #21697#21517
- DataBinding.FieldName = 'WB_Spec'
+ DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
@@ -438,6 +432,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Align = alClient
PopupMenu = PM_1
TabOrder = 0
+ ExplicitLeft = 6
+ ExplicitTop = 61
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -603,9 +599,11 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Properties.Style = 6
Properties.TabIndex = 0
Properties.Tabs.Strings = (
- #32463#36724
+ #31232#36724
#27974#36724)
OnChange = cxTabControl2Change
+ ExplicitLeft = 6
+ ExplicitTop = 45
ClientRectBottom = 30
ClientRectRight = 564
ClientRectTop = 30
diff --git a/E02梭织经轴仓库/U_TatWBPlan.pas b/E02梭织经轴仓库/U_TatWBPlan.pas
index 6d596f1..38fa114 100644
--- a/E02梭织经轴仓库/U_TatWBPlan.pas
+++ b/E02梭织经轴仓库/U_TatWBPlan.pas
@@ -53,7 +53,6 @@ type
CustName: TEdit;
Label7: TLabel;
cxTabControl1: TcxTabControl;
- Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
TBEnd: TToolButton;
TBNoEnd: TToolButton;
@@ -146,9 +145,10 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,
- U_TatWBPlanCardInPut;
+ U_TatWBCardInPut2; //U_TatWBPlanCardInPut
{$R *.dfm}
+
procedure TfrmTatWBPlan.InitCard();
begin
with ADO_2 do
@@ -161,7 +161,7 @@ begin
case cxTabControl2.TabIndex of
0:
begin
- sql.Add('and WB_Type ='''' ');
+ sql.Add('and WB_Type =''ϡ'' ');
end;
1:
begin
@@ -440,8 +440,8 @@ begin
Close;
sql.Clear;
SQL.Add('select A.*');
- sql.Add('from Tat_WB_Plan A');
- sql.Add(' where A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
+ sql.Add('from Tat_WB_CARD A');
+ sql.Add(' where A.WBCNO=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
@@ -594,14 +594,14 @@ end;
procedure TfrmTatWBPlan.ToolButton2Click(Sender: TObject);
begin
try
- frmTatWBPlanCardInPut := TfrmTatWBPlanCardInPut.Create(Application);
- with frmTatWBPlanCardInPut do
+ frmTatWBCardInPut2 := TfrmTatWBCardInPut2.Create(Application);
+ with frmTatWBCardInPut2 do
begin
FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString);
case cxTabControl2.TabIndex of
0:
begin
- FWB_Type := '';
+ FWB_Type := 'ϡ';
end;
1:
begin
@@ -615,7 +615,7 @@ begin
end;
end;
finally
- frmTatWBPlanCardInPut.Free;
+ frmTatWBCardInPut2.Free;
end;
end;
diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.pas b/E02梭织经轴仓库/U_TatWBPlanCard.pas
index 9c2872b..b8dd74e 100644
--- a/E02梭织经轴仓库/U_TatWBPlanCard.pas
+++ b/E02梭织经轴仓库/U_TatWBPlanCard.pas
@@ -219,7 +219,7 @@ begin
sql.Add(' where 1=1');
sql.add(' and A.WB_Date>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + '''');
sql.Add(' and A.WB_Date<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + '''');
- sql.Add(' and WB_Type not in ('''')');
+ sql.Add(' and WB_Type not in ('''',''ϡ'')');
// showmessage(Sql.text);
// ShowMessage(sql.text);
diff --git a/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm
index 085eaf7..b8b75bf 100644
--- a/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm
@@ -2,7 +2,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Left = -35
Top = 98
Caption = #32463#36724#35745#21010
- ClientHeight = 667
+ ClientHeight = 734
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -10,27 +10,32 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1556
- ExplicitHeight = 706
+ ExplicitHeight = 773
PixelsPerInch = 96
TextHeight = 12
object Panel2: TPanel [0]
- Left = 0
+ Left = 546
Top = 0
- Width = 1540
- Height = 667
+ Width = 994
+ Height = 734
Align = alClient
TabOrder = 0
+ ExplicitLeft = 0
+ ExplicitWidth = 1540
+ ExplicitHeight = 667
object Panel1: TPanel
Left = 1
Top = 1
- Width = 1538
- Height = 83
+ Width = 992
+ Height = 168
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
+ ExplicitTop = 5
+ ExplicitWidth = 1538
object Label8: TLabel
Left = 377
Top = 50
@@ -124,7 +129,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end
object Label19: TLabel
Left = 17
- Top = 50
+ Top = 53
Width = 54
Height = 12
Caption = #21697' '#21517
@@ -149,6 +154,45 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
ParentFont = False
Visible = False
end
+ object Label1: TLabel
+ Left = 17
+ Top = 86
+ Width = 52
+ Height = 12
+ Caption = #32463#36724#31867#22411
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label30: TLabel
+ Left = 230
+ Top = 100
+ Width = 104
+ Height = 12
+ Caption = #25972#32463#21152#24037#37319#36141#21333#20301
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label3: TLabel
+ Left = 542
+ Top = 98
+ Width = 59
+ Height = 12
+ Caption = #30424#22836#31867#22411'1'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
object WB_YarnQty: TEdit
Tag = 1
Left = 436
@@ -168,7 +212,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object WB_Spec: TEdit
Tag = 1
Left = 76
- Top = 46
+ Top = 50
Width = 282
Height = 20
TabOrder = 2
@@ -236,27 +280,96 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
OnBtnUpClick = WBNoBtnUpClick
OnBtnDnClick = FtyCoNameBtnDnClick
end
+ object WB_ProcessType: TcxComboBox
+ Tag = 2
+ Left = 76
+ Top = 83
+ ParentFont = False
+ Properties.Items.Strings = (
+ #26412#21378#25972#32463
+ #22806#21378#25972#32463
+ #25972#32463#37319#36141
+ #22806#21378#27974#32433)
+ Style.Font.Charset = GB2312_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -12
+ Style.Font.Name = #23435#20307
+ Style.Font.Style = [fsBold]
+ Style.IsFontAssigned = True
+ TabOrder = 9
+ Text = #26412#21378#25972#32463
+ Width = 150
+ end
+ object WBFtyName: TcxButtonEdit
+ Tag = 2
+ Left = 362
+ Top = 94
+ ParentColor = True
+ ParentFont = False
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Style.Font.Charset = GB2312_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -12
+ Style.Font.Name = #23435#20307
+ Style.Font.Style = [fsBold]
+ Style.ButtonStyle = btsDefault
+ Style.IsFontAssigned = True
+ TabOrder = 10
+ Width = 150
+ end
+ object WBType1: TcxButtonEdit
+ Tag = 2
+ Left = 619
+ Top = 94
+ ParentColor = True
+ ParentFont = False
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Style.Font.Charset = GB2312_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -12
+ Style.Font.Name = #23435#20307
+ Style.Font.Style = [fsBold]
+ Style.ButtonStyle = btsDefault
+ Style.IsFontAssigned = True
+ TabOrder = 11
+ Width = 150
+ end
end
object Panel4: TPanel
Left = 1
- Top = 84
- Width = 1538
- Height = 582
+ Top = 169
+ Width = 992
+ Height = 564
Align = alClient
Caption = 'Panel4'
TabOrder = 0
+ ExplicitTop = 84
+ ExplicitWidth = 1538
+ ExplicitHeight = 582
object Panel3: TPanel
Left = 1
Top = 1
- Width = 1536
- Height = 580
+ Width = 990
+ Height = 562
Align = alClient
TabOrder = 0
+ ExplicitWidth = 1536
+ ExplicitHeight = 580
object cxPageControl1: TcxPageControl
Left = 1
- Top = 282
- Width = 1534
- Height = 297
+ Top = 42
+ Width = 988
+ Height = 519
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -271,16 +384,18 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 297
- ClientRectRight = 1534
+ ExplicitTop = 282
+ ExplicitWidth = 1534
+ ExplicitHeight = 297
+ ClientRectBottom = 519
+ ClientRectRight = 988
ClientRectTop = 0
end
object cxGrid1: TcxGrid
Left = 1
- Top = 42
+ Top = 47
Width = 1534
- Height = 240
- Align = alTop
+ Height = 179
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@@ -288,6 +403,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Font.Style = []
ParentFont = False
TabOrder = 1
+ Visible = False
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -381,34 +497,14 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object Panel5: TPanel
Left = 1
Top = 1
- Width = 1534
+ Width = 988
Height = 41
Align = alTop
TabOrder = 2
- object Panel6: TPanel
- Left = 1
- Top = 1
- Width = 184
- Height = 39
- Align = alLeft
- TabOrder = 0
- object Label21: TLabel
- Left = 37
- Top = 7
- Width = 84
- Height = 20
- Caption = #32463#32433#37197#27604
- Font.Charset = GB2312_CHARSET
- Font.Color = clRed
- Font.Height = -20
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
+ ExplicitLeft = -4
object ToolBar1: TToolBar
Tag = 1
- Left = 185
+ Left = 1
Top = 1
Width = 308
Height = 39
@@ -429,7 +525,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
List = True
ParentFont = False
ShowCaptions = True
- TabOrder = 1
+ TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
@@ -444,6 +540,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
AutoSize = True
Caption = #21024#34892
ImageIndex = 5
+ Visible = False
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
@@ -465,10 +562,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end
object cxGrid2: TcxGrid
Left = 1
- Top = 282
+ Top = 288
Width = 1534
- Height = 297
- Align = alClient
+ Height = 212
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@@ -476,6 +572,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Font.Style = []
ParentFont = False
TabOrder = 3
+ Visible = False
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -566,9 +663,580 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
GridView = TV2
end
end
+ object cxGrid3: TcxGrid
+ Left = 1
+ Top = 42
+ Width = 988
+ Height = 519
+ Align = alClient
+ TabOrder = 4
+ ExplicitLeft = 4
+ ExplicitTop = 47
+ object TV3: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_3
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end>
+ DataController.Summary.FooterSummaryItems = <>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object cxGridDBColumn6: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ HeaderAlignmentHorz = taCenter
+ Width = 42
+ end
+ object V2Column4: TcxGridDBColumn
+ Caption = #36724#21345#21495
+ DataBinding.FieldName = 'WBCID'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 77
+ end
+ object TV1Column5: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'WB_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 71
+ end
+ object V2Column3: TcxGridDBColumn
+ Caption = #25972#32463#38271#24230
+ DataBinding.FieldName = 'WB_YarnLen'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 71
+ end
+ object cxGridDBColumn15: TcxGridDBColumn
+ Caption = #22836#32441
+ DataBinding.FieldName = 'WB_YarnQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 65
+ end
+ object TV1Column3: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 146
+ end
+ end
+ object cxGridLevel3: TcxGridLevel
+ GridView = TV3
+ end
+ end
end
end
end
+ object Panel6: TPanel [1]
+ Tag = 2
+ Left = 0
+ Top = 0
+ Width = 546
+ Height = 734
+ Align = alLeft
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 1
+ ExplicitLeft = -2
+ object Label15: TLabel
+ Left = 237
+ Top = 18
+ Width = 52
+ Height = 12
+ Caption = #29983#20135#31867#22411
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label5: TLabel
+ Left = 7
+ Top = 57
+ Width = 78
+ Height = 12
+ Caption = #25972#32463#24037#33402#32534#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label9: TLabel
+ Left = 7
+ Top = 18
+ Width = 78
+ Height = 12
+ Caption = #25972#32463#20219#21153#21333#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label16: TLabel
+ Left = 7
+ Top = 408
+ Width = 52
+ Height = 12
+ Caption = #29301#32463#25490#21015
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentColor = False
+ ParentFont = False
+ end
+ object Label11: TLabel
+ Left = 237
+ Top = 57
+ Width = 78
+ Height = 12
+ Caption = #25972#32463#24037#33402#21517#31216
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label13: TLabel
+ Left = 7
+ Top = 332
+ Width = 39
+ Height = 12
+ Caption = #20301#31227#37327
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label14: TLabel
+ Left = 7
+ Top = 137
+ Width = 39
+ Height = 12
+ Caption = #24635#22836#20221
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label17: TLabel
+ Left = 7
+ Top = 254
+ Width = 52
+ Height = 12
+ Caption = #31576#31359#20837#27861
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label20: TLabel
+ Left = 7
+ Top = 176
+ Width = 26
+ Height = 12
+ Caption = #21514#25968
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label21: TLabel
+ Left = 7
+ Top = 215
+ Width = 52
+ Height = 12
+ Caption = #32463#36724#38376#24133
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label22: TLabel
+ Left = 7
+ Top = 293
+ Width = 52
+ Height = 12
+ Caption = #22987#21514#20301#32622
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label23: TLabel
+ Left = 237
+ Top = 136
+ Width = 52
+ Height = 12
+ Caption = #19978#25490#39063#25968
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label24: TLabel
+ Left = 237
+ Top = 175
+ Width = 26
+ Height = 12
+ Caption = #38646#22836
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label25: TLabel
+ Left = 237
+ Top = 253
+ Width = 52
+ Height = 12
+ Caption = #22369#26012#24230#25968
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label26: TLabel
+ Left = 237
+ Top = 293
+ Width = 78
+ Height = 12
+ Caption = #29301#32463#24352#21147#21442#25968
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label37: TLabel
+ Left = 237
+ Top = 332
+ Width = 26
+ Height = 12
+ Caption = #32463#23494
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label38: TLabel
+ Left = 7
+ Top = 96
+ Width = 52
+ Height = 12
+ Caption = #32455#36896#21333#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label47: TLabel
+ Left = 237
+ Top = 97
+ Width = 26
+ Height = 12
+ Caption = #23458#25143
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label27: TLabel
+ Left = 403
+ Top = 209
+ Width = 52
+ Height = 12
+ Caption = #29301#32463#31576#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object Label39: TLabel
+ Left = 237
+ Top = 214
+ Width = 52
+ Height = 12
+ Caption = #38050#31576#32534#21495
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -12
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object WBCNO: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 12
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 0
+ Width = 120
+ end
+ object WB_Type: TcxComboBox
+ Tag = 1
+ Left = 338
+ Top = 12
+ Properties.Items.Strings = (
+ #22823#36135
+ #35797#26679)
+ TabOrder = 1
+ Width = 150
+ end
+ object WB_Code: TcxButtonEdit
+ Tag = 1
+ Left = 106
+ Top = 51
+ ParentColor = True
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Style.ButtonStyle = btsDefault
+ TabOrder = 2
+ Width = 120
+ end
+ object WB_Name: TcxTextEdit
+ Tag = 1
+ Left = 338
+ Top = 51
+ ParentColor = True
+ TabOrder = 3
+ Width = 150
+ end
+ object cxTextEdit1: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 131
+ ParentColor = True
+ TabOrder = 4
+ Width = 120
+ end
+ object WB_Move: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 326
+ ParentColor = True
+ TabOrder = 5
+ Width = 120
+ end
+ object WB_ReedNote: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 248
+ ParentColor = True
+ TabOrder = 6
+ Width = 120
+ end
+ object WB_YarnStripQty: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 170
+ ParentColor = True
+ TabOrder = 7
+ Width = 120
+ end
+ object WB_Width: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 209
+ ParentColor = True
+ TabOrder = 8
+ Width = 120
+ end
+ object WB_Arg_SDWZ: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 287
+ ParentColor = True
+ TabOrder = 9
+ Width = 120
+ end
+ object WB_YarnArr: TcxTextEdit
+ Tag = 1
+ Left = 338
+ Top = 131
+ ParentColor = True
+ TabOrder = 10
+ Width = 150
+ end
+ object WB_YarnStripRemainder: TcxTextEdit
+ Tag = 1
+ Left = 338
+ Top = 170
+ ParentColor = True
+ TabOrder = 11
+ Width = 150
+ end
+ object WB_Arg_PXDS: TcxTextEdit
+ Tag = 1
+ Left = 337
+ Top = 248
+ ParentColor = True
+ TabOrder = 12
+ Width = 150
+ end
+ object WB_Arg_QJZL: TcxTextEdit
+ Tag = 1
+ Left = 337
+ Top = 287
+ ParentColor = True
+ TabOrder = 13
+ Width = 150
+ end
+ object WB_YarnArrNote: TcxMemo
+ Tag = 1
+ Left = 106
+ Top = 363
+ TabOrder = 14
+ Height = 111
+ Width = 423
+ end
+ object WB_YarnDensity: TcxTextEdit
+ Tag = 1
+ Left = 337
+ Top = 326
+ ParentColor = True
+ TabOrder = 15
+ Width = 150
+ end
+ object GYNo: TcxButtonEdit
+ Tag = 1
+ Left = 106
+ Top = 90
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Style.ButtonStyle = btsDefault
+ TabOrder = 16
+ Width = 120
+ end
+ object CustName: TcxButtonEdit
+ Tag = 1
+ Left = 338
+ Top = 92
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Style.ButtonStyle = btsDefault
+ TabOrder = 17
+ Width = 150
+ end
+ object WB_ReedNo: TcxTextEdit
+ Tag = 2
+ Left = 473
+ Top = 206
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 18
+ Width = 65
+ end
+ object GKBH: TcxButtonEdit
+ Tag = 2
+ Left = 308
+ Top = 206
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ TabOrder = 19
+ Width = 89
+ end
+ end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 722
@@ -585,6 +1253,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
+ Left = 336
+ Top = 385
+ DesignInfo = 25231696
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
@@ -616,7 +1287,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object DS_1: TDataSource
DataSet = CDS_1
Left = 614
- Top = 183
+ Top = 295
end
object CDS_1: TClientDataSet
Aggregates = <>
@@ -625,8 +1296,8 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Top = 181
end
object PopupMenu1: TPopupMenu
- Left = 553
- Top = 412
+ Left = 609
+ Top = 492
object N2: TMenuItem
Caption = #20840#36873
end
@@ -657,4 +1328,21 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Left = 481
Top = 186
end
+ object GPM_3: TcxGridPopupMenu
+ Grid = cxGrid3
+ PopupMenus = <>
+ Left = 412
+ Top = 490
+ end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 474
+ Top = 487
+ end
+ object DS_3: TDataSource
+ DataSet = CDS_3
+ Left = 550
+ Top = 488
+ end
end
diff --git a/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas
index 34b8a6a..e8a9885 100644
--- a/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas
+++ b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas
@@ -13,7 +13,8 @@ uses
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White,
- dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI;
+ dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI, cxContainer, cxMaskEdit,
+ cxDropDownEdit, cxMemo;
type
TfrmTatWBPlanCardInPut = class(TfrmBaseInput)
@@ -58,8 +59,6 @@ type
TV1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel5: TPanel;
- Panel6: TPanel;
- Label21: TLabel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
@@ -76,6 +75,65 @@ type
DS_2: TDataSource;
GPM_1: TcxGridPopupMenu;
ToolButton1: TToolButton;
+ Label1: TLabel;
+ Label30: TLabel;
+ WB_ProcessType: TcxComboBox;
+ WBFtyName: TcxButtonEdit;
+ Label3: TLabel;
+ WBType1: TcxButtonEdit;
+ cxGrid3: TcxGrid;
+ TV3: TcxGridDBTableView;
+ cxGridDBColumn6: TcxGridDBColumn;
+ V2Column4: TcxGridDBColumn;
+ TV1Column5: TcxGridDBColumn;
+ V2Column3: TcxGridDBColumn;
+ cxGridDBColumn15: TcxGridDBColumn;
+ TV1Column3: TcxGridDBColumn;
+ cxGridLevel3: TcxGridLevel;
+ GPM_3: TcxGridPopupMenu;
+ CDS_3: TClientDataSet;
+ DS_3: TDataSource;
+ Panel6: TPanel;
+ Label15: TLabel;
+ Label5: TLabel;
+ Label9: TLabel;
+ Label16: TLabel;
+ Label11: TLabel;
+ Label13: TLabel;
+ Label14: TLabel;
+ Label17: TLabel;
+ Label20: TLabel;
+ Label21: TLabel;
+ Label22: TLabel;
+ Label23: TLabel;
+ Label24: TLabel;
+ Label25: TLabel;
+ Label26: TLabel;
+ Label37: TLabel;
+ Label38: TLabel;
+ Label47: TLabel;
+ Label27: TLabel;
+ Label39: TLabel;
+ WBCNO: TcxTextEdit;
+ WB_Type: TcxComboBox;
+ WB_Code: TcxButtonEdit;
+ WB_Name: TcxTextEdit;
+ cxTextEdit1: TcxTextEdit;
+ WB_Move: TcxTextEdit;
+ WB_ReedNote: TcxTextEdit;
+ WB_YarnStripQty: TcxTextEdit;
+ WB_Width: TcxTextEdit;
+ WB_Arg_SDWZ: TcxTextEdit;
+ WB_YarnArr: TcxTextEdit;
+ WB_YarnStripRemainder: TcxTextEdit;
+ WB_Arg_PXDS: TcxTextEdit;
+ WB_Arg_QJZL: TcxTextEdit;
+ WB_YarnArrNote: TcxMemo;
+ WB_YarnDensity: TcxTextEdit;
+ GYNo: TcxButtonEdit;
+ CustName: TcxButtonEdit;
+ WB_ReedNo: TcxTextEdit;
+ GKBH: TcxButtonEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -123,6 +181,7 @@ begin
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString;
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString;
+
end
else
begin
@@ -130,6 +189,7 @@ begin
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString;
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString;
+
end;
with ADOQueryTemp do
begin
@@ -144,6 +204,19 @@ begin
SInitCDSData(ADOQueryTemp, CDS_1);
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.* ');
+ sql.Add(' from Tat_WB_Card A');
+ sql.Add(' where TWPId=''' + Trim(FTWPId) + '''');
+ SQL.Add('and WB_Type = ' + QUOTEDSTR(FWB_Type));
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_3);
+ SInitCDSData(ADOQueryTemp, CDS_3);
end;
function TfrmTatWBPlanCardInPut.TestData(): Boolean;
@@ -250,7 +323,7 @@ begin
sql.Clear;
sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen ');
sql.Add(' ,WBData,FtyCoNo,FtyCoName');
- sql.Add(' ,WB_Type,Note,FillId,Filler) values');
+ sql.Add(' ,WB_Type,Note,FillId,Filler,WBType,WB_ProcessType,WBFtyName) values');
for i := 1 to StrToIntdef(edtCardQty.Text, 1) do
begin
@@ -269,6 +342,9 @@ begin
sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode)));
sql.Add(',' + Quotedstr(Trim(DName)));
+ sql.Add(',' + Quotedstr(Trim(WBType1.Text)));
+ sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text)));
+ sql.Add(',' + Quotedstr(Trim(WBFtyName.Text)));
sql.Add(' )');
end;
diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
index 1898d07..2935bbb 100644
--- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
@@ -2,15 +2,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 212
Top = 14
Caption = #27974#32433#35745#21010#24405#20837
- ClientHeight = 616
+ ClientHeight = 763
ClientWidth = 1429
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
- ExplicitTop = -30
ExplicitWidth = 1445
- ExplicitHeight = 655
+ ExplicitHeight = 802
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@@ -36,7 +35,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
ShowCaptions = True
TabOrder = 0
- ExplicitWidth = 1124
object TBSave: TToolButton
Left = 0
Top = 0
@@ -63,17 +61,18 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
object Panel2: TPanel [1]
Left = 0
- Top = 353
+ Top = 433
Width = 1429
- Height = 263
+ Height = 330
Align = alClient
TabOrder = 1
- ExplicitWidth = 1124
+ ExplicitTop = 353
+ ExplicitHeight = 263
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
Width = 1427
- Height = 220
+ Height = 287
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -88,8 +87,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ExplicitWidth = 1122
- ClientRectBottom = 220
+ ExplicitHeight = 220
+ ClientRectBottom = 287
ClientRectRight = 1427
ClientRectTop = 0
end
@@ -100,6 +99,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 41
Align = alTop
TabOrder = 1
+ Visible = False
ExplicitLeft = 2
ExplicitTop = 6
object Panel6: TPanel
@@ -171,10 +171,10 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 1
Top = 42
Width = 1427
- Height = 220
+ Height = 287
Align = alClient
TabOrder = 2
- ExplicitWidth = 1122
+ ExplicitTop = 47
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -292,6 +292,15 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
HeaderAlignmentHorz = taCenter
Width = 70
end
+ object Tv1Column8: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'ZS'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
object Tv1Column7: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
@@ -301,52 +310,35 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
HeaderAlignmentHorz = taCenter
Width = 100
end
- object Tv1Column8: TcxGridDBColumn
- Caption = #25903#25968
- DataBinding.FieldName = 'ZS'
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #20840#24133#26681#25968
+ DataBinding.FieldName = 'QFYARNQTY'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1Column9: TcxGridDBColumn
+ Caption = #30334#31859#32463#38271#29992#37327'KG'
+ DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
- object v1Column3: TcxGridDBColumn
- Caption = #26681#25968
- DataBinding.FieldName = 'YarnQty'
+ object Tv1Column3: TcxGridDBColumn
+ Caption = #31570#37325'KG'
+ DataBinding.FieldName = 'TZQTY'
DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 72
+ Width = 79
end
object Tv1Column4: TcxGridDBColumn
- Caption = #24490#29615#26681#25968
- DataBinding.FieldName = 'CycleYarnQty'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
- GroupSummaryAlignment = taCenter
- HeaderAlignmentHorz = taCenter
- Width = 102
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #31859#29992#37327
- DataBinding.FieldName = 'MeterQty'
+ Caption = #35745#21010#24635#29992#37327'KG'
+ DataBinding.FieldName = 'JHYLQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 70
- end
- object Tv1Column6: TcxGridDBColumn
- Caption = #32442#27861
- DataBinding.FieldName = 'FF'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #25467#24230
- DataBinding.FieldName = 'ND'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
+ Width = 95
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
@@ -365,456 +357,812 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 0
Top = 38
Width = 1429
- Height = 315
+ Height = 395
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 2
OnDblClick = gynoDblClick
- ExplicitLeft = 1
ExplicitTop = 41
object Label3: TLabel
- Left = 639
- Top = 7
- Width = 39
- Height = 12
+ Left = 715
+ Top = 14
+ Width = 48
+ Height = 21
Caption = #21697#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 1
- Top = 83
- Width = 91
- Height = 12
- Caption = #25972#32463#24037#33402#21333#21495#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label16: TLabel
- Left = 1
- Top = 232
- Width = 39
- Height = 12
- Caption = #22791#27880#65306
+ Top = 153
+ Width = 112
+ Height = 21
+ Caption = #32463#36724#24037#33402#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label47: TLabel
- Left = 435
- Top = 9
- Width = 39
- Height = 12
+ Left = 480
+ Top = 16
+ Width = 48
+ Height = 21
Caption = #23458#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 1
- Top = 46
- Width = 78
- Height = 12
- Caption = #35746#21333#24635#31859#25968#65306
+ Top = 44
+ Width = 112
+ Height = 21
+ Caption = #35746#21333#32463#32433#38271#24230#65306
Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label4: TLabel
- Left = 219
- Top = 162
- Width = 65
- Height = 12
- Caption = #35745#21010#36724#25968#65306
+ Left = 236
+ Top = 117
+ Width = 96
+ Height = 21
+ Caption = #35745#21010#32455#36724#25968#65306
Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 1
- Top = 158
- Width = 91
- Height = 12
- Caption = #35745#21010#32463#36724#31859#25968#65306
+ Top = 117
+ Width = 112
+ Height = 21
+ Caption = #35745#21010#32455#36724#32463#38271#65306
Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label9: TLabel
- Left = 435
- Top = 195
- Width = 78
- Height = 12
- Caption = #35745#21010#27974#36724#25968#65306
+ Left = 236
+ Top = 81
+ Width = 112
+ Height = 21
+ Caption = #35745#21010#31232#36724#20010#25968#65306
Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label10: TLabel
- Left = 1
- Top = 196
- Width = 78
- Height = 12
- Caption = #27974#36724#32433#26681#25968#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label11: TLabel
- Left = 219
- Top = 196
- Width = 91
- Height = 12
- Caption = #35745#21010#27974#36724#31859#25968#65306
+ Left = 1
+ Top = 81
+ Width = 112
+ Height = 21
+ Caption = #35745#21010#31232#36724#32463#38271#65306
Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 1
Top = 8
- Width = 65
- Height = 12
+ Width = 80
+ Height = 21
Caption = #27974#32433#21333#21495#65306
Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label15: TLabel
- Left = 219
+ Left = 236
Top = 8
- Width = 65
- Height = 12
+ Width = 80
+ Height = 21
Caption = #32455#36896#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label17: TLabel
- Left = 219
- Top = 85
- Width = 91
- Height = 12
- Caption = #25972#32463#24037#33402#21517#31216#65306
+ Left = 236
+ Top = 154
+ Width = 112
+ Height = 21
+ Caption = #32463#36724#24037#33402#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label18: TLabel
- Left = 435
- Top = 85
- Width = 52
- Height = 12
- Caption = #24635#22836#20221#65306
+ Left = 480
+ Top = 146
+ Width = 80
+ Height = 21
+ Caption = #24635#32463#26681#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label19: TLabel
- Left = 639
- Top = 85
- Width = 65
- Height = 12
- Caption = #19978#26426#38376#24133#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 1
- Top = 121
- Width = 65
- Height = 12
+ Top = 299
+ Width = 80
+ Height = 21
Caption = #38050#31576#32534#21495#65306
Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
ParentFont = False
end
object Label22: TLabel
- Left = 219
- Top = 125
- Width = 39
- Height = 12
+ Left = 236
+ Top = 299
+ Width = 48
+ Height = 21
Caption = #31576#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label23: TLabel
- Left = 435
- Top = 125
- Width = 65
- Height = 12
- Caption = #31359#31576#20837#27861#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label24: TLabel
- Left = 639
- Top = 125
- Width = 39
- Height = 12
- Caption = #32463#23494#65306
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object OrdNote: TRichEdit
- Left = 90
- Top = 230
- Width = 571
- Height = 66
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
- TabOrder = 1
- Zoom = 100
- OnDblClick = gynoDblClick
- OnKeyPress = ConNoKeyPress
end
- object WB_Spec: TEdit
- Left = 712
- Top = 5
+ object Label1: TLabel
+ Left = 236
+ Top = 190
+ Width = 80
+ Height = 21
+ Caption = #20998#32478#26681#25968#65306
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label5: TLabel
+ Left = 1
+ Top = 190
+ Width = 48
+ Height = 21
+ Caption = #20998#32478#65306
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label7: TLabel
+ Left = 1
+ Top = 226
+ Width = 112
+ Height = 21
+ Caption = #32433#39550#25346#32433#39063#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label8: TLabel
+ Left = 236
+ Top = 226
+ Width = 64
+ Height = 21
+ Caption = #31232#36724#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label12: TLabel
+ Left = 1
+ Top = 262
+ Width = 112
+ Height = 21
+ Caption = #32433#39550#25346#32433#39063#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label25: TLabel
+ Left = 236
+ Top = 262
+ Width = 64
+ Height = 21
+ Caption = #31232#36724#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label26: TLabel
+ Left = 480
+ Top = 187
+ Width = 112
+ Height = 21
+ Caption = #32433#26550#26368#22823#39063#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label27: TLabel
+ Left = 714
+ Top = 146
+ Width = 48
+ Height = 21
+ Caption = #24182#25968#65306
+ end
+ object Label28: TLabel
+ Left = 480
+ Top = 293
+ Width = 64
+ Height = 21
+ Caption = #31576#40831#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label29: TLabel
+ Left = 715
+ Top = 293
+ Width = 48
+ Height = 21
+ Caption = #31576#24133#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label30: TLabel
+ Left = 480
+ Top = 329
+ Width = 80
+ Height = 21
+ Caption = #36793#31359#20837#27861#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label31: TLabel
+ Left = 1
+ Top = 335
+ Width = 64
+ Height = 21
+ Caption = #36793#32433#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label32: TLabel
+ Left = 236
+ Top = 335
+ Width = 80
+ Height = 21
+ Caption = #22320#31359#20837#27861#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label10: TLabel
+ Left = 899
+ Top = 14
+ Width = 48
+ Height = 21
+ Caption = #32534#21495#65306
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object C_NAME: TEdit
+ Left = 766
+ Top = 8
Width = 120
- Height = 18
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
TabOrder = 0
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
- object CustName: TBtnEditC
- Left = 508
- Top = 3
- Width = 120
- Height = 20
- ReadOnly = True
- TabOrder = 2
- OnDblClick = gynoDblClick
- OnBtnUpClick = CustNameBtnUpClick
- OnBtnDnClick = CustNameBtnDnClick
- end
object WB_Code: TBtnEditC
- Left = 90
- Top = 79
+ Left = 104
+ Top = 146
Width = 120
- Height = 20
+ Height = 30
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
ReadOnly = True
- TabOrder = 3
+ TabOrder = 1
OnDblClick = gynoDblClick
OnBtnUpClick = WB_CodeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object WB_YarnTotalLen: TEdit
- Left = 90
- Top = 42
+ Left = 104
+ Top = 40
Width = 120
- Height = 18
- TabOrder = 4
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 2
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty: TEdit
- Left = 305
- Top = 156
+ Left = 346
+ Top = 112
Width = 120
- Height = 18
- TabOrder = 5
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 3
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_YarnLen: TEdit
- Left = 90
- Top = 156
+ Left = 104
+ Top = 111
Width = 120
- Height = 18
- TabOrder = 6
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 4
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJJZZS: TEdit
- Left = 508
- Top = 191
+ Left = 346
+ Top = 76
Width = 120
- Height = 18
- TabOrder = 7
- OnKeyPress = ConNoKeyPress
- end
- object WB_Qty_YJMJZGS: TEdit
- Left = 90
- Top = 193
- Width = 120
- Height = 18
- TabOrder = 8
- OnDblClick = gynoDblClick
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 5
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJMJZMS: TEdit
- Left = 305
- Top = 193
+ Left = 104
+ Top = 76
Width = 120
- Height = 18
- TabOrder = 9
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 6
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object TWPId: TEdit
- Left = 90
+ Left = 104
Top = 5
Width = 120
- Height = 18
- TabOrder = 10
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ ReadOnly = True
+ TabOrder = 7
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Name: TEdit
- Left = 305
- Top = 82
+ Left = 346
+ Top = 148
Width = 120
- Height = 18
- TabOrder = 11
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 8
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_YarnQty: TEdit
- Left = 508
- Top = 82
+ Left = 586
+ Top = 147
Width = 120
- Height = 18
- TabOrder = 12
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 9
+ OnExit = WB_YarnQtyExit
OnKeyPress = ConNoKeyPress
end
- object WB_Width: TEdit
- Left = 712
- Top = 82
- Width = 120
- Height = 18
- TabOrder = 13
- OnDblClick = gynoDblClick
- OnKeyPress = ConNoKeyPress
- end
- object gkbh: TBtnEditC
- Left = 90
- Top = 117
- Width = 120
- Height = 20
- ReadOnly = True
- TabOrder = 14
- OnDblClick = gynoDblClick
- OnBtnUpClick = gkbhBtnUpClick
- OnBtnDnClick = CustNameBtnDnClick
- end
object WB_ReedNo: TEdit
- Left = 305
- Top = 119
+ Left = 346
+ Top = 291
Width = 120
- Height = 18
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 10
+ OnDblClick = gynoDblClick
+ OnKeyPress = ConNoKeyPress
+ end
+ object Z_FJGENSHU: TEdit
+ Left = 346
+ Top = 184
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 11
+ OnDblClick = gynoDblClick
+ OnKeyPress = ConNoKeyPress
+ end
+ object Z_FENJIAO: TEdit
+ Left = 104
+ Top = 185
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 12
+ OnDblClick = gynoDblClick
+ OnKeyPress = ConNoKeyPress
+ end
+ object C_KCQTY: TcxTextEdit
+ Left = 586
+ Top = 289
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 13
+ Width = 120
+ end
+ object WB_Width: TcxTextEdit
+ Left = 766
+ Top = 289
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 14
+ Width = 120
+ end
+ object WB_ReedNote: TcxTextEdit
+ Left = 586
+ Top = 324
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
TabOrder = 15
- OnDblClick = gynoDblClick
- OnKeyPress = ConNoKeyPress
+ Width = 373
end
- object WB_ReedNote: TEdit
- Left = 508
- Top = 119
- Width = 120
- Height = 18
+ object BSQTY: TcxTextEdit
+ Left = 104
+ Top = 329
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
TabOrder = 16
- OnKeyPress = ConNoKeyPress
- end
- object WB_YarnDensity: TEdit
- Left = 712
- Top = 122
Width = 120
- Height = 18
+ end
+ object DCRQTY: TcxTextEdit
+ Left = 346
+ Top = 327
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
TabOrder = 17
- OnDblClick = gynoDblClick
- OnKeyPress = ConNoKeyPress
- end
- object gyno: TBtnEditC
- Left = 305
- Top = 3
Width = 120
- Height = 20
- ReadOnly = True
+ end
+ object Z_ZHOUSHU1: TEdit
+ Left = 346
+ Top = 219
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
TabOrder = 18
OnDblClick = gynoDblClick
- OnBtnUpClick = gynoBtnUpClick
- OnBtnDnClick = CustNameBtnDnClick
+ OnKeyPress = ConNoKeyPress
+ end
+ object Z_ZHOUSHU2: TEdit
+ Left = 346
+ Top = 255
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 19
+ OnDblClick = gynoDblClick
+ OnKeyPress = ConNoKeyPress
+ end
+ object Z_SJKESHU1: TEdit
+ Left = 104
+ Top = 220
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 20
+ OnDblClick = gynoDblClick
+ OnKeyPress = ConNoKeyPress
+ end
+ object Z_SJKESHU2: TEdit
+ Left = 104
+ Top = 255
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 21
+ OnDblClick = gynoDblClick
+ OnKeyPress = ConNoKeyPress
+ end
+ object Z_BINGSHU: TEdit
+ Left = 766
+ Top = 144
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 22
+ OnExit = WB_YarnQtyExit
+ OnKeyPress = ConNoKeyPress
+ end
+ object Z_MAXKESHU: TEdit
+ Left = 586
+ Top = 184
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 23
+ Text = '480'
+ OnExit = WB_YarnQtyExit
+ OnKeyPress = ConNoKeyPress
+ end
+ object GKBH: TcxButtonEdit
+ Left = 104
+ Top = 289
+ ParentFont = False
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 24
+ Width = 120
+ end
+ object CustName: TcxButtonEdit
+ Left = 586
+ Top = 5
+ ParentFont = False
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 25
+ Width = 120
+ end
+ object gyno: TcxButtonEdit
+ Left = 346
+ Top = 5
+ ParentFont = False
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = gynoPropertiesButtonClick
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 26
+ Width = 120
+ end
+ object C_CODE: TEdit
+ Left = 950
+ Top = 8
+ Width = 120
+ Height = 27
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 27
+ OnDblClick = gynoDblClick
+ OnKeyPress = ConNoKeyPress
end
end
inherited ADOQueryBaseCmd: TADOQuery
- Left = 1185
- Top = 88
+ Left = 969
+ Top = 56
end
inherited ADOQueryBaseTemp: TADOQuery
Left = 1225
@@ -826,16 +1174,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
- Left = 760
- Top = 249
- DesignInfo = 16319224
+ Left = 856
+ Top = 201
+ DesignInfo = 13173592
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
- Left = 930
- Top = 89
+ Left = 1218
+ Top = 337
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
@@ -846,12 +1194,19 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
- Left = 363
- Top = 394
+ Left = 1259
+ Top = 330
end
object DS_1: TDataSource
DataSet = CDS_1
- Left = 476
- Top = 401
+ Left = 1260
+ Top = 297
+ end
+ object ADOQuery1: TADOQuery
+ Connection = DataLink_WarpBeamStk.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 1227
+ Top = 296
end
end
diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas
index 6a70ab6..d488808 100644
--- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas
+++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas
@@ -36,23 +36,18 @@ type
ScrollBox1: TScrollBox;
Label3: TLabel;
Label14: TLabel;
- Label16: TLabel;
Label47: TLabel;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label9: TLabel;
- Label10: TLabel;
Label11: TLabel;
- OrdNote: TRichEdit;
- WB_Spec: TEdit;
- CustName: TBtnEditC;
+ C_NAME: TEdit;
WB_Code: TBtnEditC;
WB_YarnTotalLen: TEdit;
WB_Qty: TEdit;
WB_YarnLen: TEdit;
WB_Qty_YJJZZS: TEdit;
- WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: TEdit;
Label13: TLabel;
TWPId: TEdit;
@@ -61,17 +56,9 @@ type
WB_Name: TEdit;
Label18: TLabel;
WB_YarnQty: TEdit;
- Label19: TLabel;
- WB_Width: TEdit;
Label20: TLabel;
- gkbh: TBtnEditC;
Label22: TLabel;
WB_ReedNo: TEdit;
- Label23: TLabel;
- WB_ReedNote: TEdit;
- Label24: TLabel;
- WB_YarnDensity: TEdit;
- gyno: TBtnEditC;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column18: TcxGridDBColumn;
@@ -84,13 +71,44 @@ type
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
- v1Column3: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
- Tv1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
+ ADOQuery1: TADOQuery;
+ Label1: TLabel;
+ Label5: TLabel;
+ Z_FJGENSHU: TEdit;
+ Z_FENJIAO: TEdit;
+ Label7: TLabel;
+ Label8: TLabel;
+ Label12: TLabel;
+ Label25: TLabel;
+ Label26: TLabel;
+ Label27: TLabel;
+ Label28: TLabel;
+ Label29: TLabel;
+ C_KCQTY: TcxTextEdit;
+ WB_Width: TcxTextEdit;
+ Label30: TLabel;
+ Label31: TLabel;
+ Label32: TLabel;
+ WB_ReedNote: TcxTextEdit;
+ BSQTY: TcxTextEdit;
+ DCRQTY: TcxTextEdit;
+ Z_ZHOUSHU1: TEdit;
+ Z_ZHOUSHU2: TEdit;
+ Z_SJKESHU1: TEdit;
+ Z_SJKESHU2: TEdit;
+ Z_BINGSHU: TEdit;
+ Z_MAXKESHU: TEdit;
+ GKBH: TcxButtonEdit;
+ CustName: TcxButtonEdit;
+ gyno: TcxButtonEdit;
+ Tv1Column3: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ Label10: TLabel;
+ C_CODE: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -102,11 +120,15 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
- procedure gynoBtnUpClick(Sender: TObject);
procedure WB_CodeBtnUpClick(Sender: TObject);
procedure gkbhBtnUpClick(Sender: TObject);
procedure gynoDblClick(Sender: TObject);
procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject);
+ procedure WB_YarnQtyExit(Sender: TObject);
+ procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+
+ procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
private
procedure InitData();
function SaveData(): Boolean;
@@ -195,14 +217,19 @@ begin
end;
end;
-procedure TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject);
+procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
begin
inherited;
+ TcxButtonEdit(Sender).Text := '';
+end;
+
+procedure TfrmTatWBPlanInPut.gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
try
frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
with frmTatPlanSel2 do
begin
- FISSJ := '';
+// FISSJ := '';
if ShowModal = 1 then
begin
Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
@@ -210,6 +237,9 @@ begin
Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
+ Self.C_NAME.Text := CDS_1.FieldByName('C_NAME').asstring;
+
+ Self.C_CODE.Text := CDS_1.FieldByName('C_CODE').asstring;
with ADOQueryTemp do
begin
@@ -221,17 +251,71 @@ begin
Open;
end;
+ Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY').AsString);
+
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
- Self.WB_Spec.Text := Trim(ADOQueryTemp.fieldbyname('WB_Spec').AsString);
+
Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
+ Self.Z_BINGSHU.Text := ADOQueryTemp.fieldbyname('Z_BINGSHU').asstring;
+ Self.Z_FENJIAO.Text := ADOQueryTemp.fieldbyname('Z_FENJIAO').asstring;
+ Self.Z_FJGENSHU.Text := ADOQueryTemp.fieldbyname('Z_FJGENSHU').asstring;
+ Self.Z_MAXKESHU.Text := ADOQueryTemp.fieldbyname('Z_MAXKESHU').asstring;
+ Self.Z_SJKESHU1.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU1').asstring;
+ Self.Z_ZHOUSHU1.Text := ADOQueryTemp.fieldbyname('Z_ZHOUSHU1').asstring;
+ Self.Z_SJKESHU2.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU2').asstring;
+ Self.Z_ZHOUSHU2.Text := ADOQueryTemp.fieldbyname('Z_ZHOUSHU2').asstring;
+ Self.gkbh.Text := Trim(ADOQueryTemp.fieldbyname('gkbh').AsString);
Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
+ Self.C_KCQTY.Text := Trim(ADOQueryTemp.fieldbyname('C_KCQTY').AsString);
Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
+ Self.BSQTY.Text := Trim(ADOQueryTemp.fieldbyname('BSQTY').AsString);
+ Self.DCRQTY.Text := Trim(ADOQueryTemp.fieldbyname('DCRQTY').AsString);
- Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString);
- Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
+ with ADOQuery1 do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* from Tat_Plan_Yarn A ');
+ sql.Add(' where YRType=''˿'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + '''');
+ sql.Add(' Order by RowNo ');
+ Open;
+ end;
+ self.CDS_1.EmptyDataSet;
+ self.ADOQuery1.First;
+ while not ADOQuery1.eof do
+ begin
+ with self.CDS_1 do
+ begin
+ APpend;
+ FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value;
+
+ FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value;
+ FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
+
+ FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value;
+ FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value;
+
+ FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value;
+ FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
+ FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
+
+// FieldByName('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value;
+// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value;
+
+ FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
+
+ FieldByName('Denier').Value := ADOQuery1.fieldbyname('Denier').Value;
+
+// FieldByName('NOTE').Value := ADOQuery1.fieldbyname('NOTE').Value;
+
+ Post;
+ end;
+
+ ADOQuery1.next;
+ end;
end;
end;
finally
@@ -239,12 +323,6 @@ begin
end;
end;
-procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
-begin
- inherited;
- TcxButtonEdit(Sender).Text := '';
-end;
-
function TfrmTatWBPlanInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
@@ -253,9 +331,9 @@ begin
ADOQueryCmd.Connection.BeginTrans;
if Trim(FTWPId) = '' then
begin
- if GetLSNo(ADOQueryCmd, maxno, 'SZ', 'Tat_WB_Plan', 4, 1) = False then
+ if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then
raise Exception.Create('ˮ쳣');
-
+ TWPId.Text := maxno;
end
else
begin
@@ -358,7 +436,7 @@ var
FReal: Double;
maxConNo: string;
begin
-
+ ToolBar1.SetFocus();
if Trim(CustName.Text) = '' then
begin
Application.MessageBox('ͻΪ!', 'ʾ', 0);
@@ -422,8 +500,52 @@ begin
CDS_1.Delete;
end;
-procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(
- Sender: TObject);
+procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+ ZS, ZGS: double;
+begin
+
+ mvalue := TcxTextEdit(Sender).EditingText;
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName(FFieldName).Value := mvalue;
+ Post;
+
+ if FieldByName('QFYARNQTY').Value = null then
+ begin
+ ZGS := 0; //QUANFU
+ end
+ else
+ begin
+ ZGS := FieldByName('QFYARNQTY').Value; //ȫ
+ end;
+
+ if FieldByName('ZS').Value = null then
+ begin
+ ZS := 0; //ѭ
+ end
+ else
+ begin
+ ZS := FieldByName('ZS').Value; //ѭ
+ end;
+
+ end;
+ if ZS <> 0 then
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
+ Post;
+ end;
+ end;
+end;
+
+procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
@@ -496,15 +618,27 @@ begin
if ShowModal = 1 then
begin
- Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
- Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
- Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
- Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
- Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
- Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
- Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString);
- Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
- Self.OrdNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
+
+ Self.WB_Code.Text := Trim(CDS_1.fieldbyname('WB_Code').AsString);
+ Self.WB_Name.Text := Trim(CDS_1.fieldbyname('WB_Name').AsString);
+
+ Self.WB_YarnQty.Text := CDS_1.fieldbyname('WB_YarnQty').asstring;
+ Self.Z_BINGSHU.Text := CDS_1.fieldbyname('Z_BINGSHU').asstring;
+ Self.Z_FENJIAO.Text := CDS_1.fieldbyname('Z_FENJIAO').asstring;
+ Self.Z_FJGENSHU.Text := CDS_1.fieldbyname('Z_FJGENSHU').asstring;
+ Self.Z_MAXKESHU.Text := CDS_1.fieldbyname('Z_MAXKESHU').asstring;
+ Self.Z_SJKESHU1.Text := CDS_1.fieldbyname('Z_SJKESHU1').asstring;
+ Self.Z_ZHOUSHU1.Text := CDS_1.fieldbyname('Z_ZHOUSHU1').asstring;
+ Self.Z_SJKESHU2.Text := CDS_1.fieldbyname('Z_SJKESHU2').asstring;
+ Self.Z_ZHOUSHU2.Text := CDS_1.fieldbyname('Z_ZHOUSHU2').asstring;
+ Self.gkbh.Text := Trim(CDS_1.fieldbyname('gkbh').AsString);
+ Self.WB_Width.Text := Trim(CDS_1.fieldbyname('WB_Width').AsString);
+ Self.C_KCQTY.Text := Trim(CDS_1.fieldbyname('C_KCQTY').AsString);
+ Self.WB_ReedNo.Text := Trim(CDS_1.fieldbyname('WB_ReedNo').AsString);
+ Self.WB_ReedNote.Text := Trim(CDS_1.fieldbyname('WB_ReedNote').AsString);
+ Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString);
+ Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString);
+
end;
end;
finally
@@ -512,6 +646,71 @@ begin
end;
end;
+procedure TfrmTatWBPlanInPut.WB_YarnQtyExit(Sender: TObject);
+var
+ GS, ZGS, MF, DS, WM, TW: double;
+begin
+ if CDS_1.IsEmpty then
+ exit;
+ with CDS_1 do
+ begin
+ DisableControls;
+ first;
+ while not eof do
+ begin
+
+ with CDS_1 do
+ begin
+
+ if FieldByName('YarnQty').Value = null then
+ begin
+ GS := 0; //
+ end
+ else
+ begin
+ GS := FieldByName('YarnQty').Value; //
+ end;
+
+ if FieldByName('CycleYarnQty').Value = null then
+ begin
+ ZGS := 0; //ѭ
+ end
+ else
+ begin
+ ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+ end;
+
+ MF := strtofloatdef(WB_Width.text, 0); //ط
+
+ TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ
+
+ if FieldByName('Denier').Value = null then
+ begin
+ DS := 0; //D
+ end
+ else
+ begin
+ DS := FieldByName('Denier').Value; //D
+ end;
+
+ // WM := strtofloatdef(WB_YarnDensity.text, 0); //γ
+ end;
+ if ZGS <> 0 then
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+ Post;
+ end;
+ end;
+ next;
+ end;
+ First;
+ EnableControls;
+ end;
+end;
+
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
@@ -547,7 +746,6 @@ begin
end;
-
procedure TfrmTatWBPlanInPut.JSJS();
var
GS, ZGS, MF, DS, WM, TW: double;
@@ -595,7 +793,7 @@ begin
DS := FieldByName('TestDenier').Value; //D
end;
- WM := strtofloatdef(WB_YarnDensity.text, 0); //γ
+// WM := strtofloatdef(WB_YarnDensity.text, 0); //γ
end;
if ZGS <> 0 then
begin
@@ -638,7 +836,7 @@ begin
FCoType := 'ͻ';
if ShowModal = 1 then
begin
- CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
+// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
@@ -648,5 +846,24 @@ begin
end;
+procedure TfrmTatWBPlanInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'ͻ';
+ if ShowModal = 1 then
+ begin
+// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
+ CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
+ end;
+ end;
+ finally
+ frmCompanySel.Free;
+ end;
+end;
+
end.
diff --git a/E02梭织经轴仓库/U_WBNeedLook.dfm b/E02梭织经轴仓库/U_WBNeedLook.dfm
index 249267e..4741b8c 100644
--- a/E02梭织经轴仓库/U_WBNeedLook.dfm
+++ b/E02梭织经轴仓库/U_WBNeedLook.dfm
@@ -1,7 +1,7 @@
inherited frmWBNeedLook: TfrmWBNeedLook
Left = 105
Top = 131
- Caption = #22806#27424#30424#22836#21015#34920
+ Caption = #32463#36724#38656#27714#26126#32454
ClientHeight = 667
ClientWidth = 1540
Font.Height = -16
@@ -74,18 +74,18 @@ inherited frmWBNeedLook: TfrmWBNeedLook
object Label3: TLabel
Left = 268
Top = 10
- Width = 48
+ Width = 32
Height = 21
- Caption = #30424#22836#21495
+ Caption = #23458#25143
end
object Label4: TLabel
Left = 46
Top = 10
Width = 64
Height = 21
- Caption = #20986#21040#21333#20301
+ Caption = #32455#36896#21333#21495
end
- object WBNO: TcxTextEdit
+ object CustName: TcxTextEdit
Tag = 2
Left = 320
Top = 6
@@ -93,7 +93,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
TabOrder = 0
Width = 150
end
- object ToCoName: TcxTextEdit
+ object OrderNo: TcxTextEdit
Tag = 2
Left = 114
Top = 6
@@ -119,7 +119,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 592
Align = alClient
TabOrder = 0
- ExplicitLeft = 71
+ ExplicitLeft = -3
ExplicitTop = 6
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@@ -131,41 +131,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False
object TV1Column1: TcxGridDBColumn
Caption = #32455#36896#21333#21495
+ DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 83
end
object TV1Column2: TcxGridDBColumn
Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Width = 66
end
object TV1Column3: TcxGridDBColumn
Caption = #20135#21697#32534#21495
+ DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object TV1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
+ DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV1Column5: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
+ DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 121
end
object TV1Column6: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
+ DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 109
end
object TV1Column7: TcxGridDBColumn
Caption = #35746#21333#25968#37327
+ DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
@@ -208,42 +216,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False
object TV2Column1: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
+ DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object TV2Column2: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
+ DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object TV2Column3: TcxGridDBColumn
Caption = #36724#21345#21495
+ DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV2Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
+ DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object TV2Column5: TcxGridDBColumn
Caption = #25972#32463#24037
+ DataBinding.FieldName = 'WB_Macher'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column6: TcxGridDBColumn
Caption = #24211#23384#25968#37327
+ DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV2Column7: TcxGridDBColumn
Caption = #24211#20301
+ DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
@@ -270,36 +285,42 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False
object TV3Column1: TcxGridDBColumn
Caption = #25972#32463#35745#21010#21333#21495
+ DataBinding.FieldName = 'WBCNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object TV3Column2: TcxGridDBColumn
Caption = #36724#21345#21495
+ DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column3: TcxGridDBColumn
Caption = #24320#21345#26102#38388
+ DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
+ DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column5: TcxGridDBColumn
Caption = #32463#36724#31867#22411
+ DataBinding.FieldName = 'WB_ProcessType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column6: TcxGridDBColumn
Caption = #24320#21345#25968#37327
+ DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
@@ -321,7 +342,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 129
end
object ADOQueryCmd: TADOQuery
- ConnectionString = 'BS_Cloth_IO'
+ Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 480
Top = 128
@@ -334,7 +355,6 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 128
end
object ADOQueryTemp: TADOQuery
- ConnectionString = 'BS_Cloth_IO'
LockType = ltReadOnly
Parameters = <>
Left = 408
@@ -346,6 +366,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 280
end
object cxGridPopupMenu1: TcxGridPopupMenu
+ Grid = cxGrid1
PopupMenus = <>
Left = 536
Top = 240
@@ -389,8 +410,20 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 208
end
object DS_3: TDataSource
- DataSet = CDS_2
+ DataSet = CDS_3
Left = 256
Top = 280
end
+ object cxGridPopupMenu2: TcxGridPopupMenu
+ Grid = cxGrid2
+ PopupMenus = <>
+ Left = 560
+ Top = 304
+ end
+ object cxGridPopupMenu3: TcxGridPopupMenu
+ Grid = cxGrid3
+ PopupMenus = <>
+ Left = 560
+ Top = 360
+ end
end
diff --git a/E02梭织经轴仓库/U_WBNeedLook.pas b/E02梭织经轴仓库/U_WBNeedLook.pas
index 6335afa..2779a07 100644
--- a/E02梭织经轴仓库/U_WBNeedLook.pas
+++ b/E02梭织经轴仓库/U_WBNeedLook.pas
@@ -12,8 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
- dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer,
- dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar;
+ dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
+ dxSkinsDefaultPainters, cxProgressBar;
type
TfrmWBNeedLook = class(TfrmBaseList)
@@ -30,8 +30,8 @@ type
PopupMenu1: TPopupMenu;
Label3: TLabel;
Label4: TLabel;
- WBNO: TcxTextEdit;
- ToCoName: TcxTextEdit;
+ CustName: TcxTextEdit;
+ OrderNo: TcxTextEdit;
ToolButton2: TToolButton;
Panel2: TPanel;
Panel3: TPanel;
@@ -73,6 +73,8 @@ type
CDS_1: TClientDataSet;
CDS_2: TClientDataSet;
DS_3: TDataSource;
+ cxGridPopupMenu2: TcxGridPopupMenu;
+ cxGridPopupMenu3: TcxGridPopupMenu;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@@ -90,10 +92,10 @@ type
private
canshu1, FStkName, canshu3: string;
procedure InitGrid();
-
+ procedure InitSUB();
{ Private declarations }
public
-
+ FWB_Code: string;
{ Public declarations }
end;
@@ -136,22 +138,11 @@ begin
Filtered := False;
Close;
sql.Clear;
- sql.Add(' EXEC P_TatWB_StkALL ');
+ sql.Add(' select A.*,B.* from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId');
+ SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code));
- sql.Add(' select A.WBNo ORGWBNo,B.*,C.* from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID ');
- sql.Add(' left join Tat_WB_Card C on C.WBCID=B.WBCID ');
- sql.Add(' where B.IOFlag ='''' and B.IOType = ''ӹ'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
+ SQL.Add('ORDER BY FILLTIME DESC');
-
-// sql.Add(' select A.* ');
-// sql.Add(' from Tat_WB_IO A ');
-// sql.Add(' where A.STKName ='''' and A.IOFlag ='''' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
-// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName ='''' and X.IOFlag ='''' and A.WBNO =X.WBNO) ');
-//
-// sql.Add(' UNION ALL ');
-//
-// sql.Add(' select A.* ');
-// sql.Add(' from Tat_WB_IO A ');
// sql.Add(' where A.STKName ='''' and A.IOFlag ='''' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName ='''' and X.IOFlag ='''' and A.WBNO =X.WBNO) ');
// ShowMessage(Sql.text);
@@ -165,9 +156,61 @@ begin
end;
end;
+procedure TfrmWBNeedLook.InitSUB();
+begin
+ try
+ ADOQueryCmd.DisableControls;
+ with ADOQueryCmd do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.Add(' EXEC P_TatWB_StkALL ');
+
+ sql.Add(' select A.WBNo ORGWBNo,B.*,C.*,WB_YarnQty2= cast (WB_YarnQty AS Varchar) ');
+ sql.Add(' ,JSName=cast((SELECT Y_Name +'';'' from Tat_WB_Formula X inner join Tat_WB_Spec Y on X.WBSID=Y.WBSID where C.WB_Code=Y.WB_Code FOR XML PATH(''''))as VARCHAR(6000) )');
+ sql.Add(' from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID ');
+ sql.Add(' inner join Tat_WB_Card C on C.WBCID=B.WBCID ');
+ sql.Add(' where B.IOFlag ='''' and isnull(B.stkName,'''')=''' + Trim('') + '''');
+ sql.Add('and WB_Code=''' + Trim(FWB_Code) + '''');
+// sql.Add(' where A.STKName ='''' and A.IOFlag ='''' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
+// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName ='''' and X.IOFlag ='''' and A.WBNO =X.WBNO) ');
+
+ Open;
+ end;
+
+ SCreateCDS(ADOQueryCmd, CDS_2);
+ SInitCDSData(ADOQueryCmd, CDS_2);
+ finally
+ ADOQueryCmd.EnableControls;
+ end;
+ try
+ ADOQueryCmd.DisableControls;
+ with ADOQueryCmd do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.add(' ,jgType=(SELECT top 1 jgType from Tat_Wb_IO X where X.WBCID=A.WBCID and X.IOFlag ='''' and X.STKName ='''' )');
+ sql.add(' from Tat_WB_Card A ');
+ sql.Add(' where 1=1');
+ sql.Add('and WB_Code=''' + Trim(FWB_Code) + '''');
+ Open;
+ end;
+
+ SCreateCDS(ADOQueryCmd, CDS_3);
+ SInitCDSData(ADOQueryCmd, CDS_3);
+ finally
+ ADOQueryCmd.EnableControls;
+ end;
+
+end;
+
procedure TfrmWBNeedLook.TBRafreshClick(Sender: TObject);
begin
InitGrid();
+ INITSUB();
end;
procedure TfrmWBNeedLook.ConNoMChange(Sender: TObject);
@@ -187,8 +230,11 @@ end;
procedure TfrmWBNeedLook.FormShow(Sender: TObject);
begin
inherited;
- ReadCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ');
+ ReadCxGrid(trim(Self.Caption), Tv1, 'ϸ');
+ ReadCxGrid(trim(Self.Caption), Tv2, 'ϸ');
+ ReadCxGrid(trim(Self.Caption), Tv3, 'ϸ');
InitGrid();
+ Initsub();
end;
procedure TfrmWBNeedLook.TBFindClick(Sender: TObject);
@@ -223,7 +269,10 @@ end;
procedure TfrmWBNeedLook.ToolButton2Click(Sender: TObject);
begin
- WriteCxGrid(trim(Self.Caption), Tv1, 'Ⱦɫֿ');
+
+ WriteCxGrid(trim(Self.Caption), Tv1, 'ϸ');
+ WriteCxGrid(trim(Self.Caption), Tv2, 'ϸ');
+ WriteCxGrid(trim(Self.Caption), Tv3, 'ϸ');
end;
procedure TfrmWBNeedLook.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm
index 8981b68..274f7b0 100644
--- a/E02梭织经轴仓库/U_WBSpecInPut.dfm
+++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm
@@ -3,22 +3,24 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 141
Caption = #25972#32463#24037#33402#24405#20837
ClientHeight = 845
- ClientWidth = 1115
+ ClientWidth = 1174
Color = clWhite
- Font.Height = -16
+ Font.Charset = DEFAULT_CHARSET
+ Font.Height = -11
+ Font.Name = 'Tahoma'
Position = poMainFormCenter
- ExplicitWidth = 1131
+ ExplicitWidth = 1190
ExplicitHeight = 884
PixelsPerInch = 96
- TextHeight = 21
+ TextHeight = 13
object cxGrid1: TcxGrid [0]
Left = 0
- Top = 455
- Width = 1115
- Height = 390
+ Top = 439
+ Width = 1174
+ Height = 406
Align = alClient
+ PopupMenu = PopupMenu1
TabOrder = 0
- ExplicitTop = 461
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -159,6 +161,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 100
end
@@ -182,23 +186,18 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Width = 102
end
object Tv1Column9: TcxGridDBColumn
- Caption = #31859#29992#37327
+ Caption = #30334#31859#32463#38271#29992#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 70
+ Width = 116
end
object Tv1Column6: TcxGridDBColumn
- Caption = #32442#27861
- DataBinding.FieldName = 'FF'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 80
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #25467#24230
- DataBinding.FieldName = 'ND'
+ Caption = #20840#24133#26681#25968
+ DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@@ -218,11 +217,11 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Tag = 1
Left = 0
Top = 0
- Width = 1115
+ Width = 1174
Height = 30
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 99
+ ButtonWidth = 83
Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
Images = DataLink_WarpBeamStk.cxImageList_bar
@@ -238,7 +237,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
OnClick = TBSaveClick
end
object btn1: TToolButton
- Left = 71
+ Left = 63
Top = 0
AutoSize = True
Caption = #22383#24067#20449#24687
@@ -247,7 +246,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
OnClick = btn1Click
end
object ToolButton1: TToolButton
- Left = 174
+ Left = 150
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -255,7 +254,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
OnClick = ToolButton1Click
end
object TBClose: TToolButton
- Left = 277
+ Left = 237
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -266,8 +265,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 30
- Width = 1115
- Height = 395
+ Width = 1174
+ Height = 379
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@@ -275,138 +274,156 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
- object Label7: TLabel
- Left = 75
- Top = 342
- Width = 32
- Height = 21
- Caption = #22791#27880
- end
object Label3: TLabel
Left = 11
Top = 11
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#32534#21495
- end
- object Label4: TLabel
- Left = 59
- Top = 248
- Width = 48
- Height = 21
- Caption = #20301#31227#37327
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label8: TLabel
- Left = 59
- Top = 50
- Width = 48
+ Left = 568
+ Top = 8
+ Width = 64
Height = 21
- Caption = #24635#22836#20221
+ Caption = #24635#32463#26681#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label1: TLabel
- Left = 329
- Top = 11
+ Left = 287
+ Top = 6
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#21517#31216
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label2: TLabel
- Left = 43
- Top = 167
+ Left = 560
+ Top = 312
Width = 64
Height = 21
- Caption = #31576#31359#20837#27861
+ Caption = #36793#31359#20837#27861
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label5: TLabel
- Left = 361
- Top = 50
- Width = 64
+ Left = 6
+ Top = 315
+ Width = 48
Height = 21
- Caption = #19978#25490#39063#25968
- end
- object Label6: TLabel
- Left = 393
- Top = 88
- Width = 32
- Height = 21
- Caption = #38646#22836
- end
- object Label9: TLabel
- Left = 75
- Top = 88
- Width = 32
- Height = 21
- Caption = #21514#25968
+ Caption = #36793#32433#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label10: TLabel
- Left = 569
- Top = 127
- Width = 64
- Height = 21
- Caption = #29301#32463#31576#21495
- end
- object Label11: TLabel
- Left = 43
- Top = 127
- Width = 64
- Height = 21
- Caption = #32463#36724#38376#24133
- end
- object Label12: TLabel
- Left = 361
- Top = 167
- Width = 64
- Height = 21
- Caption = #32463#36724#31859#25968
- end
- object Label13: TLabel
- Left = 694
- Top = 11
- Width = 64
- Height = 21
- Caption = #29301#32463#25490#21015
- end
- object Label14: TLabel
- Left = 43
- Top = 206
- Width = 64
- Height = 21
- Caption = #22987#21514#20301#32622
- end
- object Label15: TLabel
- Left = 361
- Top = 206
- Width = 64
- Height = 21
- Caption = #22369#26012#24230#25968
- end
- object Label16: TLabel
- Left = 329
- Top = 248
- Width = 96
- Height = 21
- Caption = #29301#32463#24352#21147#21442#25968
- end
- object Label17: TLabel
- Left = 75
- Top = 287
+ Left = 803
+ Top = 274
Width = 32
Height = 21
- Caption = #32463#23494
+ Caption = #31576#21495
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label12: TLabel
+ Left = 284
+ Top = 274
+ Width = 48
+ Height = 21
+ Caption = #31576#40831#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object Label18: TLabel
- Left = 361
- Top = 285
- Width = 64
- Height = 21
+ Left = 1038
+ Top = 125
+ Width = 48
+ Height = 13
Caption = #26159#21542#19978#27974
+ Visible = False
end
object Label19: TLabel
- Left = 361
- Top = 126
+ Left = 6
+ Top = 271
Width = 64
Height = 21
Caption = #38050#31576#32534#21495
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label20: TLabel
+ Left = 806
+ Top = 9
+ Width = 64
+ Height = 21
+ Caption = #25972#32463#31867#22411
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label4: TLabel
+ Left = 560
+ Top = 274
+ Width = 32
+ Height = 21
+ Caption = #31576#24133
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label24: TLabel
+ Left = 284
+ Top = 309
+ Width = 64
+ Height = 21
+ Caption = #22320#31359#20837#27861
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
end
object WB_Code: TcxTextEdit
Tag = 2
@@ -414,175 +431,493 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 5
Enabled = False
ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
TabOrder = 0
- Width = 200
+ Width = 150
end
object WB_YarnQty: TcxTextEdit
Tag = 2
- Left = 113
- Top = 44
+ Left = 633
+ Top = 5
ParentColor = True
+ ParentFont = False
Properties.OnEditValueChanged = WB_YarnQtyPropertiesEditValueChanged
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
TabOrder = 1
- Width = 200
- end
- object WB_Move: TcxTextEdit
- Tag = 2
- Left = 113
- Top = 242
- ParentColor = True
- TabOrder = 2
- Width = 200
+ OnExit = WB_YarnQtyExit
+ Width = 150
end
object WB_Name: TcxTextEdit
Tag = 2
- Left = 431
+ Left = 400
Top = 5
ParentColor = True
- TabOrder = 3
- Width = 200
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 2
+ Width = 150
end
object WB_ReedNote: TcxTextEdit
Tag = 2
- Left = 113
- Top = 161
+ Left = 630
+ Top = 309
ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 3
+ Width = 373
+ end
+ object BSQTY: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 309
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
TabOrder = 4
- Width = 200
- end
- object WB_YarnArr: TcxTextEdit
- Tag = 2
- Left = 431
- Top = 44
- ParentColor = True
- TabOrder = 5
- Width = 200
- end
- object WB_YarnStripRemainder: TcxTextEdit
- Tag = 2
- Left = 431
- Top = 84
- ParentColor = True
- TabOrder = 6
- Width = 200
- end
- object WB_YarnStripQty: TcxTextEdit
- Tag = 2
- Left = 113
- Top = 82
- ParentColor = True
- TabOrder = 7
- Width = 200
+ Width = 150
end
object WB_ReedNo: TcxTextEdit
Tag = 2
- Left = 639
- Top = 123
+ Left = 873
+ Top = 270
ParentColor = True
- Properties.ReadOnly = True
- TabOrder = 8
- Width = 90
- end
- object WB_Width: TcxTextEdit
- Tag = 2
- Left = 113
- Top = 121
- ParentColor = True
- TabOrder = 9
- Width = 200
- end
- object WB_YarnLen: TcxTextEdit
- Tag = 2
- Left = 431
- Top = 163
- ParentColor = True
- TabOrder = 10
- Width = 200
- end
- object WB_Arg_SDWZ: TcxTextEdit
- Tag = 2
- Left = 113
- Top = 200
- ParentColor = True
- TabOrder = 11
- Width = 200
- end
- object WB_Arg_PXDS: TcxTextEdit
- Tag = 2
- Left = 431
- Top = 202
- ParentColor = True
- TabOrder = 12
- Width = 200
- end
- object WB_Arg_QJZL: TcxTextEdit
- Tag = 2
- Left = 431
- Top = 242
- ParentColor = True
- TabOrder = 13
- Width = 200
- end
- object WB_YarnArrNote: TcxMemo
- Tag = 2
- Left = 764
- Top = 6
ParentFont = False
- TabOrder = 14
- Height = 264
- Width = 317
+ Properties.ReadOnly = True
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 5
+ Width = 130
end
- object Note: TcxMemo
+ object C_KCQTY: TcxTextEdit
Tag = 2
- Left = 113
- Top = 320
- TabOrder = 15
- Height = 65
- Width = 550
- end
- object WB_YarnDensity: TcxTextEdit
- Tag = 2
- Left = 113
- Top = 281
+ Left = 397
+ Top = 270
ParentColor = True
- TabOrder = 16
- Width = 200
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 6
+ Width = 150
end
object ISSizing: TcxComboBox
Tag = 2
- Left = 431
- Top = 281
+ Left = 1038
+ Top = 103
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#21542
#26159)
- TabOrder = 17
+ TabOrder = 7
Text = #21542
- Width = 200
+ Visible = False
+ Width = 99
end
object GKBH: TcxButtonEdit
Tag = 2
- Left = 431
- Top = 124
+ Left = 110
+ Top = 270
+ ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = GKBHPropertiesButtonClick
- TabOrder = 18
- Width = 132
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 8
+ Width = 150
+ end
+ object WB_TYPE: TcxComboBox
+ Tag = 2
+ Left = 876
+ Top = 5
+ ParentFont = False
+ Properties.DropDownListStyle = lsFixedList
+ Properties.Items.Strings = (
+ #20998#26465
+ #25972#27974#24182)
+ Properties.OnChange = WB_TYPEPropertiesChange
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 9
+ Width = 130
+ end
+ object WB_Width: TcxTextEdit
+ Tag = 2
+ Left = 630
+ Top = 270
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 10
+ Width = 150
+ end
+ object cxGroupBox1: TcxGroupBox
+ Left = 3
+ Top = 52
+ Caption = #20998#26465
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clBlack
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 11
+ Height = 125
+ Width = 1003
+ object Label6: TLabel
+ Left = 8
+ Top = 28
+ Width = 96
+ Height = 21
+ Caption = #32433#39550#26368#22823#39063#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label7: TLabel
+ Left = 8
+ Top = 74
+ Width = 32
+ Height = 21
+ Caption = #26465#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label9: TLabel
+ Left = 286
+ Top = 74
+ Width = 64
+ Height = 21
+ Caption = #19978#26550#39063#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label11: TLabel
+ Left = 565
+ Top = 74
+ Width = 32
+ Height = 21
+ Caption = #20313#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object F_MAXKESHU: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 27
+ ParentColor = True
+ TabOrder = 0
+ Text = '640'
+ OnExit = WB_YarnQtyExit
+ Width = 150
+ end
+ object F_YarnStripQty: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 74
+ ParentColor = True
+ TabOrder = 1
+ OnExit = WB_YarnQtyExit
+ Width = 150
+ end
+ object F_SJKESHU: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 74
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 2
+ OnExit = WB_YarnQtyExit
+ Width = 150
+ end
+ object F_YUSHU: TcxTextEdit
+ Tag = 2
+ Left = 630
+ Top = 74
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 3
+ OnExit = WB_YarnQtyExit
+ Width = 150
+ end
+ end
+ object cxGroupBox2: TcxGroupBox
+ Left = 3
+ Top = 52
+ Caption = #25972#27974#24182
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clBlack
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 12
+ Height = 194
+ Width = 1003
+ object Label13: TLabel
+ Left = 8
+ Top = 30
+ Width = 96
+ Height = 21
+ Caption = #32433#39550#26368#22823#39063#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label14: TLabel
+ Left = 8
+ Top = 68
+ Width = 32
+ Height = 21
+ Caption = #20998#32478
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label15: TLabel
+ Left = 286
+ Top = 67
+ Width = 64
+ Height = 21
+ Caption = #20998#32478#26681#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label16: TLabel
+ Left = 565
+ Top = 67
+ Width = 32
+ Height = 21
+ Caption = #24182#25968
+ end
+ object Label17: TLabel
+ Left = 8
+ Top = 105
+ Width = 96
+ Height = 21
+ Caption = #32433#26550#25346#32433#39063#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label21: TLabel
+ Left = 286
+ Top = 105
+ Width = 48
+ Height = 21
+ Caption = #31232#36724#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label22: TLabel
+ Left = 8
+ Top = 143
+ Width = 96
+ Height = 21
+ Caption = #32433#26550#25346#32433#39063#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label23: TLabel
+ Left = 286
+ Top = 143
+ Width = 48
+ Height = 21
+ Caption = #31232#36724#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Z_MAXKESHU: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 29
+ ParentColor = True
+ TabOrder = 0
+ Text = '480'
+ OnExit = WB_YarnQtyExit
+ Width = 150
+ end
+ object Z_FENJIAO: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 67
+ ParentColor = True
+ TabOrder = 1
+ OnExit = WB_YarnQtyExit
+ Width = 150
+ end
+ object Z_FJGENSHU: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 67
+ ParentColor = True
+ Properties.ReadOnly = False
+ TabOrder = 2
+ Width = 150
+ end
+ object Z_BINGSHU: TcxTextEdit
+ Tag = 2
+ Left = 630
+ Top = 67
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 3
+ Width = 150
+ end
+ object Z_SJKESHU1: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 105
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 4
+ Width = 150
+ end
+ object Z_ZHOUSHU1: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 105
+ ParentColor = True
+ Properties.ReadOnly = False
+ TabOrder = 5
+ Width = 150
+ end
+ object Z_SJKESHU2: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 143
+ ParentColor = True
+ Properties.ReadOnly = True
+ TabOrder = 6
+ Width = 150
+ end
+ object Z_ZHOUSHU2: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 143
+ ParentColor = True
+ Properties.ReadOnly = False
+ TabOrder = 7
+ Width = 150
+ end
+ end
+ object DCRQTY: TcxTextEdit
+ Tag = 2
+ Left = 397
+ Top = 305
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 13
+ Width = 150
end
end
object ToolBar2: TToolBar [3]
Tag = 1
Left = 0
- Top = 425
- Width = 1115
+ Top = 409
+ Width = 1174
Height = 30
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 67
+ ButtonWidth = 95
Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
Images = DataLink_WarpBeamStk.cxImageList_bar
@@ -599,13 +934,21 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
OnClick = TBAddClick
end
object ToolButton4: TToolButton
- Left = 71
+ Left = 63
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 6
OnClick = TBDelClick
end
+ object ToolButton2: TToolButton
+ Left = 126
+ Top = 0
+ AutoSize = True
+ Caption = #28165#31354#24403#21069#21015
+ ImageIndex = 3
+ OnClick = ToolButton2Click
+ end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
@@ -661,4 +1004,12 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 216
Top = 584
end
+ object PopupMenu1: TPopupMenu
+ Left = 536
+ Top = 512
+ object N1: TMenuItem
+ Caption = #28165#31354#24403#21069#21015
+ OnClick = N1Click
+ end
+ end
end
diff --git a/E02梭织经轴仓库/U_WBSpecInPut.pas b/E02梭织经轴仓库/U_WBSpecInPut.pas
index 62889a6..698e7a1 100644
--- a/E02梭织经轴仓库/U_WBSpecInPut.pas
+++ b/E02梭织经轴仓库/U_WBSpecInPut.pas
@@ -13,7 +13,7 @@ uses
dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus,
- dxSkinWXI, cxMaskEdit;
+ dxSkinWXI, cxMaskEdit, cxGroupBox, MATH, Vcl.Menus;
type
TfrmWBSpecInPut = class(TfrmBaseInput)
@@ -40,48 +40,27 @@ type
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
ScrollBox1: TScrollBox;
- Label7: TLabel;
Label3: TLabel;
WB_Code: TcxTextEdit;
ToolBar2: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
- Label4: TLabel;
Label8: TLabel;
WB_YarnQty: TcxTextEdit;
- WB_Move: TcxTextEdit;
Tv1Column2: TcxGridDBColumn;
Label1: TLabel;
Label2: TLabel;
WB_Name: TcxTextEdit;
WB_ReedNote: TcxTextEdit;
Label5: TLabel;
- WB_YarnArr: TcxTextEdit;
- Label6: TLabel;
- WB_YarnStripRemainder: TcxTextEdit;
- Label9: TLabel;
- WB_YarnStripQty: TcxTextEdit;
+ BSQTY: TcxTextEdit;
Label10: TLabel;
WB_ReedNo: TcxTextEdit;
- Label11: TLabel;
- WB_Width: TcxTextEdit;
Label12: TLabel;
- WB_YarnLen: TcxTextEdit;
- Label13: TLabel;
- Label14: TLabel;
- Label15: TLabel;
- WB_Arg_SDWZ: TcxTextEdit;
- WB_Arg_PXDS: TcxTextEdit;
- Label16: TLabel;
- WB_Arg_QJZL: TcxTextEdit;
+ C_KCQTY: TcxTextEdit;
Tv1Column3: TcxGridDBColumn;
- WB_YarnArrNote: TcxMemo;
- Note: TcxMemo;
btn1: TToolButton;
Tv1Column4: TcxGridDBColumn;
- Label17: TLabel;
- WB_YarnDensity: TcxTextEdit;
- Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Label18: TLabel;
@@ -90,6 +69,41 @@ type
Label19: TLabel;
GKBH: TcxButtonEdit;
Tv1Column9: TcxGridDBColumn;
+ Label20: TLabel;
+ WB_TYPE: TcxComboBox;
+ Label4: TLabel;
+ WB_Width: TcxTextEdit;
+ cxGroupBox1: TcxGroupBox;
+ Label6: TLabel;
+ F_MAXKESHU: TcxTextEdit;
+ Label7: TLabel;
+ F_YarnStripQty: TcxTextEdit;
+ Label9: TLabel;
+ F_SJKESHU: TcxTextEdit;
+ Label11: TLabel;
+ F_YUSHU: TcxTextEdit;
+ cxGroupBox2: TcxGroupBox;
+ Label13: TLabel;
+ Label14: TLabel;
+ Label15: TLabel;
+ Label16: TLabel;
+ Z_MAXKESHU: TcxTextEdit;
+ Z_FENJIAO: TcxTextEdit;
+ Z_FJGENSHU: TcxTextEdit;
+ Z_BINGSHU: TcxTextEdit;
+ Label17: TLabel;
+ Label21: TLabel;
+ Z_SJKESHU1: TcxTextEdit;
+ Z_ZHOUSHU1: TcxTextEdit;
+ Label22: TLabel;
+ Label23: TLabel;
+ Z_SJKESHU2: TcxTextEdit;
+ Z_ZHOUSHU2: TcxTextEdit;
+ ToolButton2: TToolButton;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ Label24: TLabel;
+ DCRQTY: TcxTextEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@@ -103,10 +117,18 @@ type
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
+ procedure WB_YarnQtyExit(Sender: TObject);
+
+ procedure Tv1Column8PropertiesEditValueChanged(Sender: TObject);
+ procedure WB_TYPEPropertiesChange(Sender: TObject);
+ procedure ToolButton2Click(Sender: TObject);
+ procedure N1Click(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
procedure JSJS(); //㾭˿
+
+ procedure JS(); //㾭˿
public
{ Public declarations }
FWBSID, FSTKName: string;
@@ -122,6 +144,58 @@ uses
U_CompanySel, U_GKManageSel;
{$R *.dfm}
+
+procedure TfrmWBSpecInPut.JS();
+var
+ FZGS, FF_MAXKESHU: double;
+ fTS, FSJKS, FFJ, FF_MAXKESHU2, ffjgs, fbs: Integer;
+ FSJKS1, FSJKZ2, FXZS1, FXZS2: Integer;
+begin
+//ܾ/ɴɴ ȡ=
+// ܾ/ ȡ=
+// ܾ-* ȡ=
+ FZGS := STRTOFLOATDEF(WB_YarnQty.Text, 0);
+ FF_MAXKESHU := STRTOFLOATDEF(F_MAXKESHU.Text, 0);
+ if FF_MAXKESHU <> 0 then
+ begin
+ fTS := Ceil(FZGS / FF_MAXKESHU);
+ F_YarnStripQty.Text := INTTOSTR(fTS);
+ FSJKS := Floor(FZGS / fTS);
+ F_SJKESHU.Text := INTTOSTR(FSJKS);
+ F_YUSHU.Text := FLOATTOSTR(FZGS - FSJKS * fTS);
+ end;
+
+ // ܾ/ֽ ȡ=ֽʸ
+ // ֽ/ ɴɴ ȡ=
+ // ֽ/ ȡ=ϡ
+ // ֽ- ֽ/ ȡ*6=ϡ
+ FFJ := StrToIntdef(Z_FENJIAO.Text, 0);
+ FF_MAXKESHU2 := STRTOintDEF(Z_MAXKESHU.Text, 0);
+ if (FFJ <> 0) and (FF_MAXKESHU2 <> 0) then
+ begin
+ ffjgs := Ceil(FZGS / FFJ);
+ Z_FJGENSHU.Text := inttostr(ffjgs);
+ fbs := Ceil(ffjgs / FF_MAXKESHU2);
+ Z_BINGSHU.Text := inttostr(fbs);
+ FSJKS1 := Floor(ffjgs / fbs);
+ if FSJKS1 * fbs = ffjgs then
+ begin
+ Z_SJKESHU1.Text := inttostr(FSJKS1);
+ Z_ZHOUSHU1.Text := inttostr(fbs);
+ Z_SJKESHU2.Text := '0';
+ Z_ZHOUSHU2.Text := '0';
+ end
+ else
+ begin
+ Z_SJKESHU1.Text := inttostr(FSJKS1);
+ Z_ZHOUSHU1.Text := inttostr(fbs - 1);
+ Z_SJKESHU2.Text := inttostr(ffjgs - (FSJKS1 * (fbs - 1)));
+ Z_ZHOUSHU2.Text := '1';
+ end;
+
+ end;
+end;
+
procedure TfrmWBSpecInPut.JSJS();
var
GS, ZGS, MF, DS, WM, TW: double;
@@ -169,7 +243,6 @@ begin
DS := FieldByName('TestDenier').Value; //D
end;
- WM := strtofloatdef(WB_YarnDensity.text, 0); //γ
end;
if ZGS <> 0 then
begin
@@ -187,6 +260,35 @@ begin
end;
end;
+procedure TfrmWBSpecInPut.N1Click(Sender: TObject);
+var
+ I, J: Integer;
+ AField: TField;
+begin
+ with tv1 do
+ begin
+ // ѡ
+
+ DataController.DataSource.Dataset.Edit; // ༭ģʽ
+
+ // ֶ
+ for J := 0 to ColumnCount - 1 do
+ begin
+ // ȡǰеֶ
+ AField := Columns[J].DataBinding.Field;
+
+ // ֶδҲ RowNo
+ if (AField <> nil) and (CompareText(AField.FieldName, 'RowNo') <> 0) and (CompareText(Columns[J].Name, 'RowNo') <> 0) then // ˫ؼȷų
+ begin
+ AField.Clear; // ֵֶ
+ end;
+ end;
+
+ DataController.DataSource.Dataset.Post; // ύ
+
+ end;
+end;
+
procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
begin
try
@@ -310,6 +412,8 @@ begin
end;
FieldByName('WBSID').Value := Trim(MaxNo);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', ScrollBox1, 2);
+ RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox1, 2);
+ RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox2, 2);
Post;
end;
@@ -426,7 +530,19 @@ begin
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
+ SCSHData(ADOQueryTemp, cxGroupBox1, 2);
+ SCSHData(ADOQueryTemp, cxGroupBox2, 2);
+ if WB_TYPE.Text = '' then
+ begin
+ cxGroupBox2.Visible := True;
+ cxGroupBox1.Visible := false;
+ end
+ else
+ begin
+ cxGroupBox2.Visible := false;
+ cxGroupBox1.Visible := True;
+ end;
with ADOQueryTemp do
begin
Close;
@@ -474,21 +590,7 @@ begin
FieldByName('RowNo').Value := 'H';
Post;
- Append;
- FieldByName('RowNo').Value := 'I';
- Post;
- Append;
- FieldByName('RowNo').Value := 'J';
- Post;
-
- Append;
- FieldByName('RowNo').Value := 'K';
- Post;
-
- Append;
- FieldByName('RowNo').Value := 'L';
- Post;
end;
end;
@@ -505,6 +607,8 @@ begin
begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
+ SELF.C_KCQTY.Text := CDS_HZ.FieldByName('GKCS').AsString;
+ SELF.WB_Width.Text := CDS_HZ.FieldByName('GKwidth').AsString;
end;
end;
finally
@@ -556,43 +660,33 @@ end;
procedure TfrmWBSpecInPut.TBSaveClick(Sender: TObject);
begin
ToolBar1.SetFocus;
- if StrToFloatDef(WB_YarnDensity.Text, 0) = 0 then
- begin
- Application.MessageBox('дȷľ!', 'ʾ', 0);
- Exit;
- end;
- if StrToFloatDef(WB_Width.Text, 0) = 0 then
- begin
- Application.MessageBox('дȷľŷ!', 'ʾ', 0);
- Exit;
- end;
- with CDS_Sub do
- begin
- CDS_Sub.First;
- while not Eof do
- begin
- if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
- begin
- if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then
- begin
- Application.MessageBox('Ϊ!', 'ʾ', 0);
- Exit;
- end;
- end;
-
- if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
- begin
- if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then
- begin
- Application.MessageBox('ѭΪ!', 'ʾ', 0);
- Exit;
- end;
- end;
-
- CDS_Sub.Next;
- end;
- end;
+// with CDS_Sub do
+// begin
+// CDS_Sub.First;
+// while not Eof do
+// begin
+// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
+// begin
+// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then
+// begin
+// Application.MessageBox('Ϊ!', 'ʾ', 0);
+// Exit;
+// end;
+// end;
+//
+// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
+// begin
+// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then
+// begin
+// Application.MessageBox('ѭΪ!', 'ʾ', 0);
+// Exit;
+// end;
+// end;
+//
+// CDS_Sub.Next;
+// end;
+// end;
if SaveData() then
begin
@@ -607,6 +701,31 @@ begin
WriteCxGrid(trim(self.Caption), Tv1, 'ֿ');
end;
+procedure TfrmWBSpecInPut.ToolButton2Click(Sender: TObject);
+var
+ I, J: Integer;
+begin
+ // ȷõȷͼ TcxGridDBTableView
+ with TV1 do
+ begin
+ // ѡ
+// for I := 0 to SelectedRowCount - 1 do
+// begin
+ // ȡݼ¼
+ DataController.DataSource.Dataset.Edit; // ༭ģʽ
+ // ֶ
+ for J := 0 to ColumnCount - 1 do
+ begin
+ // ֵֶֻ/ؼֶΣ
+ if Columns[J].DataBinding.Field <> nil then
+ Columns[J].DataBinding.Field.Clear;
+ end;
+ DataController.DataSource.Dataset.Post; // ύ
+// end;
+ end;
+
+end;
+
procedure TfrmWBSpecInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@@ -637,10 +756,10 @@ begin
end;
end;
-procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);
+procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
- GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
+ ZS, ZGS: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@@ -652,55 +771,111 @@ begin
FieldByName(FFieldName).Value := mvalue;
Post;
- if FieldByName('YarnQty').Value = null then
+ if FieldByName('QFYARNQTY').Value = null then
begin
- GS := 0; //
+ ZGS := 0; //QUANFU
end
else
begin
- GS := FieldByName('YarnQty').Value; //
+ ZGS := FieldByName('QFYARNQTY').Value; //ȫ
end;
- if FieldByName('CycleYarnQty').Value = null then
+ if FieldByName('ZS').Value = null then
begin
- ZGS := 0; //ѭ
+ ZS := 0; //ѭ
end
else
begin
- ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+ ZS := FieldByName('ZS').Value; //ѭ
end;
-// if FieldByName('SH').Value = null then
-// begin
-// SUNHAO := 0; //
-// end
-// else
-// begin
-// SUNHAO := FieldByName('SH').Value; //
-// end;
-
- if FieldByName('Denier').Value = null then
- begin
- DS := 0; //D
- end
- else
- begin
- DS := FieldByName('Denier').Value; //D
- end;
-
- TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ
end;
- if ZGS <> 0 then
+ if ZS <> 0 then
begin
with CDS_SUB do
begin
Edit;
- FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+ FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
Post;
end;
end;
end;
+procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);
+var
+ mvalue, FFieldName: string;
+ GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
+begin
+
+ mvalue := TcxTextEdit(Sender).EditingText;
+ FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+// with CDS_SUB do
+// begin
+// Edit;
+// FieldByName(FFieldName).Value := mvalue;
+// Post;
+//
+// if FieldByName('YarnQty').Value = null then
+// begin
+// GS := 0; //
+// end
+// else
+// begin
+// GS := FieldByName('YarnQty').Value; //
+// end;
+//
+// if FieldByName('CycleYarnQty').Value = null then
+// begin
+// ZGS := 0; //ѭ
+// end
+// else
+// begin
+// ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+// end;
+//
+// if FieldByName('Denier').Value = null then
+// begin
+// DS := 0; //D
+// end
+// else
+// begin
+// DS := FieldByName('Denier').Value; //D
+// end;
+//
+// TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ
+// end;
+// if ZGS <> 0 then
+// begin
+// with CDS_SUB do
+// begin
+// Edit;
+// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+// Post;
+// end;
+// end;
+end;
+
+procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject);
+begin
+ if WB_TYPE.Text = '' then
+ begin
+ cxGroupBox2.Visible := True;
+ cxGroupBox1.Visible := false;
+ end
+ else
+ begin
+ cxGroupBox2.Visible := false;
+ cxGroupBox1.Visible := True;
+ end;
+
+end;
+
+procedure TfrmWBSpecInPut.WB_YarnQtyExit(Sender: TObject);
+begin
+ JS();
+end;
+
procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
begin
JSJS();
diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm
index 3c0a228..18d620e 100644
--- a/E02梭织经轴仓库/U_WBSpecList.dfm
+++ b/E02梭织经轴仓库/U_WBSpecList.dfm
@@ -160,7 +160,6 @@ inherited frmWBSpecList: TfrmWBSpecList
item
Kind = skSum
Position = spFooter
- Column = v1Column17
end
item
Kind = skSum
@@ -190,48 +189,24 @@ inherited frmWBSpecList: TfrmWBSpecList
Options.Editing = False
Width = 196
end
+ object Tv1Column7: TcxGridDBColumn
+ Caption = #25972#32463#31867#22411
+ DataBinding.FieldName = 'WB_TYPE'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 94
+ end
object v1Column9: TcxGridDBColumn
- Caption = #24635#22836#20221
+ Caption = #24635#32463#26681#25968
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
- object Tv1Column10: TcxGridDBColumn
- Caption = #19978#25490#39063#25968
- DataBinding.FieldName = 'WB_YarnArr'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 99
- end
- object Tv1Column4: TcxGridDBColumn
- Caption = #21514#25968
- DataBinding.FieldName = 'WB_YarnStripQty'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column2: TcxGridDBColumn
- Caption = #38646#22836
- DataBinding.FieldName = 'WB_YarnStripRemainder'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column9: TcxGridDBColumn
- Caption = #32463#36724#38376#24133
- DataBinding.FieldName = 'WB_Width'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 92
- end
object Tv1Column12: TcxGridDBColumn
- Caption = #29301#32463#31576#21495
+ Caption = #31576#21495
DataBinding.FieldName = 'WB_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -245,78 +220,30 @@ inherited frmWBSpecList: TfrmWBSpecList
HeaderAlignmentHorz = taCenter
Width = 95
end
- object Tv1Column7: TcxGridDBColumn
- Caption = #32463#23494
- DataBinding.FieldName = 'WB_YarnDensity'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 94
- end
- object v1Column8: TcxGridDBColumn
+ object v1Column12: TcxGridDBColumn
Tag = 2
- Caption = #31576#31359#20837#27861
- DataBinding.FieldName = 'WB_ReedNote'
+ Caption = #31576#24133
+ DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
- Caption = #32463#36724#31859#25968
- DataBinding.FieldName = 'WB_YarnLen'
+ Caption = #22320#31359#20837#27861
+ DataBinding.FieldName = 'DCRQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
- object v1Column10: TcxGridDBColumn
- Caption = #22987#21514#20301#32622
- DataBinding.FieldName = 'WB_Arg_SDWZ'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column17: TcxGridDBColumn
- Caption = #22369#26012#24230#25968
- DataBinding.FieldName = 'WB_Arg_PXDS'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column5: TcxGridDBColumn
- Caption = #20301#31227#37327
- DataBinding.FieldName = 'WB_Move'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column3: TcxGridDBColumn
- Caption = #29301#32463#24352#21147#21442#25968
- DataBinding.FieldName = 'WB_Arg_QJZL'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object v1Column12: TcxGridDBColumn
+ object v1Column8: TcxGridDBColumn
Tag = 2
- Caption = #22791#27880
- DataBinding.FieldName = 'Note'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 66
- end
- object Tv1Column8: TcxGridDBColumn
- Caption = #32463#25490#21015
- DataBinding.FieldName = 'WB_YarnArrNote'
+ Caption = #36793#31359#20837#27861
+ DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
@@ -505,16 +432,16 @@ inherited frmWBSpecList: TfrmWBSpecList
Width = 82
end
object TV2Column2: TcxGridDBColumn
- Caption = #32442#27861
- DataBinding.FieldName = 'FF'
+ Caption = #30334#31859#32463#38271#29992#37327'KG'
+ DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV2Column3: TcxGridDBColumn
- Caption = #25467#24230
- DataBinding.FieldName = 'ND'
+ Caption = #20840#24133#26681#25968
+ DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
diff --git a/E02梭织经轴仓库/U_WBSpecList.pas b/E02梭织经轴仓库/U_WBSpecList.pas
index 2de64dd..5118f44 100644
--- a/E02梭织经轴仓库/U_WBSpecList.pas
+++ b/E02梭织经轴仓库/U_WBSpecList.pas
@@ -38,8 +38,6 @@ type
v1Column8: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
- v1Column10: TcxGridDBColumn;
- v1Column17: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Label2: TLabel;
Label4: TLabel;
@@ -47,14 +45,7 @@ type
WB_Name: TcxTextEdit;
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
- Tv1Column2: TcxGridDBColumn;
- Tv1Column3: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
- Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
- Tv1Column8: TcxGridDBColumn;
- Tv1Column9: TcxGridDBColumn;
- Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Panel2: TPanel;
diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local
index 428f11e..342e9a0 100644
--- a/E02梭织经轴仓库/WarpBeamStk.dproj.local
+++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local
@@ -125,19 +125,19 @@
- 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas
- 1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=
- 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas
- 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm
- 1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas
- 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas
- 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas
- 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas
- 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm
- 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm
- 1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas
- 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas
- 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas
+ 1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=
+ 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas
+ 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm
+ 1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas
+ 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas
+ 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas
+ 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas
+ 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm
+ 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm
+ 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas
+ 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas
+ 1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache
index 8edfcbe..cd40129 100644
Binary files a/E02梭织经轴仓库/WarpBeamStk.identcache and b/E02梭织经轴仓库/WarpBeamStk.identcache differ
diff --git a/E02梭织经轴仓库/testDll.identcache b/E02梭织经轴仓库/testDll.identcache
index 5f7d627..8e8dad4 100644
Binary files a/E02梭织经轴仓库/testDll.identcache and b/E02梭织经轴仓库/testDll.identcache differ
diff --git a/E03梭织坯布检验/TatInsp.dproj b/E03梭织坯布检验/TatInsp.dproj
index d138925..e4e819d 100644
--- a/E03梭织坯布检验/TatInsp.dproj
+++ b/E03梭织坯布检验/TatInsp.dproj
@@ -124,7 +124,7 @@
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
- D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E03梭织坯布检验\testDll.exe
+ D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E03梭织坯布检验\testDll.exe
diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local
index a571a3b..bde9198 100644
--- a/E03梭织坯布检验/TatInsp.dproj.local
+++ b/E03梭织坯布检验/TatInsp.dproj.local
@@ -1,56 +1,56 @@
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas
- 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas
1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm
+ 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas
+ 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas
+ 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj
+ 1899-12-30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899-12-30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj
- 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm
- 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm
+ 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm
+ 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas
- 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas
- 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas
1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899-12-30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas
- 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
- 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj
- 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm
+ 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas
+ 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas
1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas
+ 1899-12-30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj
+ 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas
+ 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
+ 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm
1899-12-30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas
- 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm
1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas
+ 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm
+ 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj
+ 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
@@ -81,7 +81,7 @@
-
+
diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache
index ce6820c..900ed84 100644
Binary files a/E03梭织坯布检验/TatInsp.identcache and b/E03梭织坯布检验/TatInsp.identcache differ
diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local
index e194202..80c3023 100644
--- a/E03梭织坯布检验/TatInspLogin.dproj.local
+++ b/E03梭织坯布检验/TatInspLogin.dproj.local
@@ -49,7 +49,7 @@
- 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj
- 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj
+ 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj
+ 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj
diff --git a/E03梭织坯布检验/TatInspLogin.identcache b/E03梭织坯布检验/TatInspLogin.identcache
index 45d279a..aa63f48 100644
Binary files a/E03梭织坯布检验/TatInspLogin.identcache and b/E03梭织坯布检验/TatInspLogin.identcache differ
diff --git a/E03梭织坯布检验/U_GetDllForm.pas b/E03梭织坯布检验/U_GetDllForm.pas
index c4abd07..c790b79 100644
--- a/E03梭织坯布检验/U_GetDllForm.pas
+++ b/E03梭织坯布检验/U_GetDllForm.pas
@@ -71,10 +71,10 @@ begin
if trim(DataBaseStr) = '' then
begin
- server := '101.132.143.144,7781';
+ server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata';
- user := 'rtsa';
- pswd := 'rightsoft@5740';
+ user := 'kaixiyasa';
+ pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '';
end
diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm
index 8be1bba..9d6243c 100644
--- a/E03梭织坯布检验/U_TatMachInsp.dfm
+++ b/E03梭织坯布检验/U_TatMachInsp.dfm
@@ -54,7 +54,7 @@
object Label5: TLabel
Left = 27
Top = 14
- Width = 62
+ Width = 60
Height = 34
Caption = #38271#24230
Font.Charset = ANSI_CHARSET
@@ -94,7 +94,7 @@
object Label12: TLabel
Left = 37
Top = 212
- Width = 52
+ Width = 48
Height = 23
Caption = #25377#36710'2'
Font.Charset = ANSI_CHARSET
@@ -108,7 +108,7 @@
object Label34: TLabel
Left = 37
Top = 177
- Width = 52
+ Width = 48
Height = 23
Caption = #25377#36710'1'
Font.Charset = ANSI_CHARSET
@@ -135,7 +135,7 @@
object Label36: TLabel
Left = 250
Top = 177
- Width = 42
+ Width = 38
Height = 23
Caption = #31859#25968
Font.Charset = ANSI_CHARSET
@@ -149,7 +149,7 @@
object Label38: TLabel
Left = 250
Top = 212
- Width = 42
+ Width = 38
Height = 23
Caption = #31859#25968
Font.Charset = ANSI_CHARSET
@@ -177,7 +177,7 @@
object Label11: TLabel
Left = 15
Top = 504
- Width = 62
+ Width = 60
Height = 34
Caption = #37325#37327
Font.Charset = ANSI_CHARSET
@@ -191,7 +191,7 @@
object Label3: TLabel
Left = 39
Top = 563
- Width = 62
+ Width = 58
Height = 23
Caption = #31995' '#25968
Font.Charset = ANSI_CHARSET
@@ -205,7 +205,7 @@
object lblRuleConversion: TLabel
Left = 190
Top = 562
- Width = 84
+ Width = 80
Height = 24
Caption = #31859#36716#20844#26020
Font.Charset = ANSI_CHARSET
@@ -219,7 +219,7 @@
object Label30: TLabel
Left = 37
Top = 246
- Width = 52
+ Width = 48
Height = 23
Caption = #25377#36710'3'
Font.Charset = ANSI_CHARSET
@@ -233,7 +233,7 @@
object Label31: TLabel
Left = 250
Top = 246
- Width = 42
+ Width = 38
Height = 23
Caption = #31859#25968
Font.Charset = ANSI_CHARSET
@@ -319,9 +319,8 @@
ParentFont = False
TabOrder = 4
Items.Strings = (
- 'A'#21697
- 'B'#21697
- 'C'#21697)
+ #21512#26684
+ #19981#21512#26684)
end
object C_ColorDepth: TComboBox
Left = 176
@@ -529,7 +528,7 @@
object Label14: TLabel
Left = 20
Top = 40
- Width = 34
+ Width = 32
Height = 19
Caption = #21333#21495
Font.Charset = ANSI_CHARSET
@@ -542,7 +541,7 @@
object Label23: TLabel
Left = 220
Top = 132
- Width = 34
+ Width = 32
Height = 19
Caption = #36710#21495
Font.Charset = ANSI_CHARSET
@@ -555,7 +554,7 @@
object Label24: TLabel
Left = 20
Top = 132
- Width = 34
+ Width = 32
Height = 19
Caption = #26426#20462
Font.Charset = ANSI_CHARSET
@@ -568,7 +567,7 @@
object Label25: TLabel
Left = 20
Top = 68
- Width = 34
+ Width = 32
Height = 19
Caption = #21697#21517
Font.Charset = ANSI_CHARSET
@@ -581,7 +580,7 @@
object Label1: TLabel
Left = 18
Top = 7
- Width = 84
+ Width = 80
Height = 24
Caption = #25195#25551#20837#21475
Font.Charset = ANSI_CHARSET
@@ -594,7 +593,7 @@
object Label13: TLabel
Left = 20
Top = 90
- Width = 34
+ Width = 32
Height = 38
Caption = #24067#21305#13#10#25209#21495
Font.Charset = ANSI_CHARSET
@@ -607,7 +606,7 @@
object Label29: TLabel
Left = 217
Top = 90
- Width = 34
+ Width = 32
Height = 38
Caption = #32463#19997#13#10#25209#21495
Font.Charset = ANSI_CHARSET
@@ -620,7 +619,7 @@
object Label32: TLabel
Left = 267
Top = 158
- Width = 34
+ Width = 32
Height = 38
Caption = #19979#24067#13#10#31859#25968
Font.Charset = ANSI_CHARSET
@@ -2286,6 +2285,10 @@
object 查看: TcxTabSheet
Caption = #26597#30475
ImageIndex = 1
+ ExplicitLeft = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object cxGrid1: TcxGrid
Left = 0
Top = 0
@@ -2667,7 +2670,7 @@
object Label35: TLabel
Left = 27
Top = 55
- Width = 21
+ Width = 19
Height = 23
Caption = #31204
Font.Charset = ANSI_CHARSET
@@ -2680,7 +2683,7 @@
object Label16: TLabel
Left = 6
Top = 15
- Width = 42
+ Width = 38
Height = 23
Caption = #30721#34920
Font.Charset = ANSI_CHARSET
@@ -2693,7 +2696,7 @@
object Label26: TLabel
Left = 6
Top = 94
- Width = 42
+ Width = 38
Height = 23
Caption = #20986#32440
Font.Charset = ANSI_CHARSET
@@ -2706,7 +2709,7 @@
object Label6: TLabel
Left = 90
Top = 94
- Width = 42
+ Width = 38
Height = 23
Caption = #20221#25968
Font.Charset = ANSI_CHARSET
@@ -2719,7 +2722,7 @@
object Label7: TLabel
Left = 90
Top = 15
- Width = 42
+ Width = 38
Height = 23
Caption = #21333#20301
Font.Charset = ANSI_CHARSET
@@ -2732,7 +2735,7 @@
object Label9: TLabel
Left = 6
Top = 136
- Width = 42
+ Width = 38
Height = 23
Caption = #38271#24230
Font.Charset = ANSI_CHARSET
@@ -2745,7 +2748,7 @@
object Label15: TLabel
Left = 6
Top = 178
- Width = 42
+ Width = 38
Height = 23
Caption = #37325#37327
Font.Charset = ANSI_CHARSET
@@ -2759,7 +2762,7 @@
object Label19: TLabel
Left = 6
Top = 224
- Width = 84
+ Width = 76
Height = 23
Caption = #31859#25968#20445#30041
Font.Charset = ANSI_CHARSET
@@ -2772,7 +2775,7 @@
object Label20: TLabel
Left = 161
Top = 224
- Width = 21
+ Width = 19
Height = 23
Caption = #20301
Font.Charset = ANSI_CHARSET
@@ -2785,7 +2788,7 @@
object Label21: TLabel
Left = 6
Top = 255
- Width = 84
+ Width = 76
Height = 23
Caption = #30721#25968#20445#30041
Font.Charset = ANSI_CHARSET
@@ -2798,7 +2801,7 @@
object Label27: TLabel
Left = 161
Top = 255
- Width = 21
+ Width = 19
Height = 23
Caption = #20301
Font.Charset = ANSI_CHARSET
@@ -2811,7 +2814,7 @@
object Label28: TLabel
Left = 161
Top = 286
- Width = 21
+ Width = 19
Height = 23
Caption = #20301
Font.Charset = ANSI_CHARSET
@@ -2825,7 +2828,7 @@
object Label33: TLabel
Left = 6
Top = 286
- Width = 84
+ Width = 76
Height = 23
Caption = #37325#37327#20445#30041
Font.Charset = ANSI_CHARSET