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.

 

 


 

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

23735. Простые и составные числа 45 KB
  Формировать способность к рефлексивному анализу собственной деятельности: к фиксированию собственных затруднений по теме «Простые и составные числа», выявлению их причин и построению проекта выхода из затруднений...
23736. Алгоритмы разложения чисел на простые множители 40 KB
  Тренировать способность к практическому использованию алгоритма разложения чисел на простые множители; повторить и закрепить признаки делимости действия со смешанными числами решение задач на проценты составление геометрических фигур из частей.
23737. Разложение чисел на простые множители 44.5 KB
  Основная цель: – сформировать способность представления числа в виде произведения простых множителей; повторить и закрепить: понятие простого и составного числа признаки делимости. – Из получившегося ряда чисел назовите числа кратные 3. – Из получившегося ряда чисел назовите числа кратные 9. – Из получившегося ряда чисел назовите числа кратные 6.
23738. Язык и логика 84.5 KB
  2 а Подставим вместо переменных x и y их значения и найдём значение получившегося числового выражения по действиям. Если x = 15 y = 6 то 49  15 – 17  6 = 633 49  15 = 735; 17  6 = 102; 735 – 102 = 633 Сравним получившийся результат с число стоящим в правой части данного равенства. 633 = 533 Л б Подставим вместо переменных x и y их значения и найдём значение получившегося числового выражения по действиям. Подставим результат в исходное предложение вместо левой части 15 ≤ 3 Л 3 Надо найти такое число в разряде единиц...
23739. ОСТРЫЕ УГЛЫ МОЛОДЫХ СЕМЕЙ ИЛИ ШПАРГАЛКА ДЛЯ МОЛОДОЖЕНОВ 3.83 MB
  Книга Андрея Зберовского написана в традиционной для автора форме, где большая часть практических советов подана в увлекательной и живой форме, нередко с элементами юмора. Она адресована очень широкой читательской аудитории любых возрастных категорий, прежде всего – молодоженам!
23740. Степень числа 42 KB
  Сначала определяем значение степени а затем проходим произведение. – Найдите значение выражения: 5 23 – 362 81 : 32 . 3 1 2 4 9 7 5 6 8 12 11 10 5 23 – 362 81 : 32 = 5  2  2  2 – 36  5  2  2  2 – 36 81 : 3  3 – Проанализируйте каков порядок действий в нашем выражении Сначала находим значение степени в скобке затем значение произведения значение разности значение степени результата получившегося в скобках значение степени числа 3 значение...
23741. Степень числа 44 KB
  – При выполнении каких заданий мы можем получить произведение одинаковых множителей При разложении чисел на простые множители. – Что интересного вы можете сказать о полученном ряде чисел Все числа кратны 10. – Найдите НОК и НОД чисел а и b если: а = 23 3 52 b = 22 32 7. – Что необходимо сделать что бы выполнить задание Надо расписать степени чисел и применить известные алгоритмы – А можно ли выполнить задание не расписывая степени Этот вопрос может вызвать затруднение.
23742. Высказывания 228 KB
  – Назовите число из полученного ряда сумма цифр в котором равна 6. – Какое число данного ряда может быть лишним Например число 50 – двузначное а остальные – трехзначные. На сколько 150 больше 50 во сколько раз 150 больше 50 на сколько 50 меньше 150 – Придумайте числовые выражения частное в которых равно 3. – Найдите число которого равны 21.
23743. Взаимно простые числа 72.5 KB
  2 Тренировать способности к использованию: а понятий простого и составного числа; б признаков делимости на 2 5 10 3 9; в различных способов нахождения НОД; г алгоритмов объединения и пересечения множеств. На доске остаются числа: 375 164 2310 171. – Разложите получившиеся числа на простые множители.