43152

Розробка додатку з використанням візуальних компонентів, створення БД та графічних зображень

Курсовая

Информатика, кибернетика и программирование

Організувати меню, пункти якого дозволяють обирати виконання одного з трьох завдань курсової роботи. Передбачити пункт меню допомоги роботи з додатком та коректний вихід з додатку. При виборі пункту меню з одним із завдань, вирішення цього завдання відображується в окремому модальному вікні. Тема першого завдання – використання візуальних компонентів із вкладок компонентів Standart, System, Additional при роботі з масивами даних. Оброблений масив, список даних вивести в таблицю MS Word, створену за допомогою Delphi.

Украинкский

2013-11-03

290 KB

5 чел.

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

Національний авіаційний університет

Криворізький коледж НАУ

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

з дисципліни

"Програмування"

Тема:   Розробка додатку з використанням візуальних компонентів, створення БД та графічних зображень.

  Виконав:  

курсант 363 групи відділення КПІ

  Іваненко О.І.

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

Кривий Ріг

2008

Завдання

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

курсанта Іваненко Ольги Іванівни

Тема курсової роботи:  Розробка додатку з використанням візуальних компонентів, створення БД та графічних зображень.

1. Термін виконання роботи: з 1.02.08р. по 01.07.08р.

2. Завдання: 

 

1. Дана матриця А розміром 3*3. Найти суму елементів матриці.

2. Дана БД: Студент.

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

3. Намалювати мигаючий світлофор.

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

  •  розробка ескізу вікна додатка;
  •  написання програми, що демонструє роботу додатка;
  •  оформлення пояснювальної записки;

4. Завдання видав______________________   "___"__________2008р.

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

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

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

"____"___________2007р.

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

                      __________________________________________

Комісія ПЗ ЕОМ

ККНАУ 07 15 08 КР

Виконав

Іванова

Тема

Лист

Листів

Керівник

3

Консуль.

2 Консуль.

Зав.відділ.


8

2

Зміст

  1.  Титульний аркуш;
  2.  Завдання на виконання курсового проекту (роботи);
  3.  Зміст;
  4.  Загальні  технічні вимоги до виконаного завдання;
  5.  Вступ;
  6.  Алгоритм виконання КР;
  7.  Скролінг (текст) програми;
  8.  Пояснення до курсової роботи;
  9.  Опис використовуваних функцій;
  10.  Результати виконання;
  11.  Список використаної літератури;

 

5

Програмна реалізація курсової роботи

Лістинг 1. Файл project1.dpr

program Project1;

uses

 Forms,

 Unit1 in 'Unit1.pas' {Form1},

 Unit2 in 'Unit2.pas' {Form2},

 Unit3 in 'Unit3.pas' {Form3},

 Unit4 in 'Unit4.pas' {Form4};

{$R *.res}

begin

 Application.Initialize;

 Application.CreateForm(TForm1, Form1);

 Application.CreateForm(TForm2, Form2);

 Application.CreateForm(TForm3, Form3);

 Application.CreateForm(TForm4, Form4);

 Application.Run;

end.

Лістинг 2. Файл unit1.pas

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, Menus, jpeg, ExtCtrls;

type

 TForm1 = class(TForm)

   MainMenu1: TMainMenu;

   N11: TMenuItem;

   N21: TMenuItem;

   N31: TMenuItem;

   N1: TMenuItem;

   Image1: TImage;

   procedure N1Click(Sender: TObject);

   procedure N11Click(Sender: TObject);

   procedure N21Click(Sender: TObject);

   procedure N31Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

 

type

 TForm3 = class(TForm)

   DataSource1: TDataSource;

   Table1: TTable;

   DBGrid1: TDBGrid;

   MainMenu1: TMainMenu;

   N1: TMenuItem;

   Edit1: TEdit;

   Label1: TLabel;

   DBNavigator1: TDBNavigator;

   procedure N1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.N1Click(Sender: TObject);

begin

Table1.Filtered:=true;

Table1.Filter:='Fio=''+Edit1.text+''';

end;

end.

Лістинг 5. Файл unit4.pas

unit Unit4;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, ExtCtrls;

type

 TForm4 = class(TForm)

   Shape1: TShape;

   Shape2: TShape;

   Shape3: TShape;

   Shape4: TShape;

   Timer1: TTimer;

   procedure Timer1Timer(Sender: TObject);

   procedure FormCreate(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

 

 

 

Вступ

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

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

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

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

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

6

var

 Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form2. show;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

form4.show;

end;

end.

Лістинг 3. Файл unit2.pas

unit Unit2;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, Menus, StdCtrls, Grids,comobj;

type

 TForm2 = class(TForm)

   StringGrid1: TStringGrid;

   Edit1: TEdit;

   Label1: TLabel;

   MainMenu1: TMainMenu;

   N1: TMenuItem;

   N2: TMenuItem;

   N3: TMenuItem;

   procedure N3Click(Sender: TObject);

   procedure N1Click(Sender: TObject);

   procedure N2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

7

var

 Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm2.N1Click(Sender: TObject);

var s,i,j:integer;

begin

randomize;

for i:=0 to 2 do

for j:=0 to 2 do begin

stringgrid1.Cells[j,i]:=inttostr(random(20)-5);

s:=s+strtoint(stringgrid1.Cells[j,i]);

end;

edit1.Text:=inttostr(s);

end;

procedure TForm2.N2Click(Sender: TObject);

var W:variant;

MyRange:variant;

j,i:integer;

begin

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

W.visible:=true;

W.Documents.Add;

W.ActiveDocument.Range.InsertAfter('результирующая матрица: ');

MyRange:=W.ActiveDocument.Range(W.ActiveDocument.Range.End-1,

W.ActiveDocument.Range.End-1);

W.ActiveDocument.Tables.Add(Range:=MyRange,NumRows:=3,NumColumns:=3);

for i:=1 to 3 do

for j:=1 to 3 do

W.ActiveDocument.Tables.Item(1).Cell(i,j).Range.Text:=stringgrid1.cells[j-1,i-1];

end;

end.

Лістинг 4. Файл unit3.pas

unit Unit3;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, Grids, DBGrids, DB, DBTables, Menus, StdCtrls, ExtCtrls, DBCtrls;

 

 

 

10

лгоритм виконання:

  1.  Створюємо проект Delphi.
  2.  В курсовій роботі 3 завдання, тому створюємо 4 форми: по одній на кожне завдання і одна головне вікно.
  3.   На головній формі створюємо меню з пунктами виклику завдань на виконання та пункт меню виходу з програми.
  4.  При виборі одного з пунктів меню завдань з’являється нова форма.
  5.  На формі виконання 1-го завдання розміщуємо компоненти роботи з матрицею: Stringgrid, Edit, MainMenu.
  6.  Прописуємо програмні коди  роботи з матрицею.
  7.  На формі виконання 2-го завдання розміщуємо компоненти роботи з базами даних: Table, DBGrid,  DataSource, Edit – для завдання значення фільтру, MainMenu –для виконання завдань при роботі з базою даних.
  8.   За допомогою утілити Database Destcop створюємо аліас та файл бази даних.
  9.  Підключаємо компоненти роботи з базами даних.
  10.  Прописуємо програмні коди  роботи з базою даних.
  11.  Для виконання 3-го завдання встановлюємо на останній формі 4 компоненти Shape.
  12.  За допомогою компонента Timer створюємо зміну кольорів компонентів Shape.
  13.  Прописуємо програмний код  роботи з таймером.

 

11

Результат виконання програми курсової роботи:

  

   

    

    

 

12

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

  1.  Сван Т. « Основи програмування Delphi Windows 95», 1996р.

  1.  Фленов М. « Біблія для програміста в середі Delphi », 2002р.

Загальні  технічні вимоги до виконаного завдання:

  1.  Організувати меню, пункти якого дозволяють обирати виконання одного з трьох завдань курсової роботи.
  2.  Передбачити пункт меню допомоги роботи з додатком та коректний вихід з додатку.
  3.  При виборі пункту меню з одним із завдань, вирішення цього завдання відображується в окремому  модальному вікні.
  4.  Тема першого завдання – використання візуальних компонентів із вкладок компонентів Standart, System, Additional при роботі з масивами даних. Оброблений масив, список даних вивести в таблицю MS Word, створену за допомогою Delphi.  
  5.  Друге завдання – створення баз даних та обробка інформації з них. База даних створюється за допомогою утілити Database Desktop або за допомогою інших програм створення баз даних (наприклад MS Access). Створити звіт в MS Excel з Delphi. На окремому листі передбачити формування діаграми MS Excel в Delphi, данні для якої взяти із вашої бази даних. Тип діаграми передбачений варіантом. При створенні діаграми використовувати всі можливості роботи із діаграмами – створення заголовку, легенди, підпису рядків, тощо.
  6.  Третє завдання – робота з графічними компонентами, обробка списків, робота з файлами і т.і. Це може бути анімація, гра, робота з графічними файлами або тестові програми. Вибір завдання згідно варіанту.   
  7.  Інформація про розробника виводиться у допоміжному «вікні».
  8.  Інтерфейс форм розробити самостійно, використовуючи при цьому всі можливості та властивості компонентів Delphi.

9

var

 Form4: TForm4;

 i:integer;

implementation

{$R *.dfm}

procedure TForm4.Timer1Timer(Sender: TObject);

begin

case (i mod 3) of

0:begin

 shape2.Brush.Color:=clred;

 shape3.Brush.Color:=clwhite;

 shape4.Brush.Color:=clwhite;

 end;

1:begin

 shape2.Brush.Color:=clwhite;

 shape3.Brush.Color:=clyellow;

 shape4.Brush.Color:=clwhite;

 end;

2:begin

 shape2.Brush.Color:=clwhite;

 shape3.Brush.Color:=clwhite;

 shape4.Brush.Color:=clgreen;

 end;

end;

inc(i);

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

i:=0;

end;

end.

 

 


 

А также другие работы, которые могут Вас заинтересовать

54993. Подготовка учителя к уроку истории. Тематическое и поурочное планирование. Определение целей урока 68.5 KB
  Годовой план – расположение учебного материала по четвертям. Чтобы составить годовой план, учитель должен изучить учебную программу, учесть число недель в каждой четверти и число учеников в каждом классе. При составлении годового плана учитель должен предусмотреть определенный резерв времени
54994. Дифференцированный подход к обучению на уроках русского языка как средство активизации познавательной деятельности учащихся 82.5 KB
  Цели урока: познакомить учащихся с признаками сложноподчинённых предложений с придаточными причины и цели научить находить в тексте и самостоятельно конструировать сложноподчинённые предложения с придаточными причины и цели отрабатывая пунктуационные навыки. Знать: признаки сложноподчинённых предложений с придаточными причины и цели. Уметь: находить в тексте правильно расставлять знаки препинания и самостоятельно конструировать сложноподчинённые предложения с придаточными причины...
54995. Подорож до весняного лісу 43.5 KB
  Під спокійну музику заходять діти у кімнати. Вихователь: Діти нам час вирушати на прогулянку до лісу діти йдуть по канату один за одним звучить аудіо запис співу птахів. Діти що за звуки ви почули Спів пташок Чому радіють пташки Тому що наступила весна Діти підходять до дерева на якому сидять граки а також шпак біля шпаківні. Шпак Діти а хто знає вірш про шпака Дитина : Прилетіли шпаки дорогі співаки Прилетіли весну зустрічати У шпаківнях нових...
54996. Подорож нашою країною 45.5 KB
  Програмовий зміст: формувати уявлення дітей про нашу державу, місто, право людей на вибір місця проживання. Закріпити та поглибити знання дітей про Україну; розширити знання про народні символи, річки, гори, моря, українську мову, професії (гончар, швачка, вишивальниця), український посуд та національний одяг.
54997. Казкова подорож (з використанням казок В. Сухомлинського) 43 KB
  Матеріал: малюнок із зображенням весняних квітів метелик аркуші з завданням з зображенням метеликів і бджілосінні листочки сніжинка склянки з водою та соломинки по кількості дітей сніжки корзина амулети серветки. Відповіді дітей слідкувати щоб діти відповідали повним реченням вірно вимовляли...
54998. Подорож до зимового лісу 37 KB
  Програмовий зміст: продовжувати ознайомлення малят з особливостями зимової пори року; розширити знання про зміни в природі, пов’язані з приходом зими. Розширити та узагальнити знання дітей про диких тварин, вміння виділяти й характеризувати особливості зовнішнього вигляду, способу їх життя.
54999. Рушаймо в подорож цікаву, рушаймо й пізнаваймо світ... Франція 41 KB
  На відміну від традиційного підходу до вивчення іноземних мов в межах окремої країни, сучасний вчитель має враховувати відношення України з іншими країнами світу та її спрямованість в європейську співдружність.
55000. ЦІКАВИМИ СТЕЖИНАМИ ПО КРАЇНІ МІЦНОГО ЗДОРОВ’Я 191.5 KB
  Мета: виховувати у дітей ціннісне ставлення до власного здоров’я та стимулювати бажання дбати про нього; сприяти усвідомленню учнями необхідності ведення здорового способу життя; нагадати корисні звички які допоможуть зміцнити здоров’я; прищеплювати інтерес до занять фізичною культурою і спортом.
55001. Загадкове Середньовіччя 49.5 KB
  Основні деталі одягу: лляна сорочка плащ поступово зявляються панчохи короткі штани Носили також рукавички спочатку як робочий одяг а згодом як предмет розкоші. Жіночий одяг: на початку середньовіччя жіночий одяг мав відрізнятись від чоловічого але з часом ситуація дещо змінилась.