exam_select_subjects_server.dfm

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

object Exam_Select_Subject_datamodule: TExam_Select_Subject_datamodule
  OldCreateOrder = False
  OnDestroy = RemoteDataModuleDestroy
  Left = 97
  Top = 82
  Height = 547
  Width = 672
  object Exam_name_Query_Provider: TDataSetProvider
    DataSet = Select_Exam_name
    Constraints = True
    Left = 192
    Top = 16
  end
  object Subject_Rule_Query_Provider: TDataSetProvider
    DataSet = Select_Subject_Rule
    Constraints = True
    Left = 192
    Top = 80
  end
  object Select_Subject_SP: TADOStoredProc
    CursorType = ctStatic
    ProcedureName = 'Select_Subject;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Specialty'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = '1'
      end
      item
        Name = '@Style'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = '1'
      end
      item
        Name = '@Difficulty'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = '1'
      end
      item
        Name = '@Select_Subject_Count'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 1
      end>
    Left = 56
    Top = 152
  end
  object Select_Subject_Provider: TDataSetProvider
    DataSet = Select_Subject_SP
    Constraints = True
    Left = 192
    Top = 152
  end
  object Set_Subject_Point_Provider: TDataSetProvider
    DataSet = Set_Subject_Point
    Constraints = True
    Left = 192
    Top = 232
  end
  object Select_Subject_Key_Value_Provider: TDataSetProvider
    DataSet = Select_Subject_Key_Value
    Constraints = True
    Left = 248
    Top = 312
  end
  object Select_Employee_Achievement_Provider: TDataSetProvider
    DataSet = Select_Employee_Achievement
    Constraints = True
    Left = 272
    Top = 384
  end
  object Employee_Table: TADOTable
    Connection = Exam_Connection_Access
    CursorType = ctStatic
    TableName = 'Employee_Table'
    Left = 72
    Top = 456
  end
  object Employee_Table_Provider: TDataSetProvider
    DataSet = Employee_Table
    Constraints = True
    BeforeGetRecords = Employee_Table_ProviderBeforeGetRecords
    Left = 232
    Top = 456
  end
  object Exam_Connection_Access: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\'#32771#35797#31995#32479'\'#32771#35797#31995#32479'_ACCESS' +
      #29256'\Examination.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 528
    Top = 256
  end
  object Select_Exam_name: TADOQuery
    Connection = Exam_Connection_Access
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Exam_name_Table ')
    Left = 56
    Top = 16
  end
  object Select_Subject_Rule: TADOQuery
    Connection = Exam_Connection_Access
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Exam_Name'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 100
        Value = '12345'
      end>
    SQL.Strings = (
      '  select * from Select_Subject_Rule_Table'
      '   where (Exam_Name=:Exam_Name)')
    Left = 56
    Top = 80
  end
  object Select_Subject_Key_Value: TADOQuery
    Connection = Exam_Connection_Access
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '1'
      end>
    SQL.Strings = (
      'select Key_Value from Subject_Table'
      '   where ID=:ID')
    Left = 72
    Top = 312
    object Select_Subject_Key_ValueKey_Value: TWideStringField
      FieldName = 'Key_Value'
      Size = 10
    end
  end
  object Select_Employee_Achievement: TADOQuery
    Connection = Exam_Connection_Access
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Employee_Code'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '123'
      end
      item
        Name = 'Fromdatatime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '54654'
      end
      item
        Name = 'Todatatime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '456'
      end>
    SQL.Strings = (
      '   Select * from Employee_Achievement_Table '
      '    Where (Employee_Code=:Employee_Code)'
      
        '          and (Exam_Datetime Between :Fromdatatime and :Todatati' +
        'me) '
      '     Order by Achievement desc ')
    Left = 80
    Top = 384
  end
  object Employee_Achievement_Table_Insert: TADOQuery
    Connection = Exam_Connection_Access
    Parameters = <
      item
        Name = 'Name'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Sex'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'ID_card'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Employee_Code'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Sales_Department'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Department'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Achievement'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Exam_Name'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Exam_Specialty'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Exam_Style'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '213'
      end
      item
        Name = 'Begin_Exam_Datetime'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2003-01-01'
      end>
    SQL.Strings = (
      '   Insert into Employee_Achievement_Table '
      '    (Name,Sex,ID_card,Employee_Code,Sales_Department,Department,'
      
        '     Achievement,Exam_Name,Exam_Specialty,Exam_Style,Begin_Exam_' +
        'Datetime)'
      
        '    Values( :Name,:Sex,:ID_card,:Employee_Code,:Sales_Department' +
        ','
      
        '     :Department,:Achievement,:Exam_Name,:Exam_Specialty,:Exam_S' +
        'tyle,'
      '     :Begin_Exam_Datetime)')
    Left = 512
    Top = 16
  end
  object Employee_Logins: TADOQuery
    Connection = Exam_Connection_Access
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Login_Name'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = 'chenkewu'
      end>
    SQL.Strings = (
      '     select Login_Psw,Name,'
      '            Sex,Sales_Department,Department,'
      '            Purview,Employee_Code'
      '      from  Employee_Table'
      '      where Employee_Table.Login_Name=:Login_Name')
    Left = 512
    Top = 80
    object Employee_LoginsLogin_Psw: TWideStringField
      FieldName = 'Login_Psw'
      Size = 50
    end
    object Employee_LoginsName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object Employee_LoginsSex: TWideStringField
      FieldName = 'Sex'
      Size = 50
    end
    object Employee_LoginsSales_Department: TWideStringField
      FieldName = 'Sales_Department'
      Size = 50
    end
    object Employee_LoginsDepartment: TWideStringField
      FieldName = 'Department'
      Size = 50
    end
    object Employee_LoginsPurview: TWideStringField
      FieldName = 'Purview'
      Size = 50
    end
    object Employee_LoginsEmployee_Code: TWideStringField
      FieldName = 'Employee_Code'
      Size = 50
    end
  end
  object Update_Login_Psws: TADOQuery
    Connection = Exam_Connection_Access
    Parameters = <
      item
        Name = 'Login_Psw'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = 'chenkewu'
      end
      item
        Name = 'Login_Name'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = 'chenkewu'
      end>
    SQL.Strings = (
      '  Update Employee_Table'
      '   Set Login_Psw=:Login_Psw'
      '    Where Login_Name=:Login_Name ')
    Left = 520
    Top = 160
  end
  object Set_Subject_Point: TADOQuery
    Connection = Exam_Connection_Access
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Exam_Name'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = 'dsfgfg'
      end>
    SQL.Strings = (
      '  select difficulty,style,'
      '        sum(Select_Subject_Point)/sum(Select_Subject_Count)'
      '   from Select_Subject_Rule_Table    '
      '    where Exam_Name=:Exam_Name'
      '     group by style,difficulty')
    Left = 56
    Top = 232
  end
end