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

Автор: Пользователь скрыл имя, 05 Апреля 2012 в 16:58, дипломная работа

Описание работы

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

Содержание

Введение
Глава 1. Аналитическая часть
1.1. Понятия и характеристика баз данных
1.2. Анализ предметной области «Автоматизированное рабочее место администратора фитнес-клуба»
1.2.1. Должностная инструкция администратора фитнес-клуба
1.2.2. Особенности автоматизации работы фитнес-клуба
Глава 2. Проектная часть
2.1. Инфологическое проектирование. Создание ER-диаграммы
2.2. Логическое проектирование
2.3. Нормализация таблиц реляционной базы данных
2.4. Применение CASE-средства ERwin для информационного проектирования
Глава 3. Разработка и реализация приложения
3.1. Выбор средств создания интерфейса
3.2. Разработка интерфейса
3.3. Программирование работы приложения в среде Borland Delphi 7
Заключение
Список литературы
Приложения

Скачать полностью (2.45 Мб) Сколько стоит заказать работу?
Работа содержит 1 файл

Дипломная работа Хакмовой Р.Р..doc

— 2.79 Мб (Скачать)

               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

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