Технология программирования

Дисциплина: Информатика, Программирование, Базы данных
Тип работы: Реферат
Бесплатно: Антиплагиат
Объем: 5 страниц
В избранное:

Казахский Экономический Университет

имени Турара Рыскулова

Курсовая работа

по предмету

«Технология программирования»

Тема: «Звезды»

Выполнил: Николенко Михаил,

108 группа, ИЭФ-05, «ИС в Э»

Алматы 2006

Содержание

Введение3

Задача3

Алгоритм решения задачи3

Инструкция пользователя4

Исходный код программы4

Блок-схемы6

Список литературы6

Введение

Тема курсовой работы называется «Звезды». С помощью интегрированной среды разработки Delphi версии 6. 0 я решил проблему автоматизации учета звезд эстрады. Программа является полностью готовой, рабочей и может без проблем работать на пользователя.

Задача

Автоматизировать процесс учета, при этом сохранить простоту и удобство управления процессом. В целом, программа должна хранить информацию, предоставить возможность просмотра и редактирования данных. Помимо этого нужно реализовать поиск по имени. Что собственно и было реализовано в моей курсовой работе, а также были добавлены некоторые дополнительные функции, которые будут описаны далее в разделе «Алгоритм решения задачи».

Алгоритм решения задачи

Программа написана на языке программирования Delphi версии 6. 0. При написании программы использовались лишь стандартные компоненты интегрированной среды разработки. Технологии и типы, которые получили реализации в проекте:

Borland Database Engine (BDE) - орган управления базами данных (в нашем случае мы используем БД Paradox версии 7. 0) .
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, Menus, DB, DBTables, ImgList - юниты, с помощью которых я получил доступ к процедурам и фукнциям работы с операционной системой, меню, базами данных, визуальными компонентами Delphi.
String, Integer, Boolean - типы данных, на которых основана данная программа. Соответственно строковый, целочисленный, логический типы.

При написании курсовой работы я обращался к использованию визуальных и не визуальных компонентов. Давайте, перечислим всех их:

TButton - обычная кнопка, нам нужно лишь ее событие onClick(для обработки) .
TCombobox - представляет собой TEdit с выпадающим вниз меню, элементы которого можно программировать.
TDBGrid - компоненты отображения таблиц базы данных в удобочитаемой форме, в виде сетки ячеек и столбцов.
TDBNavigator - набор соединенных вместе кнопок навигации по таблице БД. Действия: Назад, Вперед, Вставить, Удалить, Сохранить, Отменить и т. д. над ячейками и строками таблиц.
TDatasource - компонент управления потоком данных между базой данных и программой.
TTable - является виртуальной таблицей, копией физической таблицы, все операции над ней затем сохраняются в физической таблице.
TImage - список графических изображений.
TQuery - компоненты для реализации в своей программе SQL-запросов. В данном проекте только для реализации выборки из других таблиц БД.

БД создавалась с помощью SQL Explorer. Имя псевдонима - “mishel ”. Тип драйвера «STANDART».

После создания локальных БД, я приступил к написанию исходного кода будущей программы. Заострять особого внимания на данной стадии разработки мы не будем, а сразу перейдем к рассмотрению принципа работы продукта.

После запуска на экране форма с размещенными на ней визуальными компонентами работы с базами данных, кнопками запроса и компонентами для вывода изображения. Имена компонентов остались стандартными, т. е. не менялись с целью наглядного просмотра кода. Активной таблица делается с помощью установки свойства Active в значение true.

Поиск в программе реализован при помощи SQL запроса. Задавая определенные критерии в появившемся окне, мы можем без проблем отыскать интересующую нас информацию.

Добавление новых людей в базу осуществить можно двумя способами:

Нажав на панели на кнопку «Вставить» и вручную заполнить все поля.

Далее нажать «Готово», и программа сама заполнит и создаст за вас новую запись в БД.

Завершение работы программы осуществляется либо нажатием кнопки «крестик» в заголовке программы, либо выбором кнопки «EXIT.

Инструкция пользователя

В принципе программа предоставляет очень простой и понятный интерфейс, никаких загвоздок или непонятных пунктов там нет, так что считаю, что зацикливаться на данном разделе не стоит. Все кнопки подписаны.

Исходный код

unit UnitMishel;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids,

ImgList, jpeg, ShellCtrls, Outline, DirOutln, FileCtrl;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label4: TLabel;

DBNavigator1: TDBNavigator;

Table2: TTable;

DBGrid1: TDBGrid;

Button1: TButton;

Query1: TQuery;

Button2: TButton;

Button3: TButton;

DataSource3: TDataSource;

DBEdit5: TDBEdit;

Label5: TLabel;

Image1: TImage;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

DirectoryListBox1: TDirectoryListBox;

DriveComboBox1: TDriveComboBox;

procedure DBEdit5KeyPress(Sender: TObject; var Key: Char) ;

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn) ;

procedure Table1BeforeOpen(DataSet: TDataSet) ;

procedure Table1AfterScroll(DataSet: TDataSet) ;

procedure Button1Click(Sender: TObject) ;

procedure Button2Click(Sender: TObject) ;

procedure Button3Click(Sender: TObject) ;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

BmpPath: string;

implementation

{$R *. dfm}

procedure TForm1. Button1Click(Sender: TObject) ;

begin

form1. Close

end;

procedure TForm1. Button2Click(Sender: TObject) ;

var

nickname: ShortString;

begin

nickname:=InputBox('Sample of information from DB',

'Enter name of star and click on OK. ', '') ;

if nickname <> '' then

begin

with form1. Query1 do begin

Close;

SQL. Clear;

SQL. Add('SELECT * from stars where ') ;

SQL. Add('upper(Nickname) like "%' + UpperCase(nickname) + '%" ') ;

SQL. Add('ORDER BY Nickname') ;

Open;

end;

if Query1. RecordCount = 0 then

ShowMessage('In a database there is not record') ;

end;

image1. Picture. LoadFromFile('D:\000Student\STARS\DATA\' + DBEdit5. Text) ;

//Edit2. Text := DirectoryListBox1. Directory;

end;

procedure TForm1. Button3Click(Sender: TObject) ;

begin

Query1. Active := false;

Query1. SQL. Clear;

... продолжение

Вы можете абсолютно на бесплатной основе полностью просмотреть эту работу через наше приложение.

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

Активные серверные технологии и информационное образование: современные тенденции и перспективы

Структура Команды Разветвления в Алгоритмах и Языках Программирования

История развития компьютеров и языков программирования: от Минтегральных схем до языка C#

Структуры данных и динамическое распределение памяти в программировании на языке C++

Программное обеспечение и его роль в информационных технологиях

Структуры данных и типы в языке программирования C++. Обзор служебных слов, динамических структур данных и их приложений

Применение архитектуры ГО в разработке приложений с использованием Delphi

Методы описания алгоритмов: формы Flow, диаграммы Насси Шнейдермана, структурное программирование

Дисциплины

Информация

Дополнительно

Email: info@stud.kz