Автоматизированное рабочее место администратора фитнес-клуба

Рис. 3.2.9.

Рис. 3.2.10.

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

Рис. 3.2.11.

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.).

Рис. 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]);