Проектирование базы данных

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

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

При проектировании реальных баз данных информацию обычно размещают в нескольких таблицах. Таблицы при этом связаны семантикой информации. Основными конструктивными элементами инфологических моделей являются сущности, связи между ними и их свойства (атрибуты). Цель инфологического моделирования — обеспечение наиболее естественных для человека способов сбора и представления той информации, которую предполагается хранить в создаваемой базе данных. Поэтому инфологическую модель данных пытаются строить по аналогии с естественным языком (последний не может быть использован в чистом виде из-за сложности компьютерной обработки текстов и неоднозначности любого естественного языка).

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

Все сущности проекта и их атрибуты представлены в таблице 2.1.

Таблица 2.1

Атрибуты сущностей.

При анализе предметной области между таблицами были выявлены и установлены связи вида один-ко-многим (1:М), т. е. одной записи основной таблицы соответствует несколько записей вспомогательной таблицы.

Рассмотрим существующие связи данного проекта. При обращении клиента в фирму, с ним заключается договор. Один договор можно заключить только для одного клиента и только на один вид проводимых работ, но один клиент может заключать несколько договоров либо в разное время, либо на проведение разных работ, из этого и вытекает связь вида 1: М".

Сущность «Оформление нарядов работ» связана связями 1: М с сущностями «Клиенты», «Тип работ», «Сотрудники». Так, например, наряд оформляется только для одного вида работ, и только по одному клиенту, но по каждому виду работ может быть оформлено множество нарядов.

Сущность «Оформление нарядов работ» позволяет следить за графиком проведения работ, так как каждый сотрудник может обслуживать нескольких клиентов, также как и каждый клиент может иметь несколько, обслуживающих его сотрудников.

Сущность «Сотрудники» связана связями вида 1: М с сущностями «Штат» и «Оформление нарядов работ». Это объясняется тем, что в проектируемой информационной системе ведется учет сотрудников, учет рабочего времени, а также рассчитывается заработная плата, а один сотрудник может работать на основной работе и быть внутренним совместителем.

Для полной формализации экономической информации недостаточно простой классификации, поэтому проводят следующую процедуру — кодирование.

При кодировании информации в информационной системе в таблицах было использовано порядковое и регистрационное кодирование.

При порядковом кодировании записи автоматически присваивался код, соответствующий ее порядковому номеру. Такое кодирование применялось в таблицах: «Клиенты», «Сотрудники», «Штат», «Тип работ», «Тип дополнительных материалов».

Информация в основных таблицах «Оформление наряда» и «Дополнительные материалы» группировалась с использованием разрядной системы кодирования, т. е. классификационные группировки по младшим признакам кодируются в зависимости от кода группировки, образованной по старшему признаку. Особенностью такого кодирования является независимость от применяемых систем классификации. Тип алфавита всех кодов — цифровой. Код состоит из нескольких цифр.

Структура кода: первая цифра кода показывает, к какому типу работ и типу материалов относится наряд и дополнительный материал соответственно. Остальные цифры кода — представляют порядковый номер записи.

Характеристика внутренней информации Внутренними информационными объектами фирмы являются распорядительные документы, которые издает руководство фирмы: приказы, распоряжения, указания. Основное назначение этих документов — регулирование удобного доступа ко всем основным компонентам программы. Через главную форму можно получить доступ к следующим формам: «О продукции», «Оказываемые услуги», «Справочники», «Справка».

Рисунохк 2.1 — Внешний вид главной кнопочной формы.

«Справочники» позволяют получить доступ к таблицам, содержащих информацию об окнах, дополнительных материалах, сотрудниках, клиентах, оформленных договорах.

Фрагмент программного кода данного модуля.

unit MainForm;

interface.

uses.

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

Dialogs, Buttons, StdCtrls, ExtCtrls, ComCtrls, OleCtrls, SHDocVw;

type.

TForm1 = class (TForm).

Image4: TImage;

SpeedButton4: TSpeedButton;

SpeedButton1: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

Timer1: TTimer;

StatusBar1: TStatusBar;

SpeedButton6: TSpeedButton;

procedure SpeedButton6Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton7Click (Sender: TObject);

procedure SpeedButton8Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

//procedure FormShow (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

uses Uslugi, Spravka, Spravochniki, raschetdver, Work, OProd, About,.

