dm3.dfm

本文件为使用Delphi开发的学生信息管理系统,演示了如何使用BDE来开发数据库应用程序!

object DataModule3: TDataModule3
  OldCreateOrder = False
  Left = 476
  Top = 203
  Height = 408
  Width = 494
  object tblDEPT: TTable
    Active = True
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    TableName = 'dept.db'
    Left = 40
    Top = 8
    object tblDEPTDno: TIntegerField
      FieldName = 'Dno'
    end
    object tblDEPTDname: TStringField
      FieldName = 'Dname'
      Size = 12
    end
    object tblDEPTTel: TIntegerField
      FieldName = 'Tel'
    end
  end
  object dsDEPT: TDataSource
    DataSet = tblDEPT
    Left = 96
    Top = 8
  end
  object dsquery: TDataSource
    DataSet = qryCOUNT
    Left = 312
    Top = 16
  end
  object qryCOUNT: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    SQL.Strings = (
      'select count(*) from student.db where dno=:dno')
    Left = 264
    Top = 16
    ParamData = <
      item
        DataType = ftInteger
        Name = 'dno'
        ParamType = ptUnknown
      end>
    object qryCOUNTCOUNT: TIntegerField
      FieldName = 'COUNT(*)'
    end
  end
  object tblstudent: TTable
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    TableName = 'student.DB'
    Left = 528
    Top = 168
    object tblstudentSno: TIntegerField
      FieldName = 'Sno'
    end
    object tblstudentSname: TStringField
      FieldName = 'Sname'
      Size = 16
    end
    object tblstudentSex: TStringField
      FieldName = 'Sex'
      Size = 4
    end
    object tblstudentAge: TIntegerField
      FieldName = 'Age'
    end
    object tblstudentDno: TIntegerField
      FieldName = 'Dno'
    end
    object dname: TStringField
      FieldKind = fkLookup
      FieldName = 'dname'
      LookupDataSet = tblDEPT
      LookupKeyFields = 'Dno'
      LookupResultField = 'Dname'
      KeyFields = 'Dno'
      Lookup = True
    end
  end
  object dsstudent: TDataSource
    DataSet = qryStudent
    Left = 440
    Top = 16
  end
  object qryDEPT: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    SQL.Strings = (
      'select *from dept where dno=:dno')
    Left = 160
    Top = 16
    ParamData = <
      item
        DataType = ftInteger
        Name = 'dno'
        ParamType = ptUnknown
      end>
    object qryDEPTDno: TIntegerField
      FieldName = 'Dno'
      Origin = 'STUDENTS."dept.DB".Dno'
    end
    object qryDEPTDname: TStringField
      FieldName = 'Dname'
      Origin = 'STUDENTS."dept.DB".Dname'
      Size = 12
    end
    object qryDEPTTel: TIntegerField
      FieldName = 'Tel'
      Origin = 'STUDENTS."dept.DB".Tel'
    end
  end
  object qryStudent: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    SQL.Strings = (
      'SELECT *FROM STUDENT WHERE DNO=:DNO')
    Left = 368
    Top = 16
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DNO'
        ParamType = ptUnknown
      end>
    object qryStudentSname: TStringField
      FieldName = 'Sname'
      Origin = 'STUDENTS."student.DB".Sname'
      Size = 16
    end
    object qryStudentSex: TStringField
      FieldName = 'Sex'
      Origin = 'STUDENTS."student.DB".Sex'
      Size = 4
    end
    object qryStudentAge: TIntegerField
      FieldName = 'Age'
      Origin = 'STUDENTS."student.DB".Age'
    end
    object qryStudentDno: TIntegerField
      FieldName = 'Dno'
      Origin = 'STUDENTS."student.DB".Dno'
    end
    object qryStudentdname: TStringField
      FieldKind = fkLookup
      FieldName = 'dname'
      LookupDataSet = tblDEPT
      LookupKeyFields = 'Dno'
      LookupResultField = 'Dname'
      KeyFields = 'Dno'
      Lookup = True
    end
    object qryStudentSno: TIntegerField
      FieldName = 'Sno'
      Origin = 'STUDENTS."student.DB".Sno'
    end
  end
  object dsqryDEPT: TDataSource
    DataSet = qryDEPT
    Left = 208
    Top = 16
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 32
    Top = 88
  end
  object dsmaint: TDataSource
    DataSet = tblmaint
    Left = 152
    Top = 81
  end
  object tblmaint: TTable
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    Left = 88
    Top = 88
  end
  object snotable: TTable
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    TableName = 'student.DB'
    Left = 32
    Top = 160
    object snotableSno: TIntegerField
      FieldName = 'Sno'
    end
    object snotableSname: TStringField
      FieldName = 'Sname'
      Size = 16
    end
    object snotableSex: TStringField
      FieldName = 'Sex'
      Size = 4
    end
    object snotableAge: TIntegerField
      FieldName = 'Age'
    end
    object snotableDno: TIntegerField
      FieldName = 'Dno'
    end
  end
  object snoquery: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    SQL.Strings = (
      
        'select sname,dname from "student.db" student,"dept.db" dept wher' +
        'e student.sno=:sno and student.dno=dept.dno')
    Left = 160
    Top = 160
    ParamData = <
      item
        DataType = ftInteger
        Name = 'sno'
        ParamType = ptUnknown
      end>
    object snoquerysname: TStringField
      FieldName = 'sname'
      Origin = 'STUDENTS."student.DB".Sname'
      Size = 16
    end
    object snoquerydname: TStringField
      FieldName = 'dname'
      Origin = 'STUDENTS."dept.DB".Dname'
      Size = 12
    end
  end
  object snoDS: TDataSource
    DataSet = snoquery
    Left = 208
    Top = 160
  end
  object creditalquery: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    SQL.Strings = (
      
        'select sum(credit) from "course.db" course,"sc.db" sc where cour' +
        'se.cno=sc.cno'
      'and sc.score>=60 and sc.sno=:sno')
    Left = 264
    Top = 160
    ParamData = <
      item
        DataType = ftInteger
        Name = 'sno'
        ParamType = ptUnknown
      end>
    object creditalquerySUMOFcredit: TFloatField
      FieldName = 'SUM OF credit'
      Origin = 'STUDENTS."course.DB".Credit'
    end
  end
  object DSsnotable: TDataSource
    DataSet = snotable
    Left = 96
    Top = 160
  end
  object coursetable: TTable
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    TableName = 'course.db'
    Left = 24
    Top = 232
  end
  object cnoquery: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    Left = 160
    Top = 232
  end
  object courseDS: TDataSource
    DataSet = coursetable
    Left = 88
    Top = 232
  end
  object SCquery: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    SQL.Strings = (
      'select cno,cname,credit from "course.db" course, "sc.db"sc where'
      'course.cno=sc.cno and sc.score=-1 and sno=:sno')
    Left = 240
    Top = 240
    ParamData = <
      item
        DataType = ftInteger
        Name = 'sno'
        ParamType = ptUnknown
      end>
  end
  object scDS: TDataSource
    DataSet = SCquery
    Left = 296
    Top = 240
  end
  object SELECTQUERY: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    Left = 32
    Top = 304
  end
  object DELETEQUERY: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    Left = 120
    Top = 304
  end
  object statisticsQuery: TQuery
    DatabaseName = 'STUDENTS'
    SessionName = 'Session1_2'
    SQL.Strings = (
      'select count(course.cno),sum(credit) from "course.db" course,'
      
        '"sc.db"sc where course.cno=sc.cno and sc.score=-1 and sc.sno=:sn' +
        'o')
    Left = 200
    Top = 304
    ParamData = <
      item
        DataType = ftInteger
        Name = 'sno'
        ParamType = ptUnknown
      end>
    object statisticsQueryCOUNTOFcno: TIntegerField
      FieldName = 'COUNT OF cno'
      Origin = 'STUDENTS."course.DB".Cno'
    end
    object statisticsQuerySUMOFcredit: TFloatField
      FieldName = 'SUM OF credit'
      Origin = 'STUDENTS."course.DB".Credit'
    end
  end
  object statisticsDS: TDataSource
    DataSet = statisticsQuery
    Left = 280
    Top = 304
  end
  object creditqueryDS: TDataSource
    DataSet = creditalquery
    Left = 336
    Top = 160
  end
end