Blame | Last modification | View Log | RSS feed
//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "TestDirectorLogin.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TTestDirectorLoginForm *TestDirectorLoginForm;//---------------------------------------------------------------------------__fastcall TTestDirectorLoginForm::TTestDirectorLoginForm(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------bool TTestDirectorLoginForm::Login( TADOConnection *connection ){bool result = false;m_connection = connection;if (ShowModal() == mrOk){if (m_connection->Connected){result = true;}}return result;}//---------------------------------------------------------------------------void __fastcall TTestDirectorLoginForm::FormShow(TObject *Sender){UseDomainLogin->Checked = true;GroupBox1->Enabled = false;Username->ReadOnly = true;Username->Text = "";Password->ReadOnly = true;Password->Text = "";DatabaseComboBox->ItemIndex = 0;}//---------------------------------------------------------------------------void __fastcall TTestDirectorLoginForm::UseDomainLoginClick(TObject *Sender){GroupBox1->Enabled = !UseDomainLogin->Checked;Username->ReadOnly = UseDomainLogin->Checked;Password->ReadOnly = UseDomainLogin->Checked;}//---------------------------------------------------------------------------void __fastcall TTestDirectorLoginForm::LoginBtnClick(TObject *Sender){AnsiString connection_string;if (UseDomainLogin->Checked){connection_string.sprintf("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=%s;Data Source=%s",DatabaseComboBox->Text.c_str(),ServerComboBox->Text.c_str());}else{connection_string.sprintf("Provider=SQLOLEDB.1;Password=%s;Persist Security Info=False;User ID=%s;Initial Catalog=%s;Data Source=%s",Password->Text.c_str(),Username->Text.c_str(),DatabaseComboBox->Text.c_str(),ServerComboBox->Text.c_str());}m_connection->ConnectionString = connection_string;m_connection->Connected = true;if (m_connection->Connected){ModalResult = mrOk;}}//---------------------------------------------------------------------------