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

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

Отчет по учебной практике

по предмету “Технология разработки программного обеспечения”

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

ВВЕДЕНИЕ

Актуальность данного проекта по дисциплине "Технология разработки программного обеспечения" основано на разработке программного проекта, на приобретенных знаниях о базе данных и языках программирования. С каждым годом уровень технологической модернизации увеличивается, следовательно, необходимо разрабатывать новое программное обеспечение. Для этого необходимо знать языки программирования и уметь применять их на практике. Программирование это область интенсивного изучения. Программное обеспечение является основой для работы любых компьютеров. Поэтому изучение программирования и истории языков программирования, их разнообразия и особенностей позволяет сделать правильный выбор для решения поставленной задачи.

Разрабатываемый программный комплекс "Студия загара солярия Мулаточка" предназначен для осуществления автоматизации обслуживания в салонных студиях.

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

Рассмотрены некоторые возможности по повышению производительности труда сотрудников студии загара.

база данных программный

1. ОСНОВАНИЕ ДЛЯ РАЗРАБОТКИ

Проект на тему "Студия загара солярия Мулаточка" выполняется в соответствии с учебным планом для специальности "Информационные системы и вычислительная техника" Экибастузского колледжа ЕГТК по дисциплине "Технология разработки программного обеспечения". На создание данной базы сподвигло то, что поступил заказ на данный продукт. Такая система намного современней и удобней своих предшественников.

2. НАЗНАЧЕНИЕ РАЗРАБОТКИ

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

2.1 Описание технологического процесса

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

3 ТРЕБОВАНИЕ К ПРОГРАММНОМУ СРЕДСТВУ

3.1 База данных "Студия загара солярия Мулаточка" будет выполнять следующие функции

- содержать информацию о сотрудниках, клиентах, доходах и расходах;

- выполнять поиск по заданным значениям;

- позволять редактировать, удалять и добавлять данные о сотрудниках и клиентской базы;

- предоставлять определенную информацию о любых аспектах работы.

3.2 Требования к надежности

Для обеспечения надежного функционирования программного продукта должны применяться следующие методы:

- ограничение прав доступа пользователей;

- контроль со стороны администратора данного заведения;

- ограничение целостности данных.

3.3 Условия эксплуатации

Условия эксплуатации программного продукта определяются условиями эксплуатации технических средств, входящих в состав комплекса.

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

- знание аппаратного состава компьютера;

- навыки администрирования ОС Microsoft Windows 98/ XP;

- знание пакета Microsoft Office;

- знание Microsoft Access;

- знание Delphi.

Данный программный продукт предъявляет следующие требования, к уровню подготовки пользователей-сотрудников:

- общее представление о работе на персональной ЭВМ типа IBM PC или совместимой;

- навыки работы в ОС Microsoft Windows 98/Me/2000/XP;

- навыки работы в пакете Microsoft Office 97/2000/XP/2003.

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

3.4 Требования к составу и параметрам технических средств

Для функционирования разрабатываемого программного продукта необходимо наличие аппаратного обеспечения и общих программных средств. Рабочие станции должны удовлетворять представленным требованиям. (Таблица1).

Таблица 1 Системные требования, предъявляемые к рабочей станции

Требования	Конфигурация технических средств программного комплекса
	MS Windows 2000 Professional	MS Windows XP Professional/Home	Microsoft Office 2003 System
Минимальная частота процессора, МГц	133	233	133
Минимальный объем оперативной памяти, Мб	64	64	64
Пространство на диске, Мб	650	1500	360
Дополнительно	- VGA видеоплата и дисплей; - IBM расширенная (101/102 клавиши) клавиатура; - Манипулятор типа мышь.	- Привод СD-ROM; - SVGA видеоплата и дисплей с разрешением не менее 800Ч600 точек; - IBM расширенная (101/102 клавиши) клавиатура; - Манипулятор типа мышь.	- Привод СD-ROM; - SVGA видеоплата и дисплей с разрешением не менее 800Ч600 точек; - IBM расширенная (101/102 клавиши) клавиатура; - Манипулятор типа мышь.

Рабочие станции могут работать под управлением таких операционных систем Microsoft Windows (определяется требованиями Microsoft Оffice 2003) как:

- microsoft Windows XP Home;

- microsoft Windows XP Professional.

Для хранения базы данных "Студия загара солярия Мулаточка" потребуется примерно 50 Мб дисковой памяти, т.к. по предварительным оценкам планируется хранение до 1000 записей отчетности (Таблица 2).

Таблица 2 Основная информация о хранении записей

Основная информация	Количество записей	Объем одной записи	Объем всей информации
Информация об отчете	1000	50к	50Мб

3.5 Состав программной документации

В состав программной документации должны входить:

База данных "Студия загара солярия Мулаточка" предполагается проектировать в среде разработки данных Delphi7. Это обусловлено тем, что данная среда разработки помогает создать более удобный интерфейс, чем Access.

Его свойства позволяют управлять внешним видом и поведением компонентов при создании и при выполнении приложения.

Установка значений большинства свойств компонентов обычно выполняется при создании приложения с помощью инспектора объектов.

3.6 Требования к программной документации

Программные документы должны быть разработаны, и соответствовать требованиям государственного стандарта (ГОСТ).

В состав программной документации должны входить:

- текст программы;

- техническое задание;

- технический проект;

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

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

Техническое задание (тз)

Начало: 10.11.13

Окончание: .11.11.2013

Техническое задание включает в себя:

- постановка задачи;

- сбор исходных материалов;

- определение структуры входных и выходных данных;

- определение требований к техническим средствам;

- определение требований к программе;

- определение стадий, этапов и сроков разработки программы и документации на неё;

- согласование и утверждение технического задания.

Отчетность: техническое задание.

Технический проект (ТП)

Начало: .12.11.2013

Окончание: .18.11.2013

Технический проект включает в себя:

- уточнение структуры входных и выходных данных;

- разработка алгоритма решения задачи;

- определение формы представления входных и выходных данных;

- разработка структуры программы;

- окончательное определение конфигурации технических средств;

- разработка плана мероприятий по разработке и внедрению программ;

- разработка пояснительной записки;

- согласование и утверждение технического проекта.

Отчетность: технический проект.

Рабочий проект (РП)

Начало: .18.11.2013

Окончание: .21.11.2013

Рабочий проект включает в себя:

- программирование и отладка программы;

- изготовление программы-оригинала;

- разработка программных документов;

- разработка утверждение порядка испытаний;

- проведение испытаний;

- корректировка программы по результатам испытаний.

Отчетность: тексты программы.

Внедрение

Начало: .22.11.2013

Окончание: .22.11.2013

Внедрение включает в себя:

- оформление и утверждение документов на систему;

- оформление и утверждение акта о приеме системы.

5. ПОРЯДОК КОНТРОЛЯ ПРИЕМКИ

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

Таблица Klient

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



Таблица Obsluga

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

Таблица Sotrudniki

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

Таблица 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;

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

DM.tbSotrudniki.First;

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

DM.tbSotrudniki.Last;

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

DM.tbSotrudniki.Prior;

end;

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

DM.tbSotrudniki.Next;

end;

end.

ФОРМА "Досье сотрудников"

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

type

TForm4 = class(TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

if DM.tbSotrudniki.Modified then

DM.tbSotrudniki.Post;

close;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

DM.tbSotrudniki.Cancel;

CLOSE;

end;

end.

ФОРМА "Клиенты"

unit Unit5;

interface

uses

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

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

type

TForm5 = class(TForm)

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBGrid1: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Label2: TLabel;

Edit2: TEdit;

Button2: TButton;

Label3: TLabel;

Edit3: TEdit;

Button3: TButton;

Label4: TLabel;

Edit4: TEdit;

Button4: 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 Button3Click(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Edit4Change(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

Form5: TForm5;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

DM.tbKlient.Append;

form6.ShowModal;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

DM.tbKlient.Edit;

form6.ShowModal;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

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

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

THEN DM.tbKlient.Delete;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

if Edit1.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

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

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

if Edit1.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

if Edit2.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

DM.tbKlient.Filter:=' adres like ''' + '%' + Edit2.Text + '%' + '''';

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit2Change(Sender: TObject);

begin

if Edit2.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

if Edit3.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

DM.tbKlient.Filter:=' konTel like ''' + '%' + Edit3.Text + '%' + '''';

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit3Change(Sender: TObject);

begin

if Edit3.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

if Edit4.Text<>'' then

begin

DM.tbKlient.Filtered:=false;

DM.tbKlient.Filter:=' udost like ''' + '%' + Edit4.Text + '%' + '''';

DM.tbKlient.Filtered:=true;

end;

end;

procedure TForm5.Edit4Change(Sender: TObject);

begin

if Edit4.Text='' then

DM.tbKlient.Filtered:=false;

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

DM.tbKlient.First;

end;

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

DM.tbKlient.Last;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

DM.tbKlient.Prior;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

DM.tbKlient.Next;

end;

end.

ФОРМА "Досье клиентов"

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ComCtrls;

type

TForm6 = class(TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

if(DM.tbKlient.Modified) or (DateTimePicker1.Checked) then

begin

DM.tbKlientdataReg.Value:=DateTimePicker1.Date;

DM.tbKlient.Post;

end;

close;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

DM.tbKlient.Cancel;

CLOSE;

end;

end.

ФОРМА "Обслуживание"

unit Unit7;

interface

uses

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

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

type

TForm7 = class(TForm)

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBGrid1: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

Button1: TButton;

Button2: TButton;

Edit3: TEdit;

Panel2: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(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

Form7: TForm7;

implementation

uses Unit6, Unit2, Unit1, Unit3, Unit8;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

DM.tbObsluga.Append;

form8.ShowModal;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

DM.tbObsluga.Edit;

form8.ShowModal;

end;

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

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

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

THEN DM.tbObsluga.Delete;

end;

procedure TForm7.Edit1Change(Sender: TObject);

begin

if Edit1.Text='' then

DM.tbObsluga.Filtered:=false;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

DM.tbObsluga.Close;

DM.tbObsluga.SQL.Clear;

DM.tbObsluga.SQL.Add(' select * from Obsluga ');

DM.tbObsluga.Open;

end;

procedure TForm7.Button2Click(Sender: TObject);

var l:byte;

begin

l:=0;

DM.tbObsluga.Close;

DM.tbObsluga.SQL.Clear;

DM.tbObsluga.SQL.Add(' select s.nomerPor, s.data, s.kodKl, s.kodSotr, s.kodUslugi, s.cena, s.kolVoOo, s.itogSum, s.skidka, s.koplate ');

DM.tbObsluga.SQL.Add(' from Obsluga s inner join Klient on s.kodKl=Klient.kodKl where ');

if CheckBox1.Checked then

begin

dm.tbObsluga.SQL.Add(' Klient.fio like ''' + '%' + Edit1.Text + '%' + '''' );

l:=1;

end;

if CheckBox2.Checked then

begin

if l=1 then dm.tbObsluga.SQL.Add(' and ');

dm.tbObsluga.SQL.Add(' s.koplate >= ' + Edit2.text + ' and s.koplate <= ' + Edit3.text + ' ');

l:=1;

end;

DM.tbObsluga.Open;

if l=0 then Button1Click(Sender) else dm.tbObsluga.Open;

end;

procedure TForm7.CheckBox1Click(Sender: TObject);

begin

if Edit1.Enabled=false then

begin

Edit1.Enabled:=true;

end else

begin

Edit1.Enabled:=False;

end;

end;

procedure TForm7.CheckBox2Click(Sender: TObject);

begin

if Edit2.Enabled=false then

begin

Edit2.Enabled:=true;

Edit3.Enabled:=true;

end else

begin

Edit2.Enabled:=False;

Edit3.Enabled:=False;

end;

end;

procedure TForm7.SpeedButton1Click(Sender: TObject);

begin

DM.tbObsluga.First;

end;

procedure TForm7.SpeedButton3Click(Sender: TObject);

begin

DM.tbObsluga.Prior;

end;

procedure TForm7.SpeedButton4Click(Sender: TObject);

begin

DM.tbObsluga.Next;

end;

end.

ФОРМА "Параметры обслуживания"

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls;

type

TForm8 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label3: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label4: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

Label5: TLabel;

Label9: TLabel;

DBEdit6: TDBEdit;

DateTimePicker1: TDateTimePicker;

DBEdit1: TDBEdit;

DBLookupComboBox4: TDBLookupComboBox;

DBEdit2: TDBEdit;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

if (DM.tbObsluga.Modified) or (DateTimePicker1.Checked) then

begin

DM.tbObslugadata.Value:=DateTimePicker1.Date;

end;

close;

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

DM.tbObsluga.Cancel;

CLOSE;

end;

end.

ФОРМА "Услуги"

unit Unit9;

interface

uses

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

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

type

TForm9 = class(TForm)

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBGrid1: TDBGrid;

Panel2: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(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

Form9: TForm9;

implementation

uses Unit2, Unit1, Unit10, Unit3;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

DM.tbUslugi.Append;

form10.ShowModal;

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

DM.tbUslugi.Edit;

form10.ShowModal;

end;

procedure TForm9.BitBtn3Click(Sender: TObject);

begin

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

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

THEN DM.tbUslugi.Delete;

end;

procedure TForm9.SpeedButton1Click(Sender: TObject);

begin

DM.tbUslugi.First;

end;

procedure TForm9.SpeedButton3Click(Sender: TObject);

begin

Dm.tbUslugi.Prior;

end;

procedure TForm9.SpeedButton4Click(Sender: TObject);

begin

DM.tbUslugi.Next;

end;

end.

ФОРМА "Параметры услуг"

unit Unit10;

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

type

TForm10 = class(TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

if DM.tbUslugi.Modified then

DM.tbUslugi.Post;

close;

end;

procedure TForm10.BitBtn2Click(Sender: TObject);

begin

DM.tbUslugi.Cancel;

CLOSE;

end;

end.

Размещено на Allbest.ru

...