dm.~pas

学生管理系统小鸟做了

unit dm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tfmdm = class(TDataModule)
    ADOConnection1: TADOConnection;
    DSdenglu: TDataSource;
    DSwdxx: TDataSource;
    DSjyqk: TDataSource;
    qrydenglu: TADOQuery;
    DSfkxx: TDataSource;
    DSglyh: TDataSource;
    DSckzpxx: TDataSource;
    qryglyh: TADOQuery;
    qryjyqk: TADOQuery;
    qrywdxx: TADOQuery;
    qryfkxx: TADOQuery;
    qryckzpxx: TADOQuery;
    DStgzpxx: TDataSource;
    qrytgzpxx: TADOQuery;
    DSsczpxx: TDataSource;
    qrysczpxx: TADOQuery;
    qryzc: TADOQuery;
    DSzc: TDataSource;
    DShfqx: TDataSource;
    qryhfqx: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmdm: Tfmdm;

implementation

uses wdxx, denglu, jyqk, main, fkxx, glyh, ckzpxx, tgzpxx, hfqx;

{$R *.dfm}

end.