教育系统应用

开发平台：
Delphi

Unit4.dfm：源码内容
							object DataModule4: TDataModule4
  OldCreateOrder = False
  Left = 106
  Top = 131
  Height = 337
  Width = 426
  object Table_u: TTable
    Active = True
    DatabaseName = 'abao'
    TableName = 'dbo.u'
    Left = 32
    Top = 24
    object Table_uID: TStringField
      DisplayLabel = #29992#25143#21517
      FieldName = 'ID'
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table_umi: TStringField
      DisplayLabel = #23494#30721
      FieldName = 'mi'
      FixedChar = True
      Size = 6
    end
    object Table_uqx: TStringField
      DisplayLabel = #26435#38480
      FieldName = 'qx'
      FixedChar = True
      Size = 1
    end
  end
  object DataSource_u: TDataSource
    DataSet = Table_u
    Left = 128
    Top = 24
  end
  object DataSource_choose: TDataSource
    DataSet = Table_choose
    Left = 328
    Top = 24
  end
  object DataSource_filltext: TDataSource
    DataSet = Table_filltext
    Left = 128
    Top = 88
  end
  object DataSource_judge: TDataSource
    DataSet = Table_judge
    Left = 336
    Top = 88
  end
  object DataSource_readpro: TDataSource
    DataSet = Table_readpro
    Left = 128
    Top = 152
  end
  object Table_choose: TTable
    Active = True
    BeforeDelete = Table_chooseBeforeDelete
    AfterDelete = Table_chooseAfterDelete
    DatabaseName = 'abao'
    FieldDefs = <
      item
        Name = 'tno'
        DataType = ftInteger
      end
      item
        Name = 'tigan'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'xa'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'xb'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'xc'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'xd'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'answer'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'score'
        DataType = ftSmallint
      end
      item
        Name = 'difficulty'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'note'
        DataType = ftString
        Size = 200
      end>
    StoreDefs = True
    TableName = 'dbo.ti_choose'
    Left = 232
    Top = 24
    object Table_choosetno: TIntegerField
      FieldName = 'tno'
    end
    object Table_choosetigan: TMemoField
      FieldName = 'tigan'
      BlobType = ftMemo
      Size = 1
    end
    object Table_choosexa: TStringField
      FieldName = 'xa'
      Size = 100
    end
    object Table_choosexb: TStringField
      FieldName = 'xb'
      Size = 100
    end
    object Table_choosexc: TStringField
      FieldName = 'xc'
      Size = 100
    end
    object Table_choosexd: TStringField
      FieldName = 'xd'
      Size = 100
    end
    object Table_chooseanswer: TStringField
      FieldName = 'answer'
      FixedChar = True
      Size = 1
    end
    object Table_choosescore: TSmallintField
      FieldName = 'score'
    end
    object Table_choosedifficulty: TStringField
      FieldName = 'difficulty'
      FixedChar = True
      Size = 1
    end
    object Table_choosenote: TStringField
      FieldName = 'note'
      Size = 200
    end
  end
  object Table_filltext: TTable
    Active = True
    BeforeDelete = Table_filltextBeforeDelete
    AfterDelete = Table_filltextAfterDelete
    DatabaseName = 'abao'
    TableName = 'dbo.ti_filltext'
    Left = 32
    Top = 88
  end
  object Table_judge: TTable
    Active = True
    BeforeDelete = Table_judgeBeforeDelete
    AfterDelete = Table_judgeAfterDelete
    DatabaseName = 'abao'
    TableName = 'dbo.ti_judge'
    Left = 232
    Top = 88
  end
  object Table_readpro: TTable
    Active = True
    BeforeDelete = Table_readproBeforeDelete
    AfterDelete = Table_readproAfterDelete
    DatabaseName = 'abao'
    TableName = 'dbo.ti_readpro'
    Left = 32
    Top = 152
  end
  object DataSource_procedure: TDataSource
    DataSet = Table_procedure
    Left = 336
    Top = 152
  end
  object Table_procedure: TTable
    Active = True
    BeforeDelete = Table_procedureBeforeDelete
    AfterDelete = Table_procedureAfterDelete
    DatabaseName = 'abao'
    TableName = 'dbo.ti_procedure'
    Left = 232
    Top = 152
  end
  object DataSource_shijuan: TDataSource
    DataSet = Table_shijuan
    Left = 120
    Top = 216
  end
  object Table_shijuan: TTable
    Active = True
    BeforeDelete = Table_shijuanBeforeDelete
    DatabaseName = 'abao'
    TableName = 'dbo.shijuan'
    Left = 24
    Top = 216
  end
  object Table_papermanager: TTable
    Active = True
    DatabaseName = 'abao'
    TableName = 'dbo.papermanager'
    Left = 240
    Top = 216
  end
  object DataSource_papermanager: TDataSource
    DataSet = Table_papermanager
    Left = 328
    Top = 232
  end
end

						