close

Вход

Забыли?

вход по аккаунту

?

Курсовая (8)

код для вставкиСкачать
СОДЕРЖАНИЕ
ВВЕДЕНИЕ5
1 ТРЕБОВАНИЕ К СИСТЕМЕ6
1.1 Общие сведения предметной области6
1.2 Функции программного изделия8
2 РАЗРАБОТКА ПРОГРАММНОГО ПРОДУКТА10
2.1 Разработка базы данных10
2.2 Организация подключения Базы Данных к Delphi15
3 РАЗРАБОТКА ПОЛЬЗОВАТЕЛЬСКИХ ФОРМ17
4 ОПИСАНИЕ ГОТОВОГО ПРОГРАММНОГО ПРОДУКТА21
ЗАКЛЮЧЕНИЕ22
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ23
ПРИЛОЖЕНИЕ 1 - Лист программного кода24
ВВЕДЕНИЕ
DVD (англ. Digital Versatile Dics - цифровой многоцелевой диск; также англ. Digital Video Disk - цифровой видеодиск) - носитель информации, выполненный в форме диска, имеющего такие же размеры, как и компакт-диск, но более плотную структуру рабочей поверхности, что позволяет хранить и считывать больший объем информации за счёт использования лазера меньшей длиной волны и линзы с большей числовой апертурой. Первые диски и проигрыватели появились в ноябре 1996 года в Японии, и в марте 1997 года в США и СНГ.
Для считывания и записи DVD используется красный лазер с длиной волны 650 нм. Шаг дорожки - 0,74 мкм, это более чем в два раза меньше, чем у компакт-диска. Записанный DVD, как и компакт-диск - пример дифракционной решётки с периодом, равным шагу дорожки.
Для воспроизведения DVD с видео необходим DVD-оптический привод и декодер MPEG-2 (то есть либо бытовой DVD-проигрыватель с аппаратным декодером, либо компьютерный DVD-привод и программный проигрыватель с установленным декодером). Фильмы на DVD сжаты с использованием алгоритма MPEG-2 для видео и различных (часто многоканальных) форматов для звука. Битрейт сжатого видео варьируется от 2000 до 9800 Кбит/сек, часто бывает переменным (VBR). Размер видео кадра для стандарта PAL равен 720x576 точек, а для стандарта NTSC - 720x480 точек. Емкости DVD-дисков различные. От 1,4 Гб (односторонний, однослойный 8см miniDVD) до 9,4 Гб (двухсторонний однослойный). Также бывают DVD-диски и с 17.08 Гб (двухсторонний двухслойный - редкость). 1 ТРЕБОВАНИЕ К СИСТЕМЕ
1.1 Общие сведения предметной области
Создание базы данных "Прокат DVD-дисков" продиктовано сложностью и трудоёмкостью решаемой задачи в нынешнем неавтоматизированном варианте. Учёт "Прокат DVD-дисков" - Кисловодский "Прокат DVD" требует достаточно большого объёма информации для осуществления деятельности. Это информация о фильмах, предоставляемых в прокате. Информация о дисках, находящихся на складе, должна быть в удобном и доступном виде для работников предприятия "Прокат DVD".
В этой автоматизированной системе реализуется просмотр, учет и контроль данных о дисках и покупателях, где можно добавлять, корректировать и удалять информацию о них. Также в этой автоматизированной системе можно выводить нужные данные в отчет и тут же отправлять их на печать. Учитывая возможности ПК, в созданной программе можно будет улучшить (ускорить работу и сократить до минимума затраты рабочего времени работников при ручной обработке входной информации, а так же при подготовке отчетности) существующую систему работы.
Разработанная система позволит наиболее полно использовать ресурсы персональных компьютеров, где ПК используются в основном для набора и печати документов посредством текстовых редакторов или табличных процессоров.
Разрабатываемое программное изделие "Прокат DVD-дисков" предназначен для использования его в интересах города-курорта Кисловодска. Программный продукт предназначен для учета и контроля дисков и цен на услуги. При этом в программный продукт можно вносить дополнения, так как он имеет существует важная необходимость структуризации накопляемых сведений и подготовки отчетности для руководящего состава модульную структуру и гибкие возможности средства разработки приложений Borland Delphi 7. Главным в этом программном изделие, конечно, будут сведения предоставляющие информацию о наличии фильмов. Кроме перечисленных руководящего состава. Всей этой деятельностью, занимается отдел в этом программном изделие, конечно, будут сведения предоставляющие информацию о бухгалтерии, в обязанности которого моментов работы программного изделия существует важная необходимость структуризации накопляемых сведений и подготовки отчетности для руководящего состава. Всей этой деятельностью, занимается отдел в этом программном изделие, конечно, будут сведения предоставляющие информацию о бухгалтерии, в обязанности которого входит учет, контроль и обработка получаемой информации об мойках, а также оформление и передачи всех необходимых отчетов. Вся эта деятельность требует больших затрат времени и сил.
1.2 Функции программного изделия
Основной функцией базы данных "Прокат DVD-дисков" - это вспомогательная роль в работе предприятия по ведению учета дисков и цен.
Данная программа основана на ведении следующих сведений, которые можно сгруппировать по следующим направлениям:
* информация о количестве дисков на складе;
* сведения о дисках, данных в прокат;
* сведения о затрате на расходы;
* сведения о закупках дисков и т. п.
Все эти данные будут постоянно накапливаться в системе. При этом следует предусмотреть:
* удобство их ввода; * надежность хранения;
* удобство обработки.
* удобство заполнения
* своевременное обновление
* надежное кодирование
* удобство составления отчетов
* понимание системы людьми, не имеющими должного образования
* возможность добавления комментариев
Под удобством обработки подразумевается возможность их просмотра, редактирования, генерации промежуточных данных и вывод отчетов на печать, красивый стиль программирования.
Для удобства, обеспечения сохранности и доступа к данным наиболее удобным является применение RAD-системы Borland Delphi 7. Где можно было бы создать все необходимые таблицы для хранения данных.
Созданный программный продукт должен обладать интуитивно понятным интерфейсом, который может быть освоен по ходу работы без отрыва от производственного процесса. При разработке управляющих элементов данного программного продукта должны быть использованы стандартные Windows-компоненты, а именно: Application Programming Interface, Borland Database Engine (BDE), обеспечивающие наиболее быструю работу и подготовку персонала для работы с данной автоматизированной системой. Для удобства, обеспечения сохранности и доступа к данным наиболее удобным интерфейсом, который может быть освоен по ходу работы без отрыва от производственного процесса. При разработке управляющих элементов данного программного продукта должны быть использованы стандартные Windows-компоненты, а именно является применение, программный продукт должен обладать интуитивно понятным интерфейсом, который может быть освоен по ходу работы без отрыва от производственного процесса. Где можно было бы создать все необходимые таблицы для хранения данных.
Созданный программный продукт должен обладать интуитивно понятным интерфейсом, который может быть освоен по ходу работы без отрыва от производственного процесса.
Над удобством обработки подразумевается возможность их просмотра, редактирования, генерации промежуточных данных и вывод отчетов на печать.
2 РАЗРАБОТКА ПРОГРАММНОГО ПРОДУКТА
2.1 Разработка базы данных
Когда выбраны все интересующие стороны проекта, СУБД и среды программирования, необходимо приступать к разработке базы данных (БД), где будут храниться необходимые данные для следующего этапа проектирования. Для этого в БД проектируются нужные таблицы, такие как:
* "Диски";
* "Покупатели";
* "Прокат";
Имеющиеся таблицы были созданы с помощью Database Desktop.
Таблица "Диски" имеет все необходимые данные о дисках в наличии и на складе, о жанре и годе выхода фильма., Включает: Жанр, Название, Количество, Год выпуска, Цена. Также в этой таблице находится ключевое поле в поле "id_диска", по которому эта таблица индексируется для ускорения навигации по набору данных, а связывается по полю "id_диска" с другой таблицей (представлено в модели данных (рисунок 4))
Внешний вид главной формы для заполнения таблицы представлен на рисунке 1. Рис.1 - Таблица "Прокат"
Все поля, которые были использованы в таблице "Прокат" приведены в таблице 1.
Таблица 1 - Таблица "Прокат"
Имя поляТип данныхId_покупателяСчётчикФИО_покупателяТекстовыйДатаДата/времяКонтактный_телефонЧисловой В таблице "Покупатели" содержатся данные о наименование имеющихся клиентах в городе и за его пределами. В этой таблице имеется ключевое поле, по которому осуществляется связь с таблицей "Диски" в схеме данных (см. модель данных (рисунок 4)). Данная таблица представлена следующим образом на рисунке 2
Рис. 2 - Таблица "Покупатели"
Поля данной таблицы "Покупатели" представлены в следующем виде в таблице 2.
Таблица 2 - Таблица "Покупатели"
Имя поляТип данныхid_покупателяСчётчикФИОТекстовыйДатаДата/времяКонтактный_телЧисловой
Рис. 3 - Таблица "Диски"
Поля данной таблицы "Диски" представлены в следующем виде в таблице 4.
Таблица 4 - Таблица "Диски"
Id_дискаСчетчикЖанрТекстовыйНазваниеТекстовыйКоличество_дисковЧисловойГод выпускаЧисловойЦенаДенежный Связи всех имеющихся таблиц, в схеме данных (инфологическая модель данных), образованы типом связи один-ко-многим и представлены на рисунке 4
Рис. 4 - Схема связи таблиц
2.2 Организация подключения Базы Данных к delphi
Когда разработка БД была прекращена, необходимо было создать подключение к среде программирования Delphi 7. Для создания подключения необходима было связать БД с источником данных. Для этого был создан необходимый для этой работы проект с необходимыми компонентами, где на него были выставлены нужные компоненты с вкладки BDE: Table (набор данных для связи с физическими таблицами). С вкладки DataAccess был выставлен такой необходимый компонент как DataSourse. C помощью бесплатной утилиты BDE Administrator была установлена связь с БД посредством создания псевдонима и указания пути для него. После подключения к БД, расположенной по адресу С:\DPR\DATABASE\DB4, были добавлены все необходимые экземпляры компонента Table, и все присущие ему элементы ранее отсутсвующие в нашей базе подключенной к Delphi которые были подключены (по средствам утилиты BDE Administrator) к файлу БД, а в свойстве TableName каждого была указана соответствующая таблица. Для создания подключения необходима было связать БД с источником данных. Для этого был создан необходимый для этой работы проект с необходимыми компонентами этого был, создан необходимый для этой работы проект с необходимыми компонентами, где на него были выставлены нужные компоненты с вкладки. Для визуализации данных был взят к каждой таблицы компонент DataSourse. Готовая Форма1 с показанием всех компонентов видимых и скрытых.
Рис.5 - Форма 1
На форме представлены компоненты:
* "TableMenu"
* "Panel"
* "DbGrid"
* "TADOConnection"
* "DataSourse"
* "TADOTable"
* "TTABControl"
* "TButton"
3. РАЗРАБОТКА ПОЛЬЗОВАТЕЛЬСКИХ ФОРМ
После завершения создания модуля данных были созданы необходимые формы для работы с данными. Это приложение имеет много форменную структуру, где для каждой определенной задачи создается отдельная форма.
При разработке каждая форма была подключена к компоненту DataBase через НД Table. Это позволило работать с каждой таблицей прямо из формы. На каждой форме установлены компоненты необходимые для работы с формами, такие как:
* "DBGrid";
* "DBNavigator";
* "Button";
* "Panel 1,2,3,4";
* "TabControl";
* "RvProect"
Так компонент DataSourse был использован для связи таблиц с такими компонентами визуализации данных как: DBGrid и DBNavigator, которые были помещены на форму. Для того, чтобы отобразить данные таблицы в DBGrid, необходимо в его свойстве "DataSourse" было указать cоответствующую нужной таблицы в компоненте DataSourse, предварительно вызвав команду File > Use Unit. Аналогично выбирается свойство "DataSourse" и для DBNavigator, чтобы обеспечить удобное перемещение по данным таблиц, а также изменять или добавлять нужные данные.[7]
После всех преобразований главная форма выглядит, как показано на рисунке 7.
Рис. 6 - Главная форма
На главную форму, кроме того, для отображения отчёта в форму добавлено два компонента:
RvDataSetConnection1: T RvDataSetConnection1 - для установки связи будущего отчёта, который был создан далее, с таблицей Table1. Для этого в свойство DataSet установлено значение "Table1".
RvProject1 - для указания файла отчёта, который создан с помощью дизайнера отчётов Rave Designer.
На главной форме располагается главное меню, состоящее из следующего набора пунктов:
* "Прокат"
* "Покупатели"
* "Диски"
Где пункт "Прокат" позволяет выбрать "id_покупателя" и "фильм" остальные пункты подставляются автоматически. Панель "DbGrid", является вспомогательной формой, которая позволяет занести дополнительные сведения для последующего выбора их из списка на главной форме. Пример работы в этой форме показан на рисунке 7.
Рис.7 - Форма "Заполнение справочника "Фамилия""
В нашей программе существует форма вывода чеков с возможностью автоматической печати, просмотра готового чека или сохранения его на виртуальный носитель.
Общий вид чека будет представлен на рисунке 8, его внешний вид можно изменять по желанию начальства с добавлением идентификационных знаков и фирменных печатей.
Рисунок 9 - Кассовый чек.
3. ОПИСАНИЕ ГОТОВОГО ПРОГРАММНОГО ПРОДУКТА
Результатом разработки явился готовый программный продукт, способный производить учет и контроль над посещаемостью автомойки с возможностью подробной отчетности. Разработано многооконное приложение, обеспечивающее выполнение всех основных задач по ведению базы данных "Прокат DVD-дисков"
Приложение состоит из двух папок:
* файл БД "Прокат DVD-дисков". Для обеспечения сохранения всех данных, фигурирующих в системе;
* папка с оболочкой и необходимыми исходниками "Delphi" для последующей модернизации и изменений. Там содержится исполняемый файл "Project1.exe", "RvProect1.rav" обеспечивающий управление всеми данными в указанной базе.
В этой автоматизированной системе реализуется просмотр, учет и контроль данных о дисках и ценах, где можно добавлять, корректировать и удалять информацию о них. Также в этой автоматизированной системе можно выводить нужные данные в отчет и тут же отправлять их на печать.
Разработано многооконное приложение, обеспечивающее выполнение всех основных задач по ведению базы данных "Прокат DVD-дисков"
Очень важно и то, что даже неопытный пользователь несколькими нажатиями кнопки мыши может воспользоваться нужными функциями: заполнения данными о прокате дисков каждый день или на любой промежуток времени, коррекцию этих сведений, а также выводить все необходимые данные на печать.
ЗАКЛЮЧЕНИЕ
Разработка данного проекта позволила производить учет и контроль над посещаемостью проката DVD-дисков с возможностью подробной отчетности, существенно облегчив работу по ведению документации по учету и контролю проката DVD-дисков на территории г. Кисловодска и за его пределами. Программный продукт позволяет существенно сократить рабочее время на обработку входной и выходной информации, а главное на ее анализ. Очень важным моментом является автоматизация генерации отчетов. Так как все данные хранятся в БД, будет достаточно просто сформировывать дополнительные отчеты на базе хранимых сведений.
Очень важно и то, что даже неопытный пользователь несколькими нажатиями кнопки мыши может воспользоваться нужными функциями: заполнения данными о помытии машин на каждый день или на любой промежуток времени, коррекцию этих сведений, а также выводить все необходимые данные на печать.
Автоматизация перечисленных действий делает работу операторов наиболее эффективной и экономически выгодной.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1 Фаронов В. В. "Программирование баз данных в Delphi 7. Учебный курс". - СПб.: Питер, 2005 - 459 с.
2 В. Понамарёв "Базы данных в Delphi 7. Самоучитель" - СПб.: Питер, 2003. - 224 с.
3 Бобровский С. И. "Delphi 7. Учебный курс" - СПб.: Питер, 2005, 736 с.: ил.
4 Хомоненко А. Д. и др. "Delphi 7. Наиболее полное руководство". - СПб.: БХВ-Петербург, 2005. - 1216 с.: ил.
5 Культин. А.Б "Самоучитель Delphi" Под издательством: КомПроф. 2001г. - 176с.
6 Фленов М.В "Библия Делфи" Издт:. ПрофУс. 2000г. 256стр.
ПРИЛОЖЕНИЕ 1 - Лист программного кода
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, DBCtrls, Grids, DBGrids, ComCtrls, Menus, ExtCtrls,
StdCtrls, RpDefine, RpRave;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
MainMenu1: TMainMenu;
N1: TMenuItem;
TabControl1: TTabControl;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
ADOTable1AutoIncField: TAutoIncField;
ADOTable1IntegerField: TIntegerField;
ADOTable1IntegerField2: TIntegerField;
ADOTable1IntegerField3: TIntegerField;
ADOTable1Field: TStringField;
ADOTable1Field2: TStringField;
ADOTable2AutoIncField: TAutoIncField;
ADOTable2WideStringField: TWideStringField;
ADOTable2WideStringField2: TWideStringField;
ADOTable2WideStringField3: TWideStringField;
ADOTable2IntegerField: TIntegerField;
ADOTable3AutoIncField: TAutoIncField;
ADOTable3WideStringField: TWideStringField;
ADOTable3BCDField: TBCDField;
ADOTable4AutoIncField: TAutoIncField;
ADOTable4WideStringField: TWideStringField;
ADOTable4IntegerField: TIntegerField;
ADOTable4IntegerField2: TIntegerField;
ADOTable1DateTimeField: TDateTimeField;
Label1: TLabel;
RvProject1: TRvProject;
Otchet: TButton;
ADOTable1Field3: TStringField;
ADOTable1Field4: TIntegerField;
procedure TabControl1Change(Sender: TObject);
procedure ADOTable1IntegerFieldChange(Sender: TField);
procedure FormCreate(Sender: TObject);
procedure OtchetClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{Проц - - - - - }
procedure TForm1.ADOTable1IntegerFieldChange(Sender: TField);
{Включение Нашей Базы}
begin
ADOTable1.Edit;
ADOTable1DateTimeField.AsDateTime:=Date;
ADOTable1.Post;
end;
procedure TForm1.FormCreate(Sender: TObject);
{Указываем место расположение БД по отношение к основной программе}
begin
ADOConnection1.Provider:= 'Microsoft.Jet.OLEDB.4.0';
ADOConnection1.ConnectionString:= GetCurrentDir+'\База данных1.mdb';// комент
ADOConnection1.Connected:=true;
ADOTable1.Active:=true;
end;
procedure TForm1.TabControl1Change(Sender: TObject);
{Подключение автоматического меню для выбора таблиц}
begin
case TabControl1.TabIndex of
0:
begin
DBGrid1.DataSource := DataSource1;
DBNavigator1.DataSource := DataSource1;\\ Соединение ADOTable1.Active:=true;
end;
1:
begin
DBGrid1.DataSource := DataSource2;
DBNavigator1.DataSource := DataSource2;
ADOTable2.Active:=true;
end;
2:
begin
DBGrid1.DataSource := DataSource3;
DBNavigator1.DataSource := DataSource3;
ADOTable3.Active:=true;
end;
3:
begin
DBGrid1.DataSource := DataSource4;
DBNavigator1.DataSource := DataSource4;
ADOTable4.Active:=true;
end;
end;
end;
procedure TForm1.OtchetClick(Sender: TObject);
{Установление вывода отчета на кнопку}
begin
RvProject1.Open;
RvProject1.SelectReport('Report1',false);
RvProject1.SetParam('Usluga',ADOTable1Field.AsString);
RvProject1.SetParam('Moika',ADOTable1Field3.AsString);
RvProject1.SetParam('Cena',ADOTable1Field4.AsString);
RvProject1.Execute;
RvProject1.Close;
end;
end.
5
4
Документ
Категория
Рефераты
Просмотров
103
Размер файла
788 Кб
Теги
курсовая
1/--страниц
Пожаловаться на содержимое документа