querydatamoduleunit.~dfm

来自「该系统为学生信息管理系统」· ~DFM 代码 · 共 60 行

object querydatamodule: Tquerydatamodule
  OldCreateOrder = False
  Left = 208
  Top = 39
  Height = 310
  Width = 215
  object studentsquery: TQuery
    Active = True
    AutoRefresh = True
    DatabaseName = 'TSS'
    SQL.Strings = (
      'SELECT Sno, Name, Sex, Age, Entrance'
      'FROM "student.db" Student')
    Left = 40
    Top = 24
  end
  object teachersquery: TQuery
    DatabaseName = 'TSS'
    SQL.Strings = (
      'SELECT Tno, Name, Sex, Address'
      'FROM "teacher.db" Teacher')
    Left = 40
    Top = 80
  end
  object coursequery: TQuery
    Active = True
    DatabaseName = 'TSS'
    SQL.Strings = (
      'SELECT Cno, Cname, Tctime'
      'FROM "course.db" Course')
    Left = 40
    Top = 136
  end
  object unclearquery: TQuery
    DatabaseName = 'TSS'
    Left = 40
    Top = 192
  end
  object dsteachers: TDataSource
    DataSet = teachersquery
    Left = 136
    Top = 80
  end
  object dscourse: TDataSource
    DataSet = coursequery
    Left = 136
    Top = 144
  end
  object dsunclear: TDataSource
    DataSet = unclearquery
    Left = 136
    Top = 200
  end
  object dsstudents: TDataSource
    DataSet = studentsquery
    Left = 136
    Top = 24
  end
end