diff --git a/A00通用窗体/U_WBSpecSel.pas b/A00通用窗体/U_WBSpecSel.pas
index 382e23c..791417a 100644
--- a/A00通用窗体/U_WBSpecSel.pas
+++ b/A00通用窗体/U_WBSpecSel.pas
@@ -12,22 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, ;
+ dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmWBSpecSel = class(TfrmBaseHelp)
diff --git a/A00通用窗体/U_YarnInfoSel.dfm b/A00通用窗体/U_YarnInfoSel.dfm
index 0c107a0..76171b4 100644
--- a/A00通用窗体/U_YarnInfoSel.dfm
+++ b/A00通用窗体/U_YarnInfoSel.dfm
@@ -285,15 +285,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False
Width = 80
end
- object v1Column2: TcxGridDBColumn
- Tag = 2
- Caption = #39068#33394
- DataBinding.FieldName = 'Y_Color'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 100
- end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
diff --git a/A00通用窗体/U_YarnInfoSel.pas b/A00通用窗体/U_YarnInfoSel.pas
index 958942e..265be9b 100644
--- a/A00通用窗体/U_YarnInfoSel.pas
+++ b/A00通用窗体/U_YarnInfoSel.pas
@@ -12,23 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus,
dxScrollbarAnnotations, cxContainer, cxImageList, dxSkinsCore,
- dxSkinsDefaultPainters,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
- dxSkinWXI,
- ;
+ dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnInfoSel = class(TfrmBaseHelp)
@@ -49,7 +33,6 @@ type
ImageList1: TImageList;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
- v1Column2: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;
diff --git a/A00通用组件/FrameDateTimeSel.pas b/A00通用组件/FrameDateTimeSel.pas
index cb65870..05724a3 100644
--- a/A00通用组件/FrameDateTimeSel.pas
+++ b/A00通用组件/FrameDateTimeSel.pas
@@ -6,41 +6,10 @@ uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
- Vcl.ComCtrls, dxCore, cxDateUtils,
- cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, Vcl.StdCtrls,
- Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- cxSpinEdit, cxTimeEdit, dxSkinsCore,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
- dxSkinsDefaultPainters,
-
- dxSkinWXI, ;
+ Vcl.ComCtrls, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxDropDownEdit,
+ cxCalendar, Vcl.StdCtrls, Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils,
+ cxSpinEdit, cxTimeEdit, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus,
+ dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmFrameDateTimeSel = class(TFrame)
diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.dfm b/E02梭织经轴仓库/U_TatWBPlanCard.dfm
index 004c68f..48fd459 100644
--- a/E02梭织经轴仓库/U_TatWBPlanCard.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlanCard.dfm
@@ -195,8 +195,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Align = alLeft
PopupMenu = PopupMenu1
TabOrder = 2
- ExplicitLeft = -6
- ExplicitTop = 119
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
index b0dacd9..1898d07 100644
--- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
@@ -3,12 +3,13 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 14
Caption = #27974#32433#35745#21010#24405#20837
ClientHeight = 616
- ClientWidth = 952
+ ClientWidth = 1429
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
- ExplicitWidth = 968
+ ExplicitTop = -30
+ ExplicitWidth = 1445
ExplicitHeight = 655
PixelsPerInch = 96
TextHeight = 12
@@ -16,7 +17,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Tag = 1
Left = 0
Top = 0
- Width = 952
+ Width = 1429
Height = 38
AutoSize = True
ButtonHeight = 38
@@ -35,6 +36,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
ShowCaptions = True
TabOrder = 0
+ ExplicitWidth = 1124
object TBSave: TToolButton
Left = 0
Top = 0
@@ -62,16 +64,15 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object Panel2: TPanel [1]
Left = 0
Top = 353
- Width = 952
+ Width = 1429
Height = 263
Align = alClient
TabOrder = 1
- ExplicitTop = 192
- ExplicitHeight = 349
+ ExplicitWidth = 1124
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
- Width = 950
+ Width = 1427
Height = 220
Align = alClient
Color = clWhite
@@ -87,122 +88,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ExplicitHeight = 306
+ ExplicitWidth = 1122
ClientRectBottom = 220
- ClientRectRight = 950
+ ClientRectRight = 1427
ClientRectTop = 0
end
- object cxGrid2: TcxGrid
- Left = 1
- Top = 42
- Width = 950
- Height = 220
- Align = alClient
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- ExplicitHeight = 306
- object Tv2: TcxGridDBTableView
- Navigator.Buttons.CustomButtons = <>
- ScrollbarAnnotations.CustomAnnotations = <>
- DataController.DataSource = DS_1
- DataController.Filter.AutoDataSetFilter = True
- DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
- DataController.Summary.DefaultGroupSummaryItems = <
- item
- Format = 'C_Code'
- 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
- item
- Kind = skSum
- end>
- DataController.Summary.SummaryGroups = <>
- OptionsBehavior.FocusCellOnTab = True
- OptionsBehavior.GoToNextCellOnEnter = True
- OptionsBehavior.FocusCellOnCycle = True
- OptionsCustomize.ColumnFiltering = False
- OptionsView.Footer = True
- OptionsView.GroupByBox = False
- object v2Column10: TcxGridDBColumn
- Caption = #21407#26009#20195#21495
- DataBinding.FieldName = 'Y_Code'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 131
- end
- object cxGridDBColumn1: TcxGridDBColumn
- Caption = #21407#26009#21517#31216
- DataBinding.FieldName = 'Y_Name'
- DataBinding.IsNullValueType = True
- PropertiesClassName = 'TcxButtonEditProperties'
- Properties.Buttons = <
- item
- Default = True
- Kind = bkEllipsis
- end>
- Properties.ReadOnly = True
- HeaderAlignmentHorz = taCenter
- Options.Moving = False
- Options.Sorting = False
- Width = 138
- 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
- end
- object v2Column6: TcxGridDBColumn
- Caption = #39068#33394
- DataBinding.FieldName = 'Y_Color'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 99
- end
- object Tv2Column2: TcxGridDBColumn
- Caption = #37197#27604
- DataBinding.FieldName = 'Y_Ratio'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 69
- end
- end
- object cxGridLevel1: TcxGridLevel
- GridView = Tv2
- end
- end
object Panel5: TPanel
Left = 1
Top = 1
- Width = 950
+ Width = 1427
Height = 41
Align = alTop
- TabOrder = 2
+ TabOrder = 1
+ ExplicitLeft = 2
+ ExplicitTop = 6
object Panel6: TPanel
Left = 1
Top = 1
@@ -268,11 +167,204 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
end
end
+ object cxGrid1: TcxGrid
+ Left = 1
+ Top = 42
+ Width = 1427
+ Height = 220
+ Align = alClient
+ TabOrder = 2
+ ExplicitWidth = 1122
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_1
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.GroupByBox = False
+ object v1Column18: TcxGridDBColumn
+ Caption = #37319#36141#21152#24037#21512#21516#21495
+ DataBinding.FieldName = 'ConNo'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ VisibleForCustomization = False
+ Width = 106
+ end
+ object v1Column15: TcxGridDBColumn
+ Caption = #21697#29260
+ DataBinding.FieldName = 'SXPinPai'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ VisibleForCustomization = False
+ Width = 103
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'Y_Code'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ HeaderAlignmentHorz = taCenter
+ Width = 94
+ end
+ object v1SPName: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'Y_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ HeaderAlignmentHorz = taCenter
+ Width = 101
+ end
+ object v1SPSpec: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'Y_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 116
+ end
+ object v1Column1: TcxGridDBColumn
+ Caption = #25209#21495
+ DataBinding.FieldName = 'BatchNo'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ VisibleForCustomization = False
+ Width = 92
+ end
+ object v1Column10: TcxGridDBColumn
+ Caption = #36816#36153
+ DataBinding.FieldName = 'YunFei'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ HeaderAlignmentHorz = taCenter
+ VisibleForCustomization = False
+ Width = 68
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object Tv1Column7: TcxGridDBColumn
+ Caption = #20998#29305'(Dtex)'
+ DataBinding.FieldName = 'Denier'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1Column8: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'ZS'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object v1Column3: TcxGridDBColumn
+ Caption = #26681#25968
+ DataBinding.FieldName = 'YarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 72
+ 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'
+ 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
+ end
+ object v1Column12: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 118
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
end
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 38
- Width = 952
+ Width = 1429
Height = 315
Align = alTop
BevelInner = bvNone
@@ -286,6 +378,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 2
+ OnDblClick = gynoDblClick
+ ExplicitLeft = 1
ExplicitTop = 41
object Label3: TLabel
Left = 639
@@ -547,6 +641,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
TabOrder = 1
Zoom = 100
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Spec: TEdit
@@ -555,6 +650,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 0
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object CustName: TBtnEditC
@@ -564,6 +660,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 2
+ OnDblClick = gynoDblClick
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
@@ -574,6 +671,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 3
+ OnDblClick = gynoDblClick
+ OnBtnUpClick = WB_CodeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object WB_YarnTotalLen: TEdit
@@ -582,6 +681,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 4
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty: TEdit
@@ -590,6 +690,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 5
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_YarnLen: TEdit
@@ -598,6 +699,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 6
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJJZZS: TEdit
@@ -614,6 +716,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 8
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJMJZMS: TEdit
@@ -622,14 +725,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 9
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
- object TWPNo: TEdit
+ object TWPId: TEdit
Left = 90
Top = 5
Width = 120
Height = 18
TabOrder = 10
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_Name: TEdit
@@ -638,6 +743,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 11
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_YarnQty: TEdit
@@ -654,6 +760,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 13
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object gkbh: TBtnEditC
@@ -663,6 +770,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 14
+ OnDblClick = gynoDblClick
+ OnBtnUpClick = gkbhBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object WB_ReedNo: TEdit
@@ -671,6 +780,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 15
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object WB_ReedNote: TEdit
@@ -687,6 +797,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
Height = 18
TabOrder = 17
+ OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object gyno: TBtnEditC
@@ -696,6 +807,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 20
ReadOnly = True
TabOrder = 18
+ OnDblClick = gynoDblClick
+ OnBtnUpClick = gynoBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
end
@@ -708,8 +821,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 193
end
inherited ImageList_new32: TImageList
- Left = 1272
- Top = 200
+ Left = 1120
+ Top = 256
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
@@ -721,14 +834,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
- Left = 1090
+ Left = 930
Top = 89
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
- Left = 1410
- Top = 225
+ Left = 1298
+ Top = 137
end
object CDS_1: TClientDataSet
Aggregates = <>
@@ -738,7 +851,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
object DS_1: TDataSource
DataSet = CDS_1
- Left = 436
- Top = 393
+ Left = 476
+ Top = 401
end
end
diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas
index 7fac168..6a70ab6 100644
--- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas
+++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas
@@ -25,14 +25,6 @@ type
ToolButton8: TToolButton;
Panel2: TPanel;
cxPageControl1: TcxPageControl;
- cxGrid2: TcxGrid;
- Tv2: TcxGridDBTableView;
- v2Column10: TcxGridDBColumn;
- cxGridDBColumn1: TcxGridDBColumn;
- v2Column2: TcxGridDBColumn;
- v2Column6: TcxGridDBColumn;
- Tv2Column2: TcxGridDBColumn;
- cxGridLevel1: TcxGridLevel;
Panel5: TPanel;
Panel6: TPanel;
Label21: TLabel;
@@ -63,7 +55,7 @@ type
WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: TEdit;
Label13: TLabel;
- TWPNo: TEdit;
+ TWPId: TEdit;
Label15: TLabel;
Label17: TLabel;
WB_Name: TEdit;
@@ -80,6 +72,25 @@ type
Label24: TLabel;
WB_YarnDensity: TEdit;
gyno: TBtnEditC;
+ cxGrid1: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1Column18: TcxGridDBColumn;
+ v1Column15: TcxGridDBColumn;
+ Tv1Column2: TcxGridDBColumn;
+ v1SPName: TcxGridDBColumn;
+ v1SPSpec: TcxGridDBColumn;
+ v1Column1: TcxGridDBColumn;
+ v1Column10: TcxGridDBColumn;
+ Tv1Column1: TcxGridDBColumn;
+ Tv1Column7: TcxGridDBColumn;
+ Tv1Column8: TcxGridDBColumn;
+ v1Column3: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ Tv1Column9: TcxGridDBColumn;
+ Tv1Column6: TcxGridDBColumn;
+ Tv1Column5: TcxGridDBColumn;
+ v1Column12: TcxGridDBColumn;
+ cxGrid1Level1: TcxGridLevel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -91,10 +102,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);
private
procedure InitData();
function SaveData(): Boolean;
-
+ procedure JSJS();
{ Private declarations }
public
PState, FCopyInt: Integer;
@@ -109,7 +125,8 @@ var
implementation
uses
- U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel;
+ U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2,
+ U_WBSpecSel, U_GKManageSel;
{$R *.dfm}
@@ -160,6 +177,74 @@ begin
InitData();
end;
+procedure TfrmTatWBPlanInPut.gkbhBtnUpClick(Sender: TObject);
+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 TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject);
+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_Spec.Text := Trim(ADOQueryTemp.fieldbyname('WB_Spec').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.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString);
+ Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
+
+ end;
+ end;
+ finally
+ frmTatPlanSel2.Free;
+ end;
+end;
+
+procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
+begin
+ inherited;
+ TcxButtonEdit(Sender).Text := '';
+end;
+
function TfrmTatWBPlanInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
@@ -243,7 +328,7 @@ begin
FieldByName('YRType').Value := 'ᾭ˿';
FieldByName('TWPId').Value := Trim(maxno);
FieldByName('YRId').Value := Trim(maxpbno);
- RTSetsavedataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_WB_Plan_Yarn', 0);
+ RTSetsavedataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_WB_Plan_Yarn', 0);
Post;
end;
CDS_1.Edit;
@@ -298,13 +383,16 @@ begin
with self.CDS_1 do
begin
Append;
- FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
- FieldByName('Y_Ratio').Value := 0;
+
+ FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
+ FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
+ FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
+ FieldByName('NOTE').Value := frmYarnInfoSel.CDS_1.fieldbyname('NOTE').Value;
Post;
end;
@@ -334,6 +422,96 @@ begin
CDS_1.Delete;
end;
+procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(
+ 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_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;
+
+// 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
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+ Post;
+ end;
+ end;
+end;
+
+procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject);
+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.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);
+ end;
+ end;
+ finally
+ frmWBSpecSel.Free;
+ end;
+end;
+
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
@@ -369,12 +547,79 @@ begin
end;
+
+procedure TfrmTatWBPlanInPut.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(WB_Width.text, 0); //ط
+
+ TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ
+
+ if FieldByName('TestDenier').Value = null then
+ begin
+ DS := 0; //D
+ end
+ else
+ begin
+ DS := FieldByName('TestDenier').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.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
+
end;
end;
diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm
index 4ab4352..8981b68 100644
--- a/E02梭织经轴仓库/U_WBSpecInPut.dfm
+++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm
@@ -2,21 +2,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 88
Top = 141
Caption = #25972#32463#24037#33402#24405#20837
- ClientHeight = 863
+ ClientHeight = 845
ClientWidth = 1115
Color = clWhite
Font.Height = -16
Position = poMainFormCenter
- ExplicitTop = -5
ExplicitWidth = 1131
- ExplicitHeight = 902
+ ExplicitHeight = 884
PixelsPerInch = 96
TextHeight = 21
object cxGrid1: TcxGrid [0]
Left = 0
Top = 455
Width = 1115
- Height = 408
+ Height = 390
Align = alClient
TabOrder = 0
ExplicitTop = 461
diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm
index 82429c4..3c0a228 100644
--- a/E02梭织经轴仓库/U_WBSpecList.dfm
+++ b/E02梭织经轴仓库/U_WBSpecList.dfm
@@ -540,6 +540,8 @@ inherited frmWBSpecList: TfrmWBSpecList
Align = alTop
ParentFont = False
TabOrder = 1
+ ExplicitLeft = 6
+ ExplicitTop = 6
Height = 239
Width = 594
end
diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local
index 342e9a0..428f11e 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