RTFormwork/项目代码/RTBasicsV1/E01梭织生产计划/U_TatCardInPut.dfm
“ddf” 61630656e9 1
2024-07-07 09:35:27 +08:00

646 lines
16 KiB
Plaintext

inherited frmTatCardInPut: TfrmTatCardInPut
Left = 203
Top = 126
Caption = #24067#21305#23433#25490
ClientHeight = 460
ClientWidth = 898
Color = clWhite
Position = poScreenCenter
ExplicitWidth = 914
ExplicitHeight = 499
PixelsPerInch = 96
TextHeight = 13
object Panel4: TPanel [0]
Left = 553
Top = 0
Width = 345
Height = 460
Align = alClient
Caption = 'Panel4'
TabOrder = 0
object Panel1: TPanel
Left = 1
Top = 39
Width = 343
Height = 40
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 0
object Label3: TLabel
Left = 32
Top = 13
Width = 39
Height = 12
Caption = #26426#21488#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MCNO: TEdit
Tag = 2
Left = 77
Top = 9
Width = 81
Height = 21
TabOrder = 0
OnChange = MCNOChange
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 79
Width = 343
Height = 380
Align = alClient
PopupMenu = PM_1
TabOrder = 1
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skCount
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column3
end
item
Kind = skSum
Column = Tv1Column4
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TatPlan.SHuangSe
Styles.Group = DataLink_TatPlan.FontBlue
Styles.Header = DataLink_TatPlan.Default
Styles.Inactive = DataLink_TatPlan.SHuangSe
object Tv1Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'MCNO'
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column2: TcxGridDBColumn
Caption = #26159#21542#23433#25490
DataBinding.FieldName = 'isap'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1Column3: TcxGridDBColumn
Caption = #24635#26410#26816#39564#21305#25968
DataBinding.FieldName = 'ZWJYPS'
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column4: TcxGridDBColumn
Caption = #26412#21333#26410#26816#39564#25968
DataBinding.FieldName = 'BWJYPS'
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ToolBar1: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 343
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TatPlan.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatPlan.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #35745#21010#21333
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton12: TToolButton
Left = 83
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton12Click
end
object TBClose: TToolButton
Left = 178
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
end
object Panel5: TPanel [1]
Left = 0
Top = 0
Width = 553
Height = 460
Align = alLeft
Caption = 'Panel5'
TabOrder = 1
object Panel2: TPanel
Left = 1
Top = 73
Width = 551
Height = 112
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label10: TLabel
Left = 40
Top = 84
Width = 26
Height = 12
Caption = #26426#20462
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 245
Top = 55
Width = 52
Height = 12
Caption = #24067#31080#20221#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 40
Top = 58
Width = 26
Height = 12
Caption = #25209#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 40
Top = 22
Width = 26
Height = 12
Caption = #26426#21488
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 245
Top = 82
Width = 52
Height = 12
Caption = #26159#21542#20986#32440
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Button3: TButton
Left = 393
Top = 53
Width = 82
Height = 44
Caption = #20445#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button3Click
end
object edtMachNo: TEdit
Tag = 2
Left = 72
Top = 10
Width = 402
Height = 37
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object edtCardQty: TEdit
Tag = 2
Left = 301
Top = 50
Width = 86
Height = 21
TabOrder = 2
end
object Repairer: TBtnEditC
Tag = 1
Left = 73
Top = 79
Width = 144
Height = 21
TabOrder = 3
OnBtnUpClick = RepairerBtnUpClick
OnBtnDnClick = RepairerBtnDnClick
end
object BatchNo: TEdit
Tag = 2
Left = 73
Top = 53
Width = 144
Height = 21
TabOrder = 4
end
object isDY: TComboBox
Left = 301
Top = 77
Width = 86
Height = 22
Style = csOwnerDrawFixed
ItemIndex = 0
TabOrder = 5
Text = #21542
Items.Strings = (
#21542
#26159)
end
object Button1: TButton
Left = 480
Top = 13
Width = 58
Height = 28
Caption = #28165#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button1Click
end
end
object cxGrid2: TcxGrid
Left = 1
Top = 185
Width = 551
Height = 274
Align = alClient
TabOrder = 1
object TV2: TcxGridDBTableView
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 = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TatPlan.SHuangSe
Styles.Header = DataLink_TatPlan.Default
Styles.Inactive = DataLink_TatPlan.SHuangSe
Styles.Selection = DataLink_TatPlan.SHuangSe
object TV2Column1: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom'
Visible = False
GroupIndex = 0
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column2: TcxGridDBColumn
Caption = #26426#20462
DataBinding.FieldName = 'Repairer'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object TV2Column3: TcxGridDBColumn
Caption = #23433#25490#21305#25968
DataBinding.FieldName = 'APPS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object TV2Column4: TcxGridDBColumn
Caption = #25171#21360#21305#25968
DataBinding.FieldName = 'DYPS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object TV2Column5: TcxGridDBColumn
Caption = #23436#25104#21305#25968
DataBinding.FieldName = 'JYPS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object TV2Column6: TcxGridDBColumn
Caption = #23433#25490#26102#38388
DataBinding.FieldName = 'APDate'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 551
Height = 72
Align = alTop
TabOrder = 2
object Label1: TLabel
Left = 186
Top = 8
Width = 54
Height = 12
Caption = #32534' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 341
Top = 7
Width = 61
Height = 12
Caption = #21697' '#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 26
Top = 8
Width = 52
Height = 12
Caption = #29983#20135#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 178
Top = 44
Width = 65
Height = 12
Caption = #26410#23433#25490#21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 17
Top = 45
Width = 65
Height = 12
Caption = #24050#23433#25490#21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object edtName: TEdit
Tag = 2
Left = 408
Top = 2
Width = 90
Height = 21
ReadOnly = True
TabOrder = 0
OnChange = MCNOChange
end
object edtCode: TEdit
Tag = 2
Left = 245
Top = 3
Width = 90
Height = 21
ReadOnly = True
TabOrder = 1
OnChange = MCNOChange
end
object edtConNo: TEdit
Tag = 2
Left = 84
Top = 3
Width = 90
Height = 21
ReadOnly = True
TabOrder = 2
OnChange = MCNOChange
end
object edtWAPPS: TEdit
Tag = 2
Left = 245
Top = 41
Width = 90
Height = 21
ReadOnly = True
TabOrder = 3
OnChange = MCNOChange
end
object edtYAPPS: TEdit
Tag = 2
Left = 82
Top = 40
Width = 90
Height = 21
ReadOnly = True
TabOrder = 4
OnChange = MCNOChange
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 193
Top = 264
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 257
Top = 265
end
inherited ImageList_new32: TImageList
Left = 272
Top = 416
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 224
Top = 344
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 136
Top = 336
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 192
Top = 400
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 48
Top = 336
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 464
Top = 328
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 400
Top = 328
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 464
Top = 384
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 416
Top = 384
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 368
Top = 384
end
object PM_1: TPopupMenu
Left = 528
Top = 328
end
object PM_2: TPopupMenu
Left = 536
Top = 400
object N2: TMenuItem
Caption = #21024#38500
end
end
object cxStyleRepository1: TcxStyleRepository
Left = 80
Top = 456
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
TextColor = clHotLight
end
end
end