Delphi(程序人生)

Delphi Programer DoubleCat

导航

delphi.net在ASP.net中使用数据模块DM

1,project->Add->Other->加入一个Global页面
2,在Global页面中放sqlConnection sqlCommand并设好他们的连接
3,在接口处注销strict private
   接口的代码如下
---------------------------
type
  TGlobal = class(System.Web.HttpApplication)
  {$REGION 'Designer Managed Code'}
//  strict private//这行必需注销,其它的行不理它
    sqlCNN: System.Data.SqlClient.SqlConnection;
    SqlCMD: System.Data.SqlClient.SqlCommand;
    procedure InitializeComponent;
  {$ENDREGION}
  strict protected
    procedure Application_Start(sender: System.Object; e: EventArgs);
    procedure Session_Start(sender: System.Object; e: EventArgs);
    procedure Application_BeginRequest(sender: System.Object; e:

EventArgs);
    procedure Application_EndRequest(sender: System.Object; e:

EventArgs);
    procedure Application_AuthenticateRequest(sender: System.Object; e:

EventArgs);
    procedure Application_Error(sender: System.Object; e: EventArgs);
    procedure Session_End(sender: System.Object; e: EventArgs);
    procedure Application_End(sender: System.Object; e: EventArgs);
  private
    { Private Declarations }
  public
    constructor Create;
  end;

var DM:TGlobal;//在这里要申明一个类变量,以后就会这个变量来访问这个类

implementation
------------------------------------
4,申本类变量,如implementation上面那一行
5,其它页面引用这个单元,引用单元要引用System.Data.SqlClient
  要不然,就叫不出DM模块中数据组件的方法了
-------------------------------------------
DoubleCat

posted on 2008-12-16 13:53  DoubleCat  阅读(304)  评论(0编辑  收藏  举报