datamoduleunit.dfm

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 361
  Top = 179
  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 Tablesys: TADOTable
    Connection = ADOConnection1
    TableName = 'sys'
    Left = 104
    Top = 264
  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 DScourse: TDataSource
    DataSet = tablecourse
    Left = 280
    Top = 24
  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