📄 u_customeredit.~dfm
字号:
object frmCustomerEdit: TfrmCustomerEdit
Left = 185
Top = 226
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #23458#25143#36164#26009'--'#32534#36753
ClientHeight = 264
ClientWidth = 638
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 638
Height = 264
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 30
Top = 27
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 = 176
Top = 27
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 = 323
Top = 27
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 = 78
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 = 177
Top = 78
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 = 321
Top = 78
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 = 467
Top = 78
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 = 130
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 = 175
Top = 129
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 = 324
Top = 129
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 = 30
Top = 177
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 = 467
Top = 129
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 Label5: TLabel
Left = 464
Top = 29
Width = 51
Height = 13
Caption = #23458#25143#31867#21035':'
end
object edtNO: TEdit
Left = 31
Top = 48
Width = 121
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
Color = clWhite
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
OnKeyDown = edtNOKeyDown
end
object edtName: TEdit
Left = 177
Top = 48
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 = 323
Top = 48
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 = 96
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 = 175
Top = 96
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 = 320
Top = 96
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 = 467
Top = 96
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 = 146
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 = 175
Top = 145
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 = 324
Top = 145
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 = 467
Top = 145
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 = 193
Width = 560
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 11
OnKeyDown = edtNoteKeyDown
end
object btnOk: TBitBtn
Left = 158
Top = 232
Width = 75
Height = 25
Caption = #30830#12288#23450
TabOrder = 12
OnClick = btnOkClick
end
object BtnClose: TBitBtn
Left = 398
Top = 232
Width = 75
Height = 25
Caption = #36864#12288#20986
TabOrder = 13
OnClick = BtnCloseClick
end
object cmbCusClass: TComboBox
Left = 464
Top = 48
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 14
Text = 'cmbCusClass'
OnKeyDown = cmbCusClassKeyDown
Items.Strings = (
#22823#23458#25143
#23567#23458#25143)
end
end
object pup_CusEdit: TADOStoredProc
Connection = frmDataCtrl.ADOConn
ProcedureName = 'pup_Customer;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@CusNo'
Attributes = [paNullable]
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@CusSName'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@CusFName'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@CusMan'
Attributes = [paNullable]
DataType = ftString
Size = 10
Value = Null
end
item
Name = '@CusTel'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@CusFax'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@CusPost'
Attributes = [paNullable]
DataType = ftString
Size = 6
Value = Null
end
item
Name = '@CusAddr'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@CusBank'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@CusBankAccount'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end
item
Name = '@CusTax'
Attributes = [paNullable]
DataType = ftString
Size = 30
Value = Null
end
item
Name = '@CusClass'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@CusNote'
Attributes = [paNullable]
DataType = ftString
Size = 50
Value = Null
end>
Left = 32
Top = 232
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -