Active Form 能使用TDataModule嗎?(100分)

  • 主题发起人 主题发起人 leozy
  • 开始时间 开始时间
L

leozy

Unregistered / Unconfirmed
GUEST, unregistred user!
我作了一個Active Form ,加了一個TDataModule,並且能夠創建TDataModule
對象,但使用TDataModule,就會報錯:
"Access violation at address 06F5E9DB in module 'ZP.ocx' Read of address 0000005C"
到底Active Form 能否使用TDataModule,由該如何解決我的問題啊!!!!
下面是代碼.
/////TDataModule部分
unit DM;
interface
uses
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;
/////////////////////
到底是爲什麽,要如何解決阿???
 
可以,在ActiveForm private中定義DataModule:TDataModule,在OnActive事件中創建,在OnDestroy中Free就行
 
->/////用这个函创建,是否正确????
->procedure CreatCDM;
->begin
-> TCDM.Create(nil)
->end;
不正确!这样创建后,你以后如何控制它?
应当在ActiveForm单元中的uses中加入uses DM并将变量CDM:Tcdm声明改到ActiveForm中,
然后可以在相关的事件中加入cdm:=tcdm.create和cdm.free就可以
 
只能自动手工创建就行了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
800
import
I
D
回复
0
查看
844
DelphiTeacher的专栏
D
后退
顶部