datamoduleunit.dfm

教学管理系统源代码

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 205
  Top = 108
  Height = 391
  Width = 524
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Bo' +
      'rland\Delphi7\Projects\JXMS\Data\JiaoXueDB.mdb;Persist Security ' +
      'Info=False'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 8
  end
  object tablestudent: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'sno'
    TableName = 'student'
    Left = 112
    object tablestudentsno: TWideStringField
      FieldName = 'sno'
      Size = 8
    end
    object tablestudentsname: TWideStringField
      FieldName = 'sname'
      Size = 8
    end
    object tablestudentssex: TWideStringField
      FieldName = 'ssex'
      Size = 50
    end
    object tablestudentjiguan: TWideStringField
      FieldName = 'jiguan'
    end
    object tablestudentbirthday: TDateTimeField
      FieldName = 'birthday'
    end
    object tablestudenttel: TWideStringField
      FieldName = 'tel'
      Size = 15
    end
    object tablestudentemail: TWideStringField
      FieldName = 'email'
      Size = 50
    end
    object tablestudentphoto: TBlobField
      FieldName = 'photo'
    end
  end
  object tableteacher: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'teacher'
    Left = 112
    Top = 56
    object tableteachertname: TWideStringField
      FieldName = 'tname'
      Size = 8
    end
    object tableteachertsex: TWideStringField
      FieldName = 'tsex'
      Size = 2
    end
    object tableteachertel: TWideStringField
      FieldName = 'tel'
      Size = 15
    end
    object tableteacheremail: TWideStringField
      FieldName = 'email'
      Size = 30
    end
    object tableteacherage: TSmallintField
      FieldName = 'age'
    end
    object tableteacherjiaoyanshi: TWideStringField
      FieldName = 'jiaoyanshi'
      Size = 10
    end
    object tableteacherzhicheng: TWideStringField
      FieldName = 'zhicheng'
      Size = 10
    end
    object tableteacherphoto: TBlobField
      FieldName = 'photo'
    end
  end
  object tablecourse: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'course'
    Left = 112
    Top = 112
    object tablecoursecname: TWideStringField
      FieldName = 'cname'
      Size = 30
    end
    object tablecoursestudytime: TSmallintField
      FieldName = 'studytime'
    end
    object tablecoursecredit: TFloatField
      FieldName = 'credit'
    end
    object tablecoursetypeNO: TSmallintField
      FieldName = 'typeNO'
    end
  end
  object tablegrade: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'grade'
    Left = 112
    Top = 168
    object tablegradesno: TWideStringField
      FieldName = 'sno'
      Size = 50
    end
    object tablegradecname: TWideStringField
      FieldName = 'cname'
      Size = 30
    end
    object tablegradetname: TWideStringField
      FieldName = 'tname'
      Size = 8
    end
    object tablegradegrade: TWideStringField
      FieldName = 'grade'
      Size = 6
    end
    object tablegradeyear: TIntegerField
      FieldName = 'year'
    end
    object tablegradeterm: TWideStringField
      FieldName = 'term'
      Size = 2
    end
    object tablegradetype: TWideStringField
      FieldName = 'type'
      Size = 4
    end
  end
  object tabletemp: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'temp'
    Left = 112
    Top = 216
    object tabletemparea: TWideStringField
      FieldName = 'area'
      Size = 10
    end
    object tabletempcount: TSmallintField
      FieldName = 'count'
    end
  end
  object queryall: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 176
    Top = 152
  end
  object DSall: TDataSource
    DataSet = queryall
    Left = 336
    Top = 32
  end
  object DSteacher: TDataSource
    OnDataChange = DSteacherDataChange
    Left = 232
    Top = 16
  end
  object DSstudent: TDataSource
    DataSet = tablestudent
    OnDataChange = DSstudentDataChange
    Left = 176
    Top = 40
  end
  object RvDataSetConnectionall: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = queryall
    Left = 376
    Top = 64
  end
  object RvProjectall: TRvProject
    Engine = RvSystem1
    OnCreate = RvProjectallCreate
    Left = 288
    Top = 152
  end
  object Tablesys: TADOTable
    Connection = ADOConnection1
    TableName = 'sys'
    Left = 104
    Top = 264
  end
  object RvDataSetConnectionstudent: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Querystudent
    Left = 392
    Top = 176
  end
  object Querystudent: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from student')
    Left = 224
    Top = 176
  end
  object Querycredit: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select sno,typename,sum(credit)'
      'from grade,course,coursetype'
      'where grade.cname=course.cname'
      'and course.typeno=coursetype.typeno'
      'group by sno,typename')
    Left = 224
    Top = 112
    object Querycreditsno: TWideStringField
      FieldName = 'sno'
      Size = 8
    end
    object Querycredittypename: TWideStringField
      FieldName = 'typename'
      Size = 10
    end
    object QuerycreditExpr1002: TFloatField
      FieldName = 'Expr1002'
    end
  end
  object RvDataSetConnectioncredit: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Querycredit
    Left = 384
    Top = 120
  end
  object RvSystem1: TRvSystem
    TitleSetup = #36755#20986#36873#39033
    TitleStatus = #25253#34920#29366#24577
    TitlePreview = #25253#34920#39044#35272
    SystemFiler.StatusFormat = #27491#22312#21019#24314#39029#38754' %p'
    SystemPreview.FormWidth = 0
    SystemPreview.FormHeight = 0
    SystemPreview.FormState = wsMaximized
    SystemPreview.GridPen.Style = psDot
    SystemPreview.MarginMethod = mmScaled
    SystemPreview.PagesWide = 1111
    SystemPreview.PagesHigh = 1111
    SystemPreview.RulerType = rtBothIn
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 288
    Top = 104
  end
  object DScourse: TDataSource
    DataSet = tablecourse
    Left = 280
    Top = 24
  end
  object RvDataSetConnectiontype3: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Querygrade3
    Left = 392
    Top = 304
  end
  object RvDataSetConnectiontype4: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = querygrade4
    Left = 392
    Top = 248
  end
  object RvDataSetConnectiontype5: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Querygrade5
    Left = 392
    Top = 368
  end
  object Tabletype: TADOTable
    Connection = ADOConnection1
    TableName = 'Coursetype'
    Left = 104
    Top = 320
    object TabletypeTypeNO: TIntegerField
      FieldName = 'TypeNO'
    end
    object TabletypeTypeName: TWideStringField
      FieldName = 'TypeName'
      Size = 10
    end
  end
  object Querygrade3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 176
    Top = 200
  end
  object querygrade4: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 176
    Top = 264
  end
  object Querygrade5: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 272
    Top = 264
  end
  object ADOCommandall: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 48
    Top = 152
  end
end