querydatamoduleunit.~pas

来自「一套DLEPHI制作的教学管理系统」· ~PAS 代码 · 共 45 行

unit QueryDataModuleUnit;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TQueryDataModule = class(TDataModule)
    DSStudents: TDataSource;
    DSTeachers: TDataSource;
    DSCourse: TDataSource;
    DSSpecial: TDataSource;
    StudentsQuery: TQuery;
    TeachersQuery: TQuery;
    CourseQuery: TQuery;
    SpecialQuery: TQuery;
    StudentsQuerySNo: TStringField;
    StudentsQueryName: TStringField;
    StudentsQuerySex: TStringField;
    StudentsQueryAge: TSmallintField;
    StudentsQueryEntrance: TDateField;
    TeachersQueryTNo: TStringField;
    TeachersQueryName: TStringField;
    TeachersQuerySex: TStringField;
    TeachersQueryAge: TSmallintField;
    TeachersQueryAddress: TStringField;
    CourseQueryCNo: TStringField;
    CourseQueryCName: TStringField;
    CourseQueryTCTime: TSmallintField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QueryDataModule: TQueryDataModule;

implementation

{$R *.dfm}

end.