КОДПРОГРАММЫ
void __fastcall TForm1::SKChange(TObject *Sender) //Выбортаблицы
{ Table1->Active=false;
Table1->Active=false;
if(SK->Position == 0)
{ Table2->Active=false;
DB->DataSource=DataSource1;
DBN->DataSource=DataSource1;
Table1->Active=true; }
if(SK->Position == 1)
{ Table1->Active=false;
DB->DataSource=DataSource2;
DBN->DataSource=DataSource2;
Table2->Active=true; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CBChange(TObject *Sender) // выбираемввсплывающемспискесортировку…
{
DB->DataSource=DataSource3;
Table1->Active=false;
Table2->Active=false;
if (CB->ItemIndex == 0) // если в всплывающем списке сортировки …
Код организации ….то
{
Query1->Active = false; // активность Query -false (выключено)
Query1->SQL->Clear();//функция очистки буфера SQL-запроса
/*добавить в буфер нов. запись SQL -запроса */
Query1->SQL->Append("SELECT KOD_ORG as КОД_ОРГАНИЗАЦИИ,FIO as ФИО,DATA_ROG as ДАТА_РОЖДЕНИЯ,POL as ПОЛ,OBRAZOV as ОБРАЗОВАНИЕ,SPEC as СПЕЦИАЛЬНОСТЬ,RAION as РАЙОН FROM ORG2 ORDER BY KOD_ORG");
Query1->Active = true;} //активность Query -true (включено)
else if (CB->ItemIndex == 1) // если в всплывающем списке сортировки “ФИО” то….
{
Query1->Active = false;
Query1->SQL->Clear();
Query1->SQL->Append("SELECT KOD_ORG as КОД_ОРГАНИЗАЦИИ,FIO as ФИО,DATA_ROG as ДАТА_РОЖДЕНИЯ,POL as ПОЛ,OBRAZOV as ОБРАЗОВАНИЕ,SPEC as СПЕЦИАЛЬНОСТЬ,RAION as РАЙОН FROM ORG2 ORDER BY FIO");
Query1->Active = true;}
else if (CB->ItemIndex == 2)
{
Query1->Active = false;
Query1->SQL->Clear();
Query1->SQL->Append("SELECT KOD_ORG as КОД_ОРГАНИЗАЦИИ,FIO as ФИО,DATA_ROG as ДАТА_РОЖДЕНИЯ,POL as ПОЛ,OBRAZOV as ОБРАЗОВАНИЕ,SPEC as СПЕЦИАЛЬНОСТЬ,RAION as РАЙОН FROM ORG2 ORDER BY DATA_ROG");
Query1->Active = true;}
else if (CB->ItemIndex == 3)
{
Query1->Active = false;
Query1->SQL->Clear();
Query1->SQL->Append("SELECT KOD_ORG as КОД_ОРГАНИЗАЦИИ,FIO as ФИО,DATA_ROG as ДАТА_РОЖДЕНИЯ,POL as ПОЛ,OBRAZOV as ОБРАЗОВАНИЕ,SPEC as СПЕЦИАЛЬНОСТЬ,RAION as РАЙОН FROM ORG2 ORDER BY POL");
Query1->Active = true;}
else if (CB->ItemIndex == 4)
{
Query1->Active = false;
Query1->SQL->Clear();
Query1->SQL->Append("SELECT KOD_ORG as КОД_ОРГАНИЗАЦИИ,FIO as ФИО,DATA_ROG as ДАТА_РОЖДЕНИЯ,POL as ПОЛ,OBRAZOV as ОБРАЗОВАНИЕ,SPEC as СПЕЦИАЛЬНОСТЬ,RAION as РАЙОН FROM ORG2 ORDER BY OBRAZOV");
Query1->Active = true;}
else if (CB->ItemIndex == 5)
{
Query1->Active = false;
Query1->SQL->Clear();
Query1->SQL->Append("SELECT KOD_ORG as КОД_ОРГАНИЗАЦИИ,FIO as ФИО,DATA_ROG as ДАТА_РОЖДЕНИЯ,POL as ПОЛ,OBRAZOV as ОБРАЗОВАНИЕ,SPEC as СПЕЦИАЛЬНОСТЬ,RAION as РАЙОН FROM ORG2 ORDER BY SPEC");
Query1->Active = true;}
else if (CB->ItemIndex == 6)
{
Query1->Active = false;
Query1->SQL->Clear();
Query1->SQL->Append("SELECT KOD_ORG as КОД_ОРГАНИЗАЦИИ,FIO as ФИО,DATA_ROG as ДАТА_РОЖДЕНИЯ,POL as ПОЛ,OBRAZOV as ОБРАЗОВАНИЕ,SPEC as СПЕЦИАЛЬНОСТЬ,RAION as РАЙОН FROM ORG2 ORDER BY RAION");
Query1->Active = true;}
}
//---------------------------------------------------------------------------
Заключение
В результате курсового проекта была спроектирована и реализована информационная система «Службы занятости».
Данная система удовлетворяет всем требованиям, предъявленным в задании, и реализует большинство необходимых сотрудникам службы занятости функций.
В результате выполнения курсовой работы был сделан вывод, что сегодня внедрение информационных систем может способствовать:
- получению более рациональных вариантов решения управленческих задач за счет внедрения математических методов и интеллектуальных систем и т.д.;
- освобождению работников от рутинной работы за счет ее автоматизации;
- обеспечению достоверности информации;
- замене бумажных носителей данных на магнитные и оптические, что приводит к более рациональной организации переработки информации на компьютере и снижению объемов бумажных документов;
- уменьшению затрат на производство продуктов и услуг.
В процессе выполнения данного курсового проекта были освоены на практике методы предпроектного обследования объекта информатизации, приобретен практический опыт по подготовке и систематизации необходимых материалов, изучены действующие стандарты, технические условия, положения и инструкции по эксплуатации аппаратных и программных средств вычислительной техники, периферийного и связного оборудования.
Список литературы
1. Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite. – М.: ДИАЛОГ – МИФИ, 2002. – 224с.
2. Маклаков С.В. BPWin и ERWin. CASE – средства разработки информационных систем. – М.: ДИАЛОГ – МИФИ, 1992. – 256с.
3. Кириллов В.В. Структурированный язык запросов (SQL). – СПб.: ИТМО, 1994. – 80 с.
4. Цикритизис Д., Лоховски Ф. Модели данных. – М.: Финансы и статистика, 1985. – 344 с.
5. Атре Ш. Структурный подход к организации баз данных. – М.:Финансы и статистика, 1993. – 320 с.
6. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 1999. – 351 с.
7. Дейт К. Руководство по реляционной СУБД DB2. – М.: Финансы и статистика, 1998. – 320 с.
8. Кириллов В.В. Структуризованный язык запросов (SQL). – СПб.: ИТМО, 1994. – 80 с.
9. Мартин Дж. Планирование развития автоматизированных систем. – М.: Финансы и статистика, 1994. – 196 с.
10. Мейер М. Теория реляционных баз данных. – М.: Мир, 1997. – 608 с.
11. Питер Роб, Карлос Коронел. Системы БД: проектирование, реализация и управление.-Санкт-Петербург:БХВ-Петербург,2004.-1024 с.
12. Архангельский А.Я.Программирование C++Builder6.М: Бином,2003.-1151с.