cdmunit.~dfm

实例4学院信息管理系统 - RAR 档案文件

object CDM: TCDM
  OldCreateOrder = False
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object ClientDataSetBase: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProviderBase'
    RemoteServer = DCOMConnectionStudent
    Left = 32
    Top = 24
    object ClientDataSetBaseSTUDENT_ID: TStringField
      DisplayLabel = '学号'
      FieldName = 'STUDENT_ID'
      Size = 8
    end
    object ClientDataSetBaseNAME: TStringField
      DisplayLabel = '姓名'
      FieldName = 'NAME'
      Size = 12
    end
    object ClientDataSetBaseSEX: TStringField
      DisplayLabel = '性别'
      FieldName = 'SEX'
      FixedChar = True
      Size = 1
    end
    object ClientDataSetBaseGRADE: TStringField
      DisplayLabel = '入学时间'
      FieldName = 'GRADE'
      Size = 4
    end
    object ClientDataSetBaseNATIVE: TStringField
      DisplayLabel = '籍贯'
      FieldName = 'NATIVE'
    end
    object ClientDataSetBaseIDENTITY: TStringField
      DisplayLabel = '身份证号'
      FieldName = 'IDENTITY'
      Size = 18
    end
    object ClientDataSetBaseAGE: TIntegerField
      DisplayLabel = '年龄'
      FieldName = 'AGE'
    end
  end
  object DCOMConnectionStudent: TDCOMConnection
    Connected = True
    ServerGUID = '{31156339-9ECD-4A8C-BDC0-6DFAB3A1833A}'
    ServerName = 'S_TT.RDM'
    Left = 176
    Top = 24
  end
  object ClientDataSetYear: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'P_Sys_Year'
    RemoteServer = DCOMConnectionStudent
    Left = 40
    Top = 168
    object ClientDataSetYearPAMA: TStringField
      FieldName = 'PAMA'
      Size = 80
    end
  end
  object ClientDataSetCredit: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProviderCredit'
    RemoteServer = DCOMConnectionStudent
    Left = 32
    Top = 88
    object ClientDataSetCreditSTUDENT_ID: TStringField
      DisplayLabel = '学号'
      FieldName = 'STUDENT_ID'
      Size = 8
    end
    object ClientDataSetCreditCOURSE: TStringField
      DisplayLabel = '课程'
      FieldName = 'COURSE'
      Size = 10
    end
    object ClientDataSetCreditGRADES: TIntegerField
      DisplayLabel = '成绩'
      FieldName = 'GRADES'
    end
  end
  object ClientDataSetCourse: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProviderCourse'
    RemoteServer = DCOMConnectionStudent
    Left = 40
    Top = 231
    object ClientDataSetCourseSTUDENT_ID: TStringField
      DisplayLabel = '学号'
      FieldName = 'STUDENT_ID'
      Size = 8
    end
    object ClientDataSetCourseCOURSE: TStringField
      DisplayLabel = '课程'
      FieldName = 'COURSE'
      Size = 10
    end
    object ClientDataSetCourseCOURSE_T: TStringField
      DisplayLabel = '类别'
      FieldName = 'COURSE_T'
      Size = 1
    end
    object ClientDataSetCoursePERIOD: TIntegerField
      DisplayLabel = '学时'
      FieldName = 'PERIOD'
    end
    object ClientDataSetCourseCREDIT: TIntegerField
      DisplayLabel = '学分'
      FieldName = 'CREDIT'
    end
    object ClientDataSetCourseBEGIN_DATE: TStringField
      DisplayLabel = '开始日期'
      FieldName = 'BEGIN_DATE'
      Size = 8
    end
    object ClientDataSetCourseEND_DATE: TStringField
      DisplayLabel = '结束日期'
      FieldName = 'END_DATE'
      Size = 8
    end
  end
end