RTFormwork/项目代码/RTBasicsV1/F03染色配方管理/U_DyeFormulaLargeInput.dfm
“ddf” 61630656e9 1
2024-07-07 09:35:27 +08:00

934 lines
26 KiB
Plaintext

inherited frmDyeFormulaLargeInput: TfrmDyeFormulaLargeInput
Left = 6
Top = 127
Caption = #26579#33394#22823#36135#37197#26041
ClientHeight = 602
ClientWidth = 1378
Color = clWhite
Font.Charset = ANSI_CHARSET
Position = poMainFormCenter
ExplicitWidth = 1394
ExplicitHeight = 641
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel [0]
Left = 0
Top = 208
Width = 1378
Height = 394
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Panel3: TPanel
Left = 2
Top = 2
Width = 1374
Height = 390
Align = alClient
Caption = 'Panel3'
TabOrder = 0
object ToolBar1: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 1372
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_Formula.ImageList_new32
Images = DataLink_Formula.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 75
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 3
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #19978#31227
ImageIndex = 17
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 225
Top = 0
AutoSize = True
Caption = #19979#31227
ImageIndex = 19
OnClick = ToolButton6Click
end
object ToolButton2: TToolButton
Left = 300
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid
Tag = 1
Left = 1
Top = 39
Width = 1372
Height = 350
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_SheetDye
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsData.Deleting = False
OptionsData.Inserting = False
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object TV1Column5: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1DyeCode: TcxGridDBColumn
Caption = #26579#21161#21058#32534#21495
DataBinding.FieldName = 'P_Code'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = tv2DyeCodePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 104
end
object TV1dyeName: TcxGridDBColumn
Caption = #26579#21161#21058#21517#31216
DataBinding.FieldName = 'P_Name'
HeaderAlignmentHorz = taCenter
Width = 191
end
object TV1Column1: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'P_Spec'
HeaderAlignmentHorz = taCenter
Width = 102
end
object TV1dyeStyle: TcxGridDBColumn
Caption = #26579#26009#31867#22411
DataBinding.FieldName = 'P_Type'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#26579#26009
#21161#21058
#31881#26411#21161#21058)
Properties.OnEditValueChanged = tv2dyeStylePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Grouping = False
Width = 81
end
object TV1curUnitDyeNum: TcxGridDBColumn
Caption = #24403#21069#37197#27604
DataBinding.FieldName = 'DyeRatio'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DecimalPlaces = 5
Properties.DisplayFormat = '0.00000'
Properties.OnEditValueChanged = tv2curUnitDyeNumPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 97
end
object TV1pbUnit: TcxGridDBColumn
Caption = #37197#27604#21333#20301
DataBinding.FieldName = 'DyeUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'%'
'g/l')
Properties.OnEditValueChanged = TV1pbUnitPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 85
end
object TV1sumNum: TcxGridDBColumn
Caption = #24635#35745'('#20811')'
DataBinding.FieldName = 'DyeGQty'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DecimalPlaces = 3
Properties.DisplayFormat = '0.000'
Properties.OnEditValueChanged = tv2sumNumPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 93
end
object TV1sumNum_KG: TcxGridDBColumn
Caption = #24635#35745'(KG)'
DataBinding.FieldName = 'DyeKgQty'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00;'
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 85
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
end
end
end
end
object Panel2: TPanel [1]
Left = 0
Top = 0
Width = 1378
Height = 208
Align = alTop
TabOrder = 1
object Panel4: TPanel
Left = 625
Top = 1
Width = 752
Height = 206
Align = alClient
TabOrder = 0
object GroupBox3: TGroupBox
Left = 1
Top = 41
Width = 750
Height = 164
Align = alClient
Caption = #21382#21490#37197#26041
TabOrder = 0
object cxGrid2: TcxGrid
Tag = 1
Left = 2
Top = 15
Width = 746
Height = 147
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 20
object tv1gangNo: TcxGridDBColumn
Caption = #27969#31243#21345#21495
DataBinding.FieldName = 'PCID'
HeaderAlignmentHorz = taCenter
Width = 90
end
object tv1sheetNo: TcxGridDBColumn
Caption = #39046#26009#21333#21495
DataBinding.FieldName = 'DFLMID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Options.Sorting = False
Width = 94
end
object tv1sheetStyle: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'DFLType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Options.Sorting = False
Width = 54
end
object tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
HeaderAlignmentHorz = taCenter
Width = 120
end
object tv1filltime: TcxGridDBColumn
Caption = #39046#26009#26085#26399
DataBinding.FieldName = 'DFLDate'
HeaderAlignmentHorz = taCenter
Width = 91
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
HeaderAlignmentHorz = taCenter
Width = 80
end
object tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Width = 82
end
object tv1Column3: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
HeaderAlignmentHorz = taCenter
Width = 80
end
object tv1Column6: TcxGridDBColumn
Caption = #39068#33394#31867#21035
DataBinding.FieldName = 'C_ColorDepth'
HeaderAlignmentHorz = taCenter
Width = 80
end
object tv1DeviceNo: TcxGridDBColumn
Caption = #26426#32568
DataBinding.FieldName = 'BathNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Options.Grouping = False
Options.Sorting = False
Width = 63
end
object tv1curNum: TcxGridDBColumn
Caption = #24403#21069#24067#37325
DataBinding.FieldName = 'ClothWeight'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Grouping = False
Options.Sorting = False
Width = 105
end
object tv1YB: TcxGridDBColumn
Caption = #28020#27604
DataBinding.FieldName = 'BathRatio'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00'
HeaderAlignmentHorz = taCenter
Options.Grouping = False
Options.Sorting = False
Width = 73
end
object tv1Volume: TcxGridDBColumn
Caption = #28342#21058#37327
DataBinding.FieldName = 'WaterNum'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Options.Grouping = False
Options.Sorting = False
Width = 57
end
object tv1filler: TcxGridDBColumn
Caption = #22635#21333#20154
DataBinding.FieldName = 'filler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Options.Grouping = False
Options.Sorting = False
Width = 72
end
object tv1beizhu: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
HeaderAlignmentHorz = taCenter
Options.Grouping = False
Options.Sorting = False
Width = 63
end
object tv1Column8: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
HeaderAlignmentHorz = taCenter
Width = 57
end
object tv1Column9: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Width = 55
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
object Panel6: TPanel
Left = 1
Top = 1
Width = 750
Height = 40
Align = alTop
TabOrder = 1
object Panel7: TPanel
Left = 1
Top = 1
Width = 320
Height = 38
Align = alLeft
TabOrder = 0
object Label37: TLabel
Left = 25
Top = 7
Width = 84
Height = 21
Caption = #25195#25551#20837#21475
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object edtPCID: TEdit
Tag = 99
Left = 115
Top = 7
Width = 135
Height = 22
CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = edtPCIDKeyPress
end
end
object ToolBar2: TToolBar
Tag = 1
Left = 321
Top = 1
Width = 428
Height = 38
Align = alClient
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_Formula.ImageList_new32
Images = DataLink_Formula.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
object Tsave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TsaveClick
end
object ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#24182#32487#32493
ImageIndex = 16
OnClick = ToolButton1Click
end
object Tclose: TToolButton
Left = 178
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TcloseClick
end
end
end
end
object Panel5: TPanel
Left = 1
Top = 1
Width = 624
Height = 206
Align = alLeft
BevelInner = bvLowered
TabOrder = 1
object Label23: TLabel
Left = 16
Top = 126
Width = 56
Height = 20
Caption = #22791' '#27880
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 423
Top = 99
Width = 56
Height = 20
Caption = #26426' '#32568
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 423
Top = 71
Width = 56
Height = 20
Caption = #39068' '#33394
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 16
Top = 42
Width = 56
Height = 20
Caption = #27969#31243#21345#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 423
Top = 42
Width = 56
Height = 20
Caption = #21697' '#21517
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 211
Top = 42
Width = 56
Height = 20
Caption = #23458#25143#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 211
Top = 71
Width = 56
Height = 20
Caption = #33394' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 211
Top = 14
Width = 56
Height = 20
Caption = #39046#26009#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 209
Top = 99
Width = 56
Height = 20
Caption = #29983#20135#25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Left = 16
Top = 99
Width = 56
Height = 20
Caption = #29983#20135#21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label36: TLabel
Left = 16
Top = 71
Width = 56
Height = 20
Caption = #39068#33394#31867#21035
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 423
Top = 14
Width = 56
Height = 20
Caption = #39046#26009#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 16
Top = 14
Width = 56
Height = 20
Caption = #39046#26009#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 30
Top = 182
Width = 38
Height = 14
Caption = #24067' '#37325
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 147
Top = 182
Width = 16
Height = 14
Caption = 'KG'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 172
Top = 182
Width = 38
Height = 14
Caption = #28020' '#27604
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 283
Top = 182
Width = 38
Height = 14
Caption = #27700' '#37327
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 412
Top = 182
Width = 15
Height = 14
Caption = #21319
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Note: TMemo
Left = 78
Top = 126
Width = 516
Height = 44
ScrollBars = ssVertical
TabOrder = 6
end
object C_Color: TEdit
Left = 488
Top = 70
Width = 110
Height = 21
Enabled = False
TabOrder = 2
end
object PCID: TEdit
Left = 78
Top = 41
Width = 110
Height = 22
CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object C_Name: TEdit
Left = 488
Top = 41
Width = 110
Height = 21
Enabled = False
TabOrder = 3
end
object CustName: TEdit
Left = 271
Top = 41
Width = 110
Height = 21
Enabled = False
TabOrder = 1
end
object C_ColorNo: TEdit
Left = 271
Top = 70
Width = 110
Height = 21
Enabled = False
TabOrder = 4
end
object DFLDate: TDateTimePicker
Left = 271
Top = 13
Width = 110
Height = 22
Date = 40200.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.591989467589883100
TabOrder = 5
end
object Qty: TEdit
Left = 271
Top = 98
Width = 110
Height = 21
TabOrder = 7
end
object Piece: TEdit
Left = 78
Top = 98
Width = 110
Height = 21
TabOrder = 8
end
object C_ColorDepth: TEdit
Left = 78
Top = 70
Width = 110
Height = 21
TabOrder = 9
end
object BathNo: TEdit
Left = 488
Top = 98
Width = 110
Height = 21
TabOrder = 10
end
object DFLType: TComboBox
Left = 488
Top = 13
Width = 110
Height = 21
Style = csDropDownList
Enabled = False
TabOrder = 11
Items.Strings = (
#39046#26009
#34917#26009)
end
object ClothWeight: TEdit
Left = 73
Top = 178
Width = 70
Height = 21
TabOrder = 12
OnExit = ClothWeightExit
end
object BathRatio: TEdit
Left = 215
Top = 178
Width = 63
Height = 21
TabOrder = 13
OnExit = ClothWeightExit
end
object WaterNum: TEdit
Left = 325
Top = 178
Width = 81
Height = 21
TabOrder = 14
OnChange = WaterNumChange
OnExit = ClothWeightExit
end
object DFLMID: TEdit
Left = 78
Top = 13
Width = 110
Height = 21
Enabled = False
TabOrder = 15
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Formula.ADOLink
Left = 1129
Top = 328
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Formula.ADOLink
Left = 1249
Top = 321
end
inherited ImageList_new32: TImageList
Left = 1024
Top = 376
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Formula.ADOLink
Parameters = <>
Left = 1250
Top = 390
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_Formula.ADOLink
Parameters = <>
Left = 1126
Top = 398
end
object CDS_SheetDye: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 538
Top = 324
end
object DS_SheetDye: TDataSource
DataSet = CDS_SheetDye
Left = 630
Top = 316
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 736
Top = 312
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 802
Top = 124
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 910
Top = 132
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 696
Top = 112
end
end