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

407 lines
9.5 KiB
Plaintext
Raw Normal View History

2025-04-11 10:54:54 +08:00
object frmExpenseInput: TfrmExpenseInput
Left = 261
Top = 149
Caption = #36153#29992#30331#35760
ClientHeight = 343
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 = 305
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
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 Label7: TLabel
Left = 28
Top = 186
Width = 41
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 Label8: TLabel
Left = 28
Top = 133
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 Label3: TLabel
Left = 250
Top = 133
Width = 47
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 Label18: TLabel
Left = 28
Top = 47
Width = 52
Height = 15
Caption = #25105#26041#36134#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 245
Top = 47
Width = 52
Height = 15
Caption = #23545#26041#36134#21495
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 = 495
Top = 20
Width = 39
Height = 15
Caption = #26085#26399#65306
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 = 245
Top = 75
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 = 28
Top = 75
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 = 495
Top = 75
Width = 39
Height = 15
Caption = #25688#35201#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Note: TMemo
Left = 88
Top = 186
Width = 797
Height = 57
ScrollBars = ssVertical
TabOrder = 0
end
object Currency: TComboBox
Left = 396
Top = 130
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 = 1
Text = 'CNY'
Items.Strings = (
'CNY'
'USD'
'EUR')
end
object PayMent: TBtnEditC
Left = 88
Top = 130
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 = 2
OnBtnUpClick = PayMentBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object OppCoName: TBtnEditC
Left = 301
Top = 17
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnBtnUpClick = OppCoNameBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object OurCoName: TBtnEditC
Left = 88
Top = 17
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object Amount: TcxCurrencyEdit
Left = 301
Top = 130
Properties.AssignedValues.DisplayFormat = True
TabOrder = 5
Width = 93
end
object OurBankName: TBtnEditC
Left = 86
Top = 44
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnBtnUpClick = OurBankNameBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object OppBankName: TBtnEditC
Left = 301
Top = 44
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnBtnUpClick = OppBankNameBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object FFTime: TDateTimePicker
Left = 536
Top = 17
Width = 125
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 8
end
object OrderNo: TBtnEditC
Left = 301
Top = 72
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
OnBtnUpClick = OrderNoBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object ConNo: TBtnEditC
Left = 88
Top = 72
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10
OnBtnUpClick = ConNoBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
object FFAbstract: TBtnEditC
Left = 536
Top = 72
Width = 125
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 = 11
OnBtnUpClick = PayMentBtnUpClick
OnBtnDnClick = PayMentBtnDnClick
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 835
Top = 136
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 782
Top = 128
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 709
Top = 129
end
end