D7zzHanglin/坯布生产计划(WeavingSchedule)/U_MJEdit.dfm

769 lines
19 KiB
Plaintext
Raw Normal View History

2025-08-06 16:42:07 +08:00
object frmMJEditPB: TfrmMJEditPB
Left = 275
Top = 100
Width = 1292
Height = 627
Align = alClient
Caption = #24067#21305#31649#29702
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1276
Height = 30
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WeavingSchedule.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 57
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 113
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 58
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 189
Top = 0
Caption = #20316#24223
ImageIndex = 3
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 248
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 30
Width = 1276
Height = 107
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 25
Top = 16
Width = 52
Height = 12
Caption = #24067#21305#26465#30721
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 33
Top = 48
Width = 7
Height = 12
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 874
Top = 40
Width = 24
Height = 12
Caption = #27611#37325
Visible = False
end
object Label10: TLabel
Left = 955
Top = 40
Width = 12
Height = 12
Caption = 'Kg'
Visible = False
end
object Label14: TLabel
Left = 979
Top = 64
Width = 36
Height = 12
Caption = #22870' '#21169
Visible = False
end
object Label15: TLabel
Left = 977
Top = 32
Width = 36
Height = 12
Caption = #32602' '#27454
Visible = False
end
object Label5: TLabel
Left = 315
Top = 13
Width = 36
Height = 12
Caption = #26426' '#20462
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 355
Top = 48
Width = 36
Height = 12
Caption = #25377#36710#24037
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 434
Top = 13
Width = 24
Height = 12
Caption = #20132#29677
end
object Label9: TLabel
Left = 474
Top = 48
Width = 36
Height = 12
Caption = #20132#29677#20154
end
object Label11: TLabel
Left = 602
Top = 45
Width = 42
Height = 12
Caption = #20132#29677#25968'1'
Visible = False
end
object Label13: TLabel
Left = 28
Top = 48
Width = 48
Height = 12
Caption = #33853#24067#26102#38388
Visible = False
end
object Label16: TLabel
Left = 210
Top = 13
Width = 24
Height = 12
Caption = #37325#37327
end
object Label17: TLabel
Left = 291
Top = 13
Width = 12
Height = 12
Caption = 'Kg'
end
object Label18: TLabel
Left = 874
Top = 13
Width = 24
Height = 12
Caption = #31354#21152
Visible = False
end
object Label19: TLabel
Left = 955
Top = 13
Width = 12
Height = 12
Caption = 'Kg'
Visible = False
end
object Label20: TLabel
Left = 355
Top = 80
Width = 36
Height = 12
Caption = #31561' '#32423
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 474
Top = 80
Width = 42
Height = 12
Caption = #20132#29677#20154'2'
Visible = False
end
object Label12: TLabel
Left = 602
Top = 77
Width = 42
Height = 12
Caption = #20132#29677#25968'2'
Visible = False
end
object Label6: TLabel
Left = 738
Top = 77
Width = 24
Height = 12
Caption = #24211#20301
end
object Label21: TLabel
Left = 32
Top = 80
Width = 144
Height = 12
Caption = #24050#20986#24211#30340#25968#25454#26080#27861#32534#36753#37325#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 510
Top = 13
Width = 24
Height = 12
Caption = #25209#21495
end
object MJID: TEdit
Left = 80
Top = 10
Width = 110
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 4
OnKeyPress = MJIDKeyPress
end
object MJMaoZ: TEdit
Left = 899
Top = 36
Width = 54
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 7
Visible = False
end
object RadioGroup1: TRadioGroup
Left = 1090
Top = 58
Width = 170
Height = 40
Columns = 2
ItemIndex = 0
Items.Strings = (
#27491#21697
#27425#21697)
TabOrder = 13
Visible = False
end
object RadioGroup2: TRadioGroup
Left = 1096
Top = 16
Width = 161
Height = 49
Columns = 3
ItemIndex = 2
Items.Strings = (
#21322#21305
#25972#21305
#26080)
TabOrder = 5
Visible = False
end
object RadioGroup3: TRadioGroup
Left = 207
Top = 43
Width = 144
Height = 49
Columns = 3
Items.Strings = (
#28145#33394
#28418#30333
#27973#33394
#26080)
TabOrder = 10
end
object AddMoney: TEdit
Left = 1016
Top = 60
Width = 54
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 14
Visible = False
end
object DelMoney: TEdit
Left = 1014
Top = 28
Width = 54
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6
Visible = False
end
object JXPerson: TComboBox
Left = 354
Top = 9
Width = 65
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
ParentFont = False
TabOrder = 1
end
object SCPerson: TComboBox
Left = 394
Top = 44
Width = 65
Height = 20
Style = csDropDownList
DropDownCount = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
ParentFont = False
TabOrder = 12
end
object JBStr: TEdit
Left = 460
Top = 9
Width = 25
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 2
OnClick = JBStrClick
end
object JBSCPerson: TComboBox
Left = 517
Top = 44
Width = 77
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
ParentFont = False
TabOrder = 8
end
object JBZhuanQty: TEdit
Left = 646
Top = 41
Width = 76
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 9
Visible = False
end
object LBDate: TDateTimePicker
Left = 80
Top = 44
Width = 109
Height = 20
Date = 42317.000000000000000000
Time = 42317.000000000000000000
ShowCheckbox = True
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 11
Visible = False
end
object MJJingZ: TEdit
Left = 235
Top = 9
Width = 54
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object MJPiZ: TEdit
Left = 899
Top = 9
Width = 54
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
Visible = False
end
object ClothType: TComboBox
Left = 394
Top = 76
Width = 65
Height = 20
Style = csDropDownList
DropDownCount = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
ParentFont = False
TabOrder = 18
end
object JBSCPerson2: TComboBox
Left = 517
Top = 76
Width = 77
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
ParentFont = False
TabOrder = 15
Visible = False
end
object JBZhuanQty2: TEdit
Left = 646
Top = 73
Width = 76
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 16
Visible = False
end
object KuWei: TEdit
Left = 764
Top = 73
Width = 76
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 17
end
object APBatchNo: TEdit
Left = 535
Top = 9
Width = 134
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 19
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 137
Width = 621
Height = 452
Align = alLeft
TabOrder = 2
object Tv2: TcxGridDBTableView
OnMouseDown = Tv2MouseDown
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v2Column1
end
item
Kind = skSum
Column = Tv2CDQty
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_WeavingSchedule.TextSHuangSe
object tv2CDType: TcxGridDBColumn
Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CDName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = tv2CDTypePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_WeavingSchedule.Default
Width = 144
end
object v2Column3: TcxGridDBColumn
Caption = #36131#20219#20154
DataBinding.FieldName = 'ZZPerson'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v2Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object tv2CDWZ: TcxGridDBColumn
Caption = #20010#25968
DataBinding.FieldName = 'CDGS'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_WeavingSchedule.Default
Width = 96
end
object v2Column2: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'CDQty'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Content = DataLink_WeavingSchedule.Default
Width = 73
end
object Tv2CDQty: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'CDKgQty'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_WeavingSchedule.Default
Width = 93
end
object Tv2CDReason: TcxGridDBColumn
Caption = #21407#22240
DataBinding.FieldName = 'CDReason'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 131
end
object v2Column1: TcxGridDBColumn
DataBinding.FieldName = 'CDQty'
Visible = False
Width = 55
end
object v2Column4: TcxGridDBColumn
Caption = #24050#21098
DataBinding.FieldName = 'ISYJ'
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 57
end
object v2Column5: TcxGridDBColumn
Caption = #38750#27425#24067
DataBinding.FieldName = 'YJZP'
HeaderAlignmentHorz = taCenter
Width = 69
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object cxGrid1: TcxGrid
Left = 621
Top = 137
Width = 655
Height = 452
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DSMoney
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn3
end
item
Kind = skSum
Column = cxGridDBColumn4
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_WeavingSchedule.TextSHuangSe
object cxGridDBColumn2: TcxGridDBColumn
Caption = #36131#20219#20154
DataBinding.FieldName = 'ZZPerson'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 94
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #22870#21169#37329#39069
DataBinding.FieldName = 'AddMoney'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_WeavingSchedule.Default
Width = 96
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #22788#32602#37329#39069
DataBinding.FieldName = 'DelMoney'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Content = DataLink_WeavingSchedule.Default
Width = 73
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21407#22240
DataBinding.FieldName = 'Reason'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_WeavingSchedule.Default
Width = 356
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #21407#22240
DataBinding.FieldName = 'CDReason'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 131
end
object cxGridDBColumn7: TcxGridDBColumn
DataBinding.FieldName = 'CDQty'
Visible = False
Width = 55
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
end
end
object ADOTmp: TADOQuery
Connection = DataLink_WeavingSchedule.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 920
Top = 120
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WeavingSchedule.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 312
Top = 200
end
object ADOCmd: TADOQuery
Connection = DataLink_WeavingSchedule.ADOLink
Parameters = <>
Left = 936
Top = 128
end
object DataSource1: TDataSource
DataSet = Order_MJ
Left = 376
Top = 200
end
object Order_MJ: TClientDataSet
Aggregates = <>
Params = <>
Left = 344
Top = 200
end
object DSMoney: TDataSource
DataSet = CDS_Money
Left = 888
Top = 256
end
object CDS_Money: TClientDataSet
Aggregates = <>
Params = <>
Left = 856
Top = 256
end
end