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.

 

 


 

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

52492. Связь украинцев с украинской диаспорой за рубежом 132 KB
  Ход урока Учитель: Ldies nd gentlemen I m very gld to see you t our conference devoted to the meeting with the members of Ukrinin Dispor in the other countries. Учитель: Let me introduce you member of Ukrinin Dispor from London Mry Brown. I m techer of Ukrinin History t school. Ukrinin ssocition in London is situted in 154 Hollnd Prk venue.
52493. Використання дидактичного матеріалу на уроках світової літератури в 5 класі 405 KB
  Індійське Казки Існують різні класифікації видів казок. Він поділяв казки на чарівні казки про тварин та побутові. Народні казки казки побутові чарівні про тварин або фантастичні Завдання до теми Назви фантастичних героїв та чарівні предмети що зустрічаються у вірші К. ФЕЙНЫЕ СКАЗКИ У чудищ Я был в избушке на курьих...
52494. Дидактические игры для уроков с элементами обществознания 206.5 KB
  Другой вариант игры работа с печатным текстом. Так например на уроке по теме Походы Батыя на Русь учитель формулирует правила игры перед самостоятельным прочтением учащимися первого пункта Взятие Киева по учебнику Д. Вот один из возможных вариантов победителя игры: 1.
52495. Дидактические игры при обучении химии 429.41 KB
  Влияние дидактической игры на эффективность обучения Алгоритм разработки и проведения дидактических игр. Дидактические игры на уроках химии. В ходе игры учащиеся приобретая новые знания и умения расширяют свой кругозор.
52499. Як без зусилля запамятати неправильні дієслова 32 KB
  Кошка мышке telltoldtold: Дам тебе свой бутерброд. Мама Ване telltoldtold Ужинать не позовет. Наводжу приклади учнівських віршиків: Мама Коле telltoldtold: От конфет болит животâ€.
52500. Ефективність навчання 116.5 KB
  Працюючи в школі я впевнилась що особистіснорозвивальна спрямованість освіти реалізація якої є головним завданням сучасної школи неможлива без диференційованого навчання. Головне завдання вчителів початкової ланки не забути жодної дитини дати можливість розкрити все краще закладене природою сімєю школою.Сухомлинський: До кожного учня треба підійти побачити його труднощі кожному дати тільки для нього призначене завдання. Враховуючи те що рівень готовності учнів до навчальної діяльності різний необхідно...