Otkos, Zakaz_otkosov, Sotrudniki, Klienty;

{$R *.dfm}.

procedure TForm1. SpeedButton6Click (Sender: TObject);

begin.

AboutBox.showModal;

end;

procedure TForm1. SpeedButton5Click (Sender: TObject);

begin.

Form6.show;

end;

procedure TForm1. SpeedButton1Click (Sender: TObject);

begin.

Form2.show;

end;

procedure TForm1. SpeedButton3Click (Sender: TObject);

var i: LongInt;

begin.

if Form3. Table1.RecordCount 0 then.

begin.

Form3.Table1.Last;

for i := 1 to Form3. Table1.RecordCount do.

Form3.Table1.Delete;

end;

if Form3. Table2.RecordCount 0 then.

begin.

Form3.Table2.Last;

for i := 1 to Form3. Table2.RecordCount do.

Form3.Table2.Delete;

end;

if Form4. Table1.RecordCount 0 then.

begin.

Form4.Table1.Last;

for i := 1 to Form4. Table1.RecordCount do.

Form4.Table1.Delete;

end;

close;

end;

procedure TForm1. SpeedButton7Click (Sender: TObject);

begin.

Form12.show;

end;

procedure TForm1. SpeedButton8Click (Sender: TObject);

begin.

Form12.show;

end;

procedure TForm1. SpeedButton2Click (Sender: TObject);

begin.

Form9.show;

Form9.webbrowser1.Navigate (GetCurrentDir+'/Справка/Справочная система. html');

end;

procedure TForm1. Timer1Timer (Sender: TObject);

Begin.

procedure TForm1. SpeedButton4Click (Sender: TObject);

begin.

Form16.show;

Form16.webbrowser1.Navigate (GetCurrentDir+'/О продукции/Достоинства.html');

end;

end.

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

Фрагмент программного кода данного модуля.

unit Oknatab;

interface.

uses.

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

Dialogs, DB, DBTables, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids,.

ComCtrls;

type.

TForm14 = class (TForm).

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

TabSheet10: TTabSheet;

TabSheet11: TTabSheet;

TabSheet12: TTabSheet;

TabSheet13: TTabSheet;

TabSheet14: TTabSheet;

TabSheet15: TTabSheet;

TabSheet16: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

TabSheet17: TTabSheet;

DataSource17: TDataSource;

DBGrid17: TDBGrid;

DBNavigator17: TDBNavigator;

Table17: TTable;

Image17: TImage;

Table17VysShir: TFloatField;

Table17BDEDesigner600: TIntegerField;

Table17BDEDesigner650: TIntegerField;

Table17BDEDesigner700: TIntegerField;

Table17BDEDesigner750: TIntegerField;

Table17BDEDesigner800: TIntegerField;

Table17BDEDesigner850: TIntegerField;

Table17BDEDesigner900: TIntegerField;

SpeedButton34: TSpeedButton;

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form14: TForm14;

implementation.

uses Spravochniki, MainForm, Dop_materialy;

{$R *.dfm}.

procedure TForm14. SpeedButton1Click (Sender: TObject);

begin.

Form12.show;

Form14.Hide;

end;

procedure TForm14. SpeedButton2Click (Sender: TObject);

begin.

Form1.show;

Form14.Hide;

end;

end.

Рисунок 2.2 — Внешний вид формы «Окна — Таблицы».

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

Внешний вид формы «Сотрудники» представлен на рисунке 2.4.

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

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

Рисунок 2.3 — Внешний вид формы «Дополнительные материалы».

Рисунок 2.4 — Внешний вид формы «Сотрудники — Основные сведения».

Фрагмент программного кода.

unit Sotrudniki;

interface.

uses.

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Buttons, Menus,.

ComCtrls, StdCtrls, Mask, ComObj;

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton8Click (Sender: TObject);

procedure TabSheet3Show (Sender: TObject);

procedure TabSheet3Hide (Sender: TObject);

procedure Table2AfterPost (DataSet: TDataSet);

procedure SpeedButton9Click (Sender: TObject);

procedure CbMesChange (Sender: TObject);

procedure SpeedButton10Click (Sender: TObject);

procedure TabSheet4Show (Sender: TObject);

procedure CbFIO2Change (Sender: TObject);

procedure SpeedButton11Click (Sender: TObject);

procedure SpeedButton12Click (Sender: TObject);

procedure SpeedButton13Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form7: TForm7;

KolDney, stolb: integer;

implementation.

uses Spravochniki, MainForm, raschetdver, Otkos, Work, Oknatab,.

Dop_materialy, Klienty, Contract, OProd, Spravka, About;

{$R *.dfm}.

function RoundEx (X: Double; Precision: Integer): Double;

{.

Precision :

• 1 — до целых
• 10 — до десятых
• 100 — до сотых

}.

var.

ScaledFractPart, Temp: Double;

begin.

ScaledFractPart := Frac (X) * Precision;

Temp := Frac (ScaledFractPart);

ScaledFractPart := Int (ScaledFractPart);

if Temp >= 0.5 then.

ScaledFractPart := ScaledFractPart + 1;

if Temp <= -0.5 then.

ScaledFractPart := ScaledFractPart — 1;

RoundEx := Int (X) + ScaledFractPart / Precision;

end;

procedure TForm7. SpeedButton1Click (Sender: TObject);

begin.

Table1.Append;

SpeedButton2.Enabled:=true;

end;

procedure TForm7. CbMesChange (Sender: TObject);

var.

KolDney, stolb: integer;

begin.

case CbMes. ItemIndex of.

0: begin.

KolDney:=31;

stolb:=34;

DBGrid3.Columns.Items[32]. Visible:=true;

DBGrid3.Columns.Items[33]. Visible:=true;

DBGrid3.Columns.Items[34]. Visible:=true;

end;

1: begin.

KolDney:=28;

stolb:=31;

DBGrid3.Columns.Items[32]. Visible:=False;

DBGrid3.Columns.Items[33]. Visible:=False;

DBGrid3.Columns.Items[34]. Visible:=False;

end;

2: begin.

KolDney:=29;

stolb:=32;

DBGrid3.Columns.Items[32]. Visible:=true;

DBGrid3.Columns.Items[33]. Visible:=False;

DBGrid3.Columns.Items[34]. Visible:=False;

end;

3: begin.

KolDney:=31;

stolb:=34;

DBGrid3.Columns.Items[32]. Visible:=true;

DBGrid3.Columns.Items[33]. Visible:=true;

DBGrid3.Columns.Items[34]. Visible:=true;

end;

4: begin.

KolDney:=30;

stolb:=33;

DBGrid3.Columns.Items[32]. Visible:=true;

DBGrid3.Columns.Items[33]. Visible:=true;

DBGrid3.Columns.Items[34]. Visible:=false;

end;

procedure TForm7. SpeedButton10Click (Sender: TObject);

var i: integer;

begin.

if MessageDlg ('Удалить запись?', mtConfirmation, [mbOK, mbNo], 0) = mrOK then.

begin.

Table3.First;

while not Table3. Eof do begin.

For i := 4 to Table3. FieldCount-1 Do begin.

table3.Edit;

Table3.Fields[i]. Clear;

Table3.Post;

end;

Table3.Next;

end;

end;

end;

procedure TForm7. TabSheet4Show (Sender: TObject);

begin.

Table4.IndexName := '';

Table4.MasterFields := '';

Table3.First;

CbFIO2.Text:=table3.Fields[2]. AsString;

Table4.Edit;

if Table4. Fields[1]. AsString = Table3. Fields[1]. AsString then.

DBGrid4.Columns.Items[2]. Field. AsString := Table3. Fields[2]. AsString;

Table4.Post;

end;

end.

Рисунок 2.5 Внешний вид формы «Сотрудники — Расчет заработной платы».

Оказываемые услуги включают в себя «Расчет оконных изделий», «Расчет стоимости отделки откосов», «Оформление нарядов».

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

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

Рисунок 2.6 — Внешний вид формы «Расчет оконных изделий».

Рисунок 2.7 — Внешний вид формы «Параметры оконных конструкций».

Внешний вид формы «Оформление наряда» представлен на рисунке 2.8. Форма содержит две таблицы: «Тип работы» и «Оформление наряда», при этом таблица «Оформление наряда» является подчиненной таблицы «Тип работы». Таблица «Оформление наряда» предназначена для хранения данных о проводимых работах, сроках работ по каждому клиенту фирмы ООО «Светоч».

Рисунок 2.8 — Внешний вид формы «Оформление нарядов».

Над данными таблицы можно выполнять следующие операции:

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

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