D7szChenfeng/应收应付/U_FDINVOICE_Sub_S.dfm
DESKTOP-E401PHE\Administrator ccdaa90a0f 移交
2025-07-22 15:51:47 +08:00

447 lines
11 KiB
Plaintext

object FrmInvoice_Sub_S: TFrmInvoice_Sub_S
Left = 137
Top = 191
Width = 1080
Height = 455
Caption = #24320#31080#30003#35831#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1064
Height = 31
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
DisabledImages = DataLink_YSYF.ThreeImgList
Flat = True
Images = DataLink_YSYF.ThreeImgList
List = True
ShowCaptions = True
TabOrder = 0
object TSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 14
OnClick = TSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object ToolBar2: TToolBar
Left = 0
Top = 177
Width = 1064
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar2'
DisabledImages = DataLink_YSYF.ThreeImgList
Flat = True
Images = DataLink_YSYF.ThreeImgList
List = True
ShowCaptions = True
TabOrder = 2
object TADD: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = TADDClick
end
object TDEl: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = TDElClick
end
end
object Panel1: TPanel
Left = 0
Top = 31
Width = 1064
Height = 146
Align = alTop
BevelOuter = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 40
Top = 201
Width = 52
Height = 12
Caption = #21457#31080#21495#30721
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 36
Top = 17
Width = 52
Height = 12
Caption = #24320#31080#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 292
Top = 201
Width = 52
Height = 12
Caption = #21457#31080#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 380
Top = 16
Width = 52
Height = 12
Caption = #24320#31080#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 600
Top = 16
Width = 52
Height = 12
Caption = #23545#26041#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 36
Top = 68
Width = 54
Height = 12
Caption = #25551' '#36848
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 244
Top = 297
Width = 53
Height = 12
Caption = #25805' '#20316' '#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 36
Top = 40
Width = 52
Height = 12
Caption = #25105#26041#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 208
Top = 16
Width = 53
Height = 12
Caption = #19994' '#21153' '#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object InvoiceNo: TEdit
Left = 100
Top = 197
Width = 140
Height = 20
TabOrder = 6
end
object InvoiceDate: TDateTimePicker
Left = 96
Top = 13
Width = 100
Height = 20
Date = 42263.599160520830000000
Time = 42263.599160520830000000
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 2
end
object Note: TMemo
Left = 96
Top = 68
Width = 693
Height = 69
ScrollBars = ssVertical
TabOrder = 5
end
object InvoiceType: TBtnEditA
Left = 348
Top = 197
Width = 140
Height = 20
ReadOnly = True
TabOrder = 7
OnBtnClick = InvoiceTypeBtnClick
end
object ToFactoryName: TBtnEditA
Left = 652
Top = 12
Width = 140
Height = 20
ReadOnly = True
TabOrder = 1
OnBtnClick = ToFactoryNameBtnClick
end
object FactoryName: TBtnEditA
Left = 440
Top = 12
Width = 140
Height = 20
ReadOnly = True
TabOrder = 0
OnBtnClick = FactoryNameBtnClick
end
object Filler: TEdit
Left = 316
Top = 317
Width = 121
Height = 20
Enabled = False
TabOrder = 8
end
object SYRName: TBtnEditA
Left = 96
Top = 36
Width = 269
Height = 20
TabOrder = 4
OnBtnClick = SYRNameBtnClick
end
object ywy: TEdit
Left = 264
Top = 13
Width = 100
Height = 20
TabOrder = 3
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 206
Width = 1064
Height = 211
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Qty
end
item
Kind = skSum
Column = v1Money
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_YSYF.FonePurple
object v1Column3: TcxGridDBColumn
Tag = 1
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column5: TcxGridDBColumn
Tag = 1
Caption = 'PO#'
DataBinding.FieldName = 'KHConNo'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'P_Code'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1P_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'P_CodeName'
HeaderAlignmentHorz = taCenter
Width = 119
end
object v1P_Spec: TcxGridDBColumn
Caption = #25104#21697#35268#26684
DataBinding.FieldName = 'P_Spec'
HeaderAlignmentHorz = taCenter
Width = 103
end
object v1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 83
end
object v1Price: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 93
end
object v1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1QtyUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Money: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Money'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1MoneyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column2: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'priceUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'RMB'
'USD')
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'P_Note'
HeaderAlignmentHorz = taCenter
Width = 145
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object DataSource1: TDataSource
DataSet = FP_Sub
Left = 920
Top = 20
end
object FP_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 852
Top = 108
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 752
Top = 64
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_YSYF.ADOLink
Parameters = <>
Left = 828
Top = 52
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YSYF.ADOLink
Parameters = <>
Left = 792
Top = 68
end
end