querydatamoduleunit.pas

来自「该系统为学生信息管理系统」· PAS 代码 · 共 32 行

unit querydatamoduleunit;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  Tquerydatamodule = class(TDataModule)
    studentsquery: TQuery;
    teachersquery: TQuery;
    coursequery: TQuery;
    unclearquery: TQuery;
    dsteachers: TDataSource;
    dscourse: TDataSource;
    dsunclear: TDataSource;
    dsstudents: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  querydatamodule: Tquerydatamodule;

implementation

{$R *.dfm}

end.