unit2.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "inifiles.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_config *frm_config;
//---------------------------------------------------------------------------
__fastcall Tfrm_config::Tfrm_config(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_config::BitBtn1Click(TObject *Sender)
{
  if(Edit1->Text.IsEmpty()||Edit2->Text.IsEmpty())
  {
    ShowMessage("请输入数据库服务器名和数据库名！");
    Edit1->SetFocus();
    return ;
  }
  TIniFile *ini;
  ini=new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");
  ini->WriteString("Database","Initial Catalog",Edit2->Text);
  ini->WriteString("Data base","Data Source",Edit1->Text);
  delete ini;
  ini=NULL;
  frm_config->Close();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_config::BitBtn2Click(TObject *Sender)
{
  Edit1->Clear();
  Edit2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_config::Edit2KeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
  {
    BitBtn1Click(this);
  }
}
//---------------------------------------------------------------------------