Тексти програмного коду основних процедур програми
КУРСОВА РОБОТА
З дисципліни “ПРОГРАМУВАННЯ”
на тему:
«Розробка навчальної програми “Електронний словник ”»
Виконав студент групи КСМ-33
Скоропада В.І.
Керівник___________/ О. І. Любас /
"_____" _______________2011 р.
Оцінка _____________________
(числом і прописом)
Зміст
Вступ. 4
Розділ 1. Розробка програми. 5
1.1 Структура програми. 5
1.2 Опис графічного інтерфейсу програми. 6
1.3 Основні процедури програми: 8
Розділ 2. Опис роботи програми. 11
2.1 Список дій користувача програми: 11
2.2 Інструкція користувача програми. 12
Перелік використаної літератури. 13
Додаток А.. 14
Тексти програмного коду основних процедур програми. 14
Додаток В.. 18
Вигляд програми в процесі розробки: 18
Вступ
Завданням даної курсової є розробка в середовищі Delphi 7 програми електронний словник, за допомогою якої користувач може здійснити пошук потрібного йому слова і дізнатись переклад цього слова.
Середовище візуального програмування Delphi- це графічна автоматизована оболонка над об’єктно-орієнтованою версією мови Паскаль. Якщо у мові Паскаль структурними одиницями є дані та компоненти, то в Delphi такою структурою одиницею є візуальний об’єкт, який називається компонентом. Автоматизація програмування досягається завдяки можливості переносити компонент на форму (у вікно програми) з палітри компонентів і змінювати його властивості, не вносячи в ручну змін до програмного коду.
Програма складається із бази даних слів, за допомогою якої користувач знаходить потрібне йому слово, а також може здійснити редагування і видалення цього слова. Також користувачу надається змого додавати слова в цю програму.
В процесі створення навчальної програми електронний словник буде використовуватися технологія візуального програмування, які надає інтегроване середовище розробки Delphi7.
Розділ 1. Розробка програми.
Структура програми.
До структури програми я б відніс: створення графічного інтерфейсу,невидимі компоненти, сам програмний код.
Для початку створення програми-додатку потрібно створити графічний інтерфейс, адже в залежності від інтерфейсу використовуються ті чи інші компоненти, потрібні для створення та роботи програми.
Після завершення роботи з графічним інтерфейсом можна приступати до обробки подій, тобто роботи з програмним кодом, для компонентів, які задіяні в програмі-додатку.
Структура програми-додатку:
 |
1.2
Опис графічного інтерфейсу програми
Label
 |
|
|
|
|
|
|
|
|
|
|
При відкриванні програми на головному меню містяться пункти «Слово», «Пошук», «Про програму». При натисканні на «Слово» користувач може вибрати добавити, редагувати або видалити слово. При натисканні на «Пошук» користувач може здійснити основну функцію програми пошук потрібного йому слова у базі даних. При натисканні «Про програму» користувач отримує інформацію про програму та її розробника.
1.3 Основні процедури програми:
| Назва компоненту | Призначення | З якою метою використовується в курсовій роботі |
| Форма (Form) | Властивість вінка Windows. На формі розташовуються всі компоненти | Розташування компонентів, створення модальної форми |
| MainMenu | За допомогою компонента MainMenu (Головне меню) програміст може створити в Delphi головне меню для своєї форми. Цей елемент керування складається з рядка меню і асоційованих з її елементами відкриваючих меню. | За допомогою цієї компоненти я створив головне меню з необхідні елементи головного меню а саме (слово, пошук, про програму). |
| DBGrid | Цей компонент інкапсулює двовимірну таблицю, в якій рядки являють собою записи, а стовпці - поля набору даних. | Цей компонент я використовую для відображення списку слів які знаходяться в базі даних, оскільки кількість записів у цій компоненті є необмеженою. |
| Table | Задопомогою цього компонента можна створювати локальні таблиці. | За допомогою цього компонента я створив таблицю із двома стовбцями і безліч рядками щоб розподілити слова між собою. |
| Panel | Компонент TPanel призначений для компонування елементів на формі. | Використав компоненту для зручного функціонального групування елементів. |
| DataSource | Компонент DataSource діє як посередник між компонентами TDataSet (TTable, TQuery, TStoredProc) і компонентами Data Controls - елементами управління, що забезпечують подання даних у формі. | Для того щоб компонента DataSource керувала зв'язками з даними. |
| Edit | В компоненті поле вводу (TEdit) зберігається текст, який можна переміщувати в даний компонент як під час розробки, так і під час виконання. | Використав компоненту для того щоб вводити слова для подальшого їх пошуку в базі даних. |
| Button, BitBtn | Компонента-Кнопка, яку використовують для виконання певних операцій. Знаходиться на закладці Standard. | використав компоненту для такої дії як OnClick |
Розділ 2. Опис роботи програми
2.1 Список дій користувача програми:
За допомогою програми-додатку «Електронний словник» користувач може здійснити пошук слова по базі даних яка у свою чергу містить більше чим 1000 слів. Також користувач може здійснити додавання слів в існуючу базу даних при цьому натиснувши певні кнопки. А також користувачу надається змога редагувати ці слова, а також здійснювати їх видалення із бази даних.
Для того щоб здійснити пошук (переклад) слова користувач повинен ввести це слово яке пізніше буде шукатись по базі даних, і якщо воно буде знайдене тоді користувачу буду надана інформація про його переклад на Англійську чи відповідно на Українську мову.
В пункті «про програму» користувачу буде надана вся інформація про розробку цієї програми.
2.2 Інструкція користувача програми
Після запуску програми користувачеві відкриється меню програми, в якому щоб здійснити пошук слова потрібно, натиснути на пункті «Пошук». Після чого відкриється вікно у якому потрібно ввести слово для перекладу. Після того як ми ввели слово ми побачимо його переклад, в створеній таблиці ( в компоненті DBGrid).
Для того щоб здійснити редагування або видалення слова нам потрібно зайти в пункт «Слово» і там вибрати «редагування». Після чого у нас відкривається вікно в якому ми можемо здійснити редагування або видалення певного слова. Ми можемо переключати слова за допомогою кнопок. Для того щоб зберегти зміни користувачу потрібно нажати на кнопку «застосувати зміни», а для видалення слова потрібно нажати кнопку «видалити».
Щоб здійснити додавання слова потрібно, натиснути на пункт головного меню «Слово» і там вибрати «Додати». Після чого відкривається вікно у якому буде область де можна написати слово і його переклад, а для того щоб зберегти це слово нам буде потрібно натиснути на клавішу «додати слово».
При натиску у головному меню на пункт «про програму» користувачеві будуть надані відомості про створення цієї програми.
Перелік використаної літератури
1. Архангельский А. Я. ЯзыкPascal и основыпрограммирования в Delphi. Учебноепособие – М.: ООО “Бином-Пресс”, 2004
2. Владимир Гофман, Анатолий Хомоненко. Delphi 6 “БХВ-Петербург”, Дюссельдорф-Киев-Москва-Санкт-Петербург, 2001
3. Глинський Я.М., Анохін В.Є., Ряжська В.А. Паскаль. Turbo Pascal і Delphi.Львів, 2008
4. М. Глинський. Інформатика. Алгоритмізація і програмування. Мова Паскаль – Львів: “Деол”, 2001
5. Кэнту М. Delphi 7: Для профессионалов. – Санкт-Петербург: Питер, 2004.
6. Ковалюк Т.В. Основипрограмування. – К.: Видавничагрупа BHV, 2005.
7. Культин Н.Б. Основы программирования в Delphi 7. Санкт-Петербург, 2003
Додаток А
Тексти програмного коду основних процедур програми
Var
Form1: TForm1;
Implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.N6Click(Sender: TObject);
Begin
AboutBox.show;
End;
// змінюємо видимість панелей
procedure TForm1.N2Click(Sender: TObject);
Begin
Panel1.Visible := true;
Panel2.Visible := false;
Panel3.Visible := false;
End;
//заносимо дані в базу
procedure TForm1.Button1Click(Sender: TObject);
Begin
if ((edit1.Text<>'') and (edit2.Text<>'')) then
Begin
Table1.Insert;
Table1.FieldByName('En').AsString := edit1.Text;
Table1.FieldByName('Ukr').AsString := edit2.Text;
table1.Post;
showmessage('Слово успішно додано!');
edit1.Clear;
edit2.Clear;
End;
End;
// змінюємо видимість панелей
procedureTForm1.N3Click(Sender: TObject);
Begin
Panel1.Visible := false;
Panel2.Visible := true;
Panel3.Visible := false;
End;
// питаємо чи користувач хоче вийти
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Begin
if messagedlg('Ви дійсно хочете вийти?',mtinformation,[mbok,mbcancel],0)= mrcancel then
canclose:=false else begin
canclose:=true; animatewindow(handle,500,aw_blend or aw_hide); end;
End;
// видалення запису
procedureTForm1.BitBtn2Click(Sender: TObject);
Begin
ifmessagedlg('Ви дійсно хочете видалити запис?',mtinformation,[mbok,mbcancel],0)= mrok then
Begin
Table1.Delete;
ShowMessage('Запис було видалено!');
End;
End;
// оновлення запису
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
Table1.UpdateRecord;
ShowMessage('Запис було редаговано!');
End;
// змінюємо видимість панелей
procedure TForm1.N4Click(Sender: TObject);
Begin
Panel1.Visible := false;
Panel2.Visible := false;
Panel3.Visible := true;
End;
// голона процедура для фільтрування записів
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
var FieldVal:string;
Begin
if Edit3.Focused= true then
Begin
FieldVal := DataSet['En'];
Accept := copy(AnsiUpperCase(FieldVal), 1, length(edit3.text)) = AnsiUpperCase(edit3.Text);
End;
if Edit4.Focused= true then
Begin
FieldVal := DataSet['Ukr'];
Accept := copy(AnsiUpperCase(FieldVal), 1, length(edit4.text)) = AnsiUpperCase(edit4.Text);
End; end;
// застосовуємо фільтр
procedure TForm1.Edit3Change(Sender: TObject);
Begin
table1.Filtered:=false;
table1.Filtered:=true;
End;
// застосовуємо фільтр
procedure TForm1.Edit4Change(Sender: TObject);
Begin
table1.Filtered:=false;
table1.Filtered:=true;
End;
procedure TForm1.Button3Click(Sender: TObject);
Begin
Table1.Next;
End;
procedure TForm1.Button2Click(Sender: TObject);
Begin
Table1.Prior;
End;
End.
Додаток В
Вигляд програми в процесі розробки:
Вигляд програми в процесі виконання:
