Записник

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

КУРСОВА РОБОТА

«Записник»



Вступ

програмний користувач програміст алгоритм

У не професійних розробників програмних продуктів існує думка, що можна розробити якийсь один універсальний метод, який забезпечить розробку програмного забезпечення як найпростіше. Практики в області професійної розробки програмного забезпечення знають, що ніяких універсальних методів не існує.

З кожним роком програмне забезпечення стає все більш складним, об'ємним та вимагає більших капітальних затрат. Програмне забезпечення, як правило, створюється великими командами професіоналів, які представляють різні сфери інтересів часто далекі від комп'ютерних наук.

Під час розробки програмного забезпечення виникають наступні питання:

1. Складність програмного забезпечення

2. Як організувати командну роботу

3. Як оптимально організувати спілкування у групі професіоналів різних дисциплін

4. Які методи необхідно використовувати щоб розробити якісний і не дуже дорогий програмний продукт в необхідні терміни

Рішення всіх цих питань приводить до успішної розробки програмного забезпечення.

Даний програмний продукт розроблений з метою швидкого доступу до інформації занесеної в Базу даних в минулому. Програма вміщує в себе всі необхідні і головні дії які необхідні при роботі записника.



1. Загальні відомості про програмний засіб

Дана програма містить такі можливості: швидке додавання записів в базу даних за допомогою форми, перегляд їх по черзі за допомогою форми та всіх відразу за допомогою таблиці з записами, редагування, збереження, та видалення, (при цьому всі записи можуть зберігатись в базі даних протягом невизначеного часу, чому сприяє їх збереження в файлі.mdb). Програма включає в себе наступні процедури: сортування записів по будь якому вибраному полю, пошук записів по заданому критерію. Також програма вміщує в собі функцію повідомлення користувача про те, що в даний календарний день святкує свій день народження хтось із друзів, інформація про кого занесена в базу даних Записника. Всі ці можливості в подальшому значно полегшать роботу користувача, а також забезпечать високу продуктивність, та бажаний результат праці.

Повна назва даного програмного продукту є - ПП «Записник».

Абревіатура даної програми «Zapysnyk».

Автором даної програми є Романчук Ярослав Анатолийович. Місце навчання Житомирський Технологічний коледж. Була виконана вся робота.

2. Технічне завдання

Підстави для розробки

Програма розроблюється на основі навчального плану, як курсова робота.

Призначення розробки

Програма призначена для чіткого збереження інформації про певних осіб, які вже користувач визначає сам. В цілому дана програма дає можливість швидко одержати певну інформацію про потрібний запис і прискорює діяльність його по роботі.

Вимоги до програмного засобу

Вимоги до функціональних характеристик.

Під функціональними вимогами розуміють поведінку програми в певних ситуаціях, її реакцію на ті чи інші вхідні, вихідні дані та дії, які система дозволяє виконувати користувачам. Їх можна поділити на 3 категорії:

1. Опис зовнішнього інформаційного середовища з яким буде працювати програма. Виділити всі канали вводу та виводу, а також взаємозв'язки між ними.

2. Виділення функцій програмного забезпечення, виділених на множині станів цієї інформаційної сфери.

3. Опис виключених ситуацій, які виникають при виконанні програми та реакції на ці ситуації.

Модернізація

В подальшому при розширенні можливостей, що надаються користувачу і при необхідності даний програмний продукт можна функціонально розширити, додавши необхідні в даній сфері діяльності нові функції, які даний програмний продукт раніше не містив.

Програма є дуже надійною і збої в роботі не виникають, що є вагомим аспектом в даній сфері діяльності, оскільки не коректна робота програми і втрата інформації може призвести до дуже вагомих небажаних наслідків.

Дана програма є дуже елементарною в використанні і не потребує від користувача великих навичок в роботі з ПК, тому кваліфікаційний рівень використання програми може бути не високий і для роботи вистачить одного працівника.

Системні вимоги:

Windows XP, Windows NT, Windows 2000, Windows 95, Windows 98, Windows 7.

ОЗУ 128 mb, Video 64 mb, 10 mb вільного місця на диску.

Дана програма може розповсюджуватись як на CD/DVD дисках так і на флеш накопичувачах. Тому умови транспортування і зберігання повинні бути елементарними по відношенню з даними пристроями.

Вимоги до програмної документації.

Документація повинна бути оформлена у відповідності із деякими стандартами ЄСПД.

Єдина система програмної документації - комплекс державних стандартів, що встановлюють взаємопов'язані правила розробки, оформлення і збереження програм і програмної документації.

Призначення ЄСПД:

У стандартах ЄСПД встановлюють вимоги, що регламентують розробку, супровід, виготовлення і експлуатацію програм, що забезпечує можливість:

* уніфікації програмних виробів для взаємного обміну програмами і застосування раніше розроблених програм в нових розробках;

* зниження трудомісткості і підвищення ефективності розробки, супроводу, виготовлення і експлуатації програмних виробів;

* автоматизації виготовлення і зберігання програмної документації.

Супровід програми включає аналіз функціонування, розвиток і вдосконалення програми, а також внесення змін в неї з метою усунення помилок.

Стадії та етапи розробки

Стадії та етапи створення програмного засобу приведені в наступній таблиці (згідно ГОСТ 34.601-90):

Етапи роботи Проміжок часу Зміст роботи

Основи для розробки ПЗ

- постановка задачі

- збір початкових матеріалів

Науково-дослідні роботи

- визначення структури вхідних і вихідних даних

- вибір методів вирішення задачі

- визначення вимог до технічних засобів

Розробка та затвердження технічного завдання

- визначення вимог до програми

- визначення стадій, етапів і строків розробки

- вибір мови програмування

Розробка ескізного проекту

- уточнення методів вирішення задач

- розробка загального алгоритму

Затвердження ескізного проекту

- розробка пояснювальної записки

- утвердження ескізного проекту

Розробка програми

- програмування і відлагодження програми

Розробка програмної документації

- розробка програмних документів

Випробування програми

- редагування помилок

Підготовка і передача програми

- оформлення акту передачі

Порядок контролю та прийому

Після завершення виконавцем роботи над даним програмним продуктом, керівник може її тестувати протягом 6 годин. Після чого може прийняти роботу, або відхилити. У випадку обґрунтування відмови розробник зобов'язується допрацювати програмний продукт.

3. Пояснювальна записка

Декомпозиція поставленої задачі

Даний програмний засіб можна розбити на підсистеми:

* Створення нових записів та їх редагування - цією підсистемою користувач при необхідності може створити нові потрібні у використанні записи, а також виконувати над ними певні операції.

* Пошук - цією підсистемою створюється пошук раніше створеного запису за вказаними критеріями.

* Сортування - цією підсистемою сортуються записи за довільним критерієм, які розміщені в базі.

* Переглянути календар - цією підсистемою виконується перегляд поточного календаря.



Розробка алгоритму розв'язку задачі

Структура організації даних

