Club Builder

[Alfonso]

Hola foro, me gustaría saber cómo podría evitar las ventanas de conexión a las bases de datos que se activan en tiempo de ejecución cuando haces la conexión. Creo hay que hacerlo con la propiedad Active del componente Query.

Aquí está mi código, me podría indicar alguién dónde tendría que agregar lo que sea para que no aparezca esta pantalla.

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int col;
TDataSet *pDS;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
pDS = DBGrid1->DataSource->DataSet;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query1->SQL->Clear();
Query1->SQL->Add("Select * from LargeWhite");
try{
Query1->Prepare();
Query1->Open();
Edit1->Text = IntToStr(DBGrid1->FieldCount);
col = DBGrid1->FieldCount;
}
catch(...){
}
Query1->SQL->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit10->Text = IntToStr(pDS->RecordCount);

for ( int i = 1; i < pDS ->RecordCount; i++){

Edit2->Text = pDS->Fields->Fields[0]->AsString;
Edit3->Text = pDS->Fields->Fields[1]->AsString;
Edit4->Text = pDS->Fields->Fields[2]->AsString;
Edit5->Text = pDS->Fields->Fields[3]->AsString;
Edit6->Text = pDS->Fields->Fields[4]->AsString;
Edit7->Text = pDS->Fields->Fields[5]->AsString;
Edit8->Text = pDS->Fields->Fields[6]->AsString;
CheckBox1->Checked = pDS->Fields->Fields[6]->AsBoolean;
Edit9->Text = IntToStr(DBGrid1->SelectedRows->Count);

if (Edit4->Text == "") Edit4->Text = 00-00-0000;
if (Edit6->Text == "") Edit6->Text = 00-00-0000;

/* Para registros nuevos */
Query2->SQL->Clear();
Query2->SQL->Add("Insert into LargeWhite(NVerraco, Crotal, FechaExtr, FechaEntrada, FechaSalida, FechaPrimeraExtra, Matadero) Values(:a, :b, :c, :d, :e, :f, :g)");
Query2->Params->Items[0]->AsString = Edit2->Text;
Query2->Params->Items[1]->AsString = Edit3->Text;
Query2->Params->Items[2]->AsString = Edit4->Text;
Query2->Params->Items[3]->AsString = Edit5->Text;
Query2->Params->Items[4]->AsString = Edit6->Text;
Query2->Params->Items[5]->AsString = Edit7->Text;
Query2->Params->Items[6]->AsBoolean = CheckBox1->Checked;

Query2->Prepare();
Query2->ExecSQL();
pDS->Next();
}
Query2->SQL->Clear();
}
//---------------------------------------------------------------------------

Gracias por leer el mensaje.

[TJose]

Tenes que asignar false a la propiedad LoginPrompt