📄 dormmanager_unit.dfm
字号:
inherited frmDormManager: TfrmDormManager
Left = 199
Top = 162
Caption = #23398#29983#23487#33293#31649#29702
ClientHeight = 377
ClientWidth = 498
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel [0]
Left = 8
Top = 8
Width = 481
Height = 361
BevelInner = bvLowered
TabOrder = 0
object PageControl1: TPageControl
Left = 2
Top = 2
Width = 477
Height = 357
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #23487#33293#20998#37197
object Panel2: TPanel
Left = 0
Top = 0
Width = 469
Height = 176
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 2
Width = 465
Height = 172
Align = alClient
DataSource = DataDorm
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'ClassID'
Title.Alignment = taCenter
Title.Caption = #29677#32423
Width = 150
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'StudentID'
Title.Alignment = taCenter
Title.Caption = #23398#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'StuSex'
Title.Alignment = taCenter
Title.Caption = #24615#21035
Width = 50
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'DormID'
Title.Alignment = taCenter
Title.Caption = #23487#33293#32534#21495
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Remark'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 200
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 176
Width = 469
Height = 154
Align = alBottom
BevelInner = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 9
Top = 16
Width = 48
Height = 12
Caption = #29677' '#32423#65306
end
object Label2: TLabel
Left = 8
Top = 42
Width = 48
Height = 12
Caption = #23398' '#21495#65306
end
object Label3: TLabel
Left = 240
Top = 16
Width = 48
Height = 12
Caption = #24615' '#21035#65306
end
object Label4: TLabel
Left = 8
Top = 72
Width = 48
Height = 12
Caption = #22791' '#27880#65306
end
object Label5: TLabel
Left = 232
Top = 40
Width = 60
Height = 12
Caption = #23487#33293#32534#21495#65306
end
object cmbxClassName: TDBLookupComboBox
Left = 57
Top = 12
Width = 152
Height = 20
DataField = 'ClassID'
DataSource = DataDorm
DropDownWidth = 150
KeyField = 'ClassID'
ListField = 'ClassID;ClaName'
ListSource = DataClassName
TabOrder = 0
end
object cmbxStuSex: TDBComboBox
Left = 296
Top = 12
Width = 57
Height = 20
Style = csDropDownList
DataField = 'StuSex'
DataSource = DataDorm
ItemHeight = 12
Items.Strings = (
#30007
#22899)
TabOrder = 1
end
object cmbxStudentID: TDBLookupComboBox
Left = 56
Top = 38
Width = 153
Height = 20
DataField = 'StudentID'
DataSource = DataDorm
DropDownWidth = 150
KeyField = 'StudentID'
ListField = 'StudentID;StuName'
ListSource = DataStudentID
TabOrder = 2
end
object edtRemark: TDBMemo
Left = 56
Top = 64
Width = 407
Height = 49
DataField = 'Remark'
DataSource = DataDorm
TabOrder = 3
end
object cmbxDormID: TDBLookupComboBox
Left = 296
Top = 38
Width = 169
Height = 20
DataField = 'DormID'
DataSource = DataDorm
DropDownWidth = 150
KeyField = 'DormID'
ListField = 'DormID;DormName'
ListSource = DataDormID
TabOrder = 4
end
object btnAdd: TBitBtn
Left = 43
Top = 120
Width = 75
Height = 25
Caption = #28155#21152'(&A)'
TabOrder = 5
OnClick = btnAddClick
end
object btnModify: TBitBtn
Left = 123
Top = 120
Width = 75
Height = 25
Caption = #20462#25913'(&M)'
TabOrder = 6
OnClick = btnModifyClick
end
object btnDel: TBitBtn
Left = 203
Top = 120
Width = 75
Height = 25
Caption = #21024#38500'(&D)'
TabOrder = 7
OnClick = btnDelClick
end
object btnSave: TBitBtn
Left = 283
Top = 120
Width = 75
Height = 25
Caption = #20445#23384'(&S)'
TabOrder = 8
OnClick = btnSaveClick
end
object btnCancel: TBitBtn
Left = 363
Top = 120
Width = 75
Height = 25
Caption = #21462#28040'(&C)'
TabOrder = 9
OnClick = btnCancelClick
end
end
end
object TabSheet2: TTabSheet
Caption = #26597#35810
ImageIndex = 1
object Panel4: TPanel
Left = 0
Top = 0
Width = 469
Height = 65
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label14: TLabel
Left = 17
Top = 11
Width = 48
Height = 12
Caption = #39033' '#30446#65306
end
object Label15: TLabel
Left = 161
Top = 11
Width = 48
Height = 12
Caption = #26465' '#20214#65306
end
object Label16: TLabel
Left = 273
Top = 11
Width = 24
Height = 12
Caption = #20540#65306
end
object cmbxItems: TComboBox
Left = 70
Top = 7
Width = 85
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
Items.Strings = (
#23398#21495
#22995#21517
#23487#33293#32534#21495)
end
object cmbxCondition: TComboBox
Left = 217
Top = 7
Width = 52
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
Items.Strings = (
'>'
'<'
'='
'Like')
end
object cmbxValues: TComboBox
Left = 302
Top = 7
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 2
end
object btnFind: TBitBtn
Left = 368
Top = 32
Width = 75
Height = 25
Caption = #26597#35810'(&F)'
TabOrder = 3
OnClick = btnFindClick
end
end
object Panel5: TPanel
Left = 0
Top = 65
Width = 469
Height = 265
Align = alClient
BevelInner = bvLowered
TabOrder = 1
object DBGrid2: TDBGrid
Left = 2
Top = 2
Width = 465
Height = 261
Align = alClient
DataSource = DataFindDrom
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'ClassID'
Title.Alignment = taCenter
Title.Caption = #29677#32423
Width = 150
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'StudentID'
Title.Alignment = taCenter
Title.Caption = #23398#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'StuSex'
Title.Alignment = taCenter
Title.Caption = #24615#21035
Width = 50
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'DormID'
Title.Alignment = taCenter
Title.Caption = #23487#33293#32534#21495
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Remark'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 200
Visible = True
end>
end
end
end
end
end
inherited ActionList1: TActionList
Left = 80
Top = 128
end
inherited PopupMenu1: TPopupMenu
Left = 120
Top = 128
end
object DataDorm: TDataSource
Left = 158
Top = 129
end
object DataClassName: TDataSource
Left = 198
Top = 129
end
object DataDormID: TDataSource
Left = 238
Top = 129
end
object DataStudentID: TDataSource
Left = 280
Top = 128
end
object DataFindDrom: TDataSource
Left = 336
Top = 128
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -