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

Міністерство освіти і науки України

Криворізький коледж Національного авіаційного університету

(повне найменування вищого навчального закладу)

Циклова комісія програмного забезпечення ЕОМ

(повна назва кафедри, циклової комісії)

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

з програмування

на тему: Розробка додатку мовою Object Pascal у середовищі Borland Delphi з використанням візуальних компонентів

Студента (ки) 3 курсу 323

групи напряму підготовки

спеціальності 5.05010201

«Обслуговування комп'ютерних систем і мереж»

Домашенко В.О

Керівник викладач Терьошина С.С.

м. Кривий Ріг - 2014 рік

Завдання на виконання курсової роботи студента

Розробити мовою Object Pascal у середовищі Borland Delphi

1. Торговий агент отримує винагороду у розмірі деякої частки від суми угоди: якщо обсяг угоди до 5000 грн., то в розмірі 5%; якщо вище - то 7%. Введіть обсяг угоди, вивести - обсяг винагороди.

2. Підробляючи вечорами, студент вирішив накопичити суму в S гривень для покупки комп'ютера. У перший місяць він відклав P гривень. Потім його внесок кожного разу був на 3% більше попереднього вкладу. Через скільки місяців студент зможе купити комп'ютер?

3. Даний масив m*n. Знайти добуток елементів, що стоять нижче за головну діагональ. Замінити всі елементи матриці, що стоять вище за головну діагональ, її найбільшим елементом.

4. З рядка символів А отримати рядок В шляхом видалення найбільш часто зустрічаються символів.

5. Розробити програму, яка веде облік книг в домашній бібліотеці (назва , автор , літературний жанр , видавництво, ціна).

Технічні вимоги:

1) процесор Pentium 233;

2) оперативна пам'ять 256 Мб;

3) вільне місце на жорсткому диску 5 Мb;

4) Microsoft Office 2003(+).

Термін виконання роботи: з з 1.02.14р. по 01.07.14р.

Етапи роботи над КР

Стадії та етапи робот	Зміст робот	Термін виконання
Технічне завдання	Постановка задачі, визначення вимог, структури даних, метода рішення та т. п.	02.02.2014 р. - 02.03.2014 р.
Технічний проект	Розробка алгоритму, визначення форми представлення даних, структури програми. Оформлення першого розділу пояснювальної записки.	02.03.2014 р. - 02.04.2014 р.
Робочий проект	Розробка програми та її випробування. Оформлення пояснювальної записки.	02.04.2014 р. - 02.05.2014 р.

Завдання видав

(підпис керівника) (ПІБ керівника)

“_____” ______________ 20___ р.

Завдання прийняв до виконання

(підпис студента)

Курсова робота захищена з оцінкою

Голова комісії

(підпис керівника) (ПІБ керівника)

“_____” ______________ 20___ р.

Члени комісії

Зміст

Вступ

Постановка задачі

Теоретичні відомості

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

Розробка алгоритму програми

Опис програми

Посібник системного програміста

Посібник оператора

Висновки

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

Реферат

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

сторінок - 24;

малюнків - 12;

таблиць - 0;

Мета роботи: закріплення, поглиблення та узагальнення теоретичних знань, набутих студентами під час вивчення конкретних дисциплін, розвитку навичок їх практичного застосування, самостійного та комплексного розв'язання конкретних фахових завдань на Delphi.

У курсовій роботі створено програму, яка складається з 5 підпрограм для розв'язку кожної задачі.

У першому розділі курсової розглянуто теоретичні відомості з програмування. алгоритм програма програміст масив

У другому розділі виконується аналіз задачі проектування, аналізується вид вихідних даних і приводяться алгоритми для розв'язку задач.

У третьому розділі розглядаються текст програми. До реалізованої програми розроблена інструкція користувача, яка наведена в четвертому розділі.

Програма розроблена з використанням мови Delphi.

Вступ

Delphi використовує структурно об'єктну - орієнтовану мову програмування (Object Pascal), яка об'єднує з одного боку міцність та простоту програмування, а з іншої ефективність мови програмування.

Будь-яка програма в Delphi складається з файлу проекту (файл з розширенням dpr) та одного або декількох модулів (файли з розширеннями pas). Кожен з таких файлів описує програмну одиницю Object Pascal.

Файл проекту представляє собою програму. Написану на мові Object Pascal та призначену для обробки компілятором.

Модулі - це програмні одиниці, призначені для розміщення фрагментів програм. За допомогою присутнього там програмного коду реалізується вся поведінкова сторона програми.

При розробці даної курсової роботи використовувалась наступна тематика: створення меню, створення та використовування в проекті декількох форм, робота з компонентами вкладки Standart та Additional, робота с базами даних, графіка, робота с COM-технологіями.

Постановка задачі

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

Розглянути можливості генерування звітів у Microsoft Excel та Microsoft Word.

Комісія ПЗ ЕОМ	ККНАУ 07 15 14 КР
Виконав				Вступ		Лист	Листів
Керівник								4
Зав.відділ.

Теоретичні відомості

Як перевірити чи встановлений Excel на комп'ютері користувача?

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

Основні властивості компонента, що визначають відображається текст:

Рядок, що міститься в комірці з адресою (ACol, ARow)

\Cells [ACol, ARow: Integer]: String;

Набір рядків, що міститься в стовпці з індексом Index

Cols [Index: Integer]: TStrings;

Набір рядків, що міститься в рядку з індексом Index

Rows [Index: Integer]: TStrings;

Об'єкт , пов'язаний з рядком , що міститься в комірці з адресою ( ACol , ARow )

Objects [ ACol , ARow : Integer ] : TObject ;

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

Властивості таблиці

StringGridColCount і RowCount - кількість рядків і стовпців відповідно;

FixedCols і FixedRows - кількість перше, не прокручуваних стовпців і рядків;

FixedColor - колір фону фіксованих осередків;

LeftCol і TopRow - індекси самого лівого і самого верхнього видимих зараз стовпчика і рядка при прокручуванні.

Властивість ScrollBars відповідає за смуги прокрутки.

При ScrollBars < > sbNone смуги прокрутки з'являються автоматично , якщо таблиця не поміщається в заданий розмір .

Вміст властивості Options визначає такі властивості таблиці як:

goFixedVertLine і goFixedHorzLine - наявність розділових ліній між фіксованими осередками;

goVertLine і goHorzLine - наявність розділових ліній між звичайними осередками;

goColSizing і goRowSizing - можливість міняти мишкою ширину стовпців і висоту рядків;

goColMoving і goRowMoving - можливість переміщати стовпці і рядки цілком;

goEditing - можливість редагувати вміст таблиці.

Компонент StringGrid використовується в програмі для вибору значень, що містяться в осередках. Властивості Col і Row показують індекси стовпчика і рядка виділеної (що має фокус) зараз осередки.

Серед подій компонента StringGrid є важлива подія OnSelectСell, що виникає при виборі тієї або іншої комірки, але ще до фактичного переміщення в неї фокуса. У обробник цієї події передаються параметри ACol і ARow - стовпець і рядок вибраної комірки, і CanSelect - допустимість вибору. Значення параметра CanSelect = False використовується для заборони переміщення у вибрану комірку. А параметри ACol і ARow можуть використовуватися для випереджаючої реакції програми на вибір тієї чи іншої комірки.

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

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

2. Передбачити пункт меню допомоги роботи з додатком та коректний вихід з додатку.

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

4. Інформація про розробника виводиться у допоміжному «вікні».

5. Інтерфейс форм розробити самостійно, використовуючи при цьому всі можливості та властивості компонентів Delphi.

6. Зробити аналіз та дослідження завдання: вказати типи вирішення завдання та технічні та програмні засоби для її вирішення.

7. Дати характеристику мові програмування Object Pascal, середовищу Borland Delphi та функціям, за допомогою яких реалізовано програму.

8. Розробити та описати функціональну схему додатку.

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

10. Описати інтерфейс програми та вказати системні вимоги до використання програми.

11. Зробити демонстрацію можливостей програми за допомогою екранних форм.

12. Навести список використаної літератури.

13. Для виконання завдань на умовні, циклічні алгоритми, масиви даних, рядки - використовувати візуальні компоненти із вкладок компонентів Standart, System, Additional. При роботі з масивами даних оброблений масив, список даних вивести в таблицю MS Word, створену за допомогою Delphi.

14. При виконанні завдання на рядки дані зберігати у текстовому файлі, використовувати компоненти вкладки Dialog.

15. Створення баз даних та обробка інформації з них. База даних створюється за допомогою утілити Database Desktop або за допомогою інших програм створення баз даних (наприклад MS Access). При роботі з базою даних створити власний навігатор переміщення по записам БД. Додавання, редагування, видалення даних з БД виконати в окремих вікнах. Передбачити створення складного фільтру(пошук за критерієм) та сортування не менш як по двом полям БД. Створити звіт в MS Excel з Delphi. На окремому листі передбачити формування діаграми MS Excel в Delphi, данні для якої взяти із вашої бази даних. Тип діаграми передбачений варіантом. При створенні діаграми використовувати всі можливості роботи із діаграмами - створення заголовку, легенди, підпису рядків, тощо.

Розробка алгоритму програми

1. Створюємо проект Delphi.

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

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

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

5. На формі виконання 1-го завдання розміщуємо компоненти:Label,Edit, Button,ComboBox.

6. Прописуємо програмний код розв'язку задачі за наступним алгоритмом.

7. На формі виконання 2-го завдання розміщуємо компоненти:Label,Edit, Button, ListBox

8. Прописуємо програмний код розв'язку задачі за наступним алгоритмом (рис.2).

9. На формі виконання 3-го завдання розміщуємо компоненти для роботи з таблицями: StringGrid,Label, Edit, Button, ListBox.

10. Прописуємо програмний код розв'язку задачі за наступним алгоритмом (рис.3).

11. На формі виконання 4-го завдання розміщуємо компоненти для роботи з текстом: ,Label, Button, Memo, ListBox

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

Рис 4. - Блок-схема до задачі 4

На формі виконання 5-го завдання розміщуємо компоненти роботи з базами даних: Table,Query, DBGrid, DataSource, Edit - для завдання значення фільтру, MainMenu -для виконання завдань при роботі з базою даних.

1. За допомогою утілити Database Destcop створюємо аліас та файл бази даних.

2. Підключаємо компоненти роботи з базами даних.

3. Прописуємо програмні коди роботи з базою даних.

4. За допомогою компонента OpenDialog вибираємо файл та завантажуємо і декодуємо файл.

5. Функціональна схема роботи:

Опис програми

1. Програма складається з 7 окремих модулів. Розглянемо кожний з них.

2. Модуль 1: головне вікно - використовується для виклику інших вікон за допомогою меню:

procedure TForm1.N11Click(Sender: TObject);

begin

Form6.showmodal;

end;

3. Модуль 2: вікно для розв'язку задачі 1, основні діяльна функція:

procedure TForm6.Button1Click(Sender: TObject);

var v,vn,st,t,s,m:real;

begin

v:=strtofloat(edit1.Text);

if (v<50000) then st:=v*0.05

else st:=v*0.07;

Label3.Caption:='Обсяг винагороди - '+FormatFloat('0.00 грн.',st);

end;

4. Модуль 3: вікно для розв'язку задачі 2, основні діяльна функція:

procedure TForm7.Button2Click(Sender: TObject);

var p,s,vk:real;i:integer;

begin

p:=strtofloat(edit3.Text);

s:=strtofloat(edit1.Text);

i:=1;

vk:=p;

while (p<s) do begin

vk:=vk*1.03;

p:=p+vk;

i:=i+1;

end;

label2.Caption:='Через '+Inttostr(i)+ ' місяців';

end;

5. Модуль 4: вікно для розв'язку задачі 3, основні діяльна функція:

procedure TForm2.BitBtn1Click(Sender: TObject);

var i,j:integer;a:real;n,m:integer;

begin

n:=StrToInt(edit1.Text);

for i:=1 to n do

for j:=1 to n do begin

a:=random(100)-50+random;

StringGrid1.Cells[j,i]:=formatfloat('0.00',a);

end;

end;

procedure TForm2.FormShow(Sender: TObject);

var i:integer; n,m:integer;

begin

n:=StrToInt(edit1.Text);

for i:=1 to n do begin

StringGrid1.Cells[i,0]:=inttostr(i);

StringGrid1.Cells[0,i]:=inttostr(i);

end;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

var i,j,i1,j1,i2,j2:integer; n,m:integer; max,p:real;

a:array [1..10,1..10] of real;

begin

n:=StrToInt(edit1.Text);

for i:=1 to n do

for j:=1 to n do

a[i,j]:=strtofloat( StringGrid1.Cells[j,i]);

p:=1;

for i:=1 to n do begin

for j:=1 to i do begin

p:=p*a[i,j];

end;

end;

label4.Caption:='Добуток - '+formatfloat('0.00',p);

max:=a[1,1];

for i:=1 to n do

for j:=1 to n do

if a[i,j]>max then max:=a[i,j];

for i:=1 to n do begin

for j:=i+1 to n do begin

a[i,j]:=max;

end;

end;

1. Модуль 5: вікно для розв'язку задачі 4, основні діяльна функція:

procedure TForm3.Button2Click(Sender: TObject);

var a,b:string; c:char; k,i,k1,j:integer;

begin

a:=edit1.Text;

k:=1;c:=a[1];

for i:=1 to length(a) do

begin

k1:=1;

for j:=i to length(a) do

if a[j]=a[i] then k1:=k1+1;

if k1>k then c:=a[i];

end;

b:='';

for i:=1 to length(a) do

if a[i]<>c then b:=b+a[i];

edit2.Text:=b;

end;

2. Модуль 6: вікно для розв'язку задачі 5, основні діяльна функція:

procedure TForm4.Button6Click(Sender: TObject);

var W:variant;

MyRange:variant;

j,i:integer;

begin

W:=CreateOleObject('Excel.Application');

w.Workbooks.Add;

W.visible:=true;

table1.First; j:=0;

while not table1.Eof do begin

inc(j);

for i:=1 to Table1.FieldCount-1 do

w.ActiveWorkBook.WorkSheets[1].Cells[j, i]:=

Table1.Fields[i].AsString;

table1.Next;

end;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

Table1.IndexName:='title1';

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

table1.Filtered:=false;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

Table1.IndexName:='author1';

end;

procedure TForm4.N4Click(Sender: TObject);

begin

Table1.IndexName:='Zanr1';

end;

procedure TForm4.N5Click(Sender: TObject);

begin

Table1.IndexName:='Public1';

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then

table1.Filter:='title = '+''''+edit1.Text+'''';

if RadioButton2.Checked then

table1.Filter:='author = '+''''+edit2.Text+'''';

Table1.Filtered:=true;

end;

Посібник системного програміста

Програму створено з допомогою системи Delphi 7.

1. База даних для завдання 5 створена за допомогою СУБД Paradox 7. Структура бази даних:

Id - первинний індекс.

Title - назва книги

Author - автор

Public- видавництво

Zanr- жанр

Cost -вартість книги

Посібник оператора

1. При запуску програми з'являється вікно:

Рис 6. - Головне вікно програми

2. При виборі у меню «Завдання 1»:

Рис 7. - Ілюстрація виконання завдання 1

3. При виборі у меню «Завдання 2»:

Рис 8. - Ілюстрація виконання завдання 2

4. При виборі у меню «Завдання 3»:

Рис 9. - Ілюстрація виконання завдання 3

5. При виборі у меню «Завдання 4»:

Рис 10. - Ілюстрація виконання завдання 4

6. При виборі у меню «Завдання 5»:

Рис 11. - Ілюстрація виконання завдання 5

При виборі у меню «Довідка»:

Рис 12. - Ілюстрація вікна-довідки

Висновки

Завдання курсової роботи виконано у повному обсязі. Розгянуто основні моменти роботи з системою Delphi 7 та створено програмне забезпечення відповідно до постановки задачі. закріплені базові навички у алгоритмізації та написанні програм.

Список джерел

1. Ставровський А.Б. «Турбо Паскаль7.0» BHV, “Ірина”, Київ, 2007р.

2. Ю.С. Бородич і ін. "Паскаль для персональних комп'ютерів". Довідковий посібник. Мінськ "Вища школа" 2003 р.

3. Фаронов В.В. « Турбо Паскаль 7.0», видавництво “Нолідж”, 2005 р.

4. Культін Н.Б. « Turbo Pascal в задачах та прикладах », BHV, Санкт-Петербург, 2000р.

5. Зуев Е.А. Система програмування Turbo Pascal. М., Радіо та звязок,1992.

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

...