Створення програмного продукту "Облік зайнятості" - Курсовая работа

Зміст Анотація Вступ 1. Технічне завдання 1.1 Призначення та область застосування програмного продукту 1.2 Функціональні вимоги до програмного продукту 1.3 Кваліфікаційні вимоги до програмного продукту 1.4 Вимоги до умов експлуатації програмного продукту 2. У вступі наведені основні завдання обліку зайнятості (біржі праці), обґрунтування доцільності створення модуля, сформульовані проблеми дослідження та мета курсової роботи. В додатку наведений текст програмного продукту. зайнятість облік програмний продукт Вступ Біржа праці - підприємство, яке надає спеціалізовані послуги із працевлаштування громадян на ринку робочої сили #pragma hdrstop #include Unit1. h #include Unit2. h #include Unit3. h // --------------------------------------------------------------------------- #pragma package (smart_init) #pragma resource *. dfm TForm1 *Form1; // --------------------------------------------------------------------------- __fastcall TForm1:: TForm1 (TComponent* Owner) : TForm (Owner) { } // --------------------------------------------------------------------------- void __fastcall TForm1:: N3Click (TObject *Sender) { ADOQuery1->SQL->Clear (); ADOQuery1->SQL->Add (SELECT); ADOQuery1->SQL->Add (FROM); ADOQuery1->Active = True; ADOQuery1->ExecSQL (); DataSource1->DataSet = ADOQuery1; } // --------------------------------------------------------------------------- void __fastcall TForm1:: N4Click (TObject *Sender) { ADOQuery2->SQL->Clear (); ADOQuery2->SQL->Add (SELECT); ADOQuery2->SQL->Add (FROM); DataSource1->DataSet = ADOQuery2; ADOQuery2->Active = True; ADOQuery2->ExecSQL (); } // --------------------------------------------------------------------------- void __fastcall TForm1:: Button1Click (TObject *Sender) { if (DataSource1->DataSet == ADOQuery1) { Form3->ShowModal (); } if (DataSource1->DataSet == ADOQuery2) { Form2->ShowModal (); } } // --------------------------------------------------------------------------- void __fastcall TForm1:: N2Click (TObject *Sender) { Form1->Close (); } // --------------------------------------------------------------------------- void __fastcall TForm1:: Button2Click (TObject *Sender) { if (DataSource1->DataSet == ADOQuery1) { ADOQuery1->Delete (); } if (DataSource1->DataSet == ADOQuery2) { ADOQuery2->Delete (); } } // --------------------------------------------------------------------------- void __fastcall TForm1:: Button3Click (TObject *Sender) { if (DataSource1->DataSet == ADOQuery1) { ADOQuery2->SQL->Clear (); ADOQuery2->SQL->Add (SELECT); ADOQuery2->SQL->Add (FROM); ADOQuery2->SQL->Add ( WHERE () Like \% Edit1->Text %\)); ); DataSource1->DataSet = ADOQuery2; ADOQuery2->Active = True; ADOQuery2->ExecSQL (); } if (DataSource1->DataSet == ADOQuery2) { ADOQuery2->SQL->Clear (); ADOQuery2->SQL->Add (SELECT); ADOQuery2->SQL->Add (FROM); ADOQuery2->SQL->Add ( WHERE () Like \% Edit1->Text %\)); ); DataSource1->DataSet = ADOQuery2; ADOQuery2->Active = True; ADOQuery2->ExecSQL (); } } // --------------------------------------------------------------------------- // Unit2 // --------------------------------------------------------------------------- #include #pragma hdrstop #include Unit2. h #include Unit1. h #include Unit3. h // --------------------------------------------------------------------------- #pragma package (smart_init) #pragma resource *. dfm TForm2 *Form2; // --------------------------------------------------------------------------- __fastcall TForm2:: TForm2 (TComponent* Owner) : TForm (Owner) { } // --------------------------------------------------------------------------- void __fastcall TForm2:: Button1Click (TObject *Sender) { ADOQuery1->SQL->Clear (); ADOQuery1->SQL->Add (INSERT INTO)); ADOQuery1->SQL->Add ( Values (\ Edit1->Text \,\ Edit2->Text \,\ Edit3->Text \,\ Edit4->Text \,\ Edit5->Text \); ); ADOQuery1->Active = True; ADOQuery1->ExecSQL (); } // --------------------------------------------------------------------------- // Unit3 // --------------------------------------------------------------------------- #include #pragma hdrstop #include Unit3. h #include Unit1. h // --------------------------------------------------------------------------- #pragma package (smart_init) #pragma resource *. dfm TForm3 *Form3; // --------------------------------------------------------------------------- __fastcall TForm3:: TForm3 (TComponent* Owner) : TForm (Owner) { } // --------------------------------------------------------------------------- void __fastcall TForm3:: Button1Click (TObject *Sender) { ADOQuery1->SQL->Clear (); ADOQuery1->SQL->Add (INSERT INTO)); ADOQuery1->SQL->Add ( Values (\ Edit1->Text \,\ Edit2->Text \,\ Edit3->Text \, Edit4->Text ,\ Edit5->Text \); ); ADOQuery1->Active = True; ADOQuery1->ExecSQL (); } // ---------