377 lines
10 KiB
Plaintext
377 lines
10 KiB
Plaintext
|
object frmPLRW: TfrmPLRW
|
||
|
|
Left = 191
|
||
|
|
Top = 31
|
||
|
|
Caption = #25209#37327#26032#22686#20219#21153
|
||
|
|
ClientHeight = 534
|
||
|
|
ClientWidth = 1480
|
||
|
|
Color = clWhite
|
||
|
|
Font.Charset = GB2312_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -16
|
||
|
|
Font.Name = #24494#36719#38597#40657
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poScreenCenter
|
||
|
|
OnShow = FormShow
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 21
|
||
|
|
object ToolBar1: TToolBar
|
||
|
|
Tag = 1
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 1480
|
||
|
|
Height = 30
|
||
|
|
AutoSize = True
|
||
|
|
ButtonHeight = 30
|
||
|
|
ButtonWidth = 83
|
||
|
|
Caption = 'ToolBar1'
|
||
|
|
Color = clBtnFace
|
||
|
|
DisabledImages = DataLink_TatPlan.cxImageList_bar
|
||
|
|
EdgeInner = esNone
|
||
|
|
EdgeOuter = esNone
|
||
|
|
Font.Charset = GB2312_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -12
|
||
|
|
Font.Name = #23435#20307
|
||
|
|
Font.Style = []
|
||
|
|
Images = DataLink_TatPlan.cxImageList_bar
|
||
|
|
List = True
|
||
|
|
ParentColor = False
|
||
|
|
ParentFont = False
|
||
|
|
ShowCaptions = True
|
||
|
|
TabOrder = 0
|
||
|
|
object TBSave: TToolButton
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
AutoSize = True
|
||
|
|
Caption = #20445#23384
|
||
|
|
ImageIndex = 16
|
||
|
|
OnClick = TBSaveClick
|
||
|
|
end
|
||
|
|
object ToolButton1: TToolButton
|
||
|
|
Left = 63
|
||
|
|
Top = 0
|
||
|
|
AutoSize = True
|
||
|
|
Caption = #22686#34892
|
||
|
|
ImageIndex = 2
|
||
|
|
Visible = False
|
||
|
|
OnClick = ToolButton1Click
|
||
|
|
end
|
||
|
|
object ToolButton2: TToolButton
|
||
|
|
Left = 126
|
||
|
|
Top = 0
|
||
|
|
AutoSize = True
|
||
|
|
Caption = #21024#34892
|
||
|
|
ImageIndex = 6
|
||
|
|
OnClick = ToolButton2Click
|
||
|
|
end
|
||
|
|
object TBClose: TToolButton
|
||
|
|
Left = 189
|
||
|
|
Top = 0
|
||
|
|
AutoSize = True
|
||
|
|
Caption = #20851#38381
|
||
|
|
ImageIndex = 7
|
||
|
|
OnClick = TBCloseClick
|
||
|
|
end
|
||
|
|
object ToolButton4: TToolButton
|
||
|
|
Left = 252
|
||
|
|
Top = 0
|
||
|
|
AutoSize = True
|
||
|
|
Caption = #19968#38190#21516#27493
|
||
|
|
ImageIndex = 13
|
||
|
|
OnClick = ToolButton4Click
|
||
|
|
end
|
||
|
|
object ToolButton3: TToolButton
|
||
|
|
Left = 339
|
||
|
|
Top = 0
|
||
|
|
AutoSize = True
|
||
|
|
Caption = #21462#21495
|
||
|
|
ImageIndex = 12
|
||
|
|
Visible = False
|
||
|
|
OnClick = ToolButton3Click
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object cxGrid1: TcxGrid
|
||
|
|
Left = 0
|
||
|
|
Top = 30
|
||
|
|
Width = 931
|
||
|
|
Height = 504
|
||
|
|
Align = alClient
|
||
|
|
TabOrder = 1
|
||
|
|
object Tv1: TcxGridDBTableView
|
||
|
|
Navigator.Buttons.CustomButtons = <>
|
||
|
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||
|
|
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||
|
|
DataController.DataSource = DataSource1
|
||
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||
|
|
DataController.Summary.FooterSummaryItems = <
|
||
|
|
item
|
||
|
|
Kind = skMax
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Kind = skCount
|
||
|
|
end>
|
||
|
|
DataController.Summary.SummaryGroups = <>
|
||
|
|
OptionsCustomize.ColumnFiltering = False
|
||
|
|
OptionsView.Footer = True
|
||
|
|
OptionsView.GroupByBox = False
|
||
|
|
OptionsView.GroupFooters = gfAlwaysVisible
|
||
|
|
object Tv1Column9: TcxGridDBColumn
|
||
|
|
Caption = #20219#21153#21333#21495
|
||
|
|
DataBinding.FieldName = 'PMID'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 120
|
||
|
|
end
|
||
|
|
object Tv1Column1: TcxGridDBColumn
|
||
|
|
Caption = #20219#21153#31867#22411
|
||
|
|
DataBinding.FieldName = 'PMType'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
PropertiesClassName = 'TcxComboBoxProperties'
|
||
|
|
Properties.DropDownListStyle = lsEditFixedList
|
||
|
|
Properties.Items.Strings = (
|
||
|
|
#23613#26426#23433#25490
|
||
|
|
#19979#24067#25913#26426
|
||
|
|
#19978#36724#25913#26426)
|
||
|
|
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
object Tv1Column2: TcxGridDBColumn
|
||
|
|
Caption = #26426#21488#21495
|
||
|
|
DataBinding.FieldName = 'MCNO'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
object Tv1Column3: TcxGridDBColumn
|
||
|
|
Caption = #32455#36896#21333#21495
|
||
|
|
DataBinding.FieldName = 'OrderNo'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||
|
|
Properties.Buttons = <
|
||
|
|
item
|
||
|
|
Default = True
|
||
|
|
Kind = bkEllipsis
|
||
|
|
end>
|
||
|
|
Properties.ReadOnly = True
|
||
|
|
Properties.OnButtonClick = Tv1Column3PropertiesButtonClick
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
object Tv1Column4: TcxGridDBColumn
|
||
|
|
Caption = #22383#24067#32534#21495
|
||
|
|
DataBinding.FieldName = 'C_Code'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
object Tv1Column5: TcxGridDBColumn
|
||
|
|
Caption = #22383#24067#21517#31216
|
||
|
|
DataBinding.FieldName = 'C_Name'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
object Tv1Column6: TcxGridDBColumn
|
||
|
|
Caption = #25805#20316#31867#22411
|
||
|
|
DataBinding.FieldName = 'action'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
PropertiesClassName = 'TcxComboBoxProperties'
|
||
|
|
Properties.DropDownListStyle = lsEditFixedList
|
||
|
|
Properties.Items.Strings = (
|
||
|
|
#19978#36724
|
||
|
|
#25509#22836)
|
||
|
|
Properties.ReadOnly = False
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
object Tv1Column7: TcxGridDBColumn
|
||
|
|
Caption = #19978#26426#32428#23494
|
||
|
|
DataBinding.FieldName = 'C_MachLatitudeDensity'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
object Tv1Column8: TcxGridDBColumn
|
||
|
|
Caption = #19979#26426#32428#23494
|
||
|
|
DataBinding.FieldName = 'C_FinishLatitudeDensity'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object cxGrid1Level1: TcxGridLevel
|
||
|
|
GridView = Tv1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object cxGrid2: TcxGrid
|
||
|
|
Left = 931
|
||
|
|
Top = 30
|
||
|
|
Width = 549
|
||
|
|
Height = 504
|
||
|
|
Align = alRight
|
||
|
|
TabOrder = 2
|
||
|
|
object TV2: TcxGridDBTableView
|
||
|
|
Navigator.Buttons.CustomButtons = <>
|
||
|
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||
|
|
DataController.DataSource = DS_2
|
||
|
|
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>
|
||
|
|
DataController.Summary.SummaryGroups = <>
|
||
|
|
OptionsBehavior.FocusCellOnTab = True
|
||
|
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||
|
|
OptionsBehavior.FocusCellOnCycle = True
|
||
|
|
OptionsCustomize.ColumnFiltering = False
|
||
|
|
OptionsView.GroupByBox = False
|
||
|
|
object cxGridDBColumn5: TcxGridDBColumn
|
||
|
|
Caption = #34892#21495
|
||
|
|
DataBinding.FieldName = 'RowNo'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 78
|
||
|
|
end
|
||
|
|
object cxGridDBColumn6: TcxGridDBColumn
|
||
|
|
Caption = #32534#21495
|
||
|
|
DataBinding.FieldName = 'Y_Code'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Options.Moving = False
|
||
|
|
Options.Sorting = False
|
||
|
|
Width = 112
|
||
|
|
end
|
||
|
|
object TV2Column1: TcxGridDBColumn
|
||
|
|
Caption = #21517#31216
|
||
|
|
DataBinding.FieldName = 'Yarn_Name'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 120
|
||
|
|
end
|
||
|
|
object TV2Column2: TcxGridDBColumn
|
||
|
|
Caption = #35268#26684
|
||
|
|
DataBinding.FieldName = 'Y_Name'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Options.Editing = False
|
||
|
|
Width = 120
|
||
|
|
end
|
||
|
|
object TV2Column3: TcxGridDBColumn
|
||
|
|
Caption = #25209#21495
|
||
|
|
DataBinding.FieldName = 'PH'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
||
|
|
Properties.OnEditValueChanged = TV2Column3PropertiesEditValueChanged
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Width = 120
|
||
|
|
end
|
||
|
|
object TV2Column4: TcxGridDBColumn
|
||
|
|
Caption = #20837#24211#21333#21495
|
||
|
|
DataBinding.FieldName = 'BYIOID'
|
||
|
|
DataBinding.IsNullValueType = True
|
||
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||
|
|
Properties.Buttons = <
|
||
|
|
item
|
||
|
|
Default = True
|
||
|
|
Kind = bkEllipsis
|
||
|
|
end>
|
||
|
|
Properties.ReadOnly = True
|
||
|
|
Properties.OnButtonClick = TV2Column4PropertiesButtonClick
|
||
|
|
HeaderAlignmentHorz = taCenter
|
||
|
|
Width = 120
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object cxGridLevel1: TcxGridLevel
|
||
|
|
GridView = TV2
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object ADOTemp: TADOQuery
|
||
|
|
Connection = DataLink_TatPlan.ADOLink
|
||
|
|
LockType = ltReadOnly
|
||
|
|
Parameters = <>
|
||
|
|
Left = 496
|
||
|
|
Top = 157
|
||
|
|
end
|
||
|
|
object ADOCmd: TADOQuery
|
||
|
|
Connection = DataLink_TatPlan.ADOLink
|
||
|
|
Parameters = <>
|
||
|
|
Left = 341
|
||
|
|
Top = 134
|
||
|
|
end
|
||
|
|
object DataSource1: TDataSource
|
||
|
|
DataSet = Order_Sub
|
||
|
|
Left = 666
|
||
|
|
Top = 145
|
||
|
|
end
|
||
|
|
object Order_Sub: TClientDataSet
|
||
|
|
Aggregates = <>
|
||
|
|
Params = <>
|
||
|
|
Left = 760
|
||
|
|
Top = 178
|
||
|
|
end
|
||
|
|
object cxStyleRepository1: TcxStyleRepository
|
||
|
|
Left = 420
|
||
|
|
Top = 137
|
||
|
|
PixelsPerInch = 96
|
||
|
|
object cxStyle1: TcxStyle
|
||
|
|
AssignedValues = [svFont]
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -12
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = [fsBold]
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||
|
|
Grid = cxGrid1
|
||
|
|
PopupMenus = <>
|
||
|
|
Left = 566
|
||
|
|
Top = 201
|
||
|
|
end
|
||
|
|
object DS_2: TDataSource
|
||
|
|
DataSet = CDS_2
|
||
|
|
Left = 1098
|
||
|
|
Top = 241
|
||
|
|
end
|
||
|
|
object CDS_2: TClientDataSet
|
||
|
|
Aggregates = <>
|
||
|
|
Params = <>
|
||
|
|
Left = 1198
|
||
|
|
Top = 234
|
||
|
|
end
|
||
|
|
object cxGridPopupMenu2: TcxGridPopupMenu
|
||
|
|
Grid = cxGrid2
|
||
|
|
PopupMenus = <>
|
||
|
|
Left = 1027
|
||
|
|
Top = 179
|
||
|
|
end
|
||
|
|
end
|