client_bendi_datamodule.dfm

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

object Client_DataModule: TClient_DataModule
  OldCreateOrder = False
  Left = 485
  Top = 192
  Height = 392
  Width = 497
  object Client_ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Subject.mdb;Persist' +
      ' Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 400
    Top = 16
  end
  object Select_Subject_Table_Insert: TADOQuery
    Connection = Client_ADOConnection
    Parameters = <
      item
        Name = 'Subject_ID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'Style'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'Difficulty'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'Content'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'A_option'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'B_option'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'C_option'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'D_option'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'E_option'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'F_option'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'Insert into Select_Subject_Table '
      '  (Subject_ID,Style,Difficulty,Content,A_option,B_option,'
      '   C_option,D_option,E_option,F_option)'
      '   values '
      '  (:Subject_ID,:Style,:Difficulty,:Content,:A_option,:B_option,'
      '   :C_option,:D_option,:E_option,:F_option)')
    Left = 80
    Top = 16
  end
  object DanXuan_Subject_Table: TADOTable
    Connection = Client_ADOConnection
    CursorType = ctStatic
    Filter = 'Style='#39#21333#36873#39' '
    Filtered = True
    BeforePost = DanXuan_Subject_TableBeforePost
    AfterPost = DanXuan_Subject_TableAfterPost
    BeforeScroll = DanXuan_Subject_TableBeforeScroll
    AfterScroll = DanXuan_Subject_TableAfterScroll
    TableName = 'Select_Subject_Table'
    Left = 168
    Top = 80
    object DanXuan_Subject_TableID: TIntegerField
      FieldName = 'ID'
    end
    object DanXuan_Subject_TableStyle: TWideStringField
      FieldName = 'Style'
      Size = 50
    end
    object DanXuan_Subject_TableContent: TWideStringField
      FieldName = 'Content'
      Size = 255
    end
    object DanXuan_Subject_TableA_option: TWideStringField
      FieldName = 'A_option'
      Size = 50
    end
    object DanXuan_Subject_TableB_option: TWideStringField
      FieldName = 'B_option'
      Size = 50
    end
    object DanXuan_Subject_TableC_option: TWideStringField
      FieldName = 'C_option'
      Size = 50
    end
    object DanXuan_Subject_TableD_option: TWideStringField
      FieldName = 'D_option'
      Size = 50
    end
    object DanXuan_Subject_TableE_option: TWideStringField
      FieldName = 'E_option'
      Size = 50
    end
    object DanXuan_Subject_TableF_option: TWideStringField
      FieldName = 'F_option'
      Size = 50
    end
    object DanXuan_Subject_TableA_Select: TBooleanField
      FieldName = 'A_Select'
    end
    object DanXuan_Subject_TableB_Select: TBooleanField
      FieldName = 'B_Select'
    end
    object DanXuan_Subject_TableC_Select: TBooleanField
      FieldName = 'C_Select'
    end
    object DanXuan_Subject_TableD_Select: TBooleanField
      FieldName = 'D_Select'
    end
    object DanXuan_Subject_TableE_Select: TBooleanField
      FieldName = 'E_Select'
    end
    object DanXuan_Subject_TableF_Select: TBooleanField
      FieldName = 'F_Select'
    end
    object DanXuan_Subject_TableSelect_Subject_value: TFloatField
      FieldName = 'Select_Subject_value'
    end
    object DanXuan_Subject_TableKey_value: TIntegerField
      FieldName = 'Key_value'
    end
    object DanXuan_Subject_TableSubject_ID: TIntegerField
      FieldName = 'Subject_ID'
    end
    object DanXuan_Subject_TableFlag: TBooleanField
      FieldName = 'Flag'
    end
    object DanXuan_Subject_TableDifficulty: TWideStringField
      FieldName = 'Difficulty'
      Size = 50
    end
  end
  object DuoXuan_Subject_Table: TADOTable
    Connection = Client_ADOConnection
    CursorType = ctStatic
    Filter = 'Style='#39#22810#36873#39
    Filtered = True
    BeforePost = DuoXuan_Subject_TableBeforePost
    AfterScroll = DuoXuan_Subject_TableAfterScroll
    TableName = 'Select_Subject_Table'
    Left = 168
    Top = 144
    object DuoXuan_Subject_TableID: TIntegerField
      FieldName = 'ID'
    end
    object DuoXuan_Subject_TableStyle: TWideStringField
      FieldName = 'Style'
      Size = 50
    end
    object DuoXuan_Subject_TableContent: TWideStringField
      FieldName = 'Content'
      Size = 255
    end
    object DuoXuan_Subject_TableA_option: TWideStringField
      FieldName = 'A_option'
      Size = 50
    end
    object DuoXuan_Subject_TableB_option: TWideStringField
      FieldName = 'B_option'
      Size = 50
    end
    object DuoXuan_Subject_TableC_option: TWideStringField
      FieldName = 'C_option'
      Size = 50
    end
    object DuoXuan_Subject_TableD_option: TWideStringField
      FieldName = 'D_option'
      Size = 50
    end
    object DuoXuan_Subject_TableE_option: TWideStringField
      FieldName = 'E_option'
      Size = 50
    end
    object DuoXuan_Subject_TableF_option: TWideStringField
      FieldName = 'F_option'
      Size = 50
    end
    object DuoXuan_Subject_TableA_Select: TBooleanField
      FieldName = 'A_Select'
    end
    object DuoXuan_Subject_TableB_Select: TBooleanField
      FieldName = 'B_Select'
    end
    object DuoXuan_Subject_TableC_Select: TBooleanField
      FieldName = 'C_Select'
    end
    object DuoXuan_Subject_TableD_Select: TBooleanField
      FieldName = 'D_Select'
    end
    object DuoXuan_Subject_TableE_Select: TBooleanField
      FieldName = 'E_Select'
    end
    object DuoXuan_Subject_TableF_Select: TBooleanField
      FieldName = 'F_Select'
    end
    object DuoXuan_Subject_TableSelect_Subject_value: TFloatField
      FieldName = 'Select_Subject_value'
    end
    object DuoXuan_Subject_TableKey_value: TIntegerField
      FieldName = 'Key_value'
    end
    object DuoXuan_Subject_TableSubject_ID: TIntegerField
      FieldName = 'Subject_ID'
    end
    object DuoXuan_Subject_TableFlag: TBooleanField
      FieldName = 'Flag'
    end
    object DuoXuan_Subject_TableDifficulty: TWideStringField
      FieldName = 'Difficulty'
      Size = 50
    end
  end
  object PanDuan_Subject_Table: TADOTable
    Connection = Client_ADOConnection
    CursorType = ctStatic
    Filter = 'Style='#39#21028#26029#39
    Filtered = True
    BeforeScroll = PanDuan_Subject_TableBeforeScroll
    AfterScroll = PanDuan_Subject_TableAfterScroll
    TableName = 'Select_Subject_Table'
    Left = 168
    Top = 208
    object PanDuan_Subject_TableID: TIntegerField
      FieldName = 'ID'
    end
    object PanDuan_Subject_TableStyle: TWideStringField
      FieldName = 'Style'
      Size = 50
    end
    object PanDuan_Subject_TableContent: TWideStringField
      FieldName = 'Content'
      Size = 255
    end
    object PanDuan_Subject_TableA_Select: TBooleanField
      FieldName = 'A_Select'
    end
    object PanDuan_Subject_TableB_Select: TBooleanField
      FieldName = 'B_Select'
    end
    object PanDuan_Subject_TableSelect_Subject_value: TFloatField
      FieldName = 'Select_Subject_value'
    end
    object PanDuan_Subject_TableKey_value: TIntegerField
      FieldName = 'Key_value'
    end
    object PanDuan_Subject_TableSubject_ID: TIntegerField
      FieldName = 'Subject_ID'
    end
    object PanDuan_Subject_TableFlag: TBooleanField
      FieldName = 'Flag'
    end
    object PanDuan_Subject_TableDifficulty: TWideStringField
      FieldName = 'Difficulty'
      Size = 50
    end
  end
  object DanXuan_DS: TDataSource
    DataSet = DanXuan_Subject_Table
    Left = 40
    Top = 80
  end
  object DuoXuan_DS: TDataSource
    DataSet = DuoXuan_Subject_Table
    Left = 48
    Top = 144
  end
  object PanDuan_DS: TDataSource
    DataSet = PanDuan_Subject_Table
    Left = 48
    Top = 216
  end
  object Select_Subject_Table_Update: TADOQuery
    Connection = Client_ADOConnection
    Parameters = <
      item
        Name = 'Select_Subject_value'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'Style'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'Difficulty'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'Update Select_Subject_Table'
      ' Set Select_Subject_value=:Select_Subject_value'
      ' where (style=:style)and(difficulty=:difficulty)')
    Left = 240
    Top = 16
  end
  object Select_Subject_Table_Delete: TADOQuery
    Connection = Client_ADOConnection
    Parameters = <>
    SQL.Strings = (
      'Delete * from Select_Subject_Table')
    Left = 352
    Top = 80
  end
end