📄 tjbb.~dfm
字号:
object FTJBB: TFTJBB
Left = 210
Top = 117
Width = 696
Height = 480
Caption = '统计报表'
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
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 688
Height = 40
ButtonHeight = 36
ButtonWidth = 31
Caption = 'ToolBar1'
Color = clActiveBorder
Flat = True
Images = MainForm.ImageList3
ParentColor = False
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
object TBOUT: TToolButton
Left = 0
Top = 0
Caption = '输出'
ImageIndex = 23
OnClick = TBOUTClick
end
object TBPrint: TToolButton
Left = 31
Top = 0
Caption = '打印'
ImageIndex = 2
OnClick = TBPrintClick
end
object TBrefresh: TToolButton
Left = 62
Top = 0
Caption = '刷新'
ImageIndex = 13
OnClick = TBrefreshClick
end
object TBEXIT: TToolButton
Left = 93
Top = 0
Hint = '退出'
Caption = '退出'
ImageIndex = 7
OnClick = TBEXITClick
end
object GroupBox3: TGroupBox
Left = 124
Top = 0
Width = 454
Height = 36
Caption = '年度'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label2: TLabel
Left = 23
Top = 16
Width = 27
Height = 16
AutoSize = False
Caption = '起:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 280
Top = 14
Width = 36
Height = 13
Caption = '学期:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 152
Top = 14
Width = 26
Height = 16
AutoSize = False
Caption = '止:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object RxS_KSND: TRxSpinEdit
Left = 47
Top = 9
Width = 100
Height = 24
MaxValue = 2050
MinValue = 1990
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object CB_XQ: TComboBox
Left = 314
Top = 8
Width = 93
Height = 22
Style = csOwnerDrawFixed
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 1
Items.Strings = (
'全年'
'上学期'
'下学期')
end
object RxS_JSND: TRxSpinEdit
Left = 175
Top = 8
Width = 100
Height = 24
MaxValue = 2050
MinValue = 1990
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 40
Width = 153
Height = 413
Align = alLeft
Caption = '统计报表'
TabOrder = 1
object TVBB: TTreeView
Left = 2
Top = 15
Width = 149
Height = 396
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Images = MainForm.ImageList2
Indent = 19
ParentFont = False
TabOrder = 0
OnClick = TVBBClick
Items.Data = {
03000000270000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
0EB1BEBFC6BDCCD1A7CDB3BCC6B1ED27000000010000000100000001000000FF
FFFFFF00000000000000000EBDCCCAA6B9A4D7F7C1BFCDB3BCC6210000000100
00000100000002000000FFFFFFFF000000000000000008BFCEB3CCCDB3BCC629
0000000000000000000000FFFFFFFFFFFFFFFF000000000200000010D1D0BEBF
C9FABDCCD1A7CDB3BCC6B1ED27000000010000000100000003000000FFFFFFFF
00000000000000000EBDCCCAA6B9A4D7F7C1BFCDB3BCC6210000000100000001
00000004000000FFFFFFFF000000000000000008BFCEB3CCCDB3BCC627000000
0000000000000000FFFFFFFFFFFFFFFF00000000020000000EB1CFD2B5C9E8BC
C6CDB3BCC6B1ED27000000010000000100000005000000FFFFFFFF0000000000
0000000EBDCCCAA6B9A4D7F7C1BFCDB3BCC62100000001000000010000000600
0000FFFFFFFF000000000000000008BFCEB3CCCDB3BCC6}
end
end
object GroupBox2: TGroupBox
Left = 153
Top = 40
Width = 535
Height = 413
Align = alClient
Caption = '报表信息'
TabOrder = 2
object DBGridEh1: TDBGridEh
Left = 2
Top = 15
Width = 531
Height = 396
Align = alClient
DataSource = DataSource1
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clYellow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
MinAutoFitWidth = 20
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghIncSearch, dghPreferIncSearch]
ParentFont = False
ReadOnly = True
RowHeight = 2
RowLines = 1
SortLocal = True
SumList.Active = True
SumList.VirtualRecords = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
TitleHeight = 35
OnSortMarkingChanged = DBGridEh1SortMarkingChanged
end
end
object ADO_BB: TADOQuery
Connection = MainForm.ADOC
Parameters = <>
Left = 616
Top = 104
end
object DataSource1: TDataSource
DataSet = ADO_BB
Left = 313
Top = 152
end
object PrintDBGridEh1: TPrintDBGridEh
DBGridEh = DBGridEh1
Options = []
Page.BottomMargin = 2
Page.LeftMargin = 2
Page.RightMargin = 2
Page.TopMargin = 2
PageFooter.CenterText.Strings = (
'')
PageFooter.Font.Charset = DEFAULT_CHARSET
PageFooter.Font.Color = clWindowText
PageFooter.Font.Height = -13
PageFooter.Font.Name = 'MS Sans Serif'
PageFooter.Font.Style = []
PageHeader.CenterText.Strings = (
'本科生教学信息一览表')
PageHeader.Font.Charset = DEFAULT_CHARSET
PageHeader.Font.Color = clWindowText
PageHeader.Font.Height = -19
PageHeader.Font.Name = 'MS Sans Serif'
PageHeader.Font.Style = []
PrintFontName = '宋体'
Title.Strings = (
'')
Units = MM
Left = 400
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -