dataunit.~dfm

来自「学生选课管理信息系统原码」· ~DFM 代码 · 共 101 行

object DataMod: TDataMod
  OldCreateOrder = False
  Left = 249
  Top = 185
  Height = 312
  Width = 482
  object DepartmentQuery: TQuery
    DatabaseName = 'CRSData'
    Left = 204
    Top = 24
  end
  object StudentQuery: TQuery
    DatabaseName = 'CRSData'
    Left = 118
    Top = 24
  end
  object EduManagQuery: TQuery
    DatabaseName = 'CRSData'
    Left = 32
    Top = 24
  end
  object EduManagSource: TDataSource
    DataSet = EduManagQuery
    Left = 32
    Top = 96
  end
  object GeneralQuery: TQuery
    DatabaseName = 'CRSData'
    Left = 32
    Top = 168
  end
  object GeneralDataSource: TDataSource
    DataSet = GeneralQuery
    Left = 32
    Top = 232
  end
  object SelCourseSource: TDataSource
    DataSet = SelCourseNameQuery
    Left = 129
    Top = 231
  end
  object SelCourseNameQuery: TQuery
    DatabaseName = 'CRSData'
    Left = 129
    Top = 167
  end
  object StudentSource: TDataSource
    DataSet = StudentQuery
    Left = 118
    Top = 96
  end
  object DepartmentSource: TDataSource
    DataSet = DepartmentQuery
    Left = 204
    Top = 96
  end
  object CourseSource: TDataSource
    DataSet = CourseQuery
    Left = 290
    Top = 96
  end
  object GradeSource: TDataSource
    DataSet = GradeQuery
    Left = 223
    Top = 231
  end
  object GradeQuery: TQuery
    DatabaseName = 'CRSData'
    Left = 223
    Top = 167
  end
  object CourseQuery: TQuery
    DatabaseName = 'CRSData'
    Left = 290
    Top = 24
  end
  object StudentDelQuery: TQuery
    DatabaseName = 'CRSData'
    DataSource = StudentSource
    SQL.Strings = (
      'Delete from Student where DepartNo = :DepartNo')
    Left = 376
    Top = 26
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DepartNo'
        ParamType = ptUnknown
      end>
  end
  object SelStudentNameQuery: TQuery
    Left = 320
    Top = 168
  end
  object SelStudentSource: TDataSource
    DataSet = SelStudentNameQuery
    Left = 320
    Top = 232
  end
end