unit7.dfm

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

        Caption = #32534#21495':   '
      end
      object Label7: TLabel
        Left = 32
        Top = 344
        Width = 60
        Height = 13
        Caption = #21442#32771#20998#25968'    '
      end
      object Label8: TLabel
        Left = 320
        Top = 344
        Width = 33
        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 Label3: TLabel
        Left = 32
        Top = 236
        Width = 27
        Height = 13
        Caption = #31354'1   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 32
        Top = 259
        Width = 27
        Height = 13
        Caption = #31354'2   '
      end
      object Label5: TLabel
        Left = 32
        Top = 282
        Width = 27
        Height = 13
        Caption = #31354'3   '
      end
      object Label6: TLabel
        Left = 32
        Top = 306
        Width = 27
        Height = 13
        Caption = #31354'4   '
      end
      object DBMemo1: TDBMemo
        Left = 32
        Top = 32
        Width = 457
        Height = 185
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_filltext
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object DBEdit1: TDBEdit
        Left = 392
        Top = 8
        Width = 97
        Height = 21
        DataField = 'tno'
        DataSource = DataModule4.DataSource_filltext
        Enabled = False
        TabOrder = 1
        OnChange = DBEdit1Change
      end
      object DBEdit6: TDBEdit
        Left = 96
        Top = 338
        Width = 121
        Height = 21
        DataField = 'score'
        DataSource = DataModule4.DataSource_filltext
        TabOrder = 2
      end
      object DBEdit5: TDBEdit
        Left = 64
        Top = 304
        Width = 425
        Height = 21
        DataField = 'kd'
        DataSource = DataModule4.DataSource_filltext
        TabOrder = 3
      end
      object DBEdit4: TDBEdit
        Left = 64
        Top = 280
        Width = 425
        Height = 21
        DataField = 'kc'
        DataSource = DataModule4.DataSource_filltext
        TabOrder = 4
      end
      object DBEdit3: TDBEdit
        Left = 64
        Top = 256
        Width = 425
        Height = 21
        DataField = 'kb'
        DataSource = DataModule4.DataSource_filltext
        TabOrder = 5
      end
      object DBEdit2: TDBEdit
        Left = 64
        Top = 232
        Width = 425
        Height = 21
        DataField = 'ka'
        DataSource = DataModule4.DataSource_filltext
        TabOrder = 6
      end
      object DBComboBox1: TDBComboBox
        Left = 352
        Top = 336
        Width = 121
        Height = 21
        DataField = 'difficulty'
        DataSource = DataModule4.DataSource_filltext
        ItemHeight = 13
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5')
        TabOrder = 7
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  '#31243#24207#22635#31354#39064#24635#35272'  '
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label9: TLabel
        Left = 160
        Top = 16
        Width = 240
        Height = 24
        Caption = #31243'  '#24207'  '#22635'  '#31354'  '#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 Label10: TLabel
        Left = 24
        Top = 40
        Width = 48
        Height = 13
        Caption = #39064'    '#30446':   '
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 192
        Width = 537
        Height = 169
        DataSource = DataModule4.DataSource_filltext
        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 = 'ka'
            Title.Caption = '  '#31354'1'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'kb'
            Title.Caption = '  '#31354'2'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'kc'
            Title.Caption = '  '#31354'3'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'kd'
            Title.Caption = '  '#31354'4'
            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 = 56
        Width = 529
        Height = 129
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_filltext
        TabOrder = 1
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 212
    Top = 16
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_filltext where tno=0000')
    Left = 284
    Top = 24
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_filltext')
    Left = 324
    Top = 24
  end
end