📄 unit9.dfm
字号:
object frmusermang: Tfrmusermang
Left = 255
Top = 205
BorderStyle = bsDialog
Caption = #29992#25143#31649#29702
ClientHeight = 229
ClientWidth = 276
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 104
Top = 11
Width = 64
Height = 20
Caption = #29992#25143#21015#34920
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 16
Top = 35
Width = 243
Height = 153
DataSource = adodsuser
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'user'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'password'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'power'
Width = 45
Visible = True
end>
end
object btnok: TBitBtn
Left = 80
Top = 195
Width = 113
Height = 30
Caption = #30830#23450
TabOrder = 1
OnClick = btnokClick
Kind = bkOK
end
object adodsuser: TDataSource
DataSet = adoqueuser
Left = 248
Top = 3
end
object adoqueuser: TADOQuery
Connection = frmmain.adocon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from pass')
Left = 216
Top = 3
object adoqueuseruser: TWideStringField
FieldName = 'user'
Size = 50
end
object adoqueuserpassword: TWideStringField
FieldName = 'password'
Size = 50
end
object adoqueuserpower: TWideStringField
FieldName = 'power'
Size = 50
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -