unit11.~cpp

第一次尝试开发数据库方面的系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit11.h"
#include "Unit2.h"
#include "Unit3.h"
#include "inifiles.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM *DM;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
  : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDM::DataModuleCreate(TObject *Sender)
{
  /*TIniFile *ini;
  ini=new TIniFile(ExtractFilePath(ParamStr(0))+"config.INI");
  bool State;
  State=ini->ReadBool("Database","Connection",false);
  if(!State)
  {
    try
    {
      frm_config=new Tfrm_config(Application);
      frm_config->ShowModal();
      delete frm_config;
      frm_config=NULL;
    }
    catch(Exception &exception)
    {
      delete frm_config;
      Application->ShowException(&exception);
    }
    char CString[100];
    StrCopy(CString,"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=");
    AnsiString str1,str2;
    str1=ini->ReadString("Database","Initial catalog","linz");
    StrCat(CString,str1.c_str());
    str2=ini->ReadString("Database","DataSource","");
    delete ini;
    StrCat(CString,";Data Source=");
    StrCat(CString,str2.c_str());
    DM->ADOConnection1->Connected=true;
    DM->ADOConnection1->ConnectionString=str2;
    try
    {
      DM->mQuery->Active=true;
      DM->dzhQuery->Active=true;
      DM->brQuery->Active=true;
      DM->tshQuery->Active=true;
    }
    catch(...)
    {
      MessageBox(NULL,"与数据库服务器连接未成功，请重新配置！","警告对话框",MB_ICONWARNING);
      frm_main->StatusBar1->Panels->Items[1]->Text="数据库连接未成功，请重新配置！";
    }
    if(DM->ADOConnection1->Connected)
      frm_main->StatusBar1->Panels->Items[1]->Text="数据库连接成功！";
    TIniFile *ini1;
    ini1=new TIniFile(ExtractFilePath(ParamStr(0))+"config.INI");
    State=DM->ADOConnection1->Connected;
    ini1->WriteBool("Database","Conncetion",State);
    delete ini1;
    ini1=NULL;
  }   */
}
//---------------------------------------------------------------------------