p_dm.pas

小学上课排课系统,非常实用,是实际使用软件

unit p_dm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    DS_USER: TDataSource;
    ADO: TADOConnection;
    T_USER: TADODataSet;
    DS_MENU: TDataSource;
    DS_QX: TDataSource;
    T_MENU: TADODataSet;
    T_QX: TADODataSet;
    T_dl: TADODataSet;
    T_XueQi: TADODataSet;
    T_BanJi: TADODataSet;
    T_JiaoShi: TADODataSet;
    DS_XueQi: TDataSource;
    DS_BanJi: TDataSource;
    DS_JiaoShi: TDataSource;
    DS_KeCheng: TDataSource;
    T_KeCheng: TADODataSet;
    T_KCBiao: TADODataSet;
    DS_KCBiao: TDataSource;
    DS_dl: TDataSource;
    q_xq: TADOQuery;
    DS_XQ: TDataSource;
    q_kcb: TADOQuery;
    DS_kcb: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.