?? setright.~dfm
字號:
object FormSetRight: TFormSetRight
Left = 290
Top = 156
Width = 400
Height = 300
Caption = #35774#32622#29992#25143#26435#38480
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 392
Height = 273
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #35774#32622#29992#25143#26435#38480
OnShow = TabSheet1Show
object CheckListBox1: TCheckListBox
Left = 0
Top = 41
Width = 384
Height = 204
Align = alClient
ItemHeight = 13
TabOrder = 0
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 384
Height = 41
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 16
Width = 57
Height = 13
AutoSize = False
Caption = #36873#25321#29992#25143
end
object ComboBox1: TComboBox
Left = 64
Top = 8
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
OnCloseUp = ComboBox1CloseUp
end
object Button1: TButton
Left = 216
Top = 8
Width = 75
Height = 25
Caption = #20445#23384#35774#32622
TabOrder = 1
OnClick = Button1Click
end
end
end
object TabSheet2: TTabSheet
Caption = #29992#25143#31649#29702
ImageIndex = 1
OnShow = TabSheet2Show
object Panel2: TPanel
Left = 0
Top = 0
Width = 384
Height = 41
Align = alTop
TabOrder = 0
object DBNavigator1: TDBNavigator
Left = 10
Top = 8
Width = 230
Height = 25
DataSource = DX_User
Ctl3D = True
Hints.Strings = (
#31532#19968#26465
#21069#19968#26465
#19979#19968#26465
#26368#21518#19968#26465
#28155#21152#26032#35760#24405
#21024#38500#35813#35760#24405
#32534#36753#35813#35760#24405
#20445#23384
#21462#28040#25913#21464
#21047#26032)
ParentCtl3D = False
TabOrder = 0
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 41
Width = 384
Height = 204
Align = alClient
DataSource = DX_User
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Username'
Title.Caption = #29992#25143#21517
Width = 103
Visible = True
end
item
Expanded = False
FieldName = 'Password'
Title.Caption = #23494#30721
Width = 119
Visible = True
end>
end
end
end
object DX_User: TDataSource
DataSet = T_User
Left = 124
Top = 80
end
object T_User: TADOQuery
Connection = DM.Conn
CursorLocation = clUseServer
Parameters = <>
SQL.Strings = (
'select * from Users')
Left = 172
Top = 80
object T_Userid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object T_UserUsername: TWideStringField
FieldName = 'Username'
Size = 50
end
object T_UserPassword: TWideStringField
FieldName = 'Password'
Size = 50
end
object T_Usertag: TWideStringField
FieldName = 'tag'
Size = 50
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -