Рис. 3.2.3

Кнопка «Предварительная запись» открывает следующую форму (рис. 3.2.4.), на которой осуществляется запись клиентов на будущие занятия.



Рис. 3.2.4

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

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

Рис. 3.2.5.

Также на главной кнопочной форме «Фитнес-клуб» имеются пункты меню: «Файл», «Клуб», «Клиенты» и «Карты». При нажатии на пункт меню «Клуб» открывается панель меню, на которой выбираются «Залы» Появляется форма «Залы», на которой содержится полный список залов фитнес-клуба. На данной форме, возможно, просматривать, добавлять и удалять залы. Закрытие формы осуществляется при нажатии кнопки «Выход».

При нажатии на пункт меню «Клиенты» открывается панель меню, на которой можно выбрать: «Клиенты», «Предварительная запись», «Посещения», ссылающиеся на рассмотренные выше формы «Клиенты», «Предварительная запись» (рис. 3.2.3.), «Посещения» (рис. 3.2.4.).

При нажатии на пункт меню «Карты» открывается панель меню, на которой можно выбрать: «Карты» и «Виды карт». При выборе «Карты» появляется ранее рассмотренная форма «Карты» (рис. 3.2.5.). При выборе «Виды карт» открывается новая форма «Виды карт», в которой содержится основная информация о картах: название, стоимость, скидка, срок действия, ограничения. Имеется возможность просмотра, добавления и удаления информации о картах. Закрытие формы осуществляется при нажатии кнопки «Выход».

Для закрытия главной кнопочной формы «Фитнес-клуб» необходимо нажать на пункт меню «Файл» и выбрать «Выход»

3.3 Программирование работы приложения в среде Borland Delphi 7

Для создания приложения, работающего по технологии ADO, имеются следующие компоненты программы Borland delphi 7:

· TADOConnection - служит для соединения с хранилищем данных и работы с транзакциями;

· TADOTable - таблица, доступ к которой осуществляется средствами ADO;

· TADOQuery - компонент, отвечающий за запросы к данным;

· TADOStoredProc - компонент для работы с хранимыми процедурами;

· TADOCommand и TADODataSet - общие компоненты для работы с технологией ADO, позволяют выполнять команды на языке провайдера данных. [3]

При создании нашего приложения «Фитнес-клуб» был использован компонент TADOConnection. Поместив компонент TADOConnection в форму, выбираем пункт Edit ConnectionString контекстного меню компонента, чтобы открыть диалоговое окно редактора соединения для создания соединения с провайдером (рис. 3.3.1.).

автоматизация администратор приложение delphi

Рис. 3.3.1

При выборе переключателя Use Data Link File и нажатии кнопки Browse будет предложен стандартный диалог выбора UDL-файла, который представляет собой обычный текстовый файл со структурой параметр=значение параметра.

В нашем случае необходимо выбрать переключатель Use Connection String и нажать кнопку Build. Появится диалоговое окно Data Link Properies (Свойства канала передачи данных) (рис. 3.3.2.) для задания необходимых значений параметров.

На странице Provider (Поставщик данных) можно выбрать провайдера OLE DB в общем списке провайдеров, установленных в операционной системе. В нашем случае выбираем Microsoft Jet 4.0 OLE DB Provider.

Переходим на следующую страницу Connection (Соединение) для настройки соединения с хранилищем данных (рис. 3.3.3). Выбирается база данных Фитнес.mdb. Установленный флажок Пустой пароль позволяет подавить появление стандартного диалога ввода имени пользователя и пароля при установке соединения. После окончания настройки соединения с хранилищем данных проводим соединение, нажав кнопку Test Connection (Провести соединение). [3]

Рис. 3.3.2

Рис. 3.3.3

Следующая страница Advanced (Дополнительно) (рис. 3.3.4.) предоставляет возможность задать дополнительные параметры соединения. На вкладке «Права доступа» выбирается ReadWrite для чтения и записи.

Рис. 3.3.4

Наконец, на странице All (Все) (рис.3.3.5.) диалогового окна настройки параметров соединения можно просмотреть и/или отредактировать параметры, значения которых введены на вышерассмотренных страницах окна.

Завершив настройку соединения с хранилищем данных, достаточно установить свойство Connected типа Boolean в значении True.

ADOConnection1.Connected:=True;

Рис. 3.3.5

Доступ к файлу данных (таблице) обеспечивают компоненты DataSource и ADOTable, которые расположены на вкладках DataAccess и ADO. Компонент ADOTable представляет одну из таблиц базы данных. А DataSource обеспечивает связь таблицы базы данных с компонентами просмотра и редактирования содержимого полей базы данных.

В данной дипломной работе для удобства программирования все необходимые компоненты доступа к базам данным были расположены на одной форме (рис. 3.3.6).

Рис. 3.3.6

Компоненты, обеспечивающие просмотр и редактирование содержимого полей баз данных, находятся на вкладке Data Controls. В данной работе были использованы DBGrid, DBEdit и DBNavigator.

Текст программирования приложения «Фитнес-клуб» представлен в Приложении 4 дипломной работы.

Заключение

Исходя из практически возникшей необходимости, в данной дипломной работе была спроектирована и реализована информационная система «Автоматизированное рабочее место администратора фитнес-клуба», которая представляет собой приложение, автоматизирующее работу администратора фитнес-клуба:

а) ведение клиентской базы;

б) создание различных видов клубных карт;

в) регистрация посещений клиентов, формирование журнала посещений за любой интервал времени по любому залу и клиенту;

г) предварительная запись клиентов;

д) обеспечение ввода, удаления, хранения и редактирования информации, которая содержится в таблицах данных.

Приложение «Автоматизированное рабочее место администратора фитнес-клуба» реализовано в современной и перспективной среде разработки Borland Delphi 7.

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

Таким образом, созданное приложение позволяет наиболее достоверно, быстро и безошибочно собирать и производить различные операции с данными. А значит, позволит быстрее и качественнее выполнять администратору фитнес-клуба свою работу, не отвлекаясь на перепроверку данных.

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

1. Бойко, В.В. Проектирование баз данных информационных систем / В.В. Бойко, В.М. Савинков. - М.: Финансы и статистика, 1989. - 351 с.

2. Гофман, В.Э. Delphi: экспресс курс / В.Э. Гофман, А.Д. Хомоненко. - СПб.: БХВ-Петербург, 2008. - 544 с.

3. Гофман, В.Э. Работа с базами данных в Delphi / В.Э. Гофман, А.Д. Хомоненко. - СПб.: БХВ-Петербург, 2000. - 656 с.

4. Диго, С.М. Базы данных: проектирование и использование. Учебное пособие для вузов / С.М. Диго. - М.: Финансы и статистика, 2005. - 87 с.

5. Маклаков, С.В. BPwin и ERwin: CASE-средства для разработки информационных систем / С.В. Маклаков. - М.: Диалог-Мифи, 1999, - 295 с.

6. Малыхина, М.П. Базы данных: основы, проектирование, использование / М.П. Малыхина. - СПб.: БХВ-Петербург, 2004. - 512 с.

7. Мейер, М. Теория реляционных баз данных / М. Мейер. - М.: Мир, 1987. - 608 с.

8. Мишенин, А.И. Теория экономических информационных систем: Учебник /А. И. Мишенин. - 4-е изд., перераб. и доп. - М.: Финансы и статистика, 2003. - 240 с.

9. Романов, В. П. Проектирование экономических информационных систем: Учебное пособие / В.П. Романов, Н.З. Емельянова, Т. Л. Партыка. - М.: Издательство «Экзамен», 2005. - 256 с.

10. Сергеев, Л.О. Уроки по теме «Базы данных».- 4.1 // Информатика / Л.О. Сергеев, 2002. - №29 - 32 с.

11. Сергеев, Л.О. Уроки по теме «Базы данных».- 4.2 // Информатика / Л.О. Сергеев, 2003. - № 32. - 32 с.

12. Советов, Б.Я. Базы данных. Теория и практика / Б.Я. Советов и [др.]. - М.: Высшая школа, 2005. - 464 с.

13. Тиори, Т. Проектирование структур баз данных. В 2 кн.. / Т. Тиори, Дж. Фрай. - М.: Мир, 1985. Кн. 1. - 287 с.: Кн. 2. - 320 с.

14. Федотова, Д.Э. CASE-технологии / Д.Э. Федотова, Ю.Д. Семенов, К.Н. Чижик. - М.: Горячая линия Телеком, Радио и связь, 2005. - 160 с.

15. Харитонова, И. Программирование в Access 2002: учебный курс / И. Харитонова, Н. Вольман. - СПб.: Питер, 2002. - 480 с.

16. Хомоненко, А.Д. Базы данных: Учебник для высших учебных заведений / А.Д. Хомоненко, В.М. Цыганков, М.Г. Мальцев. - СПб.: КОРОНА принт, 2004. - 736 с.

17. Хусаинова, Г.Я. Структурный язык запросов SQL: Метод, указания / Г.Я. Хусаинова. - Стерлитамак: Стрелитамак. гос. пед. институт, 2004. - 35 с.

18. Хусаинова, Г.Я. Базы данных и информационные системы: Учебно-методическое пособие / Г.Я. Хусаинова, М.С. Подкуйко. - Уфа: РИЦ БашГУ, 2008. - 92 с.

19. Хусаинова, Г.Я. Информационные системы. Управление реляционными базами данных: Учебно.-метод. материалы / Г.Я. Хусаинова, И.Г. Хусаинов. - Стерлитамак: Стрелитамак. гос. пед. академия, 2007. - 55 с.

20. http://ru.wikipedia.org

21. http://www.hr-portal.ru/doki/dolzhnostnaya-instruktsiya-administrator

Приложение 1. ER-диаграмма

Приложение 2. Схема данных

Приложение 3. Схема данных на логическом уровне

Приложение 4. Текст программы

unit uDM;

interface

uses

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

ADODB, DB,Variants;

type

TDM = class(TDataModule)

ADOConnection1: TADOConnection;

tbRooms: TADOTable;

dsRooms: TDataSource;

tbCardCateg: TADOTable;

dsCardCateg: TDataSource;

tbCardCategID: TAutoIncField;

tbCardCategDSDesigner: TWideStringField;

tbCardCategDSDesigner2: TBCDField;

tbCardCategDSDesigner3: TSmallintField;

