D10myBiaoqi/B04采购计划管理/U_ClaimsPut.dfm

762 lines
19 KiB
Plaintext
Raw Normal View History

2025-06-28 13:02:46 +08:00
inherited frmClaimsPut: TfrmClaimsPut
Left = 219
Top = 76
Caption = #32034#36180#24405#20837
ClientHeight = 658
ClientWidth = 1506
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1522
ExplicitHeight = 697
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1506
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_PurchasePlan.ImageList_new32
Images = DataLink_PurchasePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ToolBar2: TToolBar [1]
Tag = 1
Left = 0
Top = 241
Width = 1506
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_PurchasePlan.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_PurchasePlan.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton4: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #27425#21697#36873#25321
ImageIndex = 12
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 95
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 38
Width = 1506
Height = 203
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 2
ExplicitTop = 32
object Label3: TLabel
Left = 289
Top = 51
Width = 65
Height = 12
Caption = #30003#35831#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 45
Top = 85
Width = 65
Height = 12
Caption = #32034#36180#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 45
Top = 51
Width = 65
Height = 12
Caption = #30003#35831#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 527
Top = 17
Width = 65
Height = 12
Caption = #25105#26041#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 289
Top = 17
Width = 65
Height = 12
Caption = #23545#26041#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 45
Top = 17
Width = 67
Height = 12
Caption = #31867' '#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 765
Top = 17
Width = 65
Height = 12
Caption = #36153#29992#31867#21035#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 527
Top = 85
Width = 67
Height = 12
Caption = #24065' '#31181#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 765
Top = 85
Width = 65
Height = 12
Caption = #25187#27454#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 45
Top = 121
Width = 65
Height = 12
Caption = #24773#20917#35828#26126#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 289
Top = 85
Width = 65
Height = 12
Caption = #32034#36180#37329#39069#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 45
Top = 157
Width = 65
Height = 12
Caption = #22788#29702#32467#26524#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ClaDate: TDateTimePicker
Tag = 2
Left = 357
Top = 47
Width = 125
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 0
end
object ClaNo: TEdit
Tag = 2
Left = 112
Top = 48
Width = 125
Height = 18
TabOrder = 1
Text = #33258#21160#29983#25104
end
object OurCoName: TBtnEditC
Tag = 2
Left = 598
Top = 13
Width = 125
Height = 20
ReadOnly = True
TabOrder = 2
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object OppCoName: TBtnEditC
Tag = 2
Left = 360
Top = 6
Width = 125
Height = 20
TabOrder = 3
OnBtnUpClick = OppCoNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object FinType: TBtnEditC
Tag = 2
Left = 834
Top = 13
Width = 125
Height = 20
Hint = 'FinType/'#36153#29992#31867#21035
TabOrder = 4
OnBtnUpClick = ClaTypeBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object Currency: TComboBox
Tag = 2
Left = 600
Top = 81
Width = 125
Height = 20
ItemIndex = 0
TabOrder = 5
Text = 'CNY'
Items.Strings = (
'CNY'
'USD')
end
object KKNote: TBtnEditC
Tag = 2
Left = 834
Top = 81
Width = 125
Height = 20
Hint = 'KKNote/'#25187#27454#26041#24335
TabOrder = 6
OnBtnUpClick = ClaTypeBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object QKNote: TBtnEditC
Tag = 2
Left = 112
Top = 117
Width = 600
Height = 20
Hint = 'QKNote/'#24773#20917#35828#26126
AutoSize = False
TabOrder = 7
OnBtnUpClick = ClaTypeBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object ClaAmount: TEdit
Tag = 2
Left = 357
Top = 82
Width = 125
Height = 18
TabOrder = 8
OnKeyPress = ClaAmountKeyPress
end
object ClaQty: TEdit
Tag = 2
Left = 112
Top = 82
Width = 81
Height = 18
TabOrder = 9
end
object CLNote: TBtnEditC
Tag = 2
Left = 112
Top = 153
Width = 600
Height = 20
Hint = 'CLNote/'#22788#29702#32467#26524
AutoSize = False
TabOrder = 10
OnBtnUpClick = ClaTypeBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object QtyUnit: TComboBox
Tag = 2
Left = 199
Top = 81
Width = 38
Height = 20
TabOrder = 11
Items.Strings = (
'Y'
'M'
'Kg')
end
object ClaType: TComboBox
Tag = 2
Left = 112
Top = 13
Width = 125
Height = 20
TabOrder = 12
Items.Strings = (
#23458#25143
#20379#24212#21830)
end
end
object cxGrid2: TcxGrid [3]
Left = 0
Top = 279
Width = 1506
Height = 379
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
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 = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column8
end
item
Kind = skSum
end
item
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = cxGridDBColumn6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column27
end
item
Kind = skSum
Column = v1Column28
end
item
Kind = skSum
Column = v1Column14
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skCount
Column = v1Column23
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.IncSearch = DataLink_PurchasePlan.SHuangSe
Styles.Footer = DataLink_PurchasePlan.Default
Styles.Header = DataLink_PurchasePlan.Default
Styles.Inactive = DataLink_PurchasePlan.SHuangSe
Styles.Selection = DataLink_PurchasePlan.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column32: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column40: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column11: TcxGridDBColumn
Caption = #25187#27454#25688#35201
DataBinding.FieldName = 'KKZY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 173
end
object v1Column14: TcxGridDBColumn
Caption = #25187#20998
DataBinding.FieldName = 'KouFenQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object v1Column7: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'FlawList1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 122
end
object Tv1Column9: TcxGridDBColumn
Caption = #30133#28857#22791#27880
DataBinding.FieldName = 'FwNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 108
end
object v1Column23: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'FtyPCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1177
Top = 104
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Left = 1081
Top = 97
end
inherited ImageList_new32: TImageList
Left = 968
Top = 360
end
object ADOTemp: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 848
Top = 149
end
object ADOCmd: TADOQuery
Connection = DataLink_PurchasePlan.ADOLink
Parameters = <>
Left = 920
Top = 149
end
object DS_1: TDataSource
DataSet = Order_Sub
Left = 860
Top = 404
end
object Order_Sub: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 716
Top = 404
end
object cxgrdpmn1: TcxGridPopupMenu
PopupMenus = <>
Left = 464
Top = 348
end
object pm_sub: TPopupMenu
Left = 624
Top = 536
object N1: TMenuItem
Caption = #26222#36890#26367#25442
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20135#21697#26367#25442
OnClick = N2Click
end
end
end