Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Lab_za_4kurs.doc
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
776.7 Кб
Скачать

Void __fastcall tForm1::FormCreate(tObject *Sender)

{

tVid->Open(); ShowKol();

}

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

void __fastcall TForm1::FormActivate(TObject *Sender)

{

Image1->Hide(); tVid->IndexName="indVidNaim";

}

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

void __fastcall TForm1::bExitClick(TObject *Sender)

{

Close();

}

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

void __fastcall TForm1::bDobClick(TObject *Sender)

{

AnsiString s;

HideButtons();

if (OpenPictureDialog1->Execute())

{ s=OpenPictureDialog1->FileName;

Image1->Picture->LoadFromFile(s);

//можно и так: Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);

tVid->Insert();

tVid->FieldByName("Photo")->Assign(Image1->Picture);

tVid->FieldByName("Naim")->AsString=s;

tVid->FieldByName("Path")->AsString=s;

tVid->Post();

ShowKol();

}// конец if

ShowButtons();

}

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

void __fastcall TForm1::bZamClick(TObject *Sender)

{

AnsiString s; int n;

s="Уточните действие:\nЗаменить только изображение, сохранив надписи (Yes)";

s=s+"\nЗаменить все элементы (All) ";

HideButtons();

if (OpenPictureDialog1->Execute())

{ tVid->Edit();

Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);

n=MessageDlgPos(s,

mtConfirmation, TMsgDlgButtons()<< mbYes<< mbAll<<mbCancel,0,300,400);

switch (n)

{case 6:{tVid->FieldByName("Photo")->Assign(Image1->Picture);//Yes

tVid->Post();

break;}

case 8:{tVid->FieldByName("Photo")->Assign(Image1->Picture);//All

tVid->FieldByName("Naim")->AsString=OpenPictureDialog1->FileName;

tVid->FieldByName("Path")->AsString=OpenPictureDialog1->FileName;

tVid->Post();

break;}

case 2:{ tVid->Cancel();break;}//Cancel

}

}

ShowButtons();

}

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

void __fastcall TForm1::bUdClick(TObject *Sender)

{

HideButtons();

if (MessageDlgPos("Подтвердите удаление фото "+

tVid->FieldByName("Naim")->AsString,

mtConfirmation, TMsgDlgButtons()<< mbYes<< mbNo,0,350,400)==mrYes)

{tVid->Delete();ShowKol();

}

ShowButtons();

}

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

void __fastcall TForm1::bPClick(TObject *Sender)

{

if (lP->Visible==true)

{lP->Visible=false;DBText1->Visible=false;

bP->Caption="Показать путь";

}

else {lP->Visible=true;DBText1->Visible=true;

bP->Caption="Спрятать путь";

}

}

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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]