База данных «Студия загара солярия Мулаточка»

- удобное устройство мыши для эффективной рабочей деятельности;

- свободное место на жестком диске (желательно не менее 2 гб.) ;

- программные средства необходимы, такие как Office 2003 или 2007;

- желательно Delphi

 

4 СТАДИИ И ЭТАПЫ РАЗРАБОТКИ

 

Стадия разработки состоит из следующих этапов:

Обоснование необходимости разработки программы на этом этапе выполняются: постановка задачи, сбор исходных материалов, выбор и обоснование критериев эффективности и качества разрабатываемой программы и обоснование необходимости проведения научно-исследовательских работ. Ниже показано научно-исследовательские работы на этом этапе выполнения.

Определение структуры входных и выходных данных, предварительный выбор методов решения задачи, обоснование целесообразности применения ранее разработанных программ, определение требований к техническим средствам, обоснование принципиальной возможности решения поставленной задачи. Разработка и утверждение технического задания на этом этапе выполняются: определение требований к программе, разработка технико-экономического обоснования разработки программы, определение этапов и сроков разработки программы и документации на нее, выбор языков программирования, определение необходимости проведения научно-исследовательских работ на последующих стадиях и разработка общего описания алгоритма решения задачи.

 

5 ПРИЛОЖЕНИЕ

Таблица 1 - Klient

Наименование реквизитов	Тип реквизитов	Размерность	Имя в программе
kodKl	Счетчик	Длинное целое	Счетчик
fio	Текстовый	50	Ф.И.О.
adres	Числовой	50	Адрес
konTel	Текстовый	50	Телефон
dataReg	Дата/время	30	Дата
udost	Текстовый	50	Удостоверение
skidka	Числовой	Длинное целое	Скидка

 

Имя поля - определяет, как надо обращаться к данным поля (имена используются как заголовки таблиц). Тип поля - определяет тип данных, которые могут содержаться в данном поле (текстовые, числовые, дата, денежные, счетчик и др).Размер поля - определяет предельную длину данных, которые могут размещаться в поле. Наименование в программе – определяет имя при пользовании самой программой. Каждая таблица должна содержать уникальный ключ. Ключ является простым, если он состоит из одного реквизита или составным, если из нескольких. В данной базе данных используется только простой уникальный ключ. Каждая таблица должна содержать уникальный ключ. Ключ является простым, если он состоит из одного реквизита или составным. В данной базе данных используется только простой уникальный ключ.

 

Таблица 2 – Obsluga

Наименование реквизитов	Тип реквизитов	Размерность	Имя в программе
nomerPor	Счетчик	Длинное целое	Счетчик
data	Дата/время	30	Дата
kodKl	Числовой	Длинное целое	Код Клиента
kodSotr	Числовой	Длинное целое	Код сотрудника
kodUslugi	Числовой	Длинное целое	Код услуги
cena	Числовой	Длинное целое	Цена услуги
kolVoOo	Числовой	Длинное целое	Количество услуги
itogSum	Числовой	Длинное целое	Итоговая сумма

 

Таблица 3 – Sotrudniki

Наименование реквизитов	Тип реквизитов	Размерность	Имя в программе
kodSotr	Счетчик	Длинное целое	Счетчик
fio	Текстовый	50	Ф.И.О.
konTel	Текстовый	50	Телефон

 

Таблица 4 – Uslugi    

Наименование реквизитов	Тип реквизитов	Размерность	Имя в программе
kodUslug	Счетчик	Длинное целое	Счетчик
naimenUslug	Текстовый	50	Имя услуги
cenaUslugi	Числовой	Длинное целое	Цена услуги

ЗАКЛЮЧЕНИЕ

 

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

 

 

 

 

 

 

 

 

ОТЧЕТ ПО УЧЕБНОЙ ПРАКТИКЕ

ПО ПРЕДМЕТУ

“ТЕХНОЛОГИЯ РАЗРАБОТКИ ПРОГРАММНОГО

ОБЕСПЕЧЕНИЯ”

на тему: База данных «Студия загара солярия Мулаточка»

Текст программы

Лист утверждения

 

 

 

 

 

 

ФОРМА «Добро пожаловать! »

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg, sSkinManager;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Panel1: TPanel;

Label1: TLabel;

Image1: TImage;

Label2: TLabel;

Label3: TLabel;

Image2: TImage;

BitBtn6: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

private

    { Private declarations }

public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit3, Unit2, Unit5, Unit7, Unit9;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

DM.tbSotrudniki.Append;

Form2.ShowModal;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

DM.tbKlient.Append;

Form5.ShowModal;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

DM.tbObsluga.Append;

Form7.ShowModal;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

DM.tbUslugi.Append;

Form9.ShowModal;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

if Application.MessageBox('Вы действительно хотите выйти?

','Внимание!!!',MB_YESNO )

=idyes then

form1.Close;

end;

end.

ФОРМА «Сотрудники»

unit Unit2;

interface

uses

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

  Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DB, DBClient;

type

  TForm2 = class(TForm)

    Panel1: TPanel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    DBGrid1: TDBGrid;

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Label2: TLabel;

    Edit2: TEdit;

    Button2: TButton;

    Panel2: TPanel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

DM.tbSotrudniki.Append;

form4.ShowModal;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

DM.tbSotrudniki.Edit;

form4.ShowModal;

end;

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

if Application.MessageBox(pchar('Вы действительно  хотите удалить запись' +

DM.tbSotrudnikikodSotr.AsString+ ' из базы?'), 'Внимание!', MB_OKCANCEL)=ID_OK

THEN DM.tbSotrudniki.Delete;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if Edit1.Text<>'' then

begin

DM.tbSotrudniki.Filtered:=false;

DM.tbSotrudniki.Filter:=' fio like ''' + '%' + Edit1.Text + '%' + '''';

DM.tbSotrudniki.Filtered:=true;

end;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

if Edit1.Text='' then

DM.tbSotrudniki.Filtered:=false;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

if Edit2.Text<>'' then

begin

DM.tbSotrudniki.Filtered:=false;

DM.tbSotrudniki.Filter:=' konTel like ''' + '%' + Edit2.Text + '%' + '''';

DM.tbSotrudniki.Filtered:=true;

end;

end;

procedure TForm2.Edit2Change(Sender: TObject);

begin

if Edit2.Text='' then

DM.tbSotrudniki.Filtered:=false;