D7myzhenyong/合同管理(ContractManagement.dll)/U_ConInPutCG.dfm
DESKTOP-E401PHE\Administrator 237de1c308 0
2025-08-26 15:25:51 +08:00

920 lines
22 KiB
Plaintext

object frmConInPutCG: TfrmConInPutCG
Left = 346
Top = 107
Width = 1324
Height = 848
Caption = #37319#36141#21512#21516#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1308
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ContractManagement.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 15
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 1308
Height = 172
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label3: TLabel
Left = 570
Top = 14
Width = 65
Height = 12
Caption = #21046#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 308
Top = 38
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 38
Top = 37
Width = 65
Height = 12
Caption = #31614#35746#22320#28857#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 = 569
Top = 38
Width = 66
Height = 12
Caption = #19994' '#21153' '#21592#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 = 37
Top = 13
Width = 66
Height = 12
Caption = #21512' '#21516' '#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 = 36
Top = 116
Width = 67
Height = 12
Caption = #38656' '#26041#65306
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 36
Top = 63
Width = 67
Height = 12
Caption = #20379' '#26041#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 304
Top = 14
Width = 66
Height = 12
Caption = #28322' '#30701' '#35013#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 308
Top = 63
Width = 65
Height = 12
Caption = #20379#26041#22320#22336#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 38
Top = 86
Width = 65
Height = 12
Caption = #20379#26041#36134#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 295
Top = 87
Width = 78
Height = 12
Caption = #20379#26041#24320#25143#34892#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 308
Top = 116
Width = 65
Height = 12
Caption = #38656#26041#22320#22336#65306
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 570
Top = 63
Width = 65
Height = 12
Caption = #20379#26041#30005#35805#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 570
Top = 85
Width = 65
Height = 12
Caption = #20379#26041#20256#30495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 570
Top = 116
Width = 65
Height = 12
Caption = #38656#26041#30005#35805#65306
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 570
Top = 138
Width = 65
Height = 12
Caption = #38656#26041#20256#30495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Left = 38
Top = 138
Width = 65
Height = 12
Caption = #38656#26041#36134#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label36: TLabel
Left = 295
Top = 138
Width = 78
Height = 12
Caption = #38656#26041#24320#25143#34892#65306
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 986
Top = 40
Width = 39
Height = 12
Caption = #22791#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object OrdDate: TDateTimePicker
Tag = 2
Left = 636
Top = 10
Width = 151
Height = 20
BevelInner = bvNone
Date = 40916.670856296290000000
Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000
TabOrder = 0
end
object DlyDate: TDateTimePicker
Tag = 2
Left = 371
Top = 34
Width = 151
Height = 20
BevelInner = bvNone
Date = 40916.670856296290000000
Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000
ShowCheckbox = True
TabOrder = 3
end
object ConNo: TEdit
Tag = 2
Left = 105
Top = 10
Width = 150
Height = 18
TabOrder = 1
Text = #33258#21160#29983#25104
end
object FromPlace: TBtnEditC
Tag = 2
Left = 105
Top = 33
Width = 150
Height = 20
Hint = 'QianDPlace/'#31614#35746#22320#28857
ReadOnly = True
TabOrder = 2
OnBtnUpClick = SalesmanBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object SellName: TBtnEditC
Tag = 2
Left = 105
Top = 59
Width = 150
Height = 20
ReadOnly = True
TabOrder = 10
OnBtnUpClick = SellNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object SellBankNo: TBtnEditC
Tag = 2
Left = 105
Top = 82
Width = 150
Height = 20
Hint = 'SellBankNo/'#38134#34892#36134#21495
TabOrder = 7
OnBtnUpClick = SellBankNoBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object SellAddress: TEdit
Tag = 2
Left = 371
Top = 60
Width = 150
Height = 18
TabOrder = 5
end
object SellBankName: TEdit
Tag = 2
Left = 371
Top = 82
Width = 150
Height = 18
TabOrder = 8
end
object BuyAddress: TEdit
Tag = 2
Left = 371
Top = 113
Width = 150
Height = 18
TabOrder = 11
end
object SellTel: TEdit
Tag = 2
Left = 636
Top = 60
Width = 150
Height = 18
TabOrder = 6
end
object SellFax: TEdit
Tag = 2
Left = 636
Top = 82
Width = 150
Height = 18
TabOrder = 9
end
object BuyTel: TEdit
Tag = 2
Left = 636
Top = 113
Width = 150
Height = 18
TabOrder = 12
end
object BuyFax: TEdit
Tag = 2
Left = 636
Top = 135
Width = 150
Height = 18
TabOrder = 15
end
object BuyBankName: TEdit
Tag = 2
Left = 371
Top = 135
Width = 150
Height = 18
TabOrder = 14
end
object Salesman: TBtnEditC
Tag = 2
Left = 636
Top = 34
Width = 150
Height = 20
Hint = 'Salesman/'#19994#21153#21592
TabOrder = 4
OnBtnUpClick = SalesmanBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object QtyNote: TBtnEditC
Tag = 2
Left = 371
Top = 10
Width = 150
Height = 20
Hint = 'QtyNoteZW/'#28322#30701#35013
TabOrder = 16
OnBtnUpClick = SalesmanBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object BuyBankNo: TEdit
Tag = 2
Left = 104
Top = 135
Width = 151
Height = 18
TabOrder = 13
end
object BuyName: TBtnEditC
Tag = 2
Left = 105
Top = 112
Width = 150
Height = 20
Hint = 'BuyName/'#38656#26041
HelpType = htKeyword
TabOrder = 17
OnBtnUpClick = BuyNameBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object TsNote: TEdit
Tag = 2
Left = 1044
Top = 33
Width = 150
Height = 18
TabOrder = 18
Visible = False
end
end
object ToolBar2: TToolBar
Left = 0
Top = 201
Width = 1308
Height = 29
ButtonHeight = 30
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ContractManagement.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 57
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 113
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #29983#20135#35745#21010#21333
ImageIndex = 108
OnClick = ToolButton3Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 230
Width = 1308
Height = 177
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 = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
Column = v1PRTPrice
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_ContractManagement.SHuangSe
Styles.IncSearch = DataLink_ContractManagement.SHuangSe
Styles.Selection = DataLink_ContractManagement.SHuangSe
Styles.Header = DataLink_ContractManagement.Default
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'XHNo'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ContractManagement.Default
Width = 55
end
object v1Column3: TcxGridDBColumn
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'OrderNo'
HeaderAlignmentHorz = taCenter
Width = 86
end
object v1Column10: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'SCSCode'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'SCSName'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'SCSSpec'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column1: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'SCSCF'
HeaderAlignmentHorz = taCenter
Width = 56
end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'SCSColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_ContractManagement.handBlack
Width = 70
end
object v1Column8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'SCSHX'
HeaderAlignmentHorz = taCenter
Width = 57
end
object v1Column11: TcxGridDBColumn
Caption = #27454#22411
DataBinding.FieldName = 'SCSKX'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'SCSMF'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column6PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'SCSKZ'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column7PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'SCSQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ContractManagement.Default
Width = 70
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'SCSUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ContractManagement.Default
Width = 68
end
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'SCSPrice'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_ContractManagement.handBlack
Width = 70
end
object v1Column19: TcxGridDBColumn
Caption = #24635#37329#39069
DataBinding.FieldName = 'SCSMxMoney'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column19PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1Column12: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'SCSCurrency'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'RMB'
'USD')
HeaderAlignmentHorz = taCenter
Width = 62
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SCSNote'
HeaderAlignmentHorz = taCenter
Width = 76
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ScrollBox2: TScrollBox
Left = 0
Top = 407
Width = 1308
Height = 403
Align = alBottom
TabOrder = 4
object Label5: TLabel
Left = 225
Top = 17
Width = 13
Height = 60
Caption = #29983#13#10#20135#13#10#35201#13#10#27714#13#10
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 582
Top = 78
Width = 13
Height = 24
Caption = #33337#13#10#26679
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label28: TLabel
Left = 18
Top = 17
Width = 13
Height = 48
Caption = #21787#13#10#13#10#13#10#22836
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label31: TLabel
Left = 19
Top = 160
Width = 13
Height = 48
Caption = #20854#13#10#20182#13#10#26465#13#10#27454
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label39: TLabel
Left = 582
Top = 16
Width = 13
Height = 48
Caption = #21253#13#10#35013#13#10#35201#13#10#27714
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ZhiLiangNote: TMemo
Tag = 2
Left = 241
Top = 16
Width = 300
Height = 136
Hint = 'CGZhiLiangNote/'#29983#20135#35201#27714
ScrollBars = ssVertical
TabOrder = 0
OnDblClick = TermsDblClick
end
object Marks: TMemo
Tag = 2
Left = 37
Top = 20
Width = 176
Height = 129
Hint = 'CGMarks/'#21787#22836
ScrollBars = ssVertical
TabOrder = 1
OnDblClick = MarksDblClick
end
object ChuanYangNote: TMemo
Tag = 2
Left = 597
Top = 78
Width = 300
Height = 60
Hint = 'ChuanYangNote/'#33337#26679
ScrollBars = ssVertical
TabOrder = 2
OnDblClick = MarksDblClick
end
object YSBiaoZhunNote: TMemo
Tag = 2
Left = 597
Top = 16
Width = 296
Height = 57
Hint = 'CGYSBiaoZhunNote/'#21253#35013#35201#27714
ScrollBars = ssVertical
TabOrder = 3
OnDblClick = MarksDblClick
end
object Terms: TMemo
Tag = 2
Left = 33
Top = 160
Width = 864
Height = 223
Hint = 'CGTerms/'#26465#27454
ScrollBars = ssVertical
TabOrder = 4
OnDblClick = TermsDblClick
end
end
object ADOTemp: TADOQuery
Connection = DataLink_ContractManagement.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 504
Top = 205
end
object ADOCmd: TADOQuery
Connection = DataLink_ContractManagement.ADOLink
Parameters = <>
Left = 720
Top = 205
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 960
Top = 196
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 908
Top = 200
end
object CDS_Type: TClientDataSet
Aggregates = <>
Params = <>
Left = 840
Top = 392
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 856
Top = 92
end
end