📄 u_supplyadd.dfm
字号:
object frmSupplyAdd: TfrmSupplyAdd
Left = 218
Top = 127
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #20379#23601#21830#20449#24687'--'#32534#36753
ClientHeight = 305
ClientWidth = 480
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 480
Height = 305
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 32
Top = 10
Width = 39
Height = 13
Caption = #32534' '#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 179
Top = 10
Width = 36
Height = 13
Caption = #31616#31216#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 326
Top = 10
Width = 36
Height = 13
Caption = #20840#31216#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 32
Top = 61
Width = 48
Height = 13
Caption = #32852#31995#20154#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 179
Top = 61
Width = 36
Height = 13
Caption = #30005#35805#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 326
Top = 61
Width = 36
Height = 13
Caption = #20256#30495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 32
Top = 160
Width = 60
Height = 13
Caption = #37038#25919#32534#30721#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 32
Top = 112
Width = 36
Height = 13
Caption = #22320#22336#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 179
Top = 112
Width = 60
Height = 13
Caption = #24320#25143#38134#34892#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 326
Top = 112
Width = 60
Height = 13
Caption = #38134#34892#24080#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 32
Top = 212
Width = 36
Height = 13
Caption = #22791#27880#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 179
Top = 160
Width = 36
Height = 13
Caption = #31246#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edtNO: TEdit
Left = 32
Top = 31
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
Color = clWhite
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
OnKeyDown = edtNOKeyDown
end
object edtName: TEdit
Left = 179
Top = 31
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 1
OnKeyDown = edtNameKeyDown
end
object edtFName: TEdit
Left = 326
Top = 31
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 2
OnKeyDown = edtFNameKeyDown
end
object edtMan: TEdit
Left = 32
Top = 79
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 3
OnKeyDown = edtManKeyDown
end
object edtTel: TEdit
Left = 179
Top = 79
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 4
OnKeyDown = edtTelKeyDown
end
object edtFax: TEdit
Left = 326
Top = 79
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 5
OnKeyDown = edtFaxKeyDown
end
object edtPost: TEdit
Left = 32
Top = 180
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 6
OnKeyDown = edtPostKeyDown
end
object edtAddr: TEdit
Left = 32
Top = 128
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 7
OnKeyDown = edtAddrKeyDown
end
object edtBank: TEdit
Left = 179
Top = 128
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 8
OnKeyDown = edtBankKeyDown
end
object edtBandAccount: TEdit
Left = 326
Top = 128
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 9
OnKeyDown = edtBandAccountKeyDown
end
object edtTax: TEdit
Left = 179
Top = 179
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 10
OnKeyDown = edtTaxKeyDown
end
object edtNote: TEdit
Left = 30
Top = 230
Width = 422
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 11
OnKeyDown = edtNoteKeyDown
end
object btnOk: TBitBtn
Left = 59
Top = 274
Width = 75
Height = 25
Caption = #30830#12288#23450
TabOrder = 12
OnClick = btnOkClick
end
object BtnCancle: TBitBtn
Left = 207
Top = 274
Width = 75
Height = 25
Caption = #21462#12288#28040
TabOrder = 13
OnClick = BtnCancleClick
end
object BtnClose: TBitBtn
Left = 355
Top = 274
Width = 75
Height = 25
Caption = #36864#12288#20986
TabOrder = 14
OnClick = BtnCloseClick
end
end
object pip_Supply: TADOStoredProc
Connection = frmDataCtrl.ADOConn
ProcedureName = 'pip_Supply;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@SupNo'
Attributes = [paNullable]
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@SupSName'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@SupFName'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@SupMan'
Attributes = [paNullable]
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@SupTel'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@SupFax'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@SupPost'
Attributes = [paNullable]
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@SupAddr'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@SupBank'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@SupBankAccount'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@SupTax'
Attributes = [paNullable]
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@SupNote'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end>
Left = 40
Top = 272
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -