udm.dfm

来自「可实现科研信息管理系统的功能,有项目管理,教师管理,科研项目管理等多项内容」· DFM 代码 · 共 98 行

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 413
  Top = 184
  Height = 224
  Width = 345
  object ADOQProject: TADOQuery
    CursorType = ctStatic
    BeforeDelete = ADOQProjectBeforeDelete
    OnDeleteError = ADOQProjectDeleteError
    OnEditError = ADOQProjectEditError
    OnPostError = ADOQProjectPostError
    Parameters = <>
    SQL.Strings = (
      'select * from Project order by pno')
    Left = 58
    Top = 21
  end
  object ADOQAttender: TADOQuery
    CursorType = ctStatic
    OnDeleteError = ADOQAttenderDeleteError
    OnEditError = ADOQAttenderEditError
    OnPostError = ADOQAttenderPostError
    Parameters = <>
    SQL.Strings = (
      'select * from attender order by pno')
    Left = 61
    Top = 72
  end
  object ADOQTeacher: TADOQuery
    CursorType = ctStatic
    BeforeDelete = ADOQTeacherBeforeDelete
    OnDeleteError = ADOQTeacherDeleteError
    OnEditError = ADOQTeacherEditError
    OnPostError = ADOQTeacherPostError
    Parameters = <>
    SQL.Strings = (
      'select * from teacher order by tno')
    Left = 231
    Top = 74
  end
  object ADOQDepartment: TADOQuery
    CursorType = ctStatic
    BeforeDelete = ADOQDepartmentBeforeDelete
    OnDeleteError = ADOQDepartmentDeleteError
    OnEditError = ADOQDepartmentEditError
    OnPostError = ADOQDepartmentPostError
    Parameters = <>
    SQL.Strings = (
      'select * from department order by dno')
    Left = 228
    Top = 24
  end
  object ADOQSalary: TADOQuery
    CursorType = ctStatic
    BeforeDelete = ADOQSalaryBeforeDelete
    OnDeleteError = ADOQSalaryDeleteError
    OnEditError = ADOQSalaryEditError
    OnPostError = ADOQSalaryPostError
    Parameters = <>
    SQL.Strings = (
      'select * from salary')
    Left = 64
    Top = 128
  end
  object ADOQAchievement: TADOQuery
    CursorType = ctStatic
    BeforeDelete = ADOQAchievementBeforeDelete
    OnDeleteError = ADOQAchievementDeleteError
    OnEditError = ADOQAchievementEditError
    OnPostError = ADOQAchievementPostError
    Parameters = <>
    SQL.Strings = (
      'select * from Achievement order by ano')
    Left = 138
    Top = 77
  end
  object ADOQReward: TADOQuery
    CursorType = ctStatic
    OnDeleteError = ADOQRewardDeleteError
    OnEditError = ADOQRewardEditError
    OnPostError = ADOQRewardPostError
    Parameters = <>
    SQL.Strings = (
      'select * from reward order by pname')
    Left = 141
    Top = 128
  end
  object ADOQueryS: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from project')
    Left = 232
    Top = 128
  end
end