background_datamodules.dfm

证券公司考试系统,三层架构,从题库自动产生试卷,全部主观题

object Background_DataModule: TBackground_DataModule
  OldCreateOrder = False
  Left = 287
  Top = 122
  Height = 517
  Width = 701
  object Background_Connection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\'#26368#36817#31243#24207'\'#32771#35797#31995#32479'_ACCESS' +
      #29256'\Examination.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 120
    Top = 432
  end
  object Exam_Specialty_Table: TADOTable
    Connection = Background_Connection
    CursorType = ctStatic
    TableName = 'Exam_Specialty_Table'
    Left = 64
    Top = 96
    object Exam_Specialty_TableExam_Specialty: TStringField
      DisplayLabel = #32771#35797#19987#19994
      FieldName = 'Exam_Specialty'
      Size = 50
    end
  end
  object Exam_Difficulty_Table: TADOTable
    Connection = Background_Connection
    CursorType = ctStatic
    TableName = 'Exam_Difficulty_Table'
    Left = 208
    Top = 96
    object Exam_Difficulty_TableExam_Difficulty: TStringField
      DisplayLabel = #32771#35797#38590#24230
      FieldName = 'Exam_Difficulty'
      Size = 50
    end
  end
  object Exam_Specialty_Table_DS: TDataSource
    DataSet = Exam_Specialty_Table
    Left = 64
    Top = 32
  end
  object Exam_Difficulty_Table_DS: TDataSource
    DataSet = Exam_Difficulty_Table
    Left = 208
    Top = 32
  end
  object Select_Subject_Table: TADOQuery
    Connection = Background_Connection
    CursorType = ctStatic
    AfterInsert = Select_Subject_TableAfterInsert
    BeforePost = Select_Subject_TableBeforePost
    AfterScroll = Select_Subject_TableAfterScroll
    Parameters = <
      item
        Name = 'Specialty'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'Difficulty'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'Style'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'Select * from Subject_Table '
      ' where (Specialty=:Specialty)and(Difficulty=:Difficulty)'
      '       and(Style=:Style)')
    Left = 64
    Top = 240
    object Select_Subject_TableID: TAutoIncField
      DisplayLabel = #39064#30446#32534#21495
      FieldName = 'ID'
      ReadOnly = True
    end
    object Select_Subject_TableSpecialty: TStringField
      DisplayLabel = #32771#35797#19987#19994
      FieldName = 'Specialty'
      Size = 50
    end
    object Select_Subject_TableDifficulty: TStringField
      DisplayLabel = #32771#35797#38590#24230
      FieldName = 'Difficulty'
      Size = 50
    end
    object Select_Subject_TableStyle: TStringField
      DisplayLabel = #32771#35797#31867#22411
      FieldName = 'Style'
      Size = 50
    end
    object Select_Subject_TableA_option: TStringField
      DisplayLabel = #36873#39033#19968
      FieldName = 'A_option'
      Size = 200
    end
    object Select_Subject_TableB_option: TStringField
      DisplayLabel = #36873#39033#20108
      FieldName = 'B_option'
      Size = 200
    end
    object Select_Subject_TableC_option: TStringField
      DisplayLabel = #36873#39033#19977
      FieldName = 'C_option'
      Size = 200
    end
    object Select_Subject_TableD_option: TStringField
      DisplayLabel = #36873#39033#22235
      FieldName = 'D_option'
      Size = 200
    end
    object Select_Subject_TableE_option: TStringField
      DisplayLabel = #36873#39033#20116
      FieldName = 'E_option'
      Size = 200
    end
    object Select_Subject_TableF_option: TStringField
      DisplayLabel = #36873#39033#20845
      FieldName = 'F_option'
      Size = 200
    end
    object Select_Subject_TableKey_value: TStringField
      DisplayLabel = #31572#26696#20540
      FieldName = 'Key_value'
      Size = 10
    end
    object Select_Subject_TableContent: TMemoField
      DisplayLabel = #39064#30446#20869#23481
      FieldName = 'Content'
      BlobType = ftMemo
    end
  end
  object Select_Subject_Table_DS: TDataSource
    DataSet = Select_Subject_Table
    Left = 64
    Top = 168
  end
  object Exam_Name_Table_DS: TDataSource
    DataSet = Exam_Name_Table
    Left = 360
    Top = 24
  end
  object Exam_Name_Table: TADOTable
    Connection = Background_Connection
    CursorType = ctStatic
    TableName = 'Exam_Name_Table'
    Left = 360
    Top = 96
    object Exam_Name_TableExam_Name: TStringField
      DisplayLabel = #32771#35797#21517#31216
      DisplayWidth = 50
      FieldName = 'Exam_Name'
      Size = 100
    end
    object Exam_Name_TableExam_Time: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = #32771#35797#20998#38047#25968
      FieldName = 'Exam_Time'
    end
  end
  object Select_Subject_Rule_Table_ByExamName: TADOQuery
    Connection = Background_Connection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Exam_Name'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = 'www'
      end>
    SQL.Strings = (
      'select * from Select_Subject_Rule_Table'
      '     Where (Exam_Name=:Exam_Name)')
    Left = 120
    Top = 368
    object Select_Subject_Rule_Table_ByExamNameExam_Name: TStringField
      DisplayLabel = #32771#35797#21517#31216
      FieldName = 'Exam_Name'
      Size = 100
    end
    object Select_Subject_Rule_Table_ByExamNameSpeciality: TStringField
      DisplayLabel = #32771#35797#19987#19994
      FieldName = 'Speciality'
      Size = 50
    end
    object Select_Subject_Rule_Table_ByExamNameDifficulty: TStringField
      DisplayLabel = #32771#35797#38590#24230
      FieldName = 'Difficulty'
      Size = 50
    end
    object Select_Subject_Rule_Table_ByExamNameStyle: TStringField
      DisplayLabel = #32771#35797#39064#22411
      FieldName = 'Style'
      Size = 50
    end
    object Select_Subject_Rule_Table_ByExamNameSelect_Subject_Count: TIntegerField
      DisplayLabel = #20986#39064#25968#37327
      FieldName = 'Select_Subject_Count'
    end
    object Select_Subject_Rule_Table_ByExamNameSelect_Subject_Point: TIntegerField
      DisplayLabel = #39064#30446#20998#25968
      FieldName = 'Select_Subject_Point'
    end
  end
  object Select_Subject_Rule_Table_ByExamName_DS: TDataSource
    DataSet = Select_Subject_Rule_Table_ByExamName
    Left = 120
    Top = 312
  end
  object Select_Subject_Rule_Table_DS: TDataSource
    DataSet = Select_Subject_Rule_Table
    Left = 216
    Top = 176
  end
  object Select_Subject_Rule_Table: TADOQuery
    Connection = Background_Connection
    CursorType = ctStatic
    AfterInsert = Select_Subject_Rule_TableAfterInsert
    Parameters = <
      item
        Name = 'Exam_Name'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = 'ww'
      end
      item
        Name = 'Style'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = 'ww'
      end
      item
        Name = 'Speciality'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = 'ww'
      end