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

#include?
#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（“輸入數(shù)據(jù)庫服務(wù)器名不能為空“）;
????????return;
????????}
????Form2->Close（）;????//關(guān)閉窗體
????char?dsname[100];
????StrCopy（dsname“Provider=SQLOLEDB.1;Integrated?Security=SSPI;Persist?Security?Info=False;Initial?Catalog=student;Data?Source=“）;
????StrCat（dsnameForm2->Edit1->Text.c_str（））;???????//追加輸入的數(shù)據(jù)庫服務(wù)器名
????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??????//捕捉數(shù)據(jù)庫連接異常
????{
???????Form1->ADOTable1->Active?=?true;???????//激活與數(shù)據(jù)庫的連接
???????Form1->ADOTable2->Active?=?true;
???????Form1->ADOTable3->Active?=?true;
???????Form1->ADOTable4->Active?=?true;
???????Form1->ADOTable5->Active?=?true;
???????Form1->ADOT_Count->Active?=?true;
?????}
????catch（...）
????{
???????Application->MessageBoxA（“與數(shù)據(jù)庫服務(wù)器連接錯誤，確認輸入的服務(wù)器名““異常對話框“MB_OK）;
?????}
}
//---------------------------------------------------------------------------
void?__fastcall?TForm2::BitBtn2Click（Tobject?*Sender）
{???/*****取消按鈕單擊事件*****/
????Form2->Close（）;????//關(guān)閉窗體
????Application->Terminate（）;?//中止程序運行
}
//---------------------------------------------------------------------------

void?__fastcall?TForm2::Edit1KeyPress（Tobject?*Sender?char?&Key）
{???/*****服務(wù)器名輸入框鍵盤輸入事件*****/
????if（Key?==?VK_RETURN）??????//按下回車鍵執(zhí)行
???????BitBtn1Click（this）;??//調(diào)用BitBtn1按鈕點擊事件
}
//---------------------------------------------------------------------------

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????478??2003-03-30?16:00??學(xué)生信息管理系統(tǒng)\Student\Cancel.bmp

?????文件????????478??2003-03-30?16:00??學(xué)生信息管理系統(tǒng)\Student\Confirm.bmp

?????文件???????2475??2003-03-30?16:00??學(xué)生信息管理系統(tǒng)\Student\DataConnection.cpp

?????文件?????????51??2003-03-30?16:00??學(xué)生信息管理系統(tǒng)\Student\DataConnection.ddp

?????文件???????3783??2003-03-30?16:00??學(xué)生信息管理系統(tǒng)\Student\DataConnection.dfm

?????文件???????1073??2003-03-30?16:00??學(xué)生信息管理系統(tǒng)\Student\DataConnection.h

?????文件?????559776??2009-09-23?16:13??學(xué)生信息管理系統(tǒng)\Student\DataConnection.obj

?????文件????????478??2003-03-30?16:01??學(xué)生信息管理系統(tǒng)\Student\delete.bmp

?????文件???????4710??2003-03-30?16:01??學(xué)生信息管理系統(tǒng)\Student\Elroy.ico

?????文件???????7527??2003-03-30?16:01??學(xué)生信息管理系統(tǒng)\Student\main.cpp

?????文件?????????51??2003-03-30?16:01??學(xué)生信息管理系統(tǒng)\Student\main.ddp

?????文件??????36147??2003-03-30?16:01??學(xué)生信息管理系統(tǒng)\Student\main.dfm

?????文件???????4246??2003-03-30?16:01??學(xué)生信息管理系統(tǒng)\Student\main.h

?????文件?????571647??2009-09-23?16:13??學(xué)生信息管理系統(tǒng)\Student\main.obj

?????文件???????1078??2003-03-30?16:02??學(xué)生信息管理系統(tǒng)\Student\repeat.bmp

?????文件???????7144??2003-03-30?16:02??學(xué)生信息管理系統(tǒng)\Student\sql_student.sql

?????文件???????3762??2003-03-30?16:02??學(xué)生信息管理系統(tǒng)\Student\Student.bpr

?????文件???????1236??2003-03-30?16:02??學(xué)生信息管理系統(tǒng)\Student\Student.cpp

?????文件????1054208??2009-09-23?16:20??學(xué)生信息管理系統(tǒng)\Student\Student.exe

?????文件??????18307??2009-09-23?16:13??學(xué)生信息管理系統(tǒng)\Student\Student.obj

?????文件???????4912??2003-03-30?16:03??學(xué)生信息管理系統(tǒng)\Student\Student.res

?????文件????4521984??2009-09-23?16:21??學(xué)生信息管理系統(tǒng)\Student\Student.tds

????..A.SH.??????9216??2009-09-23?14:38??學(xué)生信息管理系統(tǒng)\Student\Thumbs.db

?????目錄??????????0??2009-10-17?11:42??學(xué)生信息管理系統(tǒng)\Student

?????目錄??????????0??2009-10-17?11:42??學(xué)生信息管理系統(tǒng)

-----------?---------??----------?-----??----

??????????????6814767????????????????????25