D10SZKaiXiYa/B01基础合同管理/U_finishSalesConInput.dfm

634 lines
16 KiB
Plaintext
Raw Normal View History

2025-08-12 17:25:39 +08:00
inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Left = 219
Top = 76
Caption = #38144#21806#21512#21516#24405#20837
ClientHeight = 748
2025-11-12 17:32:44 +08:00
ClientWidth = 1530
2025-08-12 17:25:39 +08:00
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
2025-11-12 17:32:44 +08:00
ExplicitLeft = -679
ExplicitWidth = 1546
2025-08-12 17:25:39 +08:00
ExplicitHeight = 787
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
2025-11-12 17:32:44 +08:00
Width = 1530
2025-08-12 17:25:39 +08:00
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Contract.ImageList_new32
Images = DataLink_Contract.cxImageList_bar
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
end
object TBClose: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 30
2025-11-12 17:32:44 +08:00
Width = 1530
2025-08-12 17:25:39 +08:00
Height = 99
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
2025-11-12 17:32:44 +08:00
ExplicitTop = 36
2025-08-12 17:25:39 +08:00
object Label3: TLabel
2025-11-12 17:32:44 +08:00
Left = 362
2025-08-12 17:25:39 +08:00
Top = 65
Width = 80
Height = 21
Caption = #19979#21333#26085#26399#65306
end
object Label10: TLabel
Left = 40
Top = 10
Width = 64
Height = 21
Caption = #21512#21516#21495#65306
end
object Label14: TLabel
2025-11-12 17:32:44 +08:00
Left = 362
2025-08-12 17:25:39 +08:00
Top = 10
Width = 48
Height = 21
Caption = #23458#25143#65306
end
object Label6: TLabel
Left = 715
Top = 413
Width = 64
Height = 21
Caption = #28322#30701#35013#65306
Visible = False
end
object Label15: TLabel
Left = 356
Top = 462
Width = 80
Height = 21
Caption = #20132#26399#35828#26126#65306
Visible = False
end
object Label16: TLabel
Left = 53
Top = 462
Width = 80
Height = 21
Caption = #20132#36135#26085#26399#65306
Visible = False
end
object Label17: TLabel
Left = 1104
Top = 398
Width = 80
Height = 21
Caption = #33136#23553#22823#29260#65306
Visible = False
end
object lblSalesId: TLabel
Left = 63
Top = 410
Width = 80
Height = 21
Caption = #19994#21153#32534#21495#65306
Visible = False
end
object Label25: TLabel
Left = 276
Top = 410
Width = 80
Height = 21
Caption = #29702#21333#32534#21495#65306
Visible = False
end
object Label1: TLabel
Left = 40
Top = 62
Width = 48
Height = 21
Caption = #20132#26399#65306
end
2025-11-12 17:32:44 +08:00
object Label2: TLabel
Left = 730
Top = 62
Width = 112
Height = 21
Caption = #26816#39564#21512#26684#20998#25968#65306
end
object Label4: TLabel
Left = 730
Top = 10
Width = 80
Height = 21
Caption = #26816#39564#26631#20934#65306
end
2025-08-12 17:25:39 +08:00
object ConNo: TcxTextEdit
Tag = 2
Left = 114
Top = 7
TabOrder = 0
Text = #33258#21160#29983#25104
Width = 200
end
object PackSeal: TBtnEditC
Tag = 2
Left = 1180
Top = 394
Width = 125
Height = 30
TabOrder = 1
Visible = False
end
object DlyNote: TcxTextEdit
Tag = 2
Left = 431
Top = 456
ParentFont = False
TabOrder = 2
Visible = False
Width = 200
end
object SalesId: TcxTextEdit
Tag = 2
Left = 134
Top = 404
ParentFont = False
TabOrder = 3
Visible = False
Width = 125
end
object TallyId: TcxTextEdit
Tag = 2
Left = 335
Top = 401
ParentFont = False
TabOrder = 4
Visible = False
Width = 125
end
object BuyName: TcxButtonEdit
Tag = 2
2025-11-12 17:32:44 +08:00
Left = 435
2025-08-12 17:25:39 +08:00
Top = 7
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
2025-11-12 17:32:44 +08:00
Properties.OnButtonClick = BuyNamePropertiesButtonClick
2025-08-12 17:25:39 +08:00
Style.ButtonStyle = btsDefault
TabOrder = 5
2025-11-12 17:32:44 +08:00
Width = 237
2025-08-12 17:25:39 +08:00
end
object QtyNote: TcxButtonEdit
Tag = 2
Left = 788
Top = 407
Hint = 'QtyNoteZW/'#28322#30701#35013
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Style.ButtonStyle = btsDefault
TabOrder = 6
Visible = False
Width = 200
end
object ConDate: TcxDateEdit
Tag = 2
2025-11-12 17:32:44 +08:00
Left = 435
2025-08-12 17:25:39 +08:00
Top = 59
Properties.ShowTime = False
TabOrder = 7
2025-11-12 17:32:44 +08:00
Width = 237
2025-08-12 17:25:39 +08:00
end
object DlyDate: TcxDateEdit
Tag = 2
Left = 114
Top = 59
Properties.ShowTime = False
TabOrder = 8
Width = 200
end
2025-11-12 17:32:44 +08:00
object InspScore: TcxTextEdit
Tag = 2
Left = 835
Top = 59
TabOrder = 9
Width = 237
end
object InspStandard: TcxButtonEdit
Tag = 2
Left = 835
Top = 7
Hint = 'InspStandard/'#26816#39564#26631#20934
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = InspStandardPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 10
Width = 237
end
2025-08-12 17:25:39 +08:00
end
object ToolBar2: TToolBar [2]
Tag = 1
Left = 0
Top = 129
2025-11-12 17:32:44 +08:00
Width = 1530
2025-08-12 17:25:39 +08:00
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_Contract.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_Contract.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton4: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #25209#37327#22686#34892
ImageIndex = 12
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 87
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid [3]
Left = 0
Top = 159
2025-11-12 17:32:44 +08:00
Width = 1530
2025-08-12 17:25:39 +08:00
Height = 589
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
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
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
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.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column7: TcxGridDBColumn
Tag = 9
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 41
end
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
2025-08-20 16:06:38 +08:00
Width = 143
2025-08-12 17:25:39 +08:00
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 130
2025-08-12 17:25:39 +08:00
end
object v1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 159
2025-08-12 17:25:39 +08:00
end
object v1Column1: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 85
2025-08-12 17:25:39 +08:00
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 132
2025-08-12 17:25:39 +08:00
end
object Tv1density: TcxGridDBColumn
Caption = #23494#24230
DataBinding.FieldName = 'density'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 125
2025-08-12 17:25:39 +08:00
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 114
2025-08-12 17:25:39 +08:00
end
object Tv1C_WidthUnit: TcxGridDBColumn
2025-11-12 17:32:44 +08:00
Caption = #26377#25928#38376#24133'('#33521#23544')'
2025-08-12 17:25:39 +08:00
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 195
2025-08-12 17:25:39 +08:00
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 167
2025-08-12 17:25:39 +08:00
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
2025-11-12 17:32:44 +08:00
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
2025-08-12 17:25:39 +08:00
HeaderAlignmentHorz = taCenter
2025-08-20 16:06:38 +08:00
Width = 151
2025-08-12 17:25:39 +08:00
end
2025-11-12 17:32:44 +08:00
object Tv1ShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 123
end
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'EUR'
'VND')
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 120
end
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
2025-08-12 17:25:39 +08:00
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 529
Top = 0
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 441
Top = 1
end
inherited ImageList_new32: TImageList
Left = 1276
Top = 21
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 1015
2025-11-12 17:32:44 +08:00
Top = 218
DesignInfo = 14287863
2025-08-12 17:25:39 +08:00
end
object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 728
Top = 65533
end
object ADOCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 632
Top = 65533
end
object DS_1: TDataSource
DataSet = Order_Sub
Left = 695
Top = 395
end
object Order_Sub: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 748
Top = 524
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 656
Top = 460
end
object pm_sub: TPopupMenu
Left = 560
Top = 472
object N1: TMenuItem
Caption = #26222#36890#26367#25442
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20135#21697#26367#25442
OnClick = N2Click
end
end
object DataSource1: TDataSource
DataSet = ADOQueryImage
Left = 1243
Top = 302
end
object ADOQueryImage: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 1248
Top = 258
end
object DS_ImgHX: TDataSource
DataSet = Qry_ImgHX
Left = 1268
Top = 119
end
object Qry_ImgHX: TADOQuery
Connection = DataLink_Contract.ADOLink
Parameters = <>
Left = 1272
Top = 59
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 1256
Top = 186
end
end