D10gmBitao/A09财务通用管理/U_PayableInput.dfm

674 lines
15 KiB
Plaintext
Raw Normal View History

2025-04-11 10:54:54 +08:00
object frmPayableInput: TfrmPayableInput
Left = 261
Top = 149
Caption = #24212#20184#27454#30331#35760
ClientHeight = 362
ClientWidth = 919
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 919
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Financial.ImageList_new32
Images = DataLink_Financial.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 919
Height = 324
Align = alClient
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 = 1
OnClick = ScrollBox1Click
object Label2: TLabel
Left = 245
Top = 20
Width = 52
Height = 15
Caption = #23545#26041#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 28
Top = 79
Width = 50
Height = 15
Caption = #32534' '#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 28
Top = 204
Width = 50
Height = 15
Caption = #22791' '#27880
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 245
Top = 79
Width = 50
Height = 15
Caption = #21697' '#21517
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 674
Top = 49
Width = 52
Height = 15
Caption = #20184#27454#26041#24335
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 28
Top = 20
Width = 52
Height = 15
Caption = #25105#26041#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 455
Top = 20
Width = 52
Height = 15
Caption = #19978#32423#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 245
Top = 172
Width = 50
Height = 15
Caption = #37329' '#39069
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 28
Top = 136
Width = 50
Height = 15
Caption = #21305' '#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 245
Top = 136
Width = 50
Height = 15
Caption = #25968' '#37327
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 455
Top = 136
Width = 50
Height = 15
Caption = #21333' '#20215
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 28
Top = 105
Width = 50
Height = 15
Caption = #38376' '#24133
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 245
Top = 105
Width = 50
Height = 15
Caption = #20811' '#37325
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 455
Top = 79
Width = 50
Height = 15
Caption = #33457' '#22411
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 674
Top = 79
Width = 50
Height = 15
Caption = #39068' '#33394
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 455
Top = 105
Width = 50
Height = 15
Caption = #33394' '#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 674
Top = 136
Width = 51
Height = 15
Caption = #20854' '#20182' '#36153
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 674
Top = 20
Width = 50
Height = 15
Caption = #26085' '#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 28
Top = 172
Width = 50
Height = 15
Caption = #20943' '#20813
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 244
Top = 49
Width = 52
Height = 15
Caption = #35745#21010#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 27
Top = 49
Width = 51
Height = 15
Caption = #21512' '#21516' '#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 455
Top = 49
Width = 53
Height = 15
Caption = #25688' '#35201
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 458
Top = 172
Width = 52
Height = 15
Caption = #26159#21542#21547#31246
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object F_Code: TEdit
Left = 82
Top = 77
Width = 140
Height = 18
TabOrder = 0
end
object Note: TMemo
Left = 82
Top = 204
Width = 797
Height = 57
ScrollBars = ssVertical
TabOrder = 2
end
object F_Name: TEdit
Left = 299
Top = 77
Width = 140
Height = 18
TabOrder = 1
end
object Currency: TComboBox
Left = 393
Top = 169
Width = 45
Height = 20
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'Times New Roman'
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 3
Text = 'CNY'
Items.Strings = (
'CNY'
'USD'
'EUR')
end
object PayMent: TBtnEditC
Left = 728
Top = 47
Width = 140
Height = 20
Hint = 'PayMent/'#20184#27454#26041#24335
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnBtnUpClick = PayMentBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object OppCoName: TBtnEditC
Left = 299
Top = 17
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
OnBtnUpClick = OppCoNameBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object OurCoName: TBtnEditC
Left = 82
Top = 17
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object OppParentCoName: TBtnEditC
Left = 513
Top = 17
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 7
OnBtnUpClick = OppParentCoNameBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object Amount: TcxCurrencyEdit
Left = 299
Top = 169
Properties.AssignedValues.DisplayFormat = True
TabOrder = 8
OnExit = QtyExit
Width = 93
end
object Price: TcxCurrencyEdit
Left = 513
Top = 133
Properties.AssignedValues.DisplayFormat = True
TabOrder = 9
OnExit = QtyExit
Width = 140
end
object Qty: TcxCurrencyEdit
Left = 299
Top = 133
Properties.AssignedValues.DisplayFormat = True
TabOrder = 10
OnExit = QtyExit
Width = 101
end
object Piece: TcxCurrencyEdit
Left = 84
Top = 133
Properties.AssignedValues.DisplayFormat = True
TabOrder = 11
Width = 140
end
object QtyUnit: TComboBox
Left = 401
Top = 133
Width = 37
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 12
Text = 'Kg'
Items.Strings = (
'Kg'
'M'
'Y'
#20010
#20214)
end
object F_Width: TEdit
Left = 82
Top = 103
Width = 140
Height = 18
TabOrder = 13
end
object F_GramWeight: TEdit
Left = 299
Top = 103
Width = 140
Height = 18
TabOrder = 14
end
object F_Pattern: TEdit
Left = 513
Top = 77
Width = 140
Height = 18
TabOrder = 15
end
object F_Color: TEdit
Left = 728
Top = 77
Width = 140
Height = 18
TabOrder = 16
end
object F_ColorNo: TEdit
Left = 513
Top = 103
Width = 140
Height = 18
TabOrder = 17
end
object OtherFee: TcxCurrencyEdit
Left = 728
Top = 133
Properties.AssignedValues.DisplayFormat = True
TabOrder = 18
OnExit = QtyExit
Width = 140
end
object FFTime: TDateTimePicker
Left = 728
Top = 17
Width = 140
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 19
end
object Deduction: TcxCurrencyEdit
Left = 82
Top = 169
Properties.AssignedValues.DisplayFormat = True
TabOrder = 20
OnExit = QtyExit
Width = 140
end
object OrderNo: TBtnEditC
Left = 299
Top = 47
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 21
OnBtnUpClick = OrderNoBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object ConNo: TBtnEditC
Left = 81
Top = 47
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 22
OnBtnUpClick = ConNoBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object FFAbstract: TBtnEditC
Left = 513
Top = 47
Width = 140
Height = 20
Hint = 'FFAbstract/'#25688#35201
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 23
OnBtnUpClick = PayMentBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object IsInvoice: TComboBox
Left = 513
Top = 169
Width = 137
Height = 20
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 24
Items.Strings = (
#21547#31246
#19981#21547#31246)
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 547
Top = 336
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 438
Top = 336
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 325
Top = 345
end
end