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.

 

 


 

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

457. Расчет производственной программы по эксплуатации подвижного состава. 394.5 KB
  Расчет производственной программы по грузовым перевозкам на год. Среднесписочное количество автомобилей. Технико-эксплуатационные и суточные показатели работы 1 автомобиля. Расчет производственной программы по пассажирским перевозкам на год.
458. Основы политологии 551 KB
  История развития политологии. Проблемы межнациональных отношений современного общества. Политика как общественное явление. Проблемы внутренней политики России на современном этапе.
459. Системы оплаты труда в рыночной конкурентной экономике 488.5 KB
  Системы оплаты труда в рыночных условиях. Государственное и договорное регулирование оплаты труда. Выбор продукции и анализ ее конкурентоспособности. Формирование методов направленных на повышение эффективности деятельности предприятия и оценка предложенных хозяйственных решений. Оценка эффективности и отбор для реализации вариантов хозяйственной деятельности.
460. Мастерская по ремонту тракторов города Тюмень 668 KB
  Потребность в механизмах, инвентаре, материалах, рабочих по профессиям и квалификации. Выбор методов и способов производства работ с их обоснованием. Расчет численности работающих и определение площадей административно-бытовых помещений. Обеспечение качества СМР, техники безопасности.
461. Теорія грошей, грошові та кредитні системи 615 KB
  Сутність та економічна основа грошового обороту. Методи державного регулювання грошового обороту. Сутність і закономірності розвитку інфляції. Грошові потоки та їх балансування. Кон'юнктурна теорія цінності грошей. Внесок Дж.Кейнса і М.Фрідмана у розвиток теорії грошей.
462. Небесные тела в астрофизике 636 KB
  Электромагнитное излучение, исследуемое в астрофизике. Фотоэлектрические приемники излучения. Физические свойства Планет земной группы и планет гигантов. Распределение звезд в Галактике. История развития космонавтики.
463. Інформаційні системи і технології 570 KB
  Визначення інформаційної системи, структура, принципи створення. Класифікація інформаційних систем за ступенем структурованості. Економічна інформація як об'єкт обробки в інформаційних системах. Форми представлення економічної інформації, носії і засоби її передачі. Ієрархічний та фасетний метод класифікації.
464. Мікроконтроллери 3x3x3 LED куб 643.5 KB
  3x3x3 LED куб це фігура яка складаються з 27 світлодіодів, яку використовують переважно для дизайну інтер'єру. Різні сфери використання 3x3x3 LED куба. Розробка програмного і технологічного продукту, створення мікросхеми та розробка програми.
465. Построение современных систем автоматизации теплоэнергетического оборудования на базе свободно-программируемых контроллеров (ПЛК) 565 KB
  Структура подсистем автоматизации отопительного котла. Котлоагрегат как объект регулирования. Задачи контура регулирования разрежения в топке котла. Разработка программы оценки экономии электроэнергии при внедрении ЧРП. Расчет эксплуатационных затрат на автоматизацию.