Active Form 能使用TDataModule嗎?

Question

我作了一個Active Form ，加了一個TDataModule，並且能夠創建TDataModule
對象，但使用TDataModule，就會報錯：
"Access violation at address 06F5E9DB in module 'ZP.ocx' Read of address 0000005C"  
到底Active Form 能否使用TDataModule，由該如何解決我的問題啊！！！！下面是代碼./////TDataModule部分
unit DM;interfaceuses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, DBClient, MConnect, SConnect;type
  TCDM = class(TDataModule)
    DSMain: TDataSource;
    CDstMain: TClientDataSet;
    SkctConn: TSocketConnection;
    DShead: TDataSource;
    CDShead: TClientDataSet;
    DSbody: TDataSource;
    CDSbody: TClientDataSet;
    DSother: TDataSource;
    CDSother: TClientDataSet;
    DSTbody: TDataSource;
    CDSTbody: TClientDataSet;
    DSNMF: TDataSource;
    CDSNMF: TClientDataSet;
    DSML: TDataSource;
    CDSmL: TClientDataSet;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    CDM_purheadid:double;
    { Public declarations }
  end;var
  CDM: TCDM;procedure CreatCDM;implementation
{$R *.dfm}
/////////////////////////////////////////////////////////////
/////用這個函數來創建，是否正確？？？？
procedure CreatCDM;
begin
  TCDM.Create(nil)
end;
/////////////////////////////////////////////////////////////
procedure TCDM.DataModuleCreate(Sender: TObject);
begin
    Showmessage('CDM') ;//////////這個消息框出現過///////
end;
end.
///////////////在ActiveX Form 中調用的代碼。
//創建
procedure Tz.ActiveFormCreate(Sender: TObject);
begin
  DM.TCDM.Create(nil);
end;
//使用
procedure Tz.BtnRenewClick(Sender: TObject);
var
  sqltext:string;
begin
   sqltext:=ue_makesql();
   DM.CDM.CDstMain.Active:=false;   /////<----到這裡就出錯！
   DM.CDM.CDstMain.CommandText:=sqltext;
   DM.CDM.CDstMain.Active:=true;
end;
/////////////////////到底是爲什麽，要如何解決阿？？？

Answer 1

procedure Tz.ActiveFormCreate(Sender: TObject);
begin  dm:=tdatamodule1.create(self);//在这里加上这句就搞定了。ok？？？  DM.TCDM.Create(nil);
end;
//使用
procedure Tz.BtnRenewClick(Sender: TObject);
var
  sqltext:string;
begin
   sqltext:=ue_makesql();
   DM.CDM.CDstMain.Active:=false;   /////<----到這裡就出錯！
                                     //上面出错是因为Dm没有被创建实                          例
   DM.CDM.CDstMain.CommandText:=sqltext;
   DM.CDM.CDstMain.Active:=true;
end;

Answer 2

加上一句
Dm是Tcdm类的吧？
  TCDM.Create(nil)；
你光用这局话没有用，上一句话只是创建了一个实例，但是并没有将这个实例赋值给Dm，所以你用Dm来调用cdm之类的组件当然出错了。

Answer 3

謝謝,終于搞定了!
只要:DM:=TCDM.Create(nil)；就行了。