archives_config.cpp

档案管理系统源码

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

#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(ChangeFileExt( Application->ExeName, ".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);  //调用确定按钮点击事件
}
//---------------------------------------------------------------------------