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

Автор: Пользователь скрыл имя, 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 Мб (Скачать)

         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.

 

 



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