В результаті проведеного об`єктно-орієнтованого аналізу предметної області, для написання програми було створено такі функції:

void Button2Click(); - показати форму і таблицю.

void RadioButton1Click(); - показати форму.

void RadioButton2Click(); - показати таблицю.

void RadioButton3Click(); - показати календар.

void Activate(); - перевірка доступу до бази даних.

void Close(); - закриття бази даних.

void denrogdenya(); - вивід на екран повідомлення про день народження.

void poiscFamiliya(); - пошук по фамілії.

void poiscAdress(); - пошук по адресі.

void poiscTelefon(); - пошук по телефону.

void poiscRobotaUchoba(); - пошук по місцю роботи.

void poiscDataRogdeniya(); - Даті народження.

void sortFamiliya(); - сортування по фамілії.

void sortAdress(); - сортування по адресі.

void sortTelefon(); - сортування по телефону.

void sortRobotaUchoba(); - сортування по місцю роботи / уроби.

void sortDataRogdeniya(); - сортування по даті народження.

class Zapis

Private:

Public:

void Button2Click();

void RadioButton1Click();

void RadioButton2Click();

void RadioButton3Click();

void Activate();

void Close();

void denrogdenya();

void poiscFamiliya();

void poiscAdress();

void poiscTelefon();

void poiscRobotaUchoba();

void poiscDataRogdeniya();

void sortFamiliya();

void sortAdress();

void sortTelefon();

void sortRobotaUchoba();

void sortDataRogdeniya();

Розробка інтерфейсу ПЗ

Якщо говорити про структуру розробленого інтерфейсу, то можна побачити, що даний програмний продукт простий у використанні та має такі особливості інтерфейсу.

При запуску програми користувач спостерігає інтерфейс програми. На якому бачить головне меню продукту. Меню вміщує в собі такі компоненти:

Показати форму - відкривається форма для перегляду записів, можна переглянути лише по одному запису.

Показати таблицю - відкривається таблиця для перегляду всіх записів в базі даних.

Показати форму і таблицю разом - відкривається форма і таблиця для перегляду записів.

Показати календар - в окремій формі відкривається календар.

Відкрити меню сортування - відкривається меню з можливими варіантами сортування. Потрібно вибрати той за яким потрібно відсортувати записи. (записи в базі по умовчанню відсортовані по фамілії.)

Відкрити меню пошуку - відкривається меню з можливими варіантами пошуку. Потрібно вибрати потрібний критерій пошуку, після чого відкриється нова форма в якій потрібно ввести що будемо шукати.

Весь інтерфейс є дуже зручним і дружнім і користувачу буде дуже легко орієнтуватися в вікні програми а також при роботі з нею. Отже можна сказати, що програмний продукт, а саме його інтерфейс створений з дотриманням правил ергономічності.

Опис стриктури вихідної інформації

Інформація може бути представлена перед користувачем у вигляді таблиці і форми окремо так разом. Інформація вміщує в собі дані про записи, самі дані поділені на різні критерії. Користувач має змогу доступно переглядати всю необхідну інформацію про кожен окремий запис за допомогою форми так і про всі записи відразу за допомого таблиці, ще існує варіант перегляду відразу за допомогою форми і таблиці одночасно.

Вихідна інформація даної програми зберігається в файлі в папці самої програми. Ім'я зберігаємого файлу «Записник.mdb», тобто всі дані зберігаються в файлі бази даних Access, які можна відкрити програмою Microsoft Office Access. Таке збереження інформації є досить надійним і зручним, що не створює проблем з налаштування ПЗ.

4. Керівництво програміста

Загальні відомості про програмний засіб

Програмний продукт призначений для роботи з базою даних «Записник «, а також для збереження в ньому певної інформації про знайомих.

Основні функції:

А) Додавання записів;

Б) Сортування за будь яким критерієм;

В) Пошук за будь яким критерієм;

Г) Редагування;

Д) Перегляд Календаря на поточний рік;

Е) Виведення повідомлення про День народження;

Характеристика програмного засобу

Програма має широкий вибір функцій і при цьому використовує не велику кількість ресурсів ПК. Під програмний засіб необхідно виділити 10 Мб пам'яті на жорсткому диску та всього декілька кілобайт оперативної пам'яті. Для управління програмним засобом необхідно мати клавіатуру та мишу. База даних не обладнана засобами контролю, а лише спирається на засоби контролю вбудовані в Windows та C++ Builder 6.

Структура програмного засобу

Програмне забезпечення складається з одного програмного продукту. В комплект ПЗ входить сама програма, а також документація з керівництвом користувача.

Встановлення програмного засобу.

Для того щоб встановити програму необхідно просто скопіювати папку з програмою, під назвою «Версія 1.0.3». Після чого програму можна запускати і працювати з нею.

Перевірка програмного засобу

Для того, щоб перевірити коректність роботи програми, необхідно запустити її і спробувати виконати всі можливі функції її роботи і впевнитися в тому, що програма працює коректно.

Повідомлення програмісту

Дана програма не потребує повідомлень системному програмісту, так як, будь-які помилки, які можуть виникнути в процесі роботи з даним ПЗ, можуть бути зв'язані лише з некоректним введенням даних, або пошкодження файлової структури програми - вірусами.

Тобто будь-яких рекомендації з приводу роботи програмного продукту, програма не потребує.

Робота з програмним засобом

Після запуску програмного продукту висвітлюється головне меню яке зображено на малюнку.



Вхідні та вихідні дані

Вхідними даними для програми являються дані введені користувачем з клавіатури, які потім зберігаються у файл. Вихідними даними є збережені у файл записи, які при необхідності виводяться на екран у вигляді таблиці або форми.

5. Керівництво користувача

Призначення програмного засобу

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

А) Додавання записів;

Б) Сортування за будь яким критерієм;

В) Пошук за будь яким критерієм;

Г) Редагування;

Д) Перегляд Календаря на поточний рік;

Е) Виведення повідомлення про День народження;

Умови виконання програмного засобу.

Головною умовою нормального функціонування програми є наявність встановленої додаткової програми C++ Builder 6, за допомогою якої відкривається файл новоствореної програми. Необхідно також наявність технічних засобів перелічених вище. Відповідною операційною системою є Windows XP.

Експлуатація програмного засобу

Головне меню:

Для того, щоб почати працювати з програмою спершу необхідно визначитись, що потрібно зробити. Є такі варіанти: відкрити форму, відкрити таблицю, відкрити календар, показати форму і таблицю, вибрати варіант сортування, вибрати варіант пошуку.

Перегляд записів по одному, додавання, редагування, видалення записів:

Для того, щоб переглянути записи по одному потрібно відкрити в головному меню форму. На якій за допомогою панелі керування можна переглядати записи, редагувати, додавати та видаляти.



Перегляд всіх записів за допомогою таблиці:

Потрібно активувати таблицю в головному меню.

Перегляд записів за допомогою форми і таблиці:



Перегляд календаря:

Потрібно активувати календар в головному меню.

Сортування записів по критеріям:

Вибрати в розгортаючомуся вікні потрібний варіант сортування.

Пошук записів:

На головному меню потрібно в розгортаючомуся меню вибрати критерій пошуку, після чого відкриється нова форма в якій потрібно ввести запит для пошуку.



Вивід повідомлення про наявність іменинника:

Дане повідомлення зявляється при запуску програми, якщо в даний календарний день у когось зі записів день народження.

Повідомлення користувачу

Даний програмний продукт є дуже простим у використанні і не потребує у повідомленнях користувачу.



Висновок

За період виділений на підготування курсового проекту, було повністю виконано робочий план, і створено повноцінний, робочий програмний продукт, який повністю відповідає вимогам поставленим на початку роботи.

Основною задачею даного програмного продукту є робота записника який би дав змогу зберігати в ньому певну інформацію про деякі записи і мати змогу в будь який момент її переглянути.

Даний програмний продукт не являє собою конкуренто - спроможний продукт, але серед простих програм, які призначені лише для відсортування інформації та редагування її, створене ПЗ може бути використане будь яким користувачем, який навіть має невеликі відомості що до користування ПК.



Перелік використаної літератури

1. Л.Г. Гагаріна «Технология разработки программного обеспечения» Москва ИД «Форум» - Инфра_М 2008.

2. «Объектно-ориентированное программирование на С++.» Айра Пол California, 1997 г.

3. «C/C++ Структурное программирование. Практикум.» Т.А. Павловская, Ю.А. Щупак // Санкт-Петербург, 2007 г.

4. «Язык программирования С++» Б. Страуструп. Киев: «ДиаСофт», 1993 г.

5. «Справочник по классам Borland C++ 4.0.» К., 1994. 256 С.

6. «C++ для «чайников», 4_е издание.: Пер. с англ.: - М.: Издательский дом ' «Вильяме», 2003. - 336 с.

7. «C++ для начинающих»

8. «Самоучитель программирования на языке C++. Теорія та практика»



Додаток 1



Додаток 2

Лістинг програми

Unit1.cpp

// -

#include <vcl.h>

#pragma hdrstop

#include <math.h>

#include <string.h>

#include <stdio.h>

#include «Unit1.h»

#include «Unit2.h»

#include «Unit3.h»

#include «oleauto.hpp»

// -

#pragma package (smart_init)

#pragma resource «*.dfm»

TForm1 *Form1;

class Zapis

{

public:

void Button2Click();

void RadioButton1Click();

void RadioButton2Click();

void RadioButton3Click();

void Activate();

void Close();

void denrogdenya();

void poiscFamiliya();

void poiscAdress();

void poiscTelefon();

void poiscRobotaUchoba();

void poiscDataRogdeniya();

void sortFamiliya();

void sortAdress();

void sortTelefon();

void sortRobotaUchoba();

void sortDataRogdeniya();

};

Zapis spisoc;

void Zapis: Activate()

{

{

try {

Form1->ADOConnection1->Open();

Form1->ADODataSet1->Active=true;}

catch (Oleauto:EOleException &e) {

MessageDlg («Ошибка доступа к БД. \n»+e. Message, mtError, TMsgDlgButtons()<<mbOK, 0);

Form1->DBGrid1->Enabled=false;}}}

void Zapis: Close()

{

if (Form1->DBGrid1->EditorMode) {

Form1->ADODataSet1->UpdateBatch(arCurrent);};

}

void Zapis: Button2Click()

{

Form1->Label6->Visible=false;

Form1->RadioButton1->Checked=false;

Form1->RadioButton2->Checked=false;

Form1->RadioButton3->Checked=false;

Form1->Panel1->Visible=true;

Form1->DBGrid1->Visible=true;

Form1->DBEdit1->Visible=true;

Form1->DBEdit2->Visible=true;

Form1->DBEdit3->Visible=true;

Form1->DBEdit4->Visible=true;

Form1->DBEdit5->Visible=true;

Form1->Label1->Visible=true;

Form1->Label2->Visible=true;

Form1->Label3->Visible=true;

Form1->Label4->Visible=true;

Form1->Label5->Visible=true;

Form1->DBNavigator1->Visible=true;

Form1->DBNavigator1->Visible=true;

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY Familiya»;

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;

}

void Zapis: RadioButton1Click()

{

Form1->Label6->Visible=false;

if (Form1->RadioButton1->Checked==true) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY Familiya»;

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;

Form1->Panel1->Visible=false;

Form1->DBNavigator1->Visible=false;

}

else

{

Form1->DBNavigator1->Visible=true;

Form1->DBGrid1->Visible=false;

Продовження додатку 2.

Form1->Panel1->Visible=true;

}

}

void Zapis: RadioButton2Click()

{

Form1->Label6->Visible=false;

if (Form1->RadioButton2->Checked==true) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY Familiya»;

Form1->ADODataSet1->Open();

Form1->Panel1->Visible=true;

Form1->DBGrid1->Visible=false;

Form1->DBEdit1->Visible=true;

Form1->DBEdit2->Visible=true;

Form1->DBEdit3->Visible=true;

Form1->DBEdit4->Visible=true;

Form1->DBEdit5->Visible=true;

Form1->Label1->Visible=true;

Form1->Label2->Visible=true;

Form1->Label3->Visible=true;

Form1->Label4->Visible=true;

Form1->Label5->Visible=true;

Form1->DBNavigator1->Visible=true;

Form1->RadioButton1->Action;

}

else

{

Form1->Panel1->Visible=false;

Form1->DBGrid1->Visible=true;

Form1->DBEdit1->Visible=false;

Form1->DBEdit2->Visible=false;

Form1->DBEdit3->Visible=false;

Form1->DBEdit4->Visible=false;

Form1->DBEdit5->Visible=false;

Form1->Label1->Visible=false;

Form1->Label2->Visible=false;

Form1->Label3->Visible=false;

Form1->Label4->Visible=false;

Form1->Label5->Visible=false;

Form1->DBNavigator1->Visible=false;

}

}

void Zapis: RadioButton3Click()

{

Form1->Label6->Visible=false;

if (Form1->RadioButton3->Checked==true) {

Form3->ShowModal();

if (Form3->ModalResult==mrOk) {

Form3->Calendar->Visible=true;

Form1->RadioButton3->SetFocus();

}

}

}

Продовження додатку 2.

void Zapis:sortFamiliya()

{

Form1->Label6->Visible=false;

if (Form1->ComboBox1->ItemIndex==0) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY `Familiya`»;

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis:sortAdress()

{

Form1->Label6->Visible=false;

if (Form1->ComboBox1->ItemIndex==1) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY `Adress`»;

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis:sortTelefon()

{

Form1->Label6->Visible=false;

if (Form1->ComboBox1->ItemIndex==2) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY `Telefon`»;

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis:sortRobotaUchoba()

{

Form1->Label6->Visible=false;

if (Form1->ComboBox1->ItemIndex==3) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY `Robota/Uchoba`»;

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis:sortDataRogdeniya()

{

Form1->Label6->Visible=false;

if (Form1->ComboBox1->ItemIndex==4) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент ORDER BY `DataRogdeniya`»;

Form1->ADODataSet1->Open();

Form1->DBGrid1->Visible=true;}}

void Zapis:poiscFamiliya()

{

if (Form1->ComboBox2->ItemIndex==0) {

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if (Form2->ModalResult==mrOk) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент WHERE `Familiya` Like \042 %»+

Form2->Edit1->Text+ «%\042»;

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if (Form1->ADODataSet1->RecordCount==0) {

Form1->ADODataSet1->Filtered=false;

ShowMessage («В БД нет записей, удовлетворяющих критерию запроса»);}}}

void Zapis:poiscAdress()

{

if (Form1->ComboBox2->ItemIndex==1) {

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if (Form2->ModalResult==mrOk) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент WHERE `Adress` Like \042 %»+

Form2->Edit1->Text+ «%\042»;

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if (Form1->ADODataSet1->RecordCount==0) {

Form1->ADODataSet1->Filtered=false;

ShowMessage («В БД нет записей, удовлетворяющих критерию запроса»);}}}

void Zapis:poiscTelefon()

{

if (Form1->ComboBox2->ItemIndex==2) {

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if (Form2->ModalResult==mrOk) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент WHERE `Telefon` Like \042 %»+

Form2->Edit1->Text+ «%\042»;

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if (Form1->ADODataSet1->RecordCount==0) {

Form1->ADODataSet1->Filtered=false;

ShowMessage («В БД нет записей, удовлетворяющих критерию запроса»);}}}

void Zapis:poiscRobotaUchoba()

{

if (Form1->ComboBox2->ItemIndex==3) {

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if (Form2->ModalResult==mrOk) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент WHERE `Roboya/Uchoba` Like \042 %»+

Form2->Edit1->Text+ «%\042»;

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if (Form1->ADODataSet1->RecordCount==0) {

Form1->ADODataSet1->Filtered=false;

ShowMessage («В БД нет записей, удовлетворяющих критерию запроса»);}}}

void Zapis:poiscDataRogdeniya()

{

if (Form1->ComboBox2->ItemIndex==4) {

Form1->DBGrid1->Visible=false;

Form1->DBNavigator1->Visible=false;

Form2->ShowModal();

if (Form2->ModalResult==mrOk) {

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент WHERE `DataRogdeniya` Like \042 %»+

Form2->Edit1->Text+ «%\042»;

Form1->DBGrid1->Visible=true;

}

Form1->ADODataSet1->Open();

Form2->Edit1->Clear();

if (Form1->ADODataSet1->RecordCount==0) {

Form1->ADODataSet1->Filtered=false;

ShowMessage («В БД нет записей, удовлетворяющих критерию запроса»);}}}

void Zapis:denrogdenya()

{

Form1->Edit1->Text=Form1->Date->Date. CurrentDate();

Form1->Edit1->Text=Form1->Edit1->Text. SubString (0,5);

Form1->ADODataSet1->Close();

Form1->ADODataSet1->CommandText= «SELECT * FROM Студент WHERE `DataRogdeniya` Like \042 %»+

Form1->Edit1->Text+ «%\042»;

Form1->DBGrid1->Visible=true;

Form1->ADODataSet1->Open();

if (Form1->ADODataSet1->RecordCount==0) Form1->DBGrid1->Visible=false;

else Form1->Label6->Visible=true;

}

// -

__fastcall TForm1:TForm1 (TComponent* Owner)

: TForm(Owner)

{

}

// -

void __fastcall TForm1: FormActivate (TObject *Sender)

{

spisoc. Activate();

}

// -

void __fastcall TForm1: FormClose (TObject *Sender, TCloseAction &Action)

{

spisoc. Close();

}

// -

void __fastcall TForm1: Button2Click (TObject *Sender)

{

spisoc. Button2Click();

}

// -

void __fastcall TForm1: RadioButton1Click (TObject *Sender)

{

spisoc. RadioButton1Click();

}

// -

void __fastcall TForm1: RadioButton2Click (TObject *Sender)

{

spisoc. RadioButton2Click();

}

// -

void __fastcall TForm1: ComboBox1Change (TObject *Sender)

{

spisoc.sortFamiliya();

spisoc.sortAdress();

spisoc.sortTelefon();

spisoc.sortRobotaUchoba();

spisoc.sortDataRogdeniya();

}

// -

void __fastcall TForm1: ComboBox2Change (TObject *Sender)

{

spisoc.poiscFamiliya();

spisoc.poiscAdress();

spisoc.poiscTelefon();

spisoc.poiscRobotaUchoba();

spisoc.poiscDataRogdeniya();

}

// -

void __fastcall TForm1: FormCreate (TObject *Sender)

{

spisoc.denrogdenya();

}

// -

void __fastcall TForm1: RadioButton3Click (TObject *Sender)

{

spisoc. RadioButton3Click();

}

// -

Unit2.cpp

// -

#include <vcl.h>

#pragma hdrstop

#include «Unit2.h»

// -

#pragma package (smart_init)

#pragma resource «*.dfm»

TForm2 *Form2;

class Unit2

{

public:

void FormActivate();

void Edit1Change();

};

Unit2 unit;

void Unit2: FormActivate()

{

Form2->Edit1->Clear();

Form2->Edit1->SetFocus();

}

void Unit2: Edit1Change()

{

if (Form2->Edit1->Text. Length()>0)

Form2->Button1->Enabled=true;

else

Form2->Button1->Enabled=false;

}

// -

__fastcall TForm2:TForm2 (TComponent* Owner)

: TForm(Owner)

{

}

// -

void __fastcall TForm2: FormActivate (TObject *Sender)

{

unit. FormActivate();

}

// -

void __fastcall TForm2: Edit1Change (TObject *Sender)

Завершення додатку 2.

{

unit. Edit1Change();

}

// -

void __fastcall TForm2: Edit1KeyPress (TObject *Sender, char &Key)

{

if((Key==VK_RETURN)&&(Edit1->Text. Length()>0))

Button1->SetFocus();

}

Unit3.cpp

// -

#include <vcl.h>

#pragma hdrstop

#include «Unit1.h»

#include «Unit3.h»

#include «Unit3.h»

// -

#pragma package (smart_init)

#pragma resource «*.dfm»

TForm3 *Form3;

// -

__fastcall TForm3:TForm3 (TComponent* Owner)

: TForm(Owner)

{

}

// -

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