D10myBiaoqi/A09财务通用管理/U_OtherPayableInput.dfm

844 lines
19 KiB
Plaintext
Raw Normal View History

2024-08-01 10:13:17 +08:00
object frmOtherPayableInput: TfrmOtherPayableInput
Left = 261
Top = 149
Caption = #20854#20182#24212#20184#27454#30331#35760
2025-01-13 16:36:43 +08:00
ClientHeight = 410
ClientWidth = 939
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Width = 939
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Width = 939
Height = 372
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Top = 260
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Top = 228
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Top = 192
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Top = 192
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Top = 192
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Left = 954
Top = 49
2024-08-01 10:13:17 +08:00
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
Visible = False
end
object Label14: TLabel
2025-01-13 16:36:43 +08:00
Left = 1171
Top = 49
2024-08-01 10:13:17 +08:00
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
Visible = False
end
object Label15: TLabel
2025-01-13 16:36:43 +08:00
Left = 951
Top = 18
2024-08-01 10:13:17 +08:00
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
Visible = False
end
object Label16: TLabel
2025-01-13 16:36:43 +08:00
Left = 1170
Top = 18
2024-08-01 10:13:17 +08:00
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
Visible = False
end
object Label17: TLabel
2025-01-13 16:36:43 +08:00
Left = 1381
Top = 49
2024-08-01 10:13:17 +08:00
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
Visible = False
end
object Label4: TLabel
Left = 674
2025-01-13 16:36:43 +08:00
Top = 192
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Top = 228
2024-08-01 10:13:17 +08:00
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
2024-08-10 17:13:44 +08:00
Left = 245
2024-08-01 10:13:17 +08:00
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
2024-08-10 17:13:44 +08:00
Left = 28
2024-08-01 10:13:17 +08:00
Top = 49
Width = 52
Height = 15
Caption = #23458#25143#21333#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
2024-08-10 17:13:44 +08:00
Left = 455
2025-01-13 16:36:43 +08:00
Top = 228
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
object Label19: TLabel
Left = 26
Top = 107
Width = 52
Height = 15
Caption = #24555#36882#31181#31867
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 456
Top = 77
Width = 52
Height = 15
Caption = #20215#26684#26415#35821
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label26: TLabel
Left = 243
Top = 107
Width = 52
Height = 15
Caption = #24555#36882#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 28
Top = 160
Width = 50
Height = 15
Caption = #32654' '#37329
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label28: TLabel
Left = 245
Top = 160
Width = 50
Height = 15
Caption = #27719' '#29575
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 455
Top = 160
Width = 51
Height = 15
Caption = #20154' '#27665' '#24065
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 674
Top = 160
Width = 79
Height = 15
Caption = #38134#34892#25163#32493#36153'('#165')'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
2024-08-01 10:13:17 +08:00
object F_Code: TEdit
Left = 82
Top = 77
Width = 140
Height = 18
TabOrder = 0
end
object Note: TMemo
Left = 82
2025-01-13 16:36:43 +08:00
Top = 260
2024-08-01 10:13:17 +08:00
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 = 402
2025-01-13 16:36:43 +08:00
Top = 225
2024-08-01 10:13:17 +08:00
Width = 37
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')
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
2024-08-10 17:13:44 +08:00
Left = 299
2024-08-01 10:13:17 +08:00
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 = 18
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 = 512
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
2025-01-13 16:36:43 +08:00
Top = 226
2024-08-01 10:13:17 +08:00
Properties.AssignedValues.DisplayFormat = True
TabOrder = 8
OnExit = QtyExit
Width = 101
end
object Price: TcxCurrencyEdit
2024-08-10 17:13:44 +08:00
Left = 512
2025-01-13 16:36:43 +08:00
Top = 189
2024-08-01 10:13:17 +08:00
Properties.AssignedValues.DisplayFormat = True
TabOrder = 9
OnExit = QtyExit
Width = 140
end
object Qty: TcxCurrencyEdit
2025-01-13 16:36:43 +08:00
Left = 301
Top = 189
2024-08-01 10:13:17 +08:00
Properties.AssignedValues.DisplayFormat = True
TabOrder = 10
OnExit = QtyExit
Width = 101
end
object Piece: TcxCurrencyEdit
2025-01-13 16:36:43 +08:00
Left = 84
Top = 190
2024-08-01 10:13:17 +08:00
Properties.AssignedValues.DisplayFormat = True
TabOrder = 11
Width = 140
end
object QtyUnit: TComboBox
Left = 400
2025-01-13 16:36:43 +08:00
Top = 189
2024-08-01 10:13:17 +08:00
Width = 37
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 12
Text = 'Kg'
Items.Strings = (
'Kg'
'M'
'Y'
#20010
#20214)
end
object F_Width: TEdit
2025-01-13 16:36:43 +08:00
Left = 1008
Top = 47
2024-08-01 10:13:17 +08:00
Width = 140
Height = 18
TabOrder = 13
Visible = False
end
object F_GramWeight: TEdit
2025-01-13 16:36:43 +08:00
Left = 1225
Top = 47
2024-08-01 10:13:17 +08:00
Width = 140
Height = 18
TabOrder = 14
Visible = False
end
object F_Pattern: TEdit
2025-01-13 16:36:43 +08:00
Left = 1008
Top = 17
2024-08-01 10:13:17 +08:00
Width = 140
Height = 18
TabOrder = 15
Visible = False
end
object F_Color: TEdit
2025-01-13 16:36:43 +08:00
Left = 1224
Top = 16
2024-08-01 10:13:17 +08:00
Width = 140
Height = 18
TabOrder = 16
Visible = False
end
object F_ColorNo: TEdit
2025-01-13 16:36:43 +08:00
Left = 1438
Top = 47
2024-08-01 10:13:17 +08:00
Width = 140
Height = 18
TabOrder = 17
Visible = False
end
object OtherFee: TcxCurrencyEdit
2024-08-10 17:13:44 +08:00
Left = 728
2025-01-13 16:36:43 +08:00
Top = 189
2024-08-01 10:13:17 +08:00
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
2025-01-13 16:36:43 +08:00
Top = 225
2024-08-01 10:13:17 +08:00
Properties.AssignedValues.DisplayFormat = True
TabOrder = 20
OnExit = QtyExit
Width = 140
end
object OrderNo: TBtnEditC
2024-08-10 17:13:44 +08:00
Left = 299
Top = 47
2024-08-01 10:13:17 +08:00
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 BuyConNo: TBtnEditC
2024-08-10 17:13:44 +08:00
Left = 82
2024-08-01 10:13:17 +08:00
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
OnBtnDnClick = PayMentBtnDnClick
end
object FFAbstract: TBtnEditC
2024-08-10 17:13:44 +08:00
Left = 512
Top = 47
2024-08-01 10:13:17 +08:00
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
2024-08-10 17:13:44 +08:00
Left = 512
2025-01-13 16:36:43 +08:00
Top = 225
2024-08-01 10:13:17 +08:00
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
object FZFlag: TcxCurrencyEdit
Left = 690
2025-01-13 16:36:43 +08:00
Top = 331
2024-08-01 10:13:17 +08:00
Properties.AssignedValues.DisplayFormat = True
TabOrder = 25
Visible = False
OnExit = QtyExit
Width = 140
end
2025-01-13 16:36:43 +08:00
object ExpressType: TBtnEditC
Left = 84
Top = 104
Width = 140
Height = 20
Hint = 'ExpressType/'#24555#36882#31181#31867
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 26
OnBtnUpClick = ExpressTypeBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object jiagesy: TEdit
Left = 514
Top = 77
Width = 140
Height = 18
TabOrder = 27
end
object TrackNo: TEdit
Left = 301
Top = 105
Width = 140
Height = 18
TabOrder = 28
end
object CNYAMount: TcxCurrencyEdit
Left = 512
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 29
OnExit = QtyExit
Width = 140
end
object ExchangeRate: TcxCurrencyEdit
Left = 301
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 30
OnExit = QtyExit
Width = 138
end
object USDAMount: TcxCurrencyEdit
Left = 84
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 31
OnExit = QtyExit
Width = 140
end
object SXFAmount: TcxCurrencyEdit
Left = 768
Top = 158
Properties.AssignedValues.DisplayFormat = True
TabOrder = 32
OnExit = QtyExit
Width = 100
end
2024-08-01 10:13:17 +08:00
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