tbCardCategDSDesigner4: TBooleanField;

tbCardCategDSDesigner5: TWordField;

tbCardCategDSDesigner6: TDateTimeField;

tbCardCategDSDesigner7: TDateTimeField;

tbCardCategDSDesigner8: TBooleanField;

tbCardCategDSDesigner9: TBooleanField;

tbCardCategDSDesigner10: TBooleanField;

tbCardCategDSDesigner11: TBooleanField;

tbCardCategDSDesigner12: TBooleanField;

tbCardCategDSDesigner13: TBooleanField;

tbCardCategDSDesigner14: TBooleanField;

tbClients: TADOTable;

dsClients: TDataSource;

tbClientsID: TAutoIncField;

tbClientsDSDesigner: TWideStringField;

tbClientsDSDesigner2: TWideStringField;

tbClientsDSDesigner3: TWideStringField;

tbClientsDSDesigner4: TDateTimeField;

tbClientsDSDesigner5: TWideStringField;

tbClientsDSDesigner6: TWideStringField;

tbClientsDSDesigner7: TWideStringField;

tbClientsDSDesigner8: TBlobField;

tbClientsDSDesigner9: TSmallintField;

tbClientsDSDesigner10: TBooleanField;

tbCards: TADOTable;

dsCards: TDataSource;

tbCardsN: TAutoIncField;

tbCardsID: TIntegerField;

tbCardsDSDesigner: TBooleanField;

tbCardsDSDesigner3: TDateTimeField;

tbCardsField: TStringField;

tbCardsDSDesigner2: TBooleanField;

tbClientCards: TADOTable;

dsClientCards: TDataSource;

tbClientCardsID: TIntegerField;

tbClientCardsN: TIntegerField;

tbClientCardsField: TIntegerField;

tbVisits: TADOTable;

dsVisits: TDataSource;

tbVisitsDSDesigner: TDateTimeField;

tbVisitsDSDesigner2: TDateTimeField;

tbVisitsID: TIntegerField;

tbVisitsID2: TIntegerField;

tbVisitsN: TSmallintField;

tbVisitsDSDesigner3: TWideStringField;

tbVisitsField: TStringField;

tbVisitsField2: TStringField;

tbRegistration: TADOTable;

DateTimeField1: TDateTimeField;

DateTimeField2: TDateTimeField;

IntegerField1: TIntegerField;

IntegerField2: TIntegerField;

StringField1: TStringField;

StringField2: TStringField;

dsRegistration: TDataSource;

tbRegistrationDSDesigner: TWideStringField;

tbRoomsID: TAutoIncField;

tbRoomsDSDesigner: TWideStringField;

procedure DataModuleCreate(Sender: TObject);

procedure DataModuleDestroy(Sender: TObject);

procedure tbClientsAfterScroll(DataSet: TDataSet);

procedure tbClientsBeforePost(DataSet: TDataSet);

procedure tbVisitsAfterInsert(DataSet: TDataSet);

procedure tbVisitsBeforePost(DataSet: TDataSet);

procedure tbRegistrationBeforePost(DataSet: TDataSet);

procedure tbVisitsNewRecord(DataSet: TDataSet);

procedure tbVisitsBeforeDelete(DataSet: TDataSet);

procedure tbCardCategNewRecord(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

i:Integer;

implementation

uses uClients;

procedure TDM.DataModuleCreate(Sender: TObject);

begin

ADOConnection1.Connected:=True;

tbClientCards.Active:=True;

tbRooms.Active:=True;

tbRooms.IndexFieldNames:='Зал';

tbCardCateg.Active:=True;

tbCardCateg.IndexFieldNames:='Вид';

i:=0;

tbClients.Active:=True;

tbClients.IndexFieldNames:='Фамилия';

tbCards.Active:=True;

tbVisits.Active:=True;

tbVisits.IndexFieldNames:='Дата,Время';

tbRegistration.Active:=True;

tbRegistration.IndexFieldNames:='Дата,Время';

end;

procedure TDM.DataModuleDestroy(Sender: TObject);

begin

ADOConnection1.Connected:=False;

end;

procedure TDM.tbClientsAfterScroll(DataSet: TDataSet);

begin

if i=1 then

begin

uClients.fmClients.lbQuantity.Caption:=IntToStr(tbClients.RecordCount);

end;

end;

procedure TDM.tbClientsBeforePost(DataSet: TDataSet);

begin

end;

procedure TDM.tbVisitsAfterInsert(DataSet: TDataSet);

var

i,idcl:Integer;

begin

idcl:=tbVisits.Fields[2].AsInteger;

with tbClients do

begin

Locate('ID',idcl,[loCaseInsensitive,loPartialKey]);

i:=Fields[9].AsInteger;

i:=i+1;

Edit;

Fields[9].AsInteger:=i;

Post;

Close;

Open;

end;

end;

procedure TDM.tbVisitsBeforePost(DataSet: TDataSet);

begin

if (tbVisits.Fields[2].AsVariant=null) then

begin

Application.MessageBox('Укажите клиента','Ошибка',48);

Abort;

end;

end;

procedure TDM.tbRegistrationBeforePost(DataSet: TDataSet);

begin if(tbRegistration.Fields[0].AsVariant=null)or(tbRegistration.Fields[1].AsVariant=null)or(tbRegistration.Fields[2].AsVariant=null) then

begin

if (tbRegistration.Fields[0].AsVariant=null) then

begin

Application.MessageBox('Укажите Дату записи','Ошибка',48);

Abort;

end;

if (tbRegistration.Fields[1].AsVariant=null) then

begin

Application.MessageBox('Укажите Время записи','Ошибка',48);

Abort;

end;

if (tbRegistration.Fields[2].AsVariant=null) then

begin

Application.MessageBox('Укажите клиента','Ошибка',48);

Abort;

end;

end;

end;

procedure TDM.tbVisitsNewRecord(DataSet: TDataSet);

begin

tbVisits.Fields[0].AsDateTime:=StrToDate(DateToStr(Now));

tbVisits.Fields[1].AsString:=FormatDateTime('t',Now);

end;

procedure TDM.tbVisitsBeforeDelete(DataSet: TDataSet);

var

i,idcl:Integer;

begin

idcl:=tbVisits.Fields[2].AsInteger;

with tbClients do

begin

Locate('ID',idcl,[loCaseInsensitive,loPartialKey]);

i:=Fields[9].AsInteger;

if i>0 then i:=i-1

else i:=0;

Edit;

Fields[9].AsInteger:=i;

Post;

Close;

Open;

end;

end;

procedure TDM.tbCardCategNewRecord(DataSet: TDataSet);

begin

with tbCardCateg do

begin

Fields[4].AsBoolean:=False;

Fields[8].AsBoolean:=False;

Fields[9].AsBoolean:=False;

Fields[10].AsBoolean:=False;

Fields[11].AsBoolean:=False;

Fields[12].AsBoolean:=False;

Fields[13].AsBoolean:=False;

Fields[14].AsBoolean:=False;

end;

end;

end.

///////

unit uMain;

interface

uses

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

ActnMan, ActnList, Buttons, ExtCtrls, ActnMenus, ImgList,

XPStyleActnCtrls, ToolWin, ActnCtrls, StdCtrls, jpeg,Variants, XPMan,

StdStyleActnCtrls;

type

TfmMain = class(TForm)

ActionManager1: TActionManager;

ImageList1: TImageList;

acExit: TAction;

acRoom: TAction;

acCards: TAction;

acCategory: TAction;

acClient: TAction;

acRegistration: TAction;

acVisit: TAction;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Image1: TImage;

ActionMainMenuBar1: TActionMainMenuBar;

XPManifest1: TXPManifest;

procedure acCardsExecute(Sender: TObject);

procedure acCategoryExecute(Sender: TObject);

procedure acClientExecute(Sender: TObject);

procedure acVisitExecute(Sender: TObject);

procedure acRoomExecute(Sender: TObject);

procedure acRegistrationExecute(Sender: TObject);

procedure acExitExecute(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmMain: TfmMain;

implementation

uses uRooms, uCards, uCardCateg, uClients, uRegistration, uVisits, uDM;

procedure TfmMain.acCardsExecute(Sender: TObject);

begin

uCards.fmCards.ShowModal;

end;

procedure TfmMain.acCategoryExecute(Sender: TObject);

begin

uCardCateg.fmCardCateg.ShowModal;

end;

procedure TfmMain.acClientExecute(Sender: TObject);

begin

with uDM.DM do

begin

i:=1;

DM.tbClients.Close;

DM.tbClients.Open;

end;

with uClients.fmClients do

begin

edFirstName.Text:='';

CheckBox1.Checked:=False;

ShowModal;

end;

end;

procedure TfmMain.acVisitExecute(Sender: TObject);

begin

with uDM.DM do

begin

tbVisits.Filtered:=False;

end;

with uVisits.fmVisits do

begin

chbClient.Checked:=False;

chbRoom.Checked:=False;

chbDate.Checked:=False;

dblcbClient.KeyValue:=null;

dblcbRoom.KeyValue:=null;

dtpDateFrom.Date:=Now;

dtpDateTo.Date:=Now;

ShowModal;

end;

end;

procedure TfmMain.acRoomExecute(Sender: TObject);

begin

uRooms.fmRooms.ShowModal;

end;

procedure TfmMain.acRegistrationExecute(Sender: TObject);

begin

with uDM.DM do

begin

tbRegistration.Filtered:=False;

end;

with uRegistration.fmRegistration do

begin

chbClient.Checked:=False;

chbRoom.Checked:=False;

chbDate.Checked:=False;

dblcbClient.KeyValue:=null;

dblcbRoom.KeyValue:=null;

dtpDateFrom.Date:=Now;

dtpDateTo.Date:=Now;

ShowModal;

end;

end;

procedure TfmMain.acExitExecute(Sender: TObject);

begin

Close;

end;

end.

///////

unit uCardCateg;

interface

uses

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

ExtCtrls, DBGrids, StdCtrls, DBCtrls, Buttons, Grids, Mask;

type

TfmCardCateg = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label3: TLabel;

GroupBox1: TGroupBox;

DBCheckBox1: TDBCheckBox;

dbedDisc: TDBEdit;

lbDisc: TLabel;

GroupBox2: TGroupBox;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label4: TLabel;

Label5: TLabel;

GroupBox3: TGroupBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBCheckBox4: TDBCheckBox;

DBCheckBox5: TDBCheckBox;

DBCheckBox6: TDBCheckBox;

DBCheckBox7: TDBCheckBox;

DBCheckBox8: TDBCheckBox;

bbtExit: TBitBtn;

DBNavigator1: TDBNavigator;

Splitter1: TSplitter;

procedure DBCheckBox1Click(Sender: TObject);

procedure bbtExitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmCardCateg: TfmCardCateg;

implementation

procedure TfmCardCateg.DBCheckBox1Click(Sender: TObject);

begin

if DBCheckBox1.Checked=True then dbedDisc.Enabled:=True

else dbedDisc.Enabled:=False;

end;

procedure TfmCardCateg.bbtExitClick(Sender: TObject);

begin

fmCardCateg.Close;

end;

end.

///////

unit uCards;

interface

uses

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

ExtCtrls, StdCtrls, DBCtrls, Buttons, DBGrids, Grids, Mask,DB;

type

TfmCards = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

bbtExit: TBitBtn;

DBLookupComboBox1: TDBLookupComboBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBNavigator1: TDBNavigator;

Splitter1: TSplitter;

Label9: TLabel;

edNCard: TEdit;

CheckBox1: TCheckBox;

Bevel1: TBevel;

DBGrid1: TDBGrid;

procedure edNCardChange(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure bbtExitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmCards: TfmCards;

implementation

uses uDM;

procedure TfmCards.edNCardChange(Sender: TObject);

begin

if edNCard.Text='' then

begin

uDM.DM.tbCards.First;

end

else

begin

uDM.DM.tbCards.Locate('NКарты',edNCard.Text,[loCaseInsensitive,loPartialKey]);

end;

end;

procedure TfmCards.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=True then

begin

with uDM.DM.tbcards do

begin

Filter:='';

Filter:='Активна=True';

Filtered:=True;

end;

end

else

begin

uDM.DM.tbcards.Filtered:=False;

end;

end;

procedure TfmCards.bbtExitClick(Sender: TObject);

begin

fmCards.Close;

end;

end.

///////

unit uRegistration;

interface

uses

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

ExtCtrls, StdCtrls, DBCtrls, Buttons, ComCtrls, DBGrids, Grids, Mask,Variants,ComObj;

type

TfmRegistration = class(TForm)

Splitter1: TSplitter;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Bevel1: TBevel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

bbtExit: TBitBtn;

DBNavigator1: TDBNavigator;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

GroupBox1: TGroupBox;

Label6: TLabel;

dblcbClient: TDBLookupComboBox;

chbClient: TCheckBox;

chbRoom: TCheckBox;

dblcbRoom: TDBLookupComboBox;

chbDate: TCheckBox;

dtpDateFrom: TDateTimePicker;

dtpDateTo: TDateTimePicker;

DBEdit4: TDBEdit;

bbtPrint: TBitBtn;

DBGrid1: TDBGrid;

procedure chbClientClick(Sender: TObject);

procedure bbtPrintClick(Sender: TObject);

procedure bbtExitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmRegistration: TfmRegistration;

implementation

uses uDM;

procedure TfmRegistration.chbClientClick(Sender: TObject);

var

filt:string;

c,r:Integer;

begin

if dblcbClient.KeyValue=null then c:=0

else c:=dblcbClient.KeyValue;

if dblcbRoom.KeyValue=null then r:=0

else r:=dblcbRoom.KeyValue;

//0

if (chbClient.Checked=False)and(chbRoom.Checked=False)and(chbDate.Checked=False) then

Filt:='';

//1

if (chbClient.Checked=True)and(chbRoom.Checked=False)and(chbDate.Checked=False) then

Filt:='КлиентID='+IntToStr(c);

if (chbClient.Checked=False)and(chbRoom.Checked=True)and(chbDate.Checked=False) then

Filt:='ЗалID='+IntToStr(r);

if (chbClient.Checked=False)and(chbRoom.Checked=False)and(chbDate.Checked=True) then

Filt:='(Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

//2

if (chbClient.Checked=True)and(chbRoom.Checked=True)and(chbDate.Checked=False) then

Filt:='(КлиентID='+IntToStr(c)+') and (ЗалID='+IntToStr(r)+')';

if (chbClient.Checked=True)and(chbRoom.Checked=False)and(chbDate.Checked=True) then

Filt:='(КлиентID='+IntToStr(c)+') and (Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

if (chbClient.Checked=False)and(chbRoom.Checked=True)and(chbDate.Checked=True) then

Filt:='(ЗалID='+IntToStr(r)+') and (Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

//3

if (chbClient.Checked=True)and(chbRoom.Checked=True)and(chbDate.Checked=True) then

Filt:='(КлиентID='+IntToStr(c)+') and (ЗалID='+IntToStr(r)+') and (Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

with uDM.DM.tbRegistration do

begin

Filter:=Filt;

Filtered:=True;

end;

end;

procedure TfmRegistration.bbtPrintClick(Sender: TObject);

var

ExcelApp,range: OLEVariant;

row: Integer;

CellFrom,CellTo: string;

begin

try

ExcelApp:= CreateOleObject('Excel.Application');

except

Exit;

end;

ExcelApp.Visible:= True;

ExcelApp.Workbooks.Add;

ExcelApp.WorkSheets[1].Cells[1, 1]:=DateToStr(Now);

range:=ExcelApp.WorkSheets[1].Range['A1', 'A2'];

range.columnWidth:=13;

range:=ExcelApp.WorkSheets[1].Range['B1', 'B2'];

range.columnWidth:=13;

range:=ExcelApp.WorkSheets[1].Range['C1', 'C2'];

range.columnWidth:=25;

range:=ExcelApp.WorkSheets[1].Range['D1', 'D2'];

range.columnWidth:=25;

range:=ExcelApp.WorkSheets[1].Range['E1', 'E2'];

range.columnWidth:=25;

range:=ExcelApp.WorkSheets[1].Range['A2', 'E2'];

range.font.size:=12;

range.font.bold:=True;

ExcelApp.WorkSheets[1].Cells[2, 4]:='Предварительная запись';

range:=ExcelApp.WorkSheets[1].Range['A4', 'E4'];

range.font.bold:=True;

range.HorizontalAlignment:= 3;

ExcelApp.WorkSheets[1].Cells[4, 1]:='Дата';

ExcelApp.WorkSheets[1].Cells[4, 2]:='Время';

ExcelApp.WorkSheets[1].Cells[4, 3]:='Клиент';

ExcelApp.WorkSheets[1].Cells[4, 4]:='Зал';

ExcelApp.WorkSheets[1].Cells[4, 5]:='Комментарий';

if uDM.DM.tbRegistration.RecordCount>0 then

begin

row:=5;

with uDM.DM.tbRegistration do

begin

First;

while Eof=False do

begin

ExcelApp.WorkSheets[1].Cells[row, 1]:=Fields[0].AsString;

ExcelApp.WorkSheets[1].Cells[row, 2]:=FormatDateTime('tt AM/PM',Fields[1].AsDateTime);

ExcelApp.WorkSheets[1].Cells[row, 3]:=Fields[5].AsString;

ExcelApp.WorkSheets[1].Cells[row, 4]:=Fields[6].AsString;

ExcelApp.WorkSheets[1].Cells[row, 5]:=Fields[4].AsString;

Next;

row:=row+1;

end;

First;

end;

CellFrom:= 'A5';

CellTo:= 'A' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'B5';

CellTo:= 'B' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'A4';

CellTo:= 'E' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.Borders.Weight:= 2;

end;

end;

procedure TfmRegistration.bbtExitClick(Sender: TObject);

begin

fmRegistration.Close;

end;

end.

////////

unit uClients;

interface

uses

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

ExtCtrls, StdCtrls, DBCtrls, Buttons, ExtDlgs, DBGrids, Grids, Mask, DB,

ComObj, jpeg;

type

TfmClients = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Splitter1: TSplitter;

DBEdit4: TDBEdit;

Label4: TLabel;

Label5: TLabel;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label6: TLabel;

Label7: TLabel;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label8: TLabel;

DBCheckBox1: TDBCheckBox;

DBNavigator1: TDBNavigator;

bbtExit: TBitBtn;

Bevel1: TBevel;

Label9: TLabel;

edFirstName: TEdit;

CheckBox1: TCheckBox;

Label10: TLabel;

lbQuantity: TLabel;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

btFoto: TButton;

Panel2: TPanel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Splitter2: TSplitter;

bbtPrint: TBitBtn;

procedure edFirstNameChange(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure btFotoClick(Sender: TObject);

procedure bbtPrintClick(Sender: TObject);

procedure bbtExitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmClients: TfmClients;

implementation

uses uDM;

procedure TfmClients.edFirstNameChange(Sender: TObject);

begin

if edFirstName.Text='' then

begin

uDM.DM.tbClients.First;

end

else

begin

uDM.DM.tbClients.Locate('Фамилия',edFirstName.Text,[loCaseInsensitive,loPartialKey]);

end;

end;

procedure TfmClients.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=True then

begin

with uDM.DM.tbClients do

begin

Filter:='';

Filter:='Активен=True';

Filtered:=True;

end;

end

else

begin

uDM.DM.tbClients.Filtered:=False;

end;

end;

procedure TfmClients.btFotoClick(Sender: TObject);

var

b: TBitmap;

j: TJPEGImage;

ext:string;

begin

if OpenPictureDialog1.Execute then

begin

ext:=ExtractFileExt(OpenPictureDialog1.FileName);

if (ext='.jpg') or (ext='.jpeg') then

begin

uDM.DM.tbClients.Edit;

b:=TBitmap.Create;

j:= TJPEGImage.Create;

j.LoadFromFile(OpenPictureDialog1.FileName);

b.Assign(j);

DBImage1.Picture.Graphic.Assign(b);

uDM.DM.tbClients.Post;

end;

if (ext='.bmp') then

begin

uDM.DM.tbClients.Edit;

b:=TBitmap.Create;

b.LoadFromFile(OpenPictureDialog1.FileName);

DBImage1.Picture.Graphic.Assign(b);

uDM.DM.tbClients.Post;

end

else

begin

Exit;

end;

end;

end;

procedure TfmClients.bbtPrintClick(Sender: TObject);

var

ExcelApp,range: OLEVariant;

row: Integer;

CellFrom,CellTo: string;

begin

try

ExcelApp:= CreateOleObject('Excel.Application');

except

Exit;

end;

ExcelApp.Visible:= True;

ExcelApp.Workbooks.Add;

ExcelApp.WorkSheets[1].Cells[1, 1]:=DateToStr(Now);

range:=ExcelApp.WorkSheets[1].Range['A1', 'A2'];

range.columnWidth:=18;

range:=ExcelApp.WorkSheets[1].Range['B1', 'B2'];

range.columnWidth:=18;

range:=ExcelApp.WorkSheets[1].Range['C1', 'C2'];

range.columnWidth:=18;

range:=ExcelApp.WorkSheets[1].Range['D1', 'D2'];

range.columnWidth:=9;

range:=ExcelApp.WorkSheets[1].Range['E1', 'E2'];

range.columnWidth:=15;

range:=ExcelApp.WorkSheets[1].Range['F1', 'F2'];

range.columnWidth:=22;

range:=ExcelApp.WorkSheets[1].Range['G1', 'G2'];

range.columnWidth:=27;

range:=ExcelApp.WorkSheets[1].Range['H1', 'H2'];

range.columnWidth:=20;

range:=ExcelApp.WorkSheets[1].Range['I1', 'I2'];

range.columnWidth:=15;

range:=ExcelApp.WorkSheets[1].Range['A2', 'E2'];

range.font.size:=12;

range.font.bold:=True;

ExcelApp.WorkSheets[1].Cells[2, 4]:='Клиенты';

range:=ExcelApp.WorkSheets[1].Range['A4', 'I4'];

range.font.bold:=True;

range.HorizontalAlignment:= 3;

ExcelApp.WorkSheets[1].Cells[4, 1]:='Фамилия';

ExcelApp.WorkSheets[1].Cells[4, 2]:='Имя';

ExcelApp.WorkSheets[1].Cells[4, 3]:='Отчество';

ExcelApp.WorkSheets[1].Cells[4, 4]:='Активен';

ExcelApp.WorkSheets[1].Cells[4, 5]:='Дата рождения';

ExcelApp.WorkSheets[1].Cells[4, 6]:='Телефоны';

ExcelApp.WorkSheets[1].Cells[4, 7]:='Адрес';

ExcelApp.WorkSheets[1].Cells[4, 8]:='Договор';

ExcelApp.WorkSheets[1].Cells[4, 9]:='Кол-во визитов';

if uDM.DM.tbClients.RecordCount>0 then

begin

row:=5;

with uDM.DM.tbClients do

begin

First;

while Eof=False do

begin

ExcelApp.WorkSheets[1].Cells[row, 1]:=Fields[1].AsString;

ExcelApp.WorkSheets[1].Cells[row, 2]:=Fields[2].AsString;

ExcelApp.WorkSheets[1].Cells[row, 3]:=Fields[3].AsString;

ExcelApp.WorkSheets[1].Cells[row, 4]:=Fields[10].AsString;

ExcelApp.WorkSheets[1].Cells[row, 5]:=Fields[4].AsString;

ExcelApp.WorkSheets[1].Cells[row, 6]:=Fields[5].AsString;

ExcelApp.WorkSheets[1].Cells[row, 7]:=Fields[6].AsString;

ExcelApp.WorkSheets[1].Cells[row, 8]:=Fields[7].AsString;

ExcelApp.WorkSheets[1].Cells[row, 9]:=Fields[9].AsString;

Next;

row:=row+1;

end;

First;

end;

CellFrom:= 'D5';

CellTo:= 'D' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'E5';

CellTo:= 'E' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'I5';

CellTo:= 'I' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'A4';

CellTo:= 'I' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.Borders.Weight:= 2;

end;

end;

procedure TfmClients.bbtExitClick(Sender: TObject);

begin

fmClients.Close;

end;

end.

///////

unit uRooms;

interface

uses

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

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

type

TfmRooms = class(TForm)

Panel1: TPanel;

DBNavigator1: TDBNavigator;

bbtExit: TBitBtn;

DBGrid1: TDBGrid;

procedure bbtExitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmRooms: TfmRooms;

implementation

procedure TfmRooms.bbtExitClick(Sender: TObject);

begin

fmRooms.Close;

end;

end.

//////

unit uVisits;

interface

uses

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

ExtCtrls, StdCtrls, DBCtrls, Buttons, DBGrids, ComCtrls, Grids, Mask,Variants,ComObj;

type

TfmVisits = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

bbtExit: TBitBtn;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Splitter1: TSplitter;

DBLookupComboBox1: TDBLookupComboBox;

Label4: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label5: TLabel;

GroupBox1: TGroupBox;

dblcbClient: TDBLookupComboBox;

chbClient: TCheckBox;

chbRoom: TCheckBox;

dblcbRoom: TDBLookupComboBox;

chbDate: TCheckBox;

Label6: TLabel;

Bevel1: TBevel;

dtpDateFrom: TDateTimePicker;

dtpDateTo: TDateTimePicker;

Label7: TLabel;

DBEdit4: TDBEdit;

bbtPrint: TBitBtn;

procedure chbClientClick(Sender: TObject);

procedure bbtPrintClick(Sender: TObject);

procedure bbtExitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmVisits: TfmVisits;

implementation

uses uDM;

procedure TfmVisits.chbClientClick(Sender: TObject);

var

filt:string;

c,r:Integer;

begin

if dblcbClient.KeyValue=null then c:=0

else c:=dblcbClient.KeyValue;

if dblcbRoom.KeyValue=null then r:=0

else r:=dblcbRoom.KeyValue;

//0

if (chbClient.Checked=False)and(chbRoom.Checked=False)and(chbDate.Checked=False) then

Filt:='';

//1

if (chbClient.Checked=True)and(chbRoom.Checked=False)and(chbDate.Checked=False) then

Filt:='КлиентID='+IntToStr(c);

if (chbClient.Checked=False)and(chbRoom.Checked=True)and(chbDate.Checked=False) then

Filt:='ЗалID='+IntToStr(r);

if (chbClient.Checked=False)and(chbRoom.Checked=False)and(chbDate.Checked=True) then

Filt:='(Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

//2

if (chbClient.Checked=True)and(chbRoom.Checked=True)and(chbDate.Checked=False) then

Filt:='(КлиентID='+IntToStr(c)+') and (ЗалID='+IntToStr(r)+')';

if (chbClient.Checked=True)and(chbRoom.Checked=False)and(chbDate.Checked=True) then

Filt:='(КлиентID='+IntToStr(c)+') and (Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

if (chbClient.Checked=False)and(chbRoom.Checked=True)and(chbDate.Checked=True) then

Filt:='(ЗалID='+IntToStr(r)+') and (Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

//3

if (chbClient.Checked=True)and(chbRoom.Checked=True)and(chbDate.Checked=True) then

Filt:='(КлиентID='+IntToStr(c)+') and (ЗалID='+IntToStr(r)+') and (Дата>='+DateToStr(dtpDateFrom.Date)+') and (Дата<'+DateToStr(dtpDateTo.Date)+')';

with uDM.DM.tbVisits do

begin

Filter:=Filt;

Filtered:=True;

end;

end;

procedure TfmVisits.bbtPrintClick(Sender: TObject);

var

ExcelApp,range: OLEVariant;

row: Integer;

CellFrom,CellTo: string;

begin

try

ExcelApp:= CreateOleObject('Excel.Application');

except

Exit;

end;

ExcelApp.Visible:= True;

ExcelApp.Workbooks.Add;

ExcelApp.WorkSheets[1].Cells[1, 1]:=DateToStr(Now);

range:=ExcelApp.WorkSheets[1].Range['A1', 'A2'];

range.columnWidth:=13;

range:=ExcelApp.WorkSheets[1].Range['B1', 'B2'];

range.columnWidth:=13;

range:=ExcelApp.WorkSheets[1].Range['C1', 'C2'];

range.columnWidth:=25;

range:=ExcelApp.WorkSheets[1].Range['D1', 'D2'];

range.columnWidth:=25;

range:=ExcelApp.WorkSheets[1].Range['E1', 'E2'];

range.columnWidth:=10;

range:=ExcelApp.WorkSheets[1].Range['F1', 'F2'];

range.columnWidth:=30;

range:=ExcelApp.WorkSheets[1].Range['A2', 'E2'];

range.font.size:=12;

range.font.bold:=True;

ExcelApp.WorkSheets[1].Cells[2, 4]:='Посещения';

range:=ExcelApp.WorkSheets[1].Range['A4', 'F4'];

range.font.bold:=True;

range.HorizontalAlignment:= 3;

ExcelApp.WorkSheets[1].Cells[4, 1]:='Дата';

ExcelApp.WorkSheets[1].Cells[4, 2]:='Время';

ExcelApp.WorkSheets[1].Cells[4, 3]:='Клиент';

ExcelApp.WorkSheets[1].Cells[4, 4]:='Зал';

ExcelApp.WorkSheets[1].Cells[4, 5]:='Ключ';

ExcelApp.WorkSheets[1].Cells[4, 6]:='Комментарий';

if uDM.DM.tbVisits.RecordCount>0 then

begin

row:=5;

with uDM.DM.tbVisits do

begin

First;

while Eof=False do

begin

ExcelApp.WorkSheets[1].Cells[row, 1]:=Fields[0].AsString;

ExcelApp.WorkSheets[1].Cells[row, 2]:=FormatDateTime('t AM/PM',Fields[1].AsDateTime);

ExcelApp.WorkSheets[1].Cells[row, 3]:=Fields[6].AsString;

ExcelApp.WorkSheets[1].Cells[row, 4]:=Fields[7].AsString;

ExcelApp.WorkSheets[1].Cells[row, 5]:=Fields[4].AsString;

ExcelApp.WorkSheets[1].Cells[row, 6]:=Fields[5].AsString;

Next;

row:=row+1;

end;

First;

end;

CellFrom:= 'A5';

CellTo:= 'A' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'B5';

CellTo:= 'B' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'E5';

CellTo:= 'E' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.HorizontalAlignment:= 3;

CellFrom:= 'A4';

CellTo:= 'F' + InttoStr(row-1);

range:=ExcelApp.WorkSheets[1].Range[CellFrom, CellTo];

range.Borders.Weight:= 2;

end;

end;

procedure TfmVisits.bbtExitClick(Sender: TObject);

begin

fmVisits.Close;

end;

end.

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