Разработка базы дискографии музыкальных коллективов, страница 5

ADOQuery2->Open();

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

ADOQuery3->SQL->Text="select * from dis";

try{

ADOQuery3->Open();

DBEdit3->Text=ADOQuery3->FieldByName("identa")->AsString;

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

if(DBEdit1->Text!=""){

if(ComboBox1->Text!=""){

if(ComboBox2->Text!=""){

Button6->Enabled=true;

}

}

}

if(ComboBox2->Text==""){

Button6->Enabled=false;

}

}

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

void __fastcall TForm2::ComboBox3Change(TObject *Sender)

{

ADOQuery2->SQL->Text="exec zhh '" + ComboBox3->Text +"'";;

try{

ADOQuery2->Open();

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

ADOQuery3->SQL->Text="select * from zhz";

try{

ADOQuery3->Open();

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

try{

ADOQuery4->SQL->Text="exec poiskst '" + ComboBox3->Text +"'";

ADOQuery4->Open();

ComboBox4->Text="";

ComboBox4->Items->Clear();

int n1;

n1=ADOQuery4->RecordCount;

ADOQuery4->First();

for (int i=0;i<n1;i++)

{

ComboBox4->Items->Add(ADOQuery4->FieldByName("style")->AsString);

ADOQuery4->Next();

}

}

catch(Exception &E)

{

ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

if(DBEdit5->Text!=""){

if(ComboBox3->Text!=""){

if(ComboBox4->Text!=""){

Button4->Enabled=true;

}

}

}

if(ComboBox3->Text==""){

Button4->Enabled=false;

}

}

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

void __fastcall TForm2::ComboBox4Change(TObject *Sender)

{

ADOQuery2->SQL->Text="exec styl '" + ComboBox4->Text +"'";;

try{

ADOQuery2->Open();

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

ADOQuery3->SQL->Text="select * from sts";

try{

ADOQuery3->Open();

DBEdit8->Text=ADOQuery3->FieldByName("ident")->AsString;

}

catch(Exception &E){

//ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

if(DBEdit5->Text!=""){

if(ComboBox3->Text!=""){

if(ComboBox4->Text!=""){

Button4->Enabled=true;

}

}

}

if(ComboBox4->Text==""){

Button4->Enabled=false;

}

}

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

void __fastcall TForm2::Button4Click(TObject *Sender)

{

if(DBEdit5->Text!=""){

if(ComboBox3->Text!=""){

if(ComboBox3->Text!=""){

Button7->Enabled=true;

ComboBox3->Text="";

ComboBox4->Text="";

DBNavigator2->BtnClick(nbPost);

DBNavigator2->BtnClick(nbInsert);

try{

ADOQuery3->SQL->Text="select * from k_gruppi";

ADOQuery3->Open();

ComboBox1->Items->Clear();

int n;

n=ADOQuery3->RecordCount;

ADOQuery3->First();

for (int i=0;i<n;i++)

{

ComboBox1->Items->Add(ADOQuery3->FieldByName("gruppa")->AsString);

ADOQuery3->Next();

}

}

catch(Exception &E)

{

ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

}

}

}

}

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

void __fastcall TForm2::DBEdit5Change(TObject *Sender)

{

if(DBEdit5->Text!=""){

if(ComboBox3->Text!=""){

if(ComboBox4->Text!=""){

Button4->Enabled=true;

}

}

}

if(DBEdit5->Text==""){

Button4->Enabled=false;

}

}

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

void __fastcall TForm2::Label10Click(TObject *Sender)

{

Form2->Height=233;

Form2->Width=489;

Panel3->Visible=false;

Panel3->Enabled=false;

Panel6->Visible=false;

Panel6->Enabled=false;

}

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

void __fastcall TForm2::Button5Click(TObject *Sender)

{

if(DBEdit7->Text!=""){

if(DBEdit9->Text!=""){

DBNavigator3->BtnClick(nbPost);

DBNavigator3->BtnClick(nbInsert);

try{

ADOQuery4->SQL->Text="select * from k_disk";

ADOQuery4->Open();

ComboBox2->Items->Clear();

int n1;

n1=ADOQuery4->RecordCount;

ADOQuery4->First();

for (int i=0;i<n1;i++)

{

ComboBox2->Items->Add(ADOQuery4->FieldByName("disk")->AsString);

ADOQuery4->Next();

}

}

catch(Exception &E)

{

ShowMessage(AnsiString(E.ClassName()) + " " + E.Message + " " );

}

}

}

}

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

void __fastcall TForm2::DBEdit7Change(TObject *Sender)

{

if(DBEdit7->Text!=""){

if(DBEdit9->Text!=""){

Button5->Enabled=true;

}

}

if(DBEdit7->Text==""){

Button5->Enabled=false;

}

}

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

void __fastcall TForm2::DBEdit9Change(TObject *Sender)

{

if(DBEdit7->Text!=""){

if(DBEdit9->Text!=""){

Button5->Enabled=true;

}

}

if(DBEdit9->Text==""){

Button5->Enabled=false;

}