📄 user.dfm
字号:
object Frm_User: TFrm_User
Left = 231
Top = 154
Width = 566
Height = 404
Caption = #29992#25143#31649#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 558
Height = 41
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 33
Width = 554
end>
object ToolBar1: TToolBar
Left = 9
Top = 0
Width = 541
Height = 33
ButtonHeight = 21
ButtonWidth = 55
Caption = 'ToolBar1'
Flat = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
Caption = #28155#21152#29992#25143
ImageIndex = 0
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 55
Top = 0
Caption = #20462#25913#29992#25143
ImageIndex = 4
OnClick = ToolButton4Click
end
object ToolButton2: TToolButton
Left = 110
Top = 0
Caption = #21024#38500#29992#25143
ImageIndex = 1
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 165
Top = 0
Width = 8
Caption = 'ToolButton3'
ImageIndex = 2
Style = tbsSeparator
end
object ToolButton5: TToolButton
Left = 173
Top = 0
Caption = #36864#20986
ImageIndex = 3
OnClick = ToolButton5Click
end
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 41
Width = 558
Height = 336
Align = alClient
DataSource = DSUser
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'MR_Name'
Title.Caption = #29992#25143#21517
Width = 110
Visible = True
end
item
Expanded = False
FieldName = 'MR_Login'
Title.Caption = #30331#24405#21517
Width = 110
Visible = True
end
item
Expanded = False
FieldName = 'MR_Group'
Width = 101
Visible = True
end
item
Expanded = False
FieldName = 'MR_Dept'
Title.Caption = #37096#38376
Width = 110
Visible = True
end
item
Expanded = False
FieldName = 'MR_Memo'
Title.Caption = #22791#27880
Width = 130
Visible = True
end>
end
object ADOUser: TADODataSet
Connection = FDM.ADOCon
CursorType = ctStatic
LockType = ltBatchOptimistic
CommandText = 'select * from MR_User_Tab'
Parameters = <>
Left = 24
Top = 232
object ADOUserMR_ID: TAutoIncField
FieldName = 'MR_ID'
ReadOnly = True
end
object ADOUserMR_Name: TStringField
FieldName = 'MR_Name'
FixedChar = True
end
object ADOUserMR_Pwd: TStringField
FieldName = 'MR_Pwd'
end
object ADOUserMR_Dept: TStringField
FieldName = 'MR_Dept'
FixedChar = True
end
object ADOUserMR_Login: TStringField
FieldName = 'MR_Login'
FixedChar = True
end
object ADOUserMR_Memo: TStringField
FieldName = 'MR_Memo'
Size = 50
end
object ADOUserMR_Group: TStringField
DisplayLabel = #29992#25143#32452
DisplayWidth = 80
FieldName = 'MR_Group'
Size = 50
end
end
object DSUser: TDataSource
DataSet = ADOUser
Left = 56
Top = 232
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -