教育系统应用

开发平台：
Delphi

Unit8.dfm：源码内容
							object judgeform: Tjudgeform
  Left = -126
  Top = 98
  Width = 786
  Height = 494
  BorderIcons = [biMinimize, biMaximize]
  Caption = #21028#26029#39064
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 778
    Height = 460
    Align = alClient
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 264
      Top = 416
      Width = 112
      Height = 25
      DataSource = DataModule4.DataSource_judge
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
      OnClick = DBNavigator1Click
    end
    object BitBtn1: TBitBtn
      Left = 672
      Top = 416
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 1
      Kind = bkClose
    end
    object DBNavigator2: TDBNavigator
      Left = 376
      Top = 416
      Width = 56
      Height = 25
      DataSource = DataModule4.DataSource_judge
      VisibleButtons = [nbInsert, nbDelete]
      TabOrder = 2
      OnClick = DBNavigator2Click
    end
    object BitBtn2: TBitBtn
      Left = 464
      Top = 416
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 3
      OnClick = BitBtn2Click
      Kind = bkOK
    end
    object BitBtn3: TBitBtn
      Left = 568
      Top = 416
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 4
      OnClick = BitBtn3Click
      Kind = bkCancel
    end
  end
  object PageControl1: TPageControl
    Left = 184
    Top = 0
    Width = 593
    Height = 409
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '  '#21028#26029#39064#25805#20316'  '
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 32
        Top = 16
        Width = 60
        Height = 13
        Caption = #39064#24178#20869#23481'    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 400
        Top = 16
        Width = 36
        Height = 13
        Caption = #32534#21495'    '
      end
      object Label4: TLabel
        Left = 336
        Top = 312
        Width = 63
        Height = 13
        Caption = #21442#32771#20998#25968'     '
      end
      object Label5: TLabel
        Left = 336
        Top = 352
        Width = 63
        Height = 13
        Caption = #38590'         '#24230'    '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 464
        Top = 8
        Width = 105
        Height = 21
        DataField = 'tno'
        DataSource = DataModule4.DataSource_judge
        Enabled = False
        TabOrder = 0
        OnChange = DBEdit1Change
      end
      object DBMemo1: TDBMemo
        Left = 32
        Top = 40
        Width = 537
        Height = 249
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_judge
        ScrollBars = ssBoth
        TabOrder = 1
      end
      object DBEdit2: TDBEdit
        Left = 440
        Top = 306
        Width = 121
        Height = 21
        DataField = 'score'
        DataSource = DataModule4.DataSource_judge
        TabOrder = 2
      end
      object DBRadioGroup1: TDBRadioGroup
        Left = 32
        Top = 296
        Width = 185
        Height = 73
        Caption = #21442#32771#31572#26696
        DataField = 'answer'
        DataSource = DataModule4.DataSource_judge
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Items.Strings = (
          #27491#30830
          #38169#35823)
        ParentFont = False
        TabOrder = 3
        Values.Strings = (
          'T'
          'F')
      end
      object DBComboBox1: TDBComboBox
        Left = 440
        Top = 344
        Width = 121
        Height = 21
        DataField = 'difficulty'
        DataSource = DataModule4.DataSource_judge
        ItemHeight = 13
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5')
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  '#21028#26029#39064#24635#35272'  '
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label3: TLabel
        Left = 176
        Top = 8
        Width = 210
        Height = 24
        Caption = #21028'  '#26029'  '#39064'  '#24635'  '#35272'  '#34920'        '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label6: TLabel
        Left = 24
        Top = 32
        Width = 48
        Height = 13
        Caption = #39064'    '#30446':   '
        Transparent = True
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 192
        Width = 537
        Height = 169
        DataSource = DataModule4.DataSource_judge
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'tno'
            Title.Caption = '  '#39064#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'answer'
            Title.Caption = '  '#31572#26696
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'score'
            Title.Caption = '  '#21442#32771#20998#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'difficulty'
            Title.Caption = '  '#38590#26131#24230
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'note'
            Title.Caption = '  '#22791#27880
            Visible = True
          end>
      end
      object DBMemo2: TDBMemo
        Left = 24
        Top = 48
        Width = 529
        Height = 137
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_judge
        TabOrder = 1
      end
    end
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 185
    Height = 457
    Indent = 19
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 2
    OnClick = TreeView1Click
    OnMouseDown = TreeView1MouseDown
    Items.Data = {
      010000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000009000000
      0543D3EFD1D42D0000000000000000000000FFFFFFFFFFFFFFFF000000000400
      000014B5DAD2BBD5C22043D3EFD1D4BBF9B4A1D6AACAB61F0000000000000000
      000000FFFFFFFFFFFFFFFF000000000100000006B5DAD2BBBDDA2F0000000000
      000000000000FFFFFFFFFFFFFFFF000000000000000016B5DAD2BBD6AACAB6B5
      E32043D3EFD1D4B5C4CCD8B5E31F0000000000000000000000FFFFFFFFFFFFFF
      FF000000000100000006B5DAB6FEBDDA390000000000000000000000FFFFFFFF
      FFFFFFFF000000000000000020B5DAD2BBD6AACAB6B5E32043D3EFD1D4B5C4B1
      EACAB6B7FBBACDB1A3C1F4D7D61F0000000000000000000000FFFFFFFFFFFFFF
      FF000000000100000006B5DAC8FDBDDA2F0000000000000000000000FFFFFFFF
      FFFFFFFF000000000000000016B5DAD2BBD6AACAB6B5E32043B3CCD0F2B5C4BD
      E1B9B91F0000000000000000000000FFFFFFFFFFFFFFFF000000000100000006
      B5DACBC4BDDA330000000000000000000000FFFFFFFFFFFFFFFF000000000000
      00001AB5DAD2BBD6AACAB6B5E32043B3CCD0F2B5C4BFAAB7A2B9FDB3CC380000
      000000000000000000FFFFFFFFFFFFFFFF00000000030000001FB5DAB6FED5C2
      20CAFDBEDDC0E0D0CDA1A2D4CBCBE3B7FBD3EBB1EDB4EFCABD1F000000000000
      0000000000FFFFFFFFFFFFFFFF000000000400000006B5DAD2BBBDDA31000000
      0000000000000000FFFFFFFFFFFFFFFF000000000000000018B5DAD2BBD6AACA
      B6B5E32043D3EFD1D4CAFDBEDDC0E0D0CD2C0000000000000000000000FFFFFF
      FFFFFFFFFF000000000000000013B5DAB6FED6AACAB6B5E320D5FBD0CDCAFDBE
      DD2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000000013B5DA
      C8FDD6AACAB6B5E320CAB5D0CDCAFDBEDD2E0000000000000000000000FFFFFF
      FFFFFFFFFF000000000000000015B5DACBC4D6AACAB6B5E320D7D6B7FBD0CDCA
      FDBEDD1F0000000000000000000000FFFFFFFFFFFFFFFF000000000200000006
      B5DAB6FEBDDA2A0000000000000000000000FFFFFFFFFFFFFFFF000000000000
      000011B5DAD2BBD6AACAB6B5E320D4CBCBE3B7FB2A0000000000000000000000
      FFFFFFFFFFFFFFFF000000000000000011B5DAB6FED6AACAB6B5E320CEBBD4CB
      CBE31F0000000000000000000000FFFFFFFFFFFFFFFF000000000200000006B5
      DAC8FDBDDA2A0000000000000000000000FFFFFFFFFFFFFFFF00000000000000
      0011B5DAD2BBD6AACAB6B5E320B1EDB4EFCABD2C0000000000000000000000FF
      FFFFFFFFFFFFFF000000000000000013B5DAB6FED6AACAB6B5E320C0E0D0CDD7
      AABBBB280000000000000000000000FFFFFFFFFFFFFFFF00000000020000000F
      B5DAC8FDD5C220CBB3D0F2BDE1B9B91F0000000000000000000000FFFFFFFFFF
      FFFFFF000000000100000006B5DAD2BBBDDA360000000000000000000000FFFF
      FFFFFFFFFFFF00000000000000001DB5DAD2BBD6AACAB6B5E320D7D6B7FBCAFD
      BEDDB5C4CAE4C8EBCAE4B3F61F0000000000000000000000FFFFFFFFFFFFFFFF
      000000000100000006B5DAB6FEBDDA320000000000000000000000FFFFFFFFFF
      FFFFFF000000000000000019B5DAD2BBD6AACAB6B5E320B8F1CABDCAE4C8EBD3
      EBCAE4B3F6290000000000000000000000FFFFFFFFFFFFFFFF00000000030000
      0010B5DACBC4D5C220D1A1D4F1BDE1B9B9201F0000000000000000000000FFFF
      FFFFFFFFFFFF000000000100000006B5DAD2BBBDDA2A00000000000000000000
      00FFFFFFFFFFFFFFFF000000000000000011B5DAD2BBD6AACAB6B5E3206966D3
      EFBEE41F0000000000000000000000FFFFFFFFFFFFFFFF000000000100000006
      B5DAB6FEBDDA2E0000000000000000000000FFFFFFFFFFFFFFFF000000000000
      000015B5DAD2BBD6AACAB6B5E320CCF5BCFEB1EDB4EFCABD1F00000000000000
      00000000FFFFFFFFFFFFFFFF000000000100000006B5DAC8FDBDDA3400000000
      00000000000000FFFFFFFFFFFFFFFF00000000000000001BB5DAD2BBD6AACAB6
      B5E32073776974636828BFAAB9D829D3EFBEE4290000000000000000000000FF
      FFFFFFFFFFFFFF000000000400000010B5DACEE5D5C220D1ADBBB7BFD8D6C620
      1F0000000000000000000000FFFFFFFFFFFFFFFF000000000200000006B5DAD2
      BBBDDA310000000000000000000000FFFFFFFFFFFFFFFF000000000000000018
      B5DAD2BBD6AACAB6B5E3207768696C65D1ADBBB7D3EFBEE43400000000000000
      00000000FFFFFFFFFFFFFFFF00000000000000001BB5DAB6FED6AACAB6B5E320
      646F2D7768696C65D1ADBBB7D3EFBEE41F0000000000000000000000FFFFFFFF
      FFFFFFFF000000000100000006B5DAB6FEBDDA2F0000000000000000000000FF
      FFFFFFFFFFFFFF000000000000000016B5DAD2BBD6AACAB6B5E320666F72D1AD
      BBB7D3EFBEE41F0000000000000000000000FFFFFFFFFFFFFFFF000000000200
      000006B5DAC8FDBDDA2D0000000000000000000000FFFFFFFFFFFFFFFF000000
      000000000014B5DAD2BBD6AACAB6B5E320627265616BD3EFBEE4300000000000
      000000000000FFFFFFFFFFFFFFFF000000000000000017B5DAB6FED6AACAB6B5
      E320636F6E74696E7565D3EFBEE41F0000000000000000000000FFFFFFFFFFFF
      FFFF000000000100000006B5DACBC4BDDA2C0000000000000000000000FFFFFF
      FFFFFFFFFF000000000000000013B5DAD2BBD6AACAB6B5E320676F746FD3EFBE
      E4280000000000000000000000FFFFFFFFFFFFFFFF00000000020000000FB5DA
      C1F9D5C220CAFDD7E9D6B8D5EB1F0000000000000000000000FFFFFFFFFFFFFF
      FF000000000300000006B5DAD2BBBDDA2C0000000000000000000000FFFFFFFF
      FFFFFFFF000000000000000013B5DAD2BBD6AACAB6B5E320D2BBCEACCAFDD7E9
      2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000000013B5DAB6
      FED6AACAB6B5E320B6FECEACCAFDD7E92C0000000000000000000000FFFFFFFF
      FFFFFFFF000000000000000013B5DAC8FDD6AACAB6B5E320D7D6B7FBCAFDD7E9
      1F0000000000000000000000FFFFFFFFFFFFFFFF000000000800000006B5DAB6
      FEBDDA360000000000000000000000FFFFFFFFFFFFFFFF00000000000000001D
      B5DAD2BBD6AACAB6B5E320D6B8D5EBB5C4CBB5C3F7BACDB3F5CABCBBAF2C0000
      000000000000000000FFFFFFFFFFFFFFFF000000000000000013B5DAB6FED6AA
      CAB6B5E320D6B8D5EBD4CBCBE3320000000000000000000000FFFFFFFFFFFFFF
      FF000000000000000019B5DAC8FDD6AACAB6B5E320D2BBCEACCAFDD7E9BACDD4
      CBCBE3320000000000000000000000FFFFFFFFFFFFFFFF000000000000000019
      B5DACBC4D6AACAB6B5E320B6FECEACCAFDD7E9BACDD4CBCBE334000000000000
      0000000000FFFFFFFFFFFFFFFF00000000000000001BB5DACEE5D6AACAB6B5E3
      20D7D6B7FBD6B8D5EBBACDD7D6B7FBB4AE2C0000000000000000000000FFFFFF
      FFFFFFFFFF000000000000000013B5DAC1F9D6AACAB6B5E320B6E0BCB6D6B8D5
      EB2E0000000000000000000000FFFFFFFFFFFFFFFF000000000000000015B5DA
      C6DFD6AACAB6B5E320D6B8D5EBD0CDBAAFCAFD320000000000000000000000FF
      FFFFFFFFFFFFFF000000000000000019B5DAB0CBD6AACAB6B5E320D6B8CFF2BA
      AFCAFDB5C4D6B8D5EB340000000000000000000000FFFFFFFFFFFFFFFF000000
      00020000001BB5DAC6DFD5C220BAAFCAFD2020BDE1B9B9CCE5D3EBB9B2D3C3CC
      E5200000000000000000000000FFFFFFFFFFFFFFFF000000000700000007B5DA
      D2BBBDDA202C0000000000000000000000FFFFFFFFFFFFFFFF00000000000000
      0013B5DAD2BBD6AACAB6B5E320BAAFCAFDC9E8BCC63200000000000000000000
      00FFFFFFFFFFFFFFFF000000000000000019B5DAB6FED6AACAB6B5E320BAAFCA
      FDB5C4B4E6B4A2C0E0D0CD3A0000000000000000000000FFFFFFFFFFFFFFFF00
      0000000000000021B5DAC8FDD6AACAB6B5E320B1E4C1BFB5C4D7F7D3C3D3F2BA
      CDB4E6B4A2C0E0D0CD320000000000000000000000FFFFFFFFFFFFFFFF000000
      000000000019B5DACBC4D6AACAB6B5E320BAAFCAFDB5C4CAFDBEDDB4ABB5DD36
      0000000000000000000000FFFFFFFFFFFFFFFF00000000000000001DB5DACEE5
      D6AACAB6B5E320CAFDD7E9D4DABAAFCAFDBCE4B5C4B4ABB5DD2C000000000000
      0000000000FFFFFFFFFFFFFFFF000000000000000013B5DAC1F9D6AACAB6B5E3
      20B5DDB9E9BAAFCAFD380000000000000000000000FFFFFFFFFFFFFFFF000000
      00000000001FB5DAC6DFD6AACAB6B5E320B4ABB5DD6D61696E2829BAAFCAFDB5
      C4B2CECAFD1F0000000000000000000000FFFFFFFFFFFFFFFF00000000090000
      0006B5DAB6FEBDDA380000000000000000000000FFFFFFFFFFFFFFFF00000000
      000000001FB5DAD2BBD6AACAB6B5E320BDE1B9B9CCE5B6A8D2E5BACDB1E4C1BF
      CBB5C3F73C0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
      23B5DAB6FED6AACAB6B5E320BDE1B9B9CCE5B1E4C1BFB5C4D2FDD3C3BACDB3F5
      CABCBBAF2E0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
      15B5DAC8FDD6AACAB6B5E320BDE1B9B9CCE5CAFDD7E92E000000000000000000
      0000FFFFFFFFFFFFFFFF000000000000000015B5DACBC4D6AACAB6B5E320BDE1
      B9B9CCE5D6B8D5EB400000000000000000000000FFFFFFFFFFFFFFFF00000000
      0000000027B5DACEE5D6AACAB6B5E320BAAFCAFDD6AEBCE4BDE1B9B9CCE5B1E4
      C1BFB5C4CAFDBEDDB4ABB5DD2E0000000000000000000000FFFFFFFFFFFFFFFF
      000000000000000015B5DAC1F9D6AACAB6B5E320BDE1B9B9CCE5C7B6CCD72800
      00000000000000000000FFFFFFFFFFFFFFFF00000000000000000FB5DAC6DFD6
      AACAB6B5E320C1B4B1ED2A0000000000000000000000FFFFFFFFFFFFFFFF0000
      00000000000011B5DAB0CBD6AACAB6B5E320B9B2D3C3CCE52C00000000000000
      00000000FFFFFFFFFFFFFFFF000000000000000013B5DABEC5D6AACAB6B5E320
      C3B6BED9C0E0D0CD2A0000000000000000000000FFFFFFFFFFFFFFFF00000000
      0200000011B5DAB0CBD5C220D4A4B4A6C0EDC3FCC1EE1F000000000000000000
      0000FFFFFFFFFFFFFFFF000000000300000006B5DAD2BBBDDA26000000000000
      0000000000FFFFFFFFFFFFFFFF00000000000000000DB5DAD2BBD6AACAB6B5E3
      20BAEA2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000000013
      B5DAB6FED6AACAB6B5E320CCF5BCFEB1E0D2EB2C0000000000000000000000FF
      FFFFFFFFFFFFFF000000000000000013B5DAC8FDD6AACAB6B5E320CEC4BCFEB0
      FCBAAC1F0000000000000000000000FFFFFFFFFFFFFFFF000000000400000006
      B5DAB6FEBDDA2C0000000000000000000000FFFFFFFFFFFFFFFF000000000000
      000013B5DAD2BBD6AACAB6B5E320CEC4BCFEB8C5CAF632000000000000000000
      0000FFFFFFFFFFFFFFFF000000000000000019B5DAB6FED6AACAB6B5E320CEC4
      BCFEB5C4CAE4C8EBCAE4B3F6320000000000000000000000FFFFFFFFFFFFFFFF
      000000000000000019B5DAC8FDD6AACAB6B5E320CEC4BCFEB5C4B6A8CEBBB2D9
      D7F72E0000000000000000000000FFFFFFFFFFFFFFFF000000000000000015B5
      DACBC4D6AACAB6B5E320CEC4BCFEB5C4BCECB2E22C0000000000000000000000
      FFFFFFFFFFFFFFFF000000000400000013B5DABEC5D5C220B3A3D3C3CBE3B7A8
      C9E8BCC61F0000000000000000000000FFFFFFFFFFFFFFFF0000000001000000
      06B5DAD2BBBDDA280000000000000000000000FFFFFFFFFFFFFFFF0000000000
      0000000FB5DAD2BBD6AACAB6B5E320C5C5D0F21F0000000000000000000000FF
      FFFFFFFFFFFFFF000000000100000006B5DAB6FEBDDA28000000000000000000
      0000FFFFFFFFFFFFFFFF00000000000000000FB5DAD2BBD6AACAB6B5E320B2E9
      D5D21F0000000000000000000000FFFFFFFFFFFFFFFF000000000100000006B5
      DAC8FDBDDA2A0000000000000000000000FFFFFFFFFFFFFFFF00000000000000
      0011B5DAD2BBD6AACAB6B5E320C3B6BED9B7A81F0000000000000000000000FF
      FFFFFFFFFFFFFF000000000100000006B5DACBC4BDDA2A000000000000000000
      0000FFFFFFFFFFFFFFFF000000000000000011B5DAD2BBD6AACAB6B5E320B5DD
      B9E9B7A8}
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 188
    Top = 16
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_judge where tno=0000')
    Left = 300
    Top = 16
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_judge')
    Left = 348
    Top = 24
  end
end

						