dm3.pas

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

unit dm3;

interface

uses
  SysUtils, Classes, DBTables, DB;

type
  TDataModule3 = class(TDataModule)
    tblDEPT: TTable;
    dsDEPT: TDataSource;
    dsquery: TDataSource;
    qryCOUNT: TQuery;
    tblstudent: TTable;
    dsstudent: TDataSource;
    tblstudentSno: TIntegerField;
    tblstudentSname: TStringField;
    tblstudentSex: TStringField;
    tblstudentAge: TIntegerField;
    tblstudentDno: TIntegerField;
    dname: TStringField;
    tblDEPTDno: TIntegerField;
    tblDEPTDname: TStringField;
    tblDEPTTel: TIntegerField;
    qryCOUNTCOUNT: TIntegerField;
    qryDEPT: TQuery;
    qryStudent: TQuery;
    dsqryDEPT: TDataSource;
    qryStudentSname: TStringField;
    qryStudentSex: TStringField;
    qryStudentAge: TIntegerField;
    qryStudentDno: TIntegerField;
    qryStudentdname: TStringField;
    qryStudentSno: TIntegerField;
    qryDEPTDno: TIntegerField;
    qryDEPTDname: TStringField;
    qryDEPTTel: TIntegerField;
    Session1: TSession;
    dsmaint: TDataSource;
    tblmaint: TTable;
    snotable: TTable;
    snoquery: TQuery;
    snoDS: TDataSource;
    creditalquery: TQuery;
    creditalquerySUMOFcredit: TFloatField;
    snoquerysname: TStringField;
    snoquerydname: TStringField;
    snotableSno: TIntegerField;
    snotableSname: TStringField;
    snotableSex: TStringField;
    snotableAge: TIntegerField;
    snotableDno: TIntegerField;
    DSsnotable: TDataSource;
    coursetable: TTable;
    cnoquery: TQuery;
    courseDS: TDataSource;
    SCquery: TQuery;
    scDS: TDataSource;
    SELECTQUERY: TQuery;
    DELETEQUERY: TQuery;
    statisticsQuery: TQuery;
    statisticsDS: TDataSource;
    statisticsQueryCOUNTOFcno: TIntegerField;
    statisticsQuerySUMOFcredit: TFloatField;
    creditqueryDS: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule3: TDataModule3;

implementation

{$R *.dfm}

end.