С++ тілі – тасмалданатын тіл

}

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

 

void __fastcall TForm2::Button1Click(TObject *Sender)

{

if (OpenPictureDialog1->Execute())

  {

    AnsiString CurrentFile = OpenPictureDialog1->FileName;

    Image1->Picture->LoadFromFile(CurrentFile);

  }

}

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

 

void __fastcall TForm2::Button2Click(TObject *Sender)

{

ADOTable1->Edit();

       TMemoryStream* strm = new TMemoryStream();

       Image1->Picture->Graphic->SaveToStream(strm);

   ((TGraphicField*)Form2->ADOTable1->FieldByName("фотографии"))->LoadFromStream(strm);

       delete strm;

       Form2->ADOTable1->Post();

}

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

 

void __fastcall TForm2::Button3Click(TObject *Sender)

{

TLocateOptions loCaseInsensitive;

loCaseInsensitive.Clear();

ADOTable1->Locate(ComboBox1->Text,Edit1->Text,loCaseInsensitive);

}

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

 

void __fastcall TForm2::Button5Click(TObject *Sender)

{

ADOTable1->Filtered=false;

ADOTable1->Filter=ComboBox2->Text + "=" + Edit2->Text;

ADOTable1->Filtered=true;

}

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

 

void __fastcall TForm2::Button4Click(TObject *Sender)

{

  ADOTable1->Filtered=false;

}

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

 

void __fastcall TForm2::Button7Click(TObject *Sender)

{

ADOTable1->Filtered=false;

ADOTable1->Filter=ComboBox2->Text + ">=" + Edit2->Text;

ADOTable1->Filtered=true;

}

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

 

void __fastcall TForm2::Button6Click(TObject *Sender)

{

ADOTable1->Filtered=false;

ADOTable1->Filter=ComboBox2->Text + "<=" + Edit2->Text;

ADOTable1->Filtered=true;

}

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

 

void __fastcall TForm2::N1Click(TObject *Sender)

{

Form2->Hide();

Form1->Show();

}

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

void __fastcall TForm4::ComboBox1Change(TObject *Sender)

{

if(ComboBox1->ItemIndex==0) MediaPlayer1->FileName=Edit1->Text;

if(ComboBox1->ItemIndex==1) MediaPlayer1->FileName=Edit2->Text;

if(ComboBox1->ItemIndex==2) MediaPlayer1->FileName=Edit3->Text;

if(ComboBox1->ItemIndex==3) MediaPlayer1->FileName=Edit4->Text;

if(ComboBox1->ItemIndex==4) MediaPlayer1->FileName=Edit5->Text;

if(ComboBox1->ItemIndex==5) MediaPlayer1->FileName=Edit6->Text;

if(ComboBox1->ItemIndex==6) MediaPlayer1->FileName=Edit7->Text;

if(ComboBox1->ItemIndex==7) MediaPlayer1->FileName=Edit8->Text;

if(ComboBox1->ItemIndex==8) MediaPlayer1->FileName=Edit9->Text;

if(ComboBox1->ItemIndex==9) MediaPlayer1->FileName=Edit10->Text;

if(ComboBox1->ItemIndex==10) MediaPlayer1->FileName=Edit11->Text;

if(ComboBox1->ItemIndex==11) MediaPlayer1->FileName=Edit12->Text;

if(ComboBox1->ItemIndex==12) MediaPlayer1->FileName=Edit13->Text;

 

MediaPlayer1->Open();

   MediaPlayer1->Play();

}

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

void __fastcall TForm4::N1Click(TObject *Sender)

{

Form4->Hide();

Form1->Show();

}

 

void __fastcall TForm7::Button1Click(TObject *Sender)

{

if(ComboBox1->ItemIndex==0){Form7->Hide();

Form8->Show();}

if(ComboBox1->ItemIndex==1){Form7->Hide();

Form10->Show();}

if(ComboBox1->ItemIndex==2){Form7->Hide();

Form9->Show();}

if(ComboBox1->ItemIndex==3){Form7->Hide();

Form11->Show();}

if(ComboBox1->ItemIndex==4){Form7->Hide();

Form12->Show();}

if(ComboBox1->ItemIndex==5){Form7->Hide();

Form13->Show();}

}

 

void __fastcall TForm8::Label1Click(TObject *Sender)

{

ShellExecute(Application->Handle,"open","file://localhost/E:/Шайхин/с++/C++%20zadachi/RAD10/курсовой%20Актив/Debug/Тариф%20Время%20говорить%20-%202%20от%20Activ.webm",NULL,NULL,SW_SHOWNORMAL);

 

}

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

void __fastcall TForm8::Button1Click(TObject *Sender)

{

    Form8->Hide();

Form7->Show();

}

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

 

void __fastcall TForm8::Label1MouseMove(TObject *Sender, TShiftState Shift, int X,

          int Y)

{

Label1->Font->Color=clBlue;

}