unit2.~dfm

VB编写的考试系统和论文

      Height = 29
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpeedButton7: TSpeedButton
      Left = 216
      Top = 392
      Width = 105
      Height = 41
      Caption = #20445'  '#23384
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton7Click
    end
    object Label2: TLabel
      Left = 680
      Top = 280
      Width = 32
      Height = 13
      Caption = 'Label2'
      Visible = False
    end
    object r1: TRadioButton
      Left = 155
      Top = 120
      Width = 33
      Height = 17
      Caption = 'A.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object r2: TRadioButton
      Left = 608
      Top = 120
      Width = 33
      Height = 17
      Caption = 'B.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object r3: TRadioButton
      Left = 155
      Top = 208
      Width = 33
      Height = 17
      Caption = 'C.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object r4: TRadioButton
      Left = 608
      Top = 216
      Width = 33
      Height = 17
      Caption = 'D.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object r5: TRadioButton
      Left = 155
      Top = 344
      Width = 33
      Height = 17
      Caption = 'E.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
    end
    object c1: TCheckBox
      Left = 155
      Top = 120
      Width = 33
      Height = 17
      Caption = 'A.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
    object c2: TCheckBox
      Left = 608
      Top = 120
      Width = 33
      Height = 17
      Caption = 'B.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object c3: TCheckBox
      Left = 155
      Top = 208
      Width = 33
      Height = 17
      Caption = 'C.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
    end
    object c4: TCheckBox
      Left = 608
      Top = 216
      Width = 33
      Height = 17
      Caption = 'D.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
    end
    object c5: TCheckBox
      Left = 155
      Top = 344
      Width = 33
      Height = 17
      Caption = 'E.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
    end
    object c6: TCheckBox
      Left = 608
      Top = 344
      Width = 57
      Height = 33
      Caption = 
        'F.                                                              ' +
        '          '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
    end
    object lb: TListBox
      Left = 8
      Top = 16
      Width = 137
      Height = 481
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      Items.Strings = (
        #32771#35797#39064#30446#39064#21495#65306)
      ParentFont = False
      TabOrder = 11
      OnClick = lbClick
    end
    object r6: TRadioButton
      Left = 608
      Top = 352
      Width = 113
      Height = 17
      Caption = 'F.                                           '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=exam.db1.mdb;Persis' +
      't Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 360
    Top = 16
  end
  object q1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 408
    Top = 16
  end
  object qq: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=exam.db1.mdb;Persis' +
      't Security Info=False'
    Parameters = <>
    Top = 56
  end
  object q2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 488
    Top = 24
  end
  object cj: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1005
    Left = 592
    Top = 32
  end
end