База данных "Биржи труда"

{

if (s !="") s+=s1;

s+= "пол";

}

if (Table1Spec->AsString !=Edit8->Text)

{

if (s !="") s+=s1;

s+= "Специальность";

}

if (Table1Sem_pol->AsString !=Edit10->Text)

{

if (s !="") s+=s1;

s+= "Семейное положение";

}

if (Table1Kol_d->AsString !=Edit18->Text)

{

if (s !="") s+=s1;

s+= "Кол-во детей";

}

if (Table1Naim_pr->AsString !=Edit19->Text)

{

if (s !="") s+=s1;

s+= "Наименвание предприятия";

}

if (s !="")

{

if ( Application->MessageBox(

("Действительно хотите изменить запись?"+s+"?").c_str(),

"Подтвердите решение",

MB_YESNO+MB_ICONQUESTION)==IDYES)

Table1->Edit();

ENom->Text=Edit1->Text;

EFam->Text=Edit2->Text;

EIm->Text=Edit3->Text;

EOtc->Text=Edit4->Text;

EVoz->Text=Edit11->Text;

EPol->Text=Edit5->Text;

ESpec->Text=Edit8->Text;

ESem_pol->Text=Edit10->Text;

EKol_d->Text=Edit18->Text;

ENaim_pr->Text=Edit19->Text;

Table1Nom->AsString = Edit1->Text;

Table1Fam->AsString =Edit2->Text;

Table1Im->AsString =Edit3->Text;

Table1Otc->AsString =Edit4->Text;

Table1Voz->AsString =Edit11->Text;

Table1Pol->AsString =Edit5->Text;

Table1Spec->AsString =Edit8->Text;

Table1Sem_pol->AsString =Edit10->Text;

Table1Kol_d->AsString =Edit18->Text;

Table1Naim_pr->AsString =Edit19->Text;

Table2->Insert();

Table2Naim_pr->AsString =Edit16->Text;

Table2Kol_r->AsString =Edit17->Text;

Table2Tr_s->AsString=Edit12->Text;

Table2->Filtered = false;

Table2->Filter="Nom='"+Edit2->Text+"'";

Table2->Filtered = true;

Edit16->Text = Table2Naim_pr->AsString;

Edit17->Text = Table2Kol_r->AsString;

Edit12->Text = Table2Tr_s->AsString;

} }

}

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

void __fastcall TForm1::Button15Click(TObject *Sender)

{

RadioGroup1->ItemIndex==0;

ComboBox2->Clear();

Table1->First();

while(!Table1->Eof)

{

ComboBox2->Items->Add(Table1Nom->AsString);

Table1->Next();

}

ComboBox2->ItemIndex=-1;

Table1->First();

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

AnsiString s,a;

const AnsiString s1=", ";

s="";

if (Table2Naim_pr->AsString !=Edit16->Text)

{

s= "Наименование предприятия";

}

if (Table2Kol_r->AsString !=Edit17->Text)

{

if (s !="") s+=s1;

s+= "Кол-во рабочих мест";

}

if (Table2Tr_s->AsString !=Edit12->Text)

{

if (s !="") s+=s1;

s+= "Требуемые специальности.";

}

if (s !="")

{

if ( Application->MessageBox(

("Действительно хотите изменить запись?"+s+"?").c_str(),

"Подтвердите решение",

MB_YESNO+MB_ICONQUESTION)==IDYES)

{Table2->Edit();

Table2Naim_pr->AsString =Edit16->Text;

Table2Kol_r->AsString =Edit17->Text;

Table2Tr_s->AsString=Edit12->Text;

MB_YESNO+MB_ICONQUESTION)==IDYES)

{Table2->Edit();

Table2Naim_pr->AsString =Edit16->Text;

Table2Kol_r->AsString =Edit17->Text;

Table2Tr_s->AsString=Edit12->Text;

}

}

}

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

Заключение

В данном курсовом проекте я ознакомилась с возможностями С++ Вuilder , как системы управления базами данных разработанной мною программы.

Сначала строится инфологическая модель, в которую входят БД, сущность, атрибут. Далее строится датологическая модель. В ней описываются размер, тип, назначение, наименование. Следующим этапом является описание физической модели, в которой описывается физическое устройство хранения информации. Обработку информации в БД осуществляют такие методы как фильтрация, поиск и печать.

Программа выполняет следующие функции: позволяет просмотреть БД, внести сведения о новом счете, найти по заданному пользователем ключу информацию об организации, произвести фильтрацию по ключу.

С помощью пункта меню ДОКУМЕНТЫ можно вывести список БД в различных режимах: по возрастанию номера, по авторам.

Литература

1. Хеннер Е.К., Могилев А.В., Пак Н.И. «Информатика», «Учеб. Пособие для вузов», 1999.

2. Наумов А.Н «Системы управления базами данных и знаний 1991.

4. Диго С..М. «Проектирование и использование БД». 1991.

5. Парашутин Н.В.- «Бухгалтерский учет». 1997г

Размещено на Allbest.ru