unit_dm.pas

来自「王欢燕的毕业设计(学生综合管理系统).」· PAS 代码 · 共 49 行

//---------------------------------------------------
//  功能描述: 数据库连接模块
//  作者: 王欢燕
//  开发时间: 2003-07-12
//---------------------------------------------------

unit Unit_DM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    adoc: TADOConnection;
    ds_curri: TDataSource;
    ds_class: TDataSource;
    ds_student: TDataSource;
    ds_cj: TDataSource;
    adot_curri: TADODataSet;
    adot_curriDSDesigner: TWideStringField;
    adot_curriDSDesigner2: TIntegerField;
    adot_class: TADODataSet;
    adot_student: TADODataSet;
    adot_cj: TADODataSet;
    adot_classDSDesigner: TWideStringField;
    adot_classDSDesigner2: TIntegerField;
    adot_cjDSDesigner: TAutoIncField;
    adot_cjDSDesigner2: TWideStringField;
    adot_cjDSDesigner3: TWideStringField;
    adot_cjDSDesigner4: TIntegerField;
    adot_cjDSDesigner5: TWideStringField;
    adot_cjDSDesigner6: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.