📄 sysuserfrm.dfm
字号:
inherited SysUserForm: TSysUserForm
Left = 93
Top = 135
Caption = #31995#32479#29992#25143#23450#20041
ClientHeight = 259
ClientWidth = 665
PixelsPerInch = 96
TextHeight = 15
inherited Panel1: TPanel
Top = 218
Width = 665
inherited sbquery: TSpeedButton
Left = 484
Top = 1
Width = 102
Caption = #26597#35810#23494#30721
OnClick = sbqueryClick
end
inherited sbimport: TSpeedButton
Left = 384
Top = 1
Width = 101
Caption = #20462#25913#23494#30721
OnClick = sbimportClick
end
inherited sbexit: TSpeedButton
Left = 587
end
end
inherited PageControl1: TPageControl
Width = 665
Height = 218
inherited TabSheet1: TTabSheet
inherited DBGrid1: TDBGrid
Width = 657
Height = 178
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'UserCode'
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'UserName'
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'ISSUPER'
Title.Alignment = taCenter
Width = 88
Visible = True
end>
end
end
inherited TabSheet2: TTabSheet
inherited Panel2: TPanel
Width = 657
Height = 178
object Label1: TLabel
Left = 72
Top = 16
Width = 60
Height = 15
Caption = #29992#25143#32534#30721
FocusControl = DBEdit1
end
object Label2: TLabel
Left = 72
Top = 72
Width = 60
Height = 15
Caption = #29992#25143#21517#31216
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 73
Top = 123
Width = 75
Height = 15
Caption = #26159#21542#31649#29702#21592
FocusControl = DBEdit3
end
object DBEdit1: TDBEdit
Left = 72
Top = 37
Width = 105
Height = 23
DataField = 'UserCode'
DataSource = DataSource1
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 72
Top = 92
Width = 154
Height = 23
DataField = 'UserName'
DataSource = DataSource1
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 74
Top = 141
Width = 25
Height = 23
DataField = 'ISSUPER'
DataSource = DataSource1
TabOrder = 2
end
end
end
end
inherited ImageList1: TImageList
Left = 268
Top = 2
end
inherited ADOQuery1: TADOQuery
Connection = DmMain.ADOConnection1
AfterInsert = ADOQuery1AfterInsert
SQL.Strings = (
'select * from users')
Left = 220
Top = 0
object ADOQuery1User_ID: TAutoIncField
FieldName = 'User_ID'
ReadOnly = True
end
object ADOQuery1UserCode: TWideStringField
DisplayLabel = #29992#25143#32534#30721
FieldName = 'UserCode'
Size = 12
end
object ADOQuery1UserName: TWideStringField
DisplayLabel = #29992#25143#21517#31216
FieldName = 'UserName'
Size = 10
end
object ADOQuery1Enterpass: TWideStringField
DisplayLabel = #21475#20196
FieldName = 'Enterpass'
Size = 6
end
object ADOQuery1ISSUPER: TWideStringField
DisplayLabel = #26159#21542#31649#29702#21592
FieldName = 'ISSUPER'
Size = 1
end
end
inherited DataSource1: TDataSource
Left = 172
Top = 0
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -