client_data_module.dfm

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

object Remote_DataModule: TRemote_DataModule
  OldCreateOrder = False
  Left = 457
  Top = 350
  Height = 415
  Width = 535
  object Select_Exam_name_Client: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Exam_name_Query_Provider'
    RemoteServer = Exam_SocketConnection
    Left = 64
    Top = 24
    object Select_Exam_name_ClientExam_name: TStringField
      FieldName = 'Exam_name'
      Size = 100
    end
    object Select_Exam_name_ClientExam_Time: TIntegerField
      FieldName = 'Exam_Time'
    end
  end
  object Exam_SocketConnection: TSocketConnection
    ServerGUID = '{FA5F2EBE-BCD4-47BB-A97C-85F2D8179E7F}'
    ServerName = 'Exam_Server.Exam_Select_Subject_datamodule'
    Host = '127.0.0.1'
    Left = 440
    Top = 24
  end
  object Select_Subject_Client: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Select_Subject_Provider'
    RemoteServer = Exam_SocketConnection
    Left = 64
    Top = 96
    object Select_Subject_ClientID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object Select_Subject_ClientStyle: TStringField
      FieldName = 'Style'
      Size = 50
    end
    object Select_Subject_ClientDifficulty: TStringField
      FieldName = 'Difficulty'
      Size = 50
    end
    object Select_Subject_ClientContent: TStringField
      FieldName = 'Content'
      Size = 400
    end
    object Select_Subject_ClientA_option: TStringField
      FieldName = 'A_option'
      Size = 200
    end
    object Select_Subject_ClientB_option: TStringField
      FieldName = 'B_option'
      Size = 200
    end
    object Select_Subject_ClientC_option: TStringField
      FieldName = 'C_option'
      Size = 200
    end
    object Select_Subject_ClientD_option: TStringField
      FieldName = 'D_option'
      Size = 200
    end
    object Select_Subject_ClientE_option: TStringField
      FieldName = 'E_option'
      Size = 200
    end
    object Select_Subject_ClientF_option: TStringField
      FieldName = 'F_option'
      Size = 200
    end
  end
  object Select_Subject_Rule_Client: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Subject_Rule_Query_Provider'
    RemoteServer = Exam_SocketConnection
    Left = 216
    Top = 24
    object Select_Subject_Rule_ClientExam_Name: TStringField
      FieldName = 'Exam_Name'
      Size = 100
    end
    object Select_Subject_Rule_ClientSpeciality: TStringField
      FieldName = 'Speciality'
      Size = 50
    end
    object Select_Subject_Rule_ClientDifficulty: TStringField
      FieldName = 'Difficulty'
      Size = 50
    end
    object Select_Subject_Rule_ClientStyle: TStringField
      FieldName = 'Style'
      Size = 50
    end
    object Select_Subject_Rule_ClientSelect_Subject_Count: TIntegerField
      FieldName = 'Select_Subject_Count'
    end
    object Select_Subject_Rule_ClientSelect_Subject_Point: TIntegerField
      FieldName = 'Select_Subject_Point'
    end
  end
  object Set_Subject_Point_Client: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Set_Subject_Point_Provider'
    RemoteServer = Exam_SocketConnection
    Left = 216
    Top = 96
    object Set_Subject_Point_Clientdifficulty: TStringField
      FieldName = 'difficulty'
      Size = 50
    end
    object Set_Subject_Point_Clientstyle: TStringField
      FieldName = 'style'
      Size = 50
    end
    object Set_Subject_Point_Clientpoint: TBCDField
      FieldName = 'point'
      ReadOnly = True
      Precision = 6
      Size = 1
    end
  end
  object Select_Employee_Achievement_Client: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Select_Employee_Achievement_Provider'
    RemoteServer = Exam_SocketConnection
    Left = 264
    Top = 176
    object Select_Employee_Achievement_ClientName: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 8
      FieldName = 'Name'
      Size = 50
    end
    object Select_Employee_Achievement_ClientSex: TStringField
      DisplayLabel = #24615#21035
      DisplayWidth = 5
      FieldName = 'Sex'
      Size = 50
    end
    object Select_Employee_Achievement_ClientEmployee_Code: TStringField
      DisplayLabel = #21592#24037#20195#30721
      DisplayWidth = 10
      FieldName = 'Employee_Code'
      Size = 50
    end
    object Select_Employee_Achievement_ClientSales_Department: TStringField
      DisplayLabel = #33829#19994#37096
      DisplayWidth = 25
      FieldName = 'Sales_Department'
      Size = 50
    end
    object Select_Employee_Achievement_ClientDepartment: TStringField
      DisplayLabel = #19994#21153#37096#38376
      DisplayWidth = 13
      FieldName = 'Department'
      Size = 50
    end
    object Select_Employee_Achievement_ClientExam_Name: TStringField
      DisplayLabel = #32771#35797#21517#31216
      DisplayWidth = 32
      FieldName = 'Exam_Name'
      Size = 100
    end
    object Select_Employee_Achievement_ClientExam_Style: TStringField
      DisplayLabel = #32771#35797#31867#22411
      DisplayWidth = 13
      FieldName = 'Exam_Style'
      Size = 50
    end
    object Select_Employee_Achievement_ClientBegin_Exam_Datetime: TStringField
      DisplayLabel = #24320#32771#26102#38388
      FieldName = 'Begin_Exam_Datetime'
      Size = 50
    end
    object Select_Employee_Achievement_ClientExam_Datetime: TDateTimeField
      DisplayLabel = #20132#21367#26102#38388
      DisplayWidth = 22
      FieldName = 'Exam_Datetime'
    end
    object Select_Employee_Achievement_ClientAchievement: TFloatField
      DisplayLabel = #25104#32489
      FieldName = 'Achievement'
    end
  end
  object Select_Employee_Achievement_DS: TDataSource
    DataSet = Select_Employee_Achievement_Client
    Left = 80
    Top = 176
  end
  object Employee_Table_Client: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'Employee_Table_Provider'
    RemoteServer = Exam_SocketConnection
    AfterInsert = Employee_Table_ClientAfterInsert
    BeforePost = Employee_Table_ClientBeforePost
    AfterScroll = Employee_Table_ClientAfterScroll
    Left = 264
    Top = 240
    object Employee_Table_ClientLogin_Name: TStringField
      DisplayLabel = #30331#38470#21517#31216
      FieldName = 'Login_Name'
      Size = 50
    end
    object Employee_Table_ClientLogin_Psw: TStringField
      DisplayLabel = #30331#38470#23494#30721#65288#21152#23494#20018#65289
      FieldName = 'Login_Psw'
      Size = 50
    end
    object Employee_Table_ClientName: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'Name'
      Size = 50
    end
    object Employee_Table_ClientSex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      Size = 50
    end
    object Employee_Table_ClientEmployee_Code: TStringField
      DisplayLabel = #21592#24037#20195#30721
      FieldName = 'Employee_Code'
      Size = 50
    end
    object Employee_Table_ClientSales_Department: TStringField
      DisplayLabel = #33829#19994#37096
      FieldName = 'Sales_Department'
      Size = 50
    end
    object Employee_Table_ClientDepartment: TStringField
      DisplayLabel = #19994#21153#37096#38376
      FieldName = 'Department'
      Size = 50
    end
    object Employee_Table_ClientPurview: TStringField
      DisplayLabel = #26435#38480
      FieldName = 'Purview'
      Size = 50
    end
    object Employee_Table_ClientPhoto: TBlobField
      FieldName = 'Photo'
    end
  end
  object Employee_Table_DS: TDataSource
    DataSet = Employee_Table_Client
    Left = 88
    Top = 240
  end
end