u_datamodule.pas

以多个信息系统为例

unit u_datamodule;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TDM_main = class(TDataModule)
    Database: TDatabase;
    Q_login: TQuery;
    T_course: TTable;
    T_teacher: TTable;
    DS_course: TDataSource;
    DS_teacher: TDataSource;
    T_counter: TTable;
    DS_course_list: TDataSource;
    Q_student_list: TQuery;
    Q_course_list: TQuery;
    DS_student_list: TDataSource;
    Q_change_state: TQuery;
    Q_course_list2: TQuery;
    DS_course_list2: TDataSource;
    Q_student_list2: TQuery;
    DS_student_list2: TDataSource;
    T_score: TTable;
    DS_score: TDataSource;
    T_appraisement: TTable;
    DS_appraisement: TDataSource;
    Q_person: TQuery;
    Q_depart: TQuery;
    Q_stat: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_main: TDM_main;

implementation

{$R *.DFM}

end.