unit11.dfm

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

      Kind = bkCancel
    end
  end
  object PageControl1: TPageControl
    Left = 184
    Top = 0
    Width = 593
    Height = 409
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '  '#32534#31243#39064#25805#20316'  '
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 16
        Top = 14
        Width = 63
        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 = 14
        Width = 36
        Height = 13
        Caption = #32534#21495'    '
      end
      object Label3: TLabel
        Left = 16
        Top = 318
        Width = 60
        Height = 13
        Caption = #21442#32771#20998#25968'    '
      end
      object Label4: TLabel
        Left = 16
        Top = 350
        Width = 60
        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 Label5: TLabel
        Left = 296
        Top = 32
        Width = 63
        Height = 13
        Caption = #21442#32771#31572#26696'     '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 456
        Top = 8
        Width = 105
        Height = 21
        DataField = 'tno'
        DataSource = DataModule4.DataSource_procedure
        Enabled = False
        TabOrder = 0
        OnChange = DBEdit1Change
      end
      object DBMemo1: TDBMemo
        Left = 16
        Top = 32
        Width = 265
        Height = 273
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_procedure
        ScrollBars = ssBoth
        TabOrder = 1
      end
      object DBMemo2: TDBMemo
        Left = 296
        Top = 52
        Width = 265
        Height = 313
        DataField = 'answer'
        DataSource = DataModule4.DataSource_procedure
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object DBEdit2: TDBEdit
        Left = 128
        Top = 312
        Width = 121
        Height = 21
        DataField = 'score'
        DataSource = DataModule4.DataSource_procedure
        TabOrder = 3
      end
      object DBComboBox1: TDBComboBox
        Left = 128
        Top = 344
        Width = 121
        Height = 21
        DataField = 'difficulty'
        DataSource = DataModule4.DataSource_procedure
        ItemHeight = 13
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5')
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  '#32534#31243#39064#24635#35272'  '
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label6: TLabel
        Left = 224
        Top = 8
        Width = 210
        Height = 24
        Caption = #32534'  '#31243'  '#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 Label7: TLabel
        Left = 24
        Top = 24
        Width = 48
        Height = 13
        Caption = #39064'    '#30446':   '
        Transparent = True
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 200
        Width = 537
        Height = 169
        DataSource = DataModule4.DataSource_procedure
        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 = '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 DBMemo3: TDBMemo
        Left = 24
        Top = 40
        Width = 265
        Height = 153
        DataField = 'tigan'
        DataSource = DataModule4.DataSource_procedure
        TabOrder = 1
      end
      object DBMemo4: TDBMemo
        Left = 320
        Top = 40
        Width = 233
        Height = 153
        DataField = 'answer'
        DataSource = DataModule4.DataSource_procedure
        TabOrder = 2
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 196
    Top = 16
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_procedure where tno=0000')
    Left = 292
    Top = 8
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'abao'
    SQL.Strings = (
      'select * from ti_procedure')
    Left = 340
    Top = 16
  end
end