📄 ttestpaperunit.dfm

📁 DELPHI计算机科学系教务管理系统,带论文设计,不错的参考
💻 DFM
字号:
object TTestpaperForm: TTTestpaperForm
  Left = 137
  Top = 103
  Width = 839
  Height = 624
  Caption = #35797#21367#30331#35760
  Color = clBtnFace
  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 Panel2: TPanel
    Left = 0
    Top = 542
    Width = 831
    Height = 55
    Align = alBottom
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 0
    object BitBtn2: TBitBtn
      Left = 210
      Top = 14
      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 = 275
      Top = 14
      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 = 339
      Top = 14
      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 = 403
      Top = 14
      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 = 467
      Top = 14
      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 = 531
      Top = 14
      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 = 460
    Width = 831
    Height = 82
    Align = alBottom
    BorderStyle = bsSingle
    Color = clActiveBorder
    TabOrder = 1
    object Label1: TLabel
      Left = 17
      Top = 14
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #21367'  '#23447'  '#21495#65306
    end
    object Label2: TLabel
      Left = 330
      Top = 16
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #35838#31243#21517#31216#65306
    end
    object Label3: TLabel
      Left = 635
      Top = 16
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #20219#35838#25945#24072#65306
    end
    object Label4: TLabel
      Left = 16
      Top = 49
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #29677#32423#21517#31216#65306
    end
    object Label5: TLabel
      Left = 670
      Top = 48
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #35797#21367#20221#25968#65306
    end
    object Label9: TLabel
      Left = 174
      Top = 49
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #23384#22312#38382#39064#65306
    end
    object Label10: TLabel
      Left = 433
      Top = 49
      Width = 35
      Height = 13
      AutoSize = False
      Caption = #22791#27880#65306
    end
    object Label11: TLabel
      Left = 175
      Top = 14
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #35838#31243#32534#21495#65306
    end
    object Label12: TLabel
      Left = 482
      Top = 16
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #25945#24072#32534#21495#65306
    end
    object edtttestno: TEdit
      Left = 81
      Top = 11
      Width = 83
      Height = 21
      TabOrder = 0
    end
    object edttlessonname: TEdit
      Left = 390
      Top = 11
      Width = 81
      Height = 21
      TabOrder = 1
    end
    object edttname: TEdit
      Left = 697
      Top = 12
      Width = 86
      Height = 21
      TabOrder = 2
    end
    object edttclassname: TEdit
      Left = 80
      Top = 45
      Width = 82
      Height = 21
      TabOrder = 3
    end
    object edtttestcount: TEdit
      Left = 728
      Top = 44
      Width = 56
      Height = 21
      TabOrder = 4
    end
    object edttquestion: TEdit
      Left = 237
      Top = 45
      Width = 184
      Height = 21
      TabOrder = 5
    end
    object edttmemo: TEdit
      Left = 470
      Top = 44
      Width = 194
      Height = 21
      TabOrder = 6
    end
    object cbxtcscode: TComboBox
      Left = 546
      Top = 12
      Width = 81
      Height = 21
      ItemHeight = 13
      TabOrder = 7
      Text = #35831#36873#25321
      OnChange = cbxtcscodeChange
    end
    object cbxtclessonname: TComboBox
      Left = 238
      Top = 11
      Width = 80
      Height = 21
      ItemHeight = 13
      TabOrder = 8
      Text = #35831#36873#25321
      OnChange = cbxtclessonnameChange
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 831
    Height = 44
    Align = alTop
    BorderStyle = bsSingle
    Color = clMoneyGreen
    TabOrder = 2
    object Label6: TLabel
      Left = 9
      Top = 15
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #21367'  '#23447'  '#21495#65306
    end
    object Label7: TLabel
      Left = 176
      Top = 14
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #35838#31243#21517#31216#65306
    end
    object Label8: TLabel
      Left = 351
      Top = 13
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #20219#35838#25945#24072#65306
    end
    object btnReport: TButton
      Left = 634
      Top = 7
      Width = 70
      Height = 25
      Caption = #29992#25143#25253#34920
      TabOrder = 0
      OnClick = btnReportClick
    end
    object Button1: TButton
      Left = 728
      Top = 7
      Width = 70
      Height = 25
      Caption = #23548#20986'Excel'
      TabOrder = 1
      OnClick = Button1Click
    end
    object btnFind: TBitBtn
      Left = 541
      Top = 7
      Width = 65
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = btnFindClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888800000888880000080F000888880F00080F000888880F
        0008000000080000000800F000000F00000800F000800F00000800F000800F00
        00088000000000000088880F00080F0008888800000800000888888000888000
        88888880F08880F0888888800088800088888888888888888888}
    end
    object Edit1: TEdit
      Left = 73
      Top = 10
      Width = 80
      Height = 21
      TabOrder = 3
    end
    object Edit2: TEdit
      Left = 240
      Top = 9
      Width = 87
      Height = 21
      TabOrder = 4
    end
    object Edit3: TEdit
      Left = 414
      Top = 9
      Width = 88
      Height = 21
      TabOrder = 5
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 44
    Width = 831
    Height = 416
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 825
      Height = 410
      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 = 'ttestno'
          Title.Caption = #21367#23447#21495
          Width = 83
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tlesson'
          Title.Caption = #35838#31243#21517#31216
          Width = 88
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tname'
          Title.Caption = #20219#35838#25945#24072
          Width = 101
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tclassname'
          Title.Caption = #29677#32423#21517#31216
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ttestcount'
          Title.Caption = #35797#21367#20221#25968
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tquestion'
          Title.Caption = #23384#22312#38382#39064
          Width = 167
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tmemo'
          Title.Caption = #22791#27880
          Width = 200
          Visible = True
        end>
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      
        'select ttp.ttestno,ttp.tscode,tl.tscode,tl.tlesson,ttp.tno,tt.tn' +
        'o,tt.tname,'
      'ttp.ttestcount,ttp.tquestion,ttp.tmemo,ttp.tclassname'
      
        'from tlesson tl inner join ttestpaper ttp on tl.tscode = ttp.tsc' +
        'ode'
      'inner join tteacher tt on tt.tno = ttp.tno')
    Left = 304
    Top = 217
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 154
    Top = 193
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -