📄 u_usermain.~dfm
字号:
object frmUserMain: TfrmUserMain
Left = 178
Top = 149
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #25805#20316#21592#31649#29702
ClientHeight = 374
ClientWidth = 463
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDesktopCenter
Visible = True
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 321
Height = 369
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'UserBH'
Title.Alignment = taCenter
Title.Caption = #25805#20316#21592#32534#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'UserName'
Title.Alignment = taCenter
Title.Caption = #25805#20316#21592#22995#21517
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'UserPass'
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'InUse'
Title.Alignment = taCenter
Title.Caption = #26159#21542#22312#32844
Width = 80
Visible = True
end>
end
object BtnAdd: TBitBtn
Left = 360
Top = 32
Width = 75
Height = 25
Caption = #26032#22686
TabOrder = 1
OnClick = BtnAddClick
end
object BtnEdit: TBitBtn
Left = 360
Top = 78
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 2
OnClick = BtnEditClick
end
object BtnDrop: TBitBtn
Left = 360
Top = 265
Width = 75
Height = 25
Caption = #25764#28040#21475#20196
TabOrder = 3
OnClick = BtnDropClick
end
object BtnClose: TBitBtn
Left = 360
Top = 312
Width = 75
Height = 25
Caption = #20851#38381
TabOrder = 4
OnClick = BtnCloseClick
end
object BtnStat: TBitBtn
Left = 360
Top = 125
Width = 75
Height = 25
Caption = #22312#32844
TabOrder = 5
OnClick = BtnStatClick
end
object BtnEnd: TBitBtn
Left = 360
Top = 172
Width = 75
Height = 25
Caption = #31163#32844
TabOrder = 6
OnClick = BtnEndClick
end
object btnGrant: TBitBtn
Left = 360
Top = 218
Width = 75
Height = 25
Caption = #25480#26435
TabOrder = 7
OnClick = btnGrantClick
end
object Qry: TADOQuery
Connection = frmDataCtrl.ADOConn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from tb_Users')
Left = 80
Top = 160
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = Qry
Left = 128
Top = 160
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -