D7myYunxiang/合同管理(Contract.dll)/U_MLContractInPut_PB.dfm

624 lines
15 KiB
Plaintext
Raw Normal View History

2025-01-20 13:04:03 +08:00
object frmMLContractInPut_PB: TfrmMLContractInPut_PB
Left = 58
Top = 38
Width = 1312
Height = 653
Caption = #22383#24067#37319#36141#35745#21010#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1296
Height = 30
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
Images = DataLink_Contract.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object Panel1: TPanel
Left = 71
Top = 0
Width = 342
Height = 30
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
end
object Label1: TLabel
Left = 413
Top = 0
Width = 183
Height = 30
Caption = ' '#22383#24067#37319#36141#35745#21010
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Panel21: TPanel
Left = 596
Top = 0
Width = 236
Height = 30
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
end
object TBClose: TToolButton
Left = 832
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 1296
Height = 118
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label10: TLabel
Left = 61
Top = 13
Width = 90
Height = 17
Caption = #35745#21010#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 660
Top = 85
Width = 90
Height = 17
Caption = #19979#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 61
Top = 48
Width = 92
Height = 17
Caption = #20379' '#24212' '#21830#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label42: TLabel
Left = 61
Top = 85
Width = 90
Height = 17
Caption = #22383#24067#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 380
Top = 13
Width = 90
Height = 17
Caption = #37319#36141#21305#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 660
Top = 13
Width = 90
Height = 17
Caption = #37319#36141#21333#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 380
Top = 48
Width = 90
Height = 17
Caption = #37319#36141#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 380
Top = 85
Width = 90
Height = 17
Caption = #25968#37327#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 660
Top = 48
Width = 90
Height = 17
Caption = #26159#21542#21547#31246#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 577
Top = 13
Width = 56
Height = 17
Caption = '('#21512#35745')'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 577
Top = 48
Width = 56
Height = 17
Caption = '('#21512#35745')'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CJDate: TDateTimePicker
Tag = 2
Left = 753
Top = 81
Width = 137
Height = 25
BevelInner = bvNone
Date = 40916.670856296290000000
Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object GYSName: TBtnEditC
Tag = 2
Left = 143
Top = 44
Width = 214
Height = 26
Hint = 'GYSNO'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 1
OnBtnUpClick = GYSNameBtnUpClick
OnBtnDnClick = GYSNameBtnDnClick
end
object CJNO: TEdit
Left = 143
Top = 10
Width = 214
Height = 23
Color = clScrollBar
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
end
object CJPS: TEdit
Tag = 2
Left = 464
Top = 10
Width = 109
Height = 23
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
end
object CJPrice: TEdit
Tag = 2
Left = 753
Top = 10
Width = 134
Height = 23
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
end
object CJQty: TEdit
Tag = 2
Left = 464
Top = 45
Width = 109
Height = 23
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
end
object CJQtyUnit: TComboBox
Tag = 2
Left = 464
Top = 81
Width = 108
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 6
Items.Strings = (
'M'
'Kg')
end
object HanShui: TComboBox
Tag = 2
Left = 753
Top = 45
Width = 136
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 7
Items.Strings = (
#21547#31246
#19981#21547#31246)
end
object MLCodeName: TBtnEditA
Tag = 2
Left = 143
Top = 81
Width = 213
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnChange = MLCodeNameChange
OnBtnClick = MLCodeNameBtnClick
end
object Edit1: TEdit
Left = 176
Top = 120
Width = 109
Height = 23
Color = clWhite
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
end
end
object ToolBar2: TToolBar
Left = 0
Top = 148
Width = 1296
Height = 29
ButtonHeight = 30
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
Images = DataLink_Contract.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#25321#25351#31034#21333
ImageIndex = 12
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 177
Width = 1296
Height = 438
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1Qty
end
item
Format = '0'
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Qty
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
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_Contract.Default
Styles.Inactive = DataLink_Contract.SHuangSe
Styles.IncSearch = DataLink_Contract.SHuangSe
Styles.Selection = DataLink_Contract.SHuangSe
Styles.Header = DataLink_Contract.Default
object v1XHNo: TcxGridDBColumn
Tag = 2
Caption = #24207#21495
DataBinding.FieldName = 'CMXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_Contract.Default
Width = 74
end
object v1ConCode: TcxGridDBColumn
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'MLOrderNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_Contract.SHuangSe
Width = 135
end
object v1ConCodeName: TcxGridDBColumn
Caption = #25351#31034#21333#21697#21517
DataBinding.FieldName = 'MLCodeName'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_Contract.SHuangSe
Width = 131
end
object v1Qty: TcxGridDBColumn
Caption = #25351#31034#21333#25968#37327
DataBinding.FieldName = 'MLHZQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_Contract.SHuangSe
Width = 115
end
object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'MLHZQtyUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_Contract.SHuangSe
Width = 83
end
object v1Column1: TcxGridDBColumn
Tag = 2
Caption = #35745#21010#37319#36141#21305#25968
DataBinding.FieldName = 'CMPS'
Width = 140
end
object v1ConPrice: TcxGridDBColumn
Tag = 2
Caption = #35745#21010#37319#36141#25968#37327
DataBinding.FieldName = 'CMQty'
HeaderAlignmentHorz = taCenter
Width = 147
end
object v1Column3: TcxGridDBColumn
Caption = #24065#31181
Visible = False
HeaderAlignmentHorz = taCenter
Width = 48
end
object v1ConNote: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'CMNote'
HeaderAlignmentHorz = taCenter
Width = 229
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 639
Top = 1
end
object ADOCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 605
Top = 4
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 740
Top = 6
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 781
Top = 11
end
object ADOQuery1: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 704
Top = 5
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 907
Top = 71
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 672
Top = 1
end
end