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

#include <vcl.h>
#pragma hdrstop

#include "Archives_Config.h" //數據庫服務器配置窗體頭文件
//#include "DataModule.h"      //數據模塊窗體頭文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Config *F_Config;
//---------------------------------------------------------------------------
__fastcall TF_Config::TF_Config(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TF_Config::BB_ConfirmClick(TObject *Sender)
{   /*****確定按鈕單擊事件*****/
    if(LEdit1->Text.IsEmpty()||LEdit2->Text.IsEmpty()){
      ShowMessage("請輸入數據庫服務器名和數據庫名");
      LEdit1->SetFocus();  //焦點在數據庫服務器名輸入框
      return;
      }
    TIniFile *ini;  //申請一個TIniFile類對象
    //打開INI文件，如果不存在則創建與應用程序同名，后綴名為.INI的ini配置文件
    ini = new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");
    ini->WriteString("Database","Initial Catalog",LEdit2->Text);  //將數據庫名寫入配置文件
    ini->WriteString("Database","Data Source",LEdit1->Text);      //將數據庫服務器名寫入配置文件
    delete ini;    //釋放ini對象
    ini = NULL;    //編程技巧，這樣可以在下次不小心再delete ini一次時也不會拋出異常
    F_Config->Close();  //關閉數據庫服務器配置窗口
}
//---------------------------------------------------------------------------
void __fastcall TF_Config::BB_CancelClick(TObject *Sender)
{   /*****確定按鈕單擊事件*****/
    F_Config->Close();  //關閉數據庫服務器配置窗口
}
//---------------------------------------------------------------------------
void __fastcall TF_Config::LEdit2KeyPress(TObject *Sender, char &Key)
{   /*****數據庫名輸入框鍵盤輸入事件*****/
    if(Key == VK_RETURN)      //按下回車鍵執行
      BB_ConfirmClick(this);  //調用確定按鈕點擊事件
}
//---------------------------------------------------------------------------