⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit9.dfm

📁 毕业设计(带论文)—试卷生成系统,做的不错
💻 DFM
📖 第 1 页 / 共 3 页
字号:
            Width = 265
            Height = 21
            DataField = 'x3b'
            DataSource = DataModule4.DataSource_readpro
            TabOrder = 2
          end
          object DBEdit14: TDBEdit
            Left = 64
            Top = 200
            Width = 265
            Height = 21
            DataField = 'x3c'
            DataSource = DataModule4.DataSource_readpro
            TabOrder = 3
          end
          object DBEdit15: TDBEdit
            Left = 64
            Top = 224
            Width = 265
            Height = 21
            DataField = 'x3d'
            DataSource = DataModule4.DataSource_readpro
            TabOrder = 4
          end
          object DBRadioGroup3: TDBRadioGroup
            Left = 13
            Top = 248
            Width = 316
            Height = 33
            Caption = #21442#32771#31572#26696
            Columns = 4
            DataField = 'answer3'
            DataSource = DataModule4.DataSource_readpro
            Items.Strings = (
              'A'
              'B'
              'C'
              'D')
            TabOrder = 5
          end
        end
      end
      object DBEdit6: TDBEdit
        Left = 360
        Top = 352
        Width = 65
        Height = 21
        DataField = 'score'
        DataSource = DataModule4.DataSource_readpro
        TabOrder = 3
      end
      object DBComboBox1: TDBComboBox
        Left = 488
        Top = 352
        Width = 65
        Height = 21
        DataField = 'difficulty'
        DataSource = DataModule4.DataSource_readpro
        ItemHeight = 13
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5')
        TabOrder = 4
      end
    end
    object TabSheet5: TTabSheet
      Caption = '  '#31243#24207#38405#35835#39064#24635#35272'  '
      ImageIndex = 1
      OnShow = TabSheet5Show
      object Label20: TLabel
        Left = 176
        Top = 8
        Width = 275
        Height = 24
        Caption = #31243'  '#24207'  '#38405'  '#35835'  '#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 Label21: TLabel
        Left = 24
        Top = 40
        Width = 48
        Height = 13
        Caption = #39064'    '#30446':   '
        Transparent = True
      end
      object Label22: TLabel
        Left = 208
        Top = 40
        Width = 42
        Height = 13
        Caption = #20998#39064#24178'1'
        Transparent = True
      end
      object Label23: TLabel
        Left = 328
        Top = 40
        Width = 42
        Height = 13
        Caption = #20998#39064#24178'2'
        Transparent = True
      end
      object Label24: TLabel
        Left = 448
        Top = 40
        Width = 42
        Height = 13
        Caption = #20998#39064#24178'3'
        Transparent = True
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 208
        Width = 537
        Height = 169
        DataSource = DataModule4.DataSource_readpro
        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 = 'x1a'
            Title.Caption = '  '#39064#24178'1'#36873#39033'A'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x1b'
            Title.Caption = '  '#39064#24178'1'#36873#39033'B'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x1c'
            Title.Caption = '  '#39064#24178'1'#36873#39033'C'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x1d'
            Title.Caption = '  '#39064#24178'1'#36873#39033'D'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'answer1'
            Title.Caption = '  '#39064#24178'1'#31572#26696
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x2a'
            Title.Caption = '  '#39064#24178'2'#36873#39033'A'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x2b'
            Title.Caption = '  '#39064#24178'2'#36873#39033'B'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x2c'
            Title.Caption = '  '#39064#24178'2'#36873#39033'C'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x2d'
            Title.Caption = '  '#39064#24178'2'#36873#39033'D'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'answer2'
            Title.Caption = '  '#39064#24178'2'#31572#26696
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x3a'
            Title.Caption = '  '#39064#24178'3'#36873#39033'A'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x3b'
            Title.Caption = '  '#39064#24178'3'#36873#39033'B'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x3c'
            Title.Caption = '  '#39064#24178'3'#36873#39033'C'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'x3d'
            Title.Caption = '  '#39064#24178'3'#36873#39033'D'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'answer3'
            Title.Caption = '  '#39064#24178'3'#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 DBMemo5: TDBMemo
        Left = 24
        Top = 56
        Width = 169
        Height = 145
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_readpro
        ScrollBars = ssBoth
        TabOrder = 1
      end
      object DBMemo6: TDBMemo
        Left = 208
        Top = 56
        Width = 105
        Height = 145
        DataField = 'ctigan1'
        DataSource = DataModule4.DataSource_readpro
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object DBMemo7: TDBMemo
        Left = 328
        Top = 56
        Width = 105
        Height = 145
        DataField = 'ctigan2'
        DataSource = DataModule4.DataSource_readpro
        ScrollBars = ssBoth
        TabOrder = 3
      end
      object DBMemo8: TDBMemo
        Left = 448
        Top = 56
        Width = 105
        Height = 145
        DataField = 'ctigan3'
        DataSource = DataModule4.DataSource_readpro
        ScrollBars = ssBoth
        TabOrder = 4
      end
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_readpro where tno=0000')
    Left = 284
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 196
    Top = 16
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_readpro')
    Left = 332
    Top = 8
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -