📄 unit24.dfm
字号:
object khwh: Tkhwh
Left = 167
Top = 99
Width = 600
Height = 449
Caption = #23458#25143#36164#26009#32500#25252
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label37: TLabel
Left = 24
Top = 32
Width = 65
Height = 13
Caption = #26597#35810#26041#24335#65306
end
object Label38: TLabel
Left = 216
Top = 32
Width = 60
Height = 13
Caption = #26597#35810#26465#20214#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 24
Top = 64
Width = 65
Height = 13
Caption = #29992' '#25143' ID'#65306
end
object Label32: TLabel
Left = 220
Top = 64
Width = 60
Height = 13
Caption = #22995' '#21517#65306
end
object Label33: TLabel
Left = 416
Top = 64
Width = 36
Height = 13
Caption = #24615#21035#65306
end
object Label34: TLabel
Left = 24
Top = 96
Width = 63
Height = 13
Caption = #24180' '#40836#65306
end
object Label35: TLabel
Left = 24
Top = 128
Width = 65
Height = 13
Caption = #32852#31995#30005#35805#65306
end
object Label36: TLabel
Left = 216
Top = 128
Width = 60
Height = 13
Caption = #32852#31995#22320#22336#65306
end
object Label1: TLabel
Left = 216
Top = 96
Width = 60
Height = 13
Caption = #36523#20221#35777#21495#65306
end
object ComboBox1: TComboBox
Left = 96
Top = 24
Width = 97
Height = 21
Hint = 'useid'
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = #29992#25143#32534#21495
OnChange = ComboBox1Change
Items.Strings = (
#29992#25143#32534#21495
#21345#21495
#29992#25143#21517
#32852#31995#30005#35805)
end
object Edit4: TEdit
Left = 288
Top = 24
Width = 97
Height = 21
TabOrder = 1
end
object find: TButton
Left = 416
Top = 24
Width = 75
Height = 25
Caption = #26597#35810
Default = True
TabOrder = 2
OnClick = findClick
end
object change: TBitBtn
Left = 501
Top = 24
Width = 68
Height = 25
Caption = #20462#25913#20449#24687
Enabled = False
TabOrder = 3
OnClick = changeClick
end
object DBGrid8: TDBGrid
Left = 24
Top = 152
Width = 545
Height = 229
DataSource = DataSource1
ReadOnly = True
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid8CellClick
OnDblClick = DBGrid8DblClick
Columns = <
item
Expanded = False
FieldName = 'useid'
Title.Caption = #29992#25143#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'cardid'
Title.Caption = #21345#21495
Visible = True
end
item
Expanded = False
FieldName = 'usename'
Title.Caption = #29992#25143#21517
Visible = True
end
item
Expanded = False
FieldName = 'sex'
Title.Caption = #24615#21035
Visible = True
end
item
Expanded = False
FieldName = 'age'
Title.Caption = #24180#40836
Visible = True
end
item
Expanded = False
FieldName = 'shfenid'
Title.Caption = #36523#20221#35777#21495
Visible = True
end
item
Expanded = False
FieldName = 'tele'
Title.Caption = #32852#31995#30005#35805
Visible = True
end
item
Expanded = False
FieldName = 'address'
Title.Caption = #32852#31995#22320#22336
Visible = True
end>
end
object DBEdit6: TEdit
Left = 96
Top = 56
Width = 97
Height = 21
MaxLength = 8
TabOrder = 5
Text = 'DBEdit6'
OnKeyPress = DBEdit6KeyPress
end
object DBEdit9: TEdit
Left = 96
Top = 120
Width = 97
Height = 21
MaxLength = 12
TabOrder = 6
Text = 'DBEdit9'
OnKeyPress = DBEdit8KeyPress
end
object DBEdit8: TEdit
Left = 96
Top = 88
Width = 97
Height = 21
MaxLength = 2
TabOrder = 7
Text = 'DBEdit8'
OnKeyPress = DBEdit8KeyPress
end
object DBEdit7: TEdit
Left = 288
Top = 56
Width = 97
Height = 21
MaxLength = 8
TabOrder = 8
Text = 'DBEdit7'
end
object DBEdit10: TEdit
Left = 288
Top = 120
Width = 281
Height = 21
MaxLength = 50
TabOrder = 9
Text = 'DBEdit10'
end
object DBComboBox2: TComboBox
Left = 464
Top = 56
Width = 105
Height = 21
ItemHeight = 13
MaxLength = 2
TabOrder = 10
Items.Strings = (
#30007
#22899)
end
object Edit1: TEdit
Left = 288
Top = 88
Width = 281
Height = 21
MaxLength = 18
TabOrder = 11
Text = 'Edit1'
OnKeyPress = DBEdit6KeyPress
end
object adot_customers: TADOTable
Connection = DataModule11.ccsj
CursorType = ctStatic
TableName = 'customers'
Left = 164
Top = 219
end
object DataSource1: TDataSource
DataSet = adot_customers
Left = 216
Top = 168
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -