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