//--------------------------------------------------------------------------- #include #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; } } //---------------------------------------------------------------------------