Разработка базы данных "Система ДГТУ"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
g;_zaved->ItemIndex=CZvanie_zaved->Items->IndexOf(Table1Zvanie_zaved->AsString);_zvanie_dek->ItemIndex=CUch_zvanie_dek->Items->IndexOf(Table2Uch_zvanie_dek->AsString);
}
//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)
{->Insert();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button4Click(TObject *Sender)
{->Insert();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button2Click(TObject *Sender)
{s;AnsiString s1=",";=" ";(Table1Poln_naim->AsString!=EPoln_naim->Text)="Название кафедры";(Table1Status->AsString!=EStatus->Text)
{(s!=" ")s+=s1;="Статус";
}(Table1Sokr_naim->AsString!=ESokr_naim->Text)
{(s!=" ")s+=s1;="Сокращенное название";
}(Table1Vip_spec->AsString!=EVip_spec->Text)
{(s!=" ")s+=s1;="Выпускаемая специальность";
}(Table1FIO_zav_kaf->AsString!=EFIO_zav_kaf->Text)
{(s!=" ")s+=s1;="ФИО заведующего кафедрой";
}(Table1Step_zaved->AsString!=EStep_zaved->Text)
{(s!=" ")s+=s1;="Степень заведующего кафедрой";
}(IntToStr(Table1Kod_fac->AsInteger)!=EKod_fac->Text)
{(s!=" ")s+=s1;="Код факультета";
}(Table1Zvanie_zaved->AsString!=CZvanie_zaved->Text)
{(s!=" ")s+=s1;="Звание заведующего кафедрой";
}(s!=" ")
{(Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
"Подтвердите изменение",_YESNO+MB_ICONQUESTION)==IDYES)
{->Edit();Poln_naim->AsString=EPoln_naim->Text;Status->AsString=EStatus->Text;Sokr_naim->AsString=ESokr_naim->Text;Vip_spec->AsString=EVip_spec->Text;FIO_zav_kaf->AsString=EFIO_zav_kaf->Text;Step_zaved->AsString=EStep_zaved->Text;Kod_fac->AsInteger=StrToInt(EKod_fac->Text);Zvanie_zaved->AsString=CZvanie_zaved->Text;
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button3Click(TObject *Sender)
{(Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",_YESNO+MB_ICONEXCLAMATION)==IDYES)
Table1->Delete();
}
//---------------------------------------------------------------------------__fastcall TForm1::Button5Click(TObject *Sender)
{s;AnsiString s1=",";=" ";(Table2Naim_poln->AsString!=ENaim_poln->Text)="Название факультета";(IntToStr(Table2God_osnovan->AsInteger)!=EGod_osnovan->Text)
{(s!=" ")s+=s1;="Год основания";
}(IntToStr(Table2Kol_students->AsInteger)!=EKol_students->Text)
{(s!=" ")s+=s1;="Количество студентов";
}(Table2FIO_dekana->AsString!=EFIO_dekana->Text)
{(s!=" ")s+=s1;="ФИО декана";
}(Table2Uch_step_dek->AsString!=EUch_step_dek->Text)
{(s!=" ")s+=s1;="Ученое степень декана";
}(IntToStr(Table2Ochniki->AsInteger)!=EOchniki->Text)
{(s!=" ")s+=s1;="Очники";
}(IntToStr(Table2Zaochniki->AsInteger)!=EZaochniki->Text)
{(s!=" ")s+=s1;="Заочники";
}(Table2Naim_sokr->AsString!=ENaim_sokr->Text)
{(s!=" ")s+=s1;="Название сокрощенное";
}(Table2Uch_zvanie_dek->AsString!=CUch_zvanie_dek->Text)
{(s!=" ")s+=s1;="Ученое звание декана";
}(s!=" ")
{(Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
"Подтвердите изменение",_YESNO+MB_ICONQUESTION)==IDYES)
{->Edit();Naim_poln->AsString=ENaim_poln->Text;God_osnovan->AsInteger=StrToInt(EGod_osnovan->Text);Kol_students->AsInteger=StrToInt(EKol_students->Text);FIO_dekana->AsString=EFIO_dekana->Text;Ochniki->AsInteger=StrToInt(EOchniki->Text);Zaochniki->AsInteger=StrToInt(EZaochniki->Text);Naim_sokr->AsString=ENaim_sokr->Text;Uch_step_dek->AsString=EUch_step_dek->Text;Uch_zvanie_dek->AsString=CUch_zvanie_dek->Text;
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button6Click(TObject *Sender)
{(Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",_YESNO+MB_ICONEXCLAMATION)==IDYES)
Table2->Delete();
}
//---------------------------------------------------------------------------__fastcall TForm1::N4Click(TObject *Sender)
{->ActivePage=TabSheet1;
}
//---------------------------------------------------------------------------__fastcall TForm1::N6Click(TObject *Sender)
{->ActivePage=TabSheet2;
}
//---------------------------------------------------------------------------__fastcall TForm1::RGF1Click(TObject *Sender)
{(RGF1->ItemIndex==0)->Filtered=false;
{(RGF1->ItemIndex==1)->Filter="Status='"+CBStatus->Text+"'";
{(RGF1->ItemIndex==2)->Filter="(Kod_facFiltered=true;
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::CBStatusChange(TObject *Sender)
{(RGF1->ItemIndex==0)->Filtered=false;
{(RGF1->ItemIndex==1)->Filter="Status='"+CBStatus->Text+"'";
{(RGF1->ItemIndex==2)->Filter="(Kod_facFiltered=true;
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::CBSokr_naimChange(TObject *Sender)
{(RGF1->ItemIndex==0)->Filtered=false;
{(RGF1->ItemIndex==1)->Filter="Status='"+CBStatus->Text+"'";
{(RGF1->ItemIndex==2)->Filter="(Kod_facFiltered=true;
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::SEmin1Change(TObject *Sender)
{(RGF1->ItemIndex==0)->Filtered=false;
{(RGF1->ItemIndex==1)->Filter="Status='"+CBStatus->Text+"'";
{(RGF1->ItemIndex==2)->Filter="(Kod_facFiltered=true;
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::SEmax1Change(TObject *Sender)
{(RGF1->ItemIndex==0)->Filtered=false;
{(RGF1->ItemIndex==1)->Filter="Status='"+CBStatus->Text+"'";
{(RGF1->ItemIndex==2)->Filter="(Kod_facFiltered=true;
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::RGF2Click(TObject *Sender)
{(RGF2->ItemIndex==0)->Filtered=false;
{(RGF2->ItemIndex==1)->Filter="(God_osnovanFiltered=true;
}
}
//---------------------------------------------------------------------------__fastcall TForm1::SEmin2Change(TObject *Sender)
{(RGF2->ItemIndex==0)->Filtered=false;
{(RGF2->ItemIndex==1)->Filter="(God_osnovanFiltered=true;
}
}
//---------------------------------------------------------------------------__fastcall TForm1::SEmax2Change(TObject *Sender)
{(RGF2->ItemIndex==0)->Filtered=false;
{(RGF2->ItemIndex==1)->Filter="(God_osnovan<