background_datamodules.dfm

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

      item
        Name = 'Difficulty'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = 'ww'
      end>
    SQL.Strings = (
      'select * from Select_Subject_Rule_Table'
      '  Where (Exam_Name=:Exam_Name)and(Style=:Style)and'
      '        (Speciality=:Speciality)and(Difficulty=:Difficulty)')
    Left = 216
    Top = 224
    object Select_Subject_Rule_TableID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object Select_Subject_Rule_TableExam_Name: TStringField
      FieldName = 'Exam_Name'
      Size = 100
    end
    object Select_Subject_Rule_TableSpeciality: TStringField
      FieldName = 'Speciality'
      Size = 50
    end
    object Select_Subject_Rule_TableDifficulty: TStringField
      FieldName = 'Difficulty'
      Size = 50
    end
    object Select_Subject_Rule_TableStyle: TStringField
      FieldName = 'Style'
      Size = 50
    end
    object Select_Subject_Rule_TableSelect_Subject_Count: TIntegerField
      FieldName = 'Select_Subject_Count'
    end
    object Select_Subject_Rule_TableSelect_Subject_Point: TIntegerField
      FieldName = 'Select_Subject_Point'
    end
  end
  object Select_Employee_Achievement_Table_DS: TDataSource
    DataSet = Select_Employee_Achievement_Table
    Left = 408
    Top = 168
  end
  object Select_Employee_Achievement_Table: TADOQuery
    Connection = Background_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Employee_Achievement_Table')
    Left = 400
    Top = 232
    object Select_Employee_Achievement_TableName: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'Name'
      Size = 50
    end
    object Select_Employee_Achievement_TableSex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      Size = 50
    end
    object Select_Employee_Achievement_TableID_card: TStringField
      DisplayLabel = #36523#20221#35777#21495#30721
      FieldName = 'ID_card'
      Size = 50
    end
    object Select_Employee_Achievement_TableEmployee_Code: TStringField
      DisplayLabel = #21592#24037#20195#30721
      FieldName = 'Employee_Code'
      Size = 50
    end
    object Select_Employee_Achievement_TableSales_Department: TStringField
      DisplayLabel = #33829#19994#37096
      FieldName = 'Sales_Department'
      Size = 50
    end
    object Select_Employee_Achievement_TableDepartment: TStringField
      DisplayLabel = #19994#21153#37096#38376
      FieldName = 'Department'
      Size = 50
    end
    object Select_Employee_Achievement_TableExam_Name: TStringField
      DisplayLabel = #32771#35797#21517#31216
      FieldName = 'Exam_Name'
      Size = 100
    end
    object Select_Employee_Achievement_TableExam_Specialty: TStringField
      FieldName = 'Exam_Specialty'
      Size = 50
    end
    object Select_Employee_Achievement_TableExam_Style: TStringField
      DisplayLabel = #32771#35797#31867#21035
      FieldName = 'Exam_Style'
      Size = 50
    end
    object Select_Employee_Achievement_TableExam_Datetime: TDateTimeField
      DisplayLabel = #20132#21367#26102#38388
      FieldName = 'Exam_Datetime'
    end
    object Select_Employee_Achievement_TableBegin_Exam_Datetime: TStringField
      DisplayLabel = #24320#32771#26102#38388
      FieldName = 'Begin_Exam_Datetime'
      Size = 50
    end
    object Select_Employee_Achievement_TableAchievement: TFloatField
      DisplayLabel = #25104#32489
      FieldName = 'Achievement'
    end
  end
  object Select_Employee_Table_DS: TDataSource
    DataSet = Select_Employee_Table
    Left = 360
    Top = 304
  end
  object Select_Employee_Table: TADOQuery
    Connection = Background_Connection
    CursorType = ctStatic
    AfterInsert = Select_Employee_TableAfterInsert
    BeforePost = Select_Employee_TableBeforePost
    AfterScroll = Select_Employee_TableAfterScroll
    Parameters = <
      item
        Name = 'Sales_Department'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = #20449#24687#20013#24515
      end>
    SQL.Strings = (
      'Select * from Employee_Table '
      '  Where Sales_Department=:Sales_Department')
    Left = 360
    Top = 368
    object Select_Employee_TableLogin_Name: TStringField
      DisplayLabel = #30331#38470#21517#31216
      DisplayWidth = 24
      FieldName = 'Login_Name'
      Size = 50
    end
    object Select_Employee_TableLogin_Psw: TStringField
      DisplayLabel = #30331#38470#23494#30721'('#21152#23494#20018')'
      DisplayWidth = 60
      FieldName = 'Login_Psw'
      Size = 50
    end
    object Select_Employee_TableName: TStringField
      DisplayLabel = #21592#24037#22995#21517
      DisplayWidth = 60
      FieldName = 'Name'
      Size = 50
    end
    object Select_Employee_TableSex: TStringField
      DisplayLabel = #24615#21035
      DisplayWidth = 60
      FieldName = 'Sex'
      Size = 50
    end
    object Select_Employee_TableEmployee_Code: TStringField
      DisplayLabel = #21592#24037#20195#30721
      DisplayWidth = 60
      FieldName = 'Employee_Code'
      Size = 50
    end
    object Select_Employee_TableSales_Department: TStringField
      DisplayLabel = #33829#19994#37096
      DisplayWidth = 60
      FieldName = 'Sales_Department'
      Size = 50
    end
    object Select_Employee_TableDepartment: TStringField
      DisplayLabel = #19994#21153#37096#38376
      DisplayWidth = 60
      FieldName = 'Department'
      Size = 50
    end
    object Select_Employee_TablePurview: TStringField
      DisplayLabel = #26435#38480
      DisplayWidth = 60
      FieldName = 'Purview'
      Size = 50
    end
    object Select_Employee_TablePhoto: TBlobField
      FieldName = 'Photo'
    end
  end
  object Sales_Department_Table: TADOTable
    Connection = Background_Connection
    CursorType = ctStatic
    TableName = 'Sales_Department_Table'
    Left = 504
    Top = 96
    object Sales_Department_TableSales_Department_Name: TStringField
      DisplayLabel = #33829#19994#37096#21517#31216
      FieldName = 'Sales_Department_Name'
      Size = 100
    end
  end
  object Sales_Department_Table_DS: TDataSource
    DataSet = Sales_Department_Table
    Left = 504
    Top = 32
  end
  object Login_Query: TADOQuery
    Connection = Background_Connection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Login_Name'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = 'chenkewu'
      end>
    SQL.Strings = (
      'select * from  Employee_Table'
      ' where Login_Name=:Login_Name')
    Left = 520
    Top = 304
    object Login_QueryLogin_Name: TStringField
      FieldName = 'Login_Name'
      Size = 50
    end
    object Login_QueryLogin_Psw: TStringField
      FieldName = 'Login_Psw'
      Size = 50
    end
    object Login_QueryName: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object Login_QuerySex: TStringField
      FieldName = 'Sex'
      Size = 50
    end
    object Login_QueryEmployee_Code: TStringField
      FieldName = 'Employee_Code'
      Size = 50
    end
    object Login_QuerySales_Department: TStringField
      FieldName = 'Sales_Department'
      Size = 50
    end
    object Login_QueryDepartment: TStringField
      FieldName = 'Department'
      Size = 50
    end
    object Login_QueryPurview: TStringField
      FieldName = 'Purview'
      Size = 50
    end
    object Login_QueryPhoto: TBlobField
      FieldName = 'Photo'
    end
  end
  object Login_DS: TDataSource
    DataSet = Login_Query
    Left = 520
    Top = 368
  end
end