📄 tcourse2unit.dfm
字号:
object TCourse2Form: TTCourse2Form
Left = 104
Top = 62
Width = 822
Height = 626
Caption = #35838#31243#34920
Color = cl3DLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 814
Height = 57
Align = alTop
BorderStyle = bsSingle
Color = clMoneyGreen
TabOrder = 0
object Label6: TLabel
Left = 8
Top = 19
Width = 59
Height = 13
AutoSize = False
Caption = #25480#35838#32769#24072#65306
end
object Label7: TLabel
Left = 211
Top = 18
Width = 60
Height = 13
AutoSize = False
Caption = #25480#35838#22320#28857#65306
end
object Label8: TLabel
Left = 405
Top = 19
Width = 36
Height = 13
Caption = #26143#26399#65306
end
object Edit1: TEdit
Left = 72
Top = 15
Width = 121
Height = 21
TabOrder = 0
end
object Edit2: TEdit
Left = 278
Top = 15
Width = 114
Height = 21
TabOrder = 1
end
object ComboBox1: TComboBox
Left = 444
Top = 15
Width = 81
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 2
Text = #35831#36873#25321
Items.Strings = (
#35831#36873#25321
#26143#26399#19968
#26143#26399#20108
#26143#26399#19977
#26143#26399#22235
#26143#26399#20116
#26143#26399#20845
#26143#26399#22825)
end
object btnReport: TButton
Left = 638
Top = 14
Width = 70
Height = 25
Caption = #29992#25143#25253#34920
TabOrder = 3
OnClick = btnReportClick
end
object Button1: TButton
Left = 724
Top = 14
Width = 70
Height = 25
Caption = #23548#20986'Excel'
TabOrder = 4
OnClick = Button1Click
end
object btnFind: TBitBtn
Left = 553
Top = 14
Width = 65
Height = 25
Caption = #26597#35810
TabOrder = 5
OnClick = btnFindClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888800000888880000080F000888880F00080F000888880F
0008000000080000000800F000000F00000800F000800F00000800F000800F00
00088000000000000088880F00080F0008888800000800000888888000888000
88888880F08880F0888888800088800088888888888888888888}
end
end
object Panel2: TPanel
Left = 0
Top = 544
Width = 814
Height = 55
Align = alBottom
BorderStyle = bsSingle
Color = clMoneyGreen
TabOrder = 1
object BitBtn2: TBitBtn
Left = 188
Top = 12
Width = 65
Height = 25
Caption = #22686#21152
TabOrder = 0
OnClick = BitBtn2Click
Glyph.Data = {
E6000000424DE60000000000000076000000280000000F0000000E0000000100
04000000000070000000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8880888888888888888088888888888888808888880008888880888888070888
8880888888070888888088800007000088808880777777708880888000070000
8880888888070888888088888807088888808888880008888880888888888888
88808888888888888880}
end
object BitBtn3: TBitBtn
Left = 253
Top = 12
Width = 65
Height = 25
Caption = #21024#38500
TabOrder = 1
OnClick = BitBtn3Click
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
F000FF000000000FF000FF0FFFFFFF0FF000FF000000000FF000FFFFFFFFFFFF
F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
F000}
end
object BitBtn4: TBitBtn
Left = 317
Top = 12
Width = 65
Height = 25
Caption = #20462#25913
TabOrder = 2
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 381
Top = 12
Width = 65
Height = 25
Caption = #21462#28040
TabOrder = 3
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object BitBtn6: TBitBtn
Left = 445
Top = 12
Width = 65
Height = 25
Caption = #20445#23384
TabOrder = 4
OnClick = BitBtn6Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888880000000000000880330000008803088033000000880308803300000088
0308803300000000030880333333333333088033000000003308803088888888
0308803088888888030880308888888803088030888888880308803088888888
0008803088888888080880000000000000088888888888888888}
end
object BitBtn7: TBitBtn
Left = 509
Top = 12
Width = 65
Height = 25
Caption = #36864#20986
TabOrder = 5
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
end
object Panel3: TPanel
Left = 0
Top = 472
Width = 814
Height = 72
Align = alBottom
BorderStyle = bsSingle
Color = clActiveBorder
TabOrder = 2
object Label1: TLabel
Left = 8
Top = 23
Width = 36
Height = 14
AutoSize = False
Caption = #24207#21495#65306
end
object Label2: TLabel
Left = 96
Top = 23
Width = 60
Height = 13
AutoSize = False
Caption = #19978#35838#26102#38388#65306
end
object Label3: TLabel
Left = 401
Top = 25
Width = 59
Height = 13
AutoSize = False
Caption = #25480#35838#32769#24072#65306
end
object Label4: TLabel
Left = 550
Top = 25
Width = 60
Height = 13
AutoSize = False
Caption = #25480#35838#22320#28857#65306
end
object Label5: TLabel
Left = 695
Top = 24
Width = 36
Height = 13
Caption = #26143#26399#65306
end
object Label12: TLabel
Left = 243
Top = 24
Width = 60
Height = 13
AutoSize = False
Caption = #25945#24072#32534#21495#65306
end
object edttc2no: TEdit
Left = 46
Top = 20
Width = 41
Height = 21
TabOrder = 0
end
object edttweekcount: TEdit
Left = 160
Top = 20
Width = 75
Height = 21
TabOrder = 1
end
object edttname: TEdit
Left = 466
Top = 21
Width = 79
Height = 21
TabOrder = 2
end
object edtadress: TEdit
Left = 612
Top = 20
Width = 77
Height = 21
TabOrder = 3
end
object cbxtweek: TComboBox
Left = 731
Top = 19
Width = 70
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 4
Text = #35831#36873#25321
Items.Strings = (
#35831#36873#25321
#26143#26399#19968
#26143#26399#20108
#26143#26399#19977
#26143#26399#22235
#26143#26399#20116
#26143#26399#20845
#26143#26399#22825)
end
object cbxtcscode: TComboBox
Left = 309
Top = 21
Width = 81
Height = 21
ItemHeight = 13
TabOrder = 5
Text = #35831#36873#25321
OnChange = cbxtcscodeChange
end
end
object Panel4: TPanel
Left = 0
Top = 57
Width = 814
Height = 415
Align = alClient
BorderStyle = bsSingle
TabOrder = 3
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 808
Height = 409
Align = alClient
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'tcno'
Title.Caption = #24207#21495
Width = 121
Visible = True
end
item
Expanded = False
FieldName = 'tweek'
Title.Caption = #26143#26399
Width = 159
Visible = True
end
item
Expanded = False
FieldName = 'tweekcount'
Title.Caption = #26102#38388
Width = 119
Visible = True
end
item
Expanded = False
FieldName = 'tadress'
Title.Caption = #22320#28857
Width = 161
Visible = True
end
item
Expanded = False
FieldName = 'tname'
Title.Caption = #25480#35838#25945#24072
Width = 203
Visible = True
end>
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 256
Top = 153
end
object ADOQuery1: TADOQuery
Connection = DM.ADOConnection1
AfterScroll = ADOQuery1AfterScroll
Parameters = <>
SQL.Strings = (
'select tcn.tcno,tcn.tweek,tcn.tweekcount,tcn.tno,tcn.tadress,tt.' +
'tno ,tt.tname '
'from TCoursen tcn inner join tteacher tt on tcn.tno = tt.tno ')
Left = 200
Top = 193
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -