Размещено на http://www.allbest.ru/

Рис 1.1

2.3 Логическое проектирование ИС

База данных информационной системы содержит 3 таблицы в формате Paradox 7.

Таблица 2.1

Структура таблицы «Deti»

Таблица 2.2

Структура таблицы «Rod»

Таблица 2.3

Структура таблицы «Oplata»

Таблица 2.5

Типы данных в таблицах Paradox

Схема отношений и подстановок между таблицами БД представлена на рисунке.

2.4 Физическое проектирование ИС

Для создания структуры таблицы типа Paradox 7 необходимо запустить утилиту Database Desktop. Выбрать меню File>New Table, внести все поля будущей таблицы (рис. 2.7.), определить первичный ключ и вторичныиндекс

Сохраним таблицу и закроем ее.

Создадим остальные таблицы аналогичным образом.

В таблицах создадим вторичные ключи. В списке Table Propertis в правом верхнем углу окна, выбираем пункт Secondary Indexes и щелкаем на кнопке Define. В появившемся окне переносим поле таблицы в список индексируемых полей.

Для некоторых полей таблиц создадим подстановочные таблицы, используя пункт Table Lookup в списке Table propertis. Щелкнув на кнопке

Define, открывается окно, в котором выбираем поле, за значениями которого нужно следить, и нужная таблица подстановки.

Для каждой таблицы укажем языковой драйвер, выбрав в списке Table propertis пункт Table Language. Щелкнув на кнопке Define, открывается окно Table Language, в котором выбираем драйвер Pdox ANSI Cyrillic.

Открываем Borland Delphi. На главной форме изменяем свойства Caption = ”Расчет платы” и сохраняем проект.

Помещаем на форму две панели TPanel, в которых изменяем свойство Align = ”alBottom”. Помещаем вешку разбивки TSplitter (вкладка Additional), в ее свойство Align помещаем значение alBottom, в свойство Beveled - True и в свойство Height - 5. Помещаем еще одну панель и свойство Align = ”alClient”. Помещаем на верхнюю и среднюю панель по компоненту TDBGrid (вкладка Data Controls) и в их свойство Align - значение alClient

У нижней панели очищаем свойство Caption и помещаем TDBNavigator и кнопку TBitBtn. У кнопке свойство Kind = bkClose.

Создадим псевдоним базы данных. Выполним команды Database/Explorer. Запустится SQL Explorer. На узле DataBase выбираем команду New из контекстного меню. Создаем новый псевдоним и указываем

Закроем данное окно. Выберем команду File/New/Others и создадим новый Data Module. Нажмем на F11 и свяжем этот модуль с модулем главной формы. Добавляем на модуль TDatabase и связываем его с нашим созданной базой данных. Добавляем Ttable и TDataSourse для каждой таблицы, связываем их.

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

Настоящая курсовая работа предоставляет подробную инструкции, в которой изложены все моменты работы с базой данных.

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

Программа разработана в интегрирированной среде Borland Delphi.

В свое время весьма популярной версией языка Pascal был Turbo Pascal, разработанный компанией Borland. С развитием операционной системы Windows и технологий объектно-ориентированного программирования компания Borland естественным образом расширила Turbo Pascal, создав версии Turbo Pascal for Windows и Object Pascal for Windows. Следующим шагом компании Borland было создание Delphi - визуальной среды разработки программ на Object Pascal под управлением операционной системы Windows. Главное назначение Delphi - быстрая разработка приложений Windows.

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

1. Архангельский А. Я. Программирование в Delphi для Windows. Версии 2006, 2007, Turbo Delphi/ А.Я. Архангельский. М: Бином-Пресс. 2007.

2. Грибачев К. Delphi и Model Driven Architecture. Разработка приложений баз данных/ К. Грибачев. СПб: Питер. 2004.

3. Елманова Е. Delphi и технология COM/ Е. Елманова, С. Трепалин, А. Тенцер. СПб: Питер. 2003.

4. Осипов Д. Delphi. Профессиональное программирование/ Д. Осипов. М: Символ-Плюс. 2006.

5. Фаронов В.В. Программирование баз данных в Delphi 7/ В.В. Фаронов. СПб: Питер. 2006.

6. Фленов М. Библия Delphi/ М.Фленов. СПб: БХВ-Петербург. 2011.

7. Программный центр «Помощь образованию». Учебный учет. Режим доступа: http://pbprog.ru/products/programs.php?ELEMENT_ID=411.

8. Программный портал «Business Explorer» - Institute. Режим доступа: http://www.bse.uz/index.php?id=38.

9. Учебный центр «Интерфейс» - Статьи. Режим доступа: http://www.interface.ru/home.asp?artId=2147.

Приложение 1

Руководство пользователя.

При запуске программы «Оплата в детском саду» на экране появляется главная форма, содержащая таблицы «Дети», «Оплата» и группа компонентов для добавления детей.(рис1).

Рис. 1 Главная форма программы «Оплата в детском саду»

При нажатии на кнопку «Информация о ребенке» или нажатие двойным кликом появится окно редактирования данных о ребенке, которая включает в себя ФИО родителей, адрес и телефон, информация о воспитателях Рис.2.

Рис. 2 Окно редактирования данных о ребенке

При нажатии на кнопке «Печать» появляется окно предпросмотра печати. Рис.3.

Рис. 3 Окно предпросмотра печати

Для закрытия программы необходимо нажать на кнопку «Закрыть» Рис.1.

Приложение 2

Листинг исходного кода

unit Unit1;

interface

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Menus, Buttons;

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Splitter1: TSplitter;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form3.Show

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDataModule2 = class(TDataModule)

Database1: TDatabase;

Table1: TTable;

Table1Kod: TAutoIncField;

Table1FIO: TStringField;

Table1Vozrast: TFloatField;

Table1Gruppa: TStringField;

Table1Summa_plat: TFloatField;

Table2: TTable;

Table2Mes: TStringField;

Table2PropDni: TFloatField;

Table2SummaOplata: TFloatField;

Table2Oplata: TBooleanField;

Table3: TTable;

Table3Kod_det: TIntegerField;

Table3FIO_rod: TStringField;

Table3Adres: TStringField;

Table3Telef: TStringField;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Table2Kod: TAutoIncField;

Table3Kod: TAutoIncField;

Table2Summa_oplati: TCurrencyField;

Table2Kod_det: TIntegerField;

procedure Table2CalcFields(DataSet: TDataSet);

private

{ Private declarations }

{ Public declarations }

DataModule2: TDataModule2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TDataModule2.Table2CalcFields(DataSet: TDataSet);

begin

Table2Summa_oplati.Value:=(30-Table2PropDni.Value)*(Table1Summa_plat.Value/30);

end;

end.

unit Unit3;

interface

uses

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

Dialogs, Grids, DBGrids;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

{ Private declarations }

{ Public declarations }

Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

end.