dataconnection.cpp

学生信息管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "DataConnection.h"
#include "main.h"     //程序主窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{   /*****确定按钮单击事件*****/
    if(Form2->Edit1->Text.IsEmpty()) {
        ShowMessage("输入数据库服务器名不能为空");
        return;
        }
    Form2->Close();    //关闭窗体
    char dsname[100];
    StrCopy(dsname,"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student;Data Source=");
    StrCat(dsname,Form2->Edit1->Text.c_str());       //追加输入的数据库服务器名
    Form1->ADOTable1->ConnectionString = dsname;     //修改ADOTable的连接属性
    Form1->ADOTable2->ConnectionString = dsname;
    Form1->ADOTable3->ConnectionString = dsname;
    Form1->ADOTable4->ConnectionString = dsname;
    Form1->ADOTable5->ConnectionString = dsname;
    Form1->ADOT_Count->ConnectionString = dsname;
    try      //捕捉数据库连接异常
    {
       Form1->ADOTable1->Active = true;       //激活与数据库的连接
       Form1->ADOTable2->Active = true;
       Form1->ADOTable3->Active = true;
       Form1->ADOTable4->Active = true;
       Form1->ADOTable5->Active = true;
       Form1->ADOT_Count->Active = true;
     }
    catch(...)
    {
       Application->MessageBoxA("与数据库服务器连接错误，确认输入的服务器名","异常对话框",MB_OK);
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{   /*****取消按钮单击事件*****/
    Form2->Close();    //关闭窗体
    Application->Terminate(); //中止程序运行
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)
{   /*****服务器名输入框键盘输入事件*****/
    if(Key == VK_RETURN)      //按下回车键执行
       BitBtn1Click(this);  //调用BitBtn1按钮点击事件
}
//---------------------------------------------------------------------------