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.

 

 


 

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

39734. Жизненный цикл товара 16.75 KB
  Характерным является небольшой рост объёмов продаж и соответственно прибыль минимальна или её вообще нет. Период быстрого роста объёма продаж если товар принят рынком и спрос на него растёт. Прибыль также возрастает по мере увеличения объёма продаж. Объемы продаж значительны но дальнейшего роста продаж не наблюдается.
39735. Ценообразующие факторы 16.94 KB
  Все многообразие ценообразующих факторов как показывает экономическая практика можно разделить на три группы: базовые неконъюнктурные; конъюнктурные; регулирующие связанные с государственной политикой. Действие этой группы факторов различно на рынках разных типов. Так в условиях товарного рынка неконъюнктурные факторы считаются внутрипроизводственными затратными стоимостными поскольку движение цен под воздействием лишь этих факторов однонаправлено с движением затрат. Действие конъюнктурных факторов объясняется изменчивостью...
39737. Возникновение и сущность маркетинга, сбытовой и маркетинговой подходы к деятельности фирмы, цели маркетинга 167.5 KB
  Возникновение и сущность маркетинга сбытовой и маркетинговой подходы к деятельности фирмы цели маркетинга. Становление маркетинга как основы экономического поведения фирмы следует отнести к периоду последующему за великой депрессией охватившей Запад в 19291933 годах . Основными понятиями сферы маркетинга являются следующие: нужды потребности запросы товар обмен сделка и рынок. Введение в практику предпринимательства концепции маркетинга позволяют решить целый комплекс вопросов: 1.
39738. Маркетинг. Общие понятия маркетинга 872 KB
  Спрос – это совокупный запрос группы потребителей. Предвидеть прогнозировать спрос можно только постоянно изучая потребителей так чтобы разрабатывать и предлагать именно то что они хотят и в чем нуждаются. Стимулировать значит вызывать у потребителей стремление к тому что предлагает фирма привлекательно оформляя продукт интенсивно его рекламируя и так далее. Маркетинговая деятельность может быть направлена как на потребителей так и на население в целом.
39739. Воплощение черт неомифологизма в произведении Дюрренматта «Минотавр» 30.39 KB
  Вступление Сегодня мы с вами познакомимся с необыкновенным произведением Дюрренматта драматической балладой Минотавр об одиночестве главного героя а именно Минотавра и попробуем найти черты неомифологизма в этом произведении. Наша тема Воплощение черт неомифологизма в произведении Дюрренматта Минотавр . Дюрренматта.
39740. Воплощение черт неомифологизма в произведении Дюрренматта 25.53 KB
  Дюрренматт классик швейцарской литературы.Идейнохудожественный анализ произведения Дюрренматта Минотавр: жанровые особенности; образ дюрренматтовского Минотавра в сопоставлении с древнегреческим Минотавром; черты неомифологического сознания в произведении. Работа по теме урока Сегодня мы с вами проанализируем замечательное произведение швейцарского классика Дюрренматта Минотавр и попробуем проследить неомифологические черты в данном произведении.
39741. Метод (метод исследования) 35.5 KB
  В общей психологии – это один из основных эмпирических методов психологического исследования состоящий в преднамеренном целенаправленном систематическом восприятии психических явлений с целью изучения их специфических изменений в определенных условиях. Метод занимает промежуточное положение между методом простого объективного наблюдения и методом лабораторного эксперимента. Создан Лазурским с целью избежать недостатков методов наблюдения и эксперимента и соединить их достоинства; формирующий эксперимент ход которого направлен на...