u_data.pas

delphi编的排课管理系统

unit u_data;

interface

uses
  SysUtils, Classes, DBTables, DB, FR_Class;

type
  TDataModule1 = class(TDataModule)
    tb_class: TTable;
    tb_room: TTable;
    tb_kc: TTable;
    tb_tec: TTable;
    ds_tb_class: TDataSource;
    ds_tb_kc: TDataSource;
    ds_tb_room: TDataSource;
    ds_tb_tec: TDataSource;
    query1: TQuery;
    tb_apply: TTable;
    ds_apply: TDataSource;
    set_week: TTable;
    tb_tech_gc: TTable;
    ds_tech_gc: TDataSource;
    tb_fj: TTable;
    ds_fj: TDataSource;
    temp: TTable;
    pk_sign: TTable;
    q_edit: TQuery;
    t_edit: TTable;
    frReport1: TfrReport;
    ds_temp2: TDataSource;
    t_date: TTable;
    have_pk: TTable;
    t_scan: TTable;
    temp2: TTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.