unit6.dfm

毕业设计(带论文)—试卷生成系统,做的不错

        Left = 424
        Top = 312
        Width = 63
        Height = 13
        Caption = #21442#32771#20998#25968'     '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 456
        Top = 16
        Width = 36
        Height = 13
        Caption = #32534#21495':   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label18: TLabel
        Left = 424
        Top = 346
        Width = 57
        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 DBMemo2: TDBMemo
        Left = 40
        Top = 40
        Width = 510
        Height = 145
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
        OnMouseDown = DBMemo2MouseDown
      end
      object DBEdit8: TDBEdit
        Left = 80
        Top = 192
        Width = 470
        Height = 21
        DataField = 'xa'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit9: TDBEdit
        Left = 80
        Top = 218
        Width = 470
        Height = 21
        DataField = 'xb'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit10: TDBEdit
        Left = 80
        Top = 245
        Width = 470
        Height = 21
        DataField = 'xc'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DBEdit11: TDBEdit
        Left = 80
        Top = 272
        Width = 470
        Height = 21
        DataField = 'xd'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object DBEdit12: TDBEdit
        Left = 496
        Top = 306
        Width = 57
        Height = 21
        DataField = 'score'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object DBEdit13: TDBEdit
        Left = 500
        Top = 11
        Width = 49
        Height = 21
        DataField = 'tno'
        DataSource = DataModule4.DataSource_choose
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnChange = DBEdit13Change
      end
      object DBRadioGroup2: TDBRadioGroup
        Left = 40
        Top = 296
        Width = 185
        Height = 73
        Caption = #21442#32771#31572#26696
        Color = clBtnFace
        Columns = 2
        DataField = 'answer'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Items.Strings = (
          'A'
          'B'
          'C'
          'D')
        ParentColor = False
        ParentFont = False
        TabOrder = 7
        Values.Strings = (
          'A'
          'B'
          'C'
          'D')
      end
      object DBComboBox1: TDBComboBox
        Left = 496
        Top = 344
        Width = 57
        Height = 21
        DataField = 'difficulty'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5')
        ParentFont = False
        TabOrder = 8
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  '#36873#25321#39064#24635#35272'  '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      OnShow = TabSheet2Show
      object Label1: TLabel
        Left = 176
        Top = 8
        Width = 200
        Height = 24
        Caption = #36873'  '#25321'  '#39064'  '#24635'  '#35272'  '#34920'      '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 16
        Top = 24
        Width = 48
        Height = 13
        Caption = #39064'    '#30446':   '
      end
      object DBGrid1: TDBGrid
        Left = 16
        Top = 208
        Width = 553
        Height = 161
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        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
            Width = 43
            Visible = True
          end
          item
            DropDownRows = 1
            Expanded = False
            FieldName = 'xa'
            Title.Caption = '  '#36873#39033'A'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xb'
            Title.Caption = '  '#36873#39033'B'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xc'
            Title.Caption = '  '#36873#39033'C'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xd'
            Title.Caption = '  '#36873#39033'D'
            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 DBMemo1: TDBMemo
        Left = 16
        Top = 40
        Width = 553
        Height = 153
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_choose
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_choose where tno=0000')
    Left = 352
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 316
    Top = 16
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_choose')
    Left = 388
    Top = 16
  end
end