📄 admin.dfm
字号:
object sysadmin: Tsysadmin
Left = 246
Top = 154
Width = 668
Height = 480
Caption = #31995#32479#31649#29702#21592
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 = 660
Height = 446
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = ' '#26435#38480#31649#29702' '
object Label1: TLabel
Left = 368
Top = 104
Width = 36
Height = 13
Caption = #22995#21517': '
end
object Label2: TLabel
Left = 368
Top = 160
Width = 36
Height = 13
Caption = #23494#30721': '
end
object Label3: TLabel
Left = 368
Top = 208
Width = 36
Height = 13
Caption = #26435#38480': '
end
object Button1: TButton
Left = 376
Top = 280
Width = 75
Height = 25
Caption = #28155' '#21152
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 472
Top = 328
Width = 75
Height = 25
Caption = #20462' '#25913
TabOrder = 1
OnClick = Button2Click
end
object Edit1: TEdit
Left = 420
Top = 103
Width = 137
Height = 21
TabOrder = 2
Text = 'Edit1'
end
object Edit2: TEdit
Left = 420
Top = 151
Width = 137
Height = 21
TabOrder = 3
Text = 'Edit1'
end
object ComboBox1: TComboBox
Left = 424
Top = 200
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
Items.Strings = (
#31995#32479#31649#29702#21592
#35797#21367#24405#20837#21592
#25913#21367#21592)
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 337
Height = 418
Align = alLeft
Caption = ' '#31649#29702#21592#21015#34920' '
TabOrder = 5
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 333
Height = 401
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
Title.Alignment = taCenter
Title.Caption = #22995#21517
Width = 83
Visible = True
end
item
Expanded = False
Title.Alignment = taCenter
Title.Caption = #23494#30721
Width = 100
Visible = True
end
item
Expanded = False
Title.Alignment = taCenter
Title.Caption = #26435#38480
Width = 102
Visible = True
end>
end
end
object Button3: TButton
Left = 472
Top = 280
Width = 75
Height = 25
Caption = #21024' '#38500
TabOrder = 6
OnClick = Button3Click
end
object Button7: TButton
Left = 376
Top = 328
Width = 75
Height = 25
Caption = #28165' '#38500
TabOrder = 7
OnClick = Button7Click
end
end
object TabSheet2: TTabSheet
Caption = ' '#27880#20876#31649#29702' '
ImageIndex = 1
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 345
Height = 418
Align = alLeft
Caption = ' '#30003#35831#23398#29983#21015#34920' '
TabOrder = 0
object DBGrid2: TDBGrid
Left = 2
Top = 15
Width = 341
Height = 401
Align = alClient
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #20934#32771#35777#21495
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = #24615#21035
Visible = True
end
item
Expanded = False
FieldName = #31995#21035
Visible = True
end
item
Expanded = False
FieldName = #29677#32423
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = #36523#20221#35777#21495
Visible = True
end>
end
end
object Button4: TButton
Left = 360
Top = 96
Width = 49
Height = 25
Caption = '>>'
TabOrder = 1
OnClick = Button4Click
end
object Button5: TButton
Left = 360
Top = 160
Width = 49
Height = 25
Caption = '<<'
TabOrder = 2
OnClick = Button5Click
end
object Button6: TButton
Left = 360
Top = 232
Width = 49
Height = 25
Caption = #21024#38500
TabOrder = 3
OnClick = Button6Click
end
object GroupBox3: TGroupBox
Left = 424
Top = 0
Width = 228
Height = 418
Align = alRight
Caption = ' '#24050#27880#20876#23398#29983' '
TabOrder = 4
object DBGrid3: TDBGrid
Left = 2
Top = 15
Width = 224
Height = 401
Align = alClient
DataSource = DataSource3
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #20934#32771#35777#21495
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = #36523#20221#35777#21495
Visible = True
end>
end
end
end
end
object ADOQuery1: TADOQuery
Connection = Data.Connection
Parameters = <>
Left = 396
Top = 40
end
object DataSource1: TDataSource
DataSet = ADOQuery1
OnDataChange = DataSource1DataChange
Left = 356
Top = 40
end
object ADOQuery2: TADOQuery
Connection = Data.Connection
Parameters = <>
Left = 396
Top = 376
end
object ADOQuery3: TADOQuery
Connection = Data.Connection
Parameters = <>
Left = 396
Top = 408
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 348
Top = 376
end
object DataSource3: TDataSource
DataSet = ADOQuery3
Left = 348
Top = 408
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -