unit_dm.~cpp

本系统里面包含数据库（SQL SERVER2000）

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit_DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM *DM;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
        : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TDM::DataModuleCreate(TObject *Sender)
{
  TIniFile *ini;    //申请一个TIniFile类对象
  //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
  ini = new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");
  AnsiString Name_Com = ini->ReadString("Computer","ds_name",""); //从配置文件读数据库名
  delete ini;   //释放ini对象
  char Name_DS[255];
  if(!Name_Com.IsEmpty())
  {
  /*****ADOConnection对象与数据库服务器系统初始化代码******/
    StrCopy(Name_DS,"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=file;Data Source="); //拷贝字符串
    StrCat(Name_DS,Name_Com.c_str());  //追加字符串
  }
  else ShowMessage("获取计算机名失败!");
  ADOC->Connected = false;
  ADOC->ConnectionString = Name_DS; //设置与数据库服务器连接属性字符串
  try{  //捕捉异常
      DM->ADOC->Connected = true;
  }
  catch(...){ //异常处理
    Application->MessageBoxA("数据库服务器连接错误","错误信息",MB_OK);
  }

}
//---------------------------------------------------------------------------

void __fastcall TDM::DataModuleDestroy(TObject *Sender)
{
  ADOC->Connected = false;
}
//---------------------------------------------------------------------------