Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Разработка базы данных для администрации спортивного комплекса "Маяк"

Разработка базы данных для администрации спортивного комплекса "Маяк"

Разработка базы данных с целью автоматизации процессов составления, ведения и распространения информации об расписании занятий в спортивном комплексе "Маяк". Анализ предметной области. Разработка алгоритмов работы программы и приложения пользователя.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 12.07.2015
Размер файла 1,0 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

Edit1: TEdit;

Label14: TLabel;

Button1: TButton;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Series2: TBarSeries;

Chart2: TChart;

BarSeries1: TBarSeries;

BarSeries2: TBarSeries;

Button2: TButton;

Chart3: TChart;

BarSeries3: TBarSeries;

BarSeries4: TBarSeries;

Label19: TLabel;

Label20: TLabel;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

DBEdit32: TDBEdit;

DBEdit33: TDBEdit;

DBEdit34: TDBEdit;

DBEdit35: TDBEdit;

DBEdit36: TDBEdit;

PrinterSetupDialog1: TPrinterSetupDialog;

PrintDialog1: TPrintDialog;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit3, Unit4, Unit5,Unit6, Unit7, Unit8, Unit9;

{$R *. dfm}

procedure TForm15. Button1Click (Sender: TObject);

begin

dm. Query7. Active: =false;

dm. Query8. Active: =false;

dm. Query9. Active: =false;

dm. Query10. Active: =false;

dm. Query11. Active: =false;

dm. Query12. Active: =false;

dm. Query13. Active: =false;

dm. Query14. Active: =false;

dm. Query15. Active: =false;

dm. Query16. Active: =false;

dm. Query17. Active: =false;

dm. Query18. Active: =false;

dm. Query22. Active: =false;

dm. Query23. Active: =false;

dm. Query24. Active: =false;

dm. Query25. Active: =false;

dm. Query26. Active: =false;

dm. Query27. Active: =false;

Продолжение приложения Б

dm. Query28. Active: =false;

dm. Query29. Active: =false;

dm. Query30. Active: =false;

dm. Query31. Active: =false;

dm. Query32. Active: =false;

dm. Query33. Active: =false;

dm. Query7. SQL [2]: ='where (r2_5>='+Chr (39) +'01.01. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.02. '+edit1. Text+Chr (39) +') ';

dm. Query8. SQL [2]: ='where (r2_5>='+Chr (39) +'01.02. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.03. '+edit1. Text+Chr (39) +') ';

dm. Query9. SQL [2]: ='where (r2_5>='+Chr (39) +'01.03. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.04. '+edit1. Text+Chr (39) +') ';

dm. Query10. SQL [2]: ='where (r2_5>='+Chr (39) +'01.04. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.05. '+edit1. Text+Chr (39) +') ';

dm. Query11. SQL [2]: ='where (r2_5>='+Chr (39) +'01.05. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.06. '+edit1. Text+Chr (39) +') ';

dm. Query12. SQL [2]: ='where (r2_5>='+Chr (39) +'01.06. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.07. '+edit1. Text+Chr (39) +') ';

dm. Query13. SQL [2]: ='where (r2_5>='+Chr (39) +'01.07. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.08. '+edit1. Text+Chr (39) +') ';

dm. Query14. SQL [2]: ='where (r2_5>='+Chr (39) +'01.08. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.09. '+edit1. Text+Chr (39) +') ';

dm. Query15. SQL [2]: ='where (r2_5>='+Chr (39) +'01.09. '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.10 '+edit1. Text+Chr (39) +') ';

dm. Query16. SQL [2]: ='where (r2_5>='+Chr (39) +'01.10 '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.11 '+edit1. Text+Chr (39) +') ';

dm. Query17. SQL [2]: ='where (r2_5>='+Chr (39) +'01.11 '+edit1. Text+Chr (39) +') and (r2_5<'+Chr (39) +'01.12 '+edit1. Text+Chr (39) +') ';

dm. Query18. SQL [2]: ='where (r2_5>='+Chr (39) +'01.12 '+edit1. Text+Chr (39) +') and (r2_5<='+Chr (39) +'31.12 '+edit1. Text+Chr (39) +') ';

//

dm. Query22. SQL [2]: ='where (r7_2>='+Chr (39) +'01.01. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.02. '+edit1. Text+Chr (39) +') ';

dm. Query23. SQL [2]: ='where (r7_2>='+Chr (39) +'01.02. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.03. '+edit1. Text+Chr (39) +') ';

dm. Query24. SQL [2]: ='where (r7_2>='+Chr (39) +'01.03. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.04. '+edit1. Text+Chr (39) +') ';

dm. Query25. SQL [2]: ='where (r7_2>='+Chr (39) +'01.04. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.05. '+edit1. Text+Chr (39) +') ';

dm. Query26. SQL [2]: ='where (r7_2>='+Chr (39) +'01.05. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.06. '+edit1. Text+Chr (39) +') ';

dm. Query27. SQL [2]: ='where (r7_2>='+Chr (39) +'01.06. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.07. '+edit1. Text+Chr (39) +') ';

dm. Query28. SQL [2]: ='where (r7_2>='+Chr (39) +'01.07. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.08. '+edit1. Text+Chr (39) +') ';

dm. Query29. SQL [2]: ='where (r7_2>='+Chr (39) +'01.08. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.09. '+edit1. Text+Chr (39) +') ';

dm. Query30. SQL [2]: ='where (r7_2>='+Chr (39) +'01.09. '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.10 '+edit1. Text+Chr (39) +') ';

dm. Query31. SQL [2]: ='where (r7_2>='+Chr (39) +'01.10 '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.11 '+edit1. Text+Chr (39) +') ';

dm. Query32. SQL [2]: ='where (r7_2>='+Chr (39) +'01.11 '+edit1. Text+Chr (39) +') and (r7_2<'+Chr (39) +'01.12 '+edit1. Text+Chr (39) +') ';

dm. Query33. SQL [2]: ='where (r7_2>='+Chr (39) +'01.12 '+edit1. Text+Chr (39) +') and (r7_2<='+Chr (39) +'31.12 '+edit1. Text+Chr (39) +') ';

dm. Query7. Active: =true;

dm. Query8. Active: =true;

Продолжение приложения Б

dm. Query9. Active: =true;

dm. Query10. Active: =true;

dm. Query11. Active: =true;

dm. Query12. Active: =true;

dm. Query13. Active: =true;

dm. Query14. Active: =true;

dm. Query15. Active: =true;

dm. Query16. Active: =true;

dm. Query17. Active: =true;

dm. Query18. Active: =true;

dm. Query22. Active: =true;

dm. Query23. Active: =true;

dm. Query24. Active: =true;

dm. Query25. Active: =true;

dm. Query26. Active: =true;

dm. Query27. Active: =true;

dm. Query28. Active: =true;

dm. Query29. Active: =true;

dm. Query30. Active: =true;

dm. Query31. Active: =true;

dm. Query32. Active: =true;

dm. Query33. Active: =true;

if (dbedit13. Text='') then dbedit13. Text: ='0';

if (dbedit14. Text='') then dbedit14. Text: ='0';

if (dbedit15. Text='') then dbedit15. Text: ='0';

if (dbedit16. Text='') then dbedit16. Text: ='0';

if (dbedit17. Text='') then dbedit17. Text: ='0';

if (dbedit18. Text='') then dbedit18. Text: ='0';

if (dbedit19. Text='') then dbedit19. Text: ='0';

if (dbedit20. Text='') then dbedit20. Text: ='0';

if (dbedit21. Text='') then dbedit21. Text: ='0';

if (dbedit22. Text='') then dbedit22. Text: ='0';

if (dbedit23. Text='') then dbedit23. Text: ='0';

if (dbedit24. Text='') then dbedit24. Text: ='0';

series1. Clear;

Series1. AddXY (1,StrToint (dbedit1. Text),'',clGreen);

Series1. AddXY (2,StrToint (dbedit2. Text),'',clGreen);

Series1. AddXY (3,StrToint (dbedit3. Text),'',clGreen);

Series1. AddXY (4,StrToint (dbedit4. Text),'',clGreen);

Series1. AddXY (5,StrToint (dbedit5. Text),'',clGreen);

Series1. AddXY (6,StrToint (dbedit6. Text),'',clGreen);

Series1. AddXY (7,StrToint (dbedit7. Text),'',clGreen);

Series1. AddXY (8,StrToint (dbedit8. Text),'',clGreen);

Series1. AddXY (9,StrToint (dbedit9. Text),'',clGreen);

Series1. AddXY (10,StrToint (dbedit10. Text),'',clGreen);

Series1. AddXY (11,StrToint (dbedit11. Text),'',clGreen);

Series1. AddXY (12,StrToint (dbedit12. Text),'',clGreen);

barseries2. Clear;

barseries2. AddXY (1,StrToint (dbedit13. Text),'',clGreen);

barseries2. AddXY (2,StrToint (dbedit14. Text),'',clGreen);

barseries2. AddXY (3,StrToint (dbedit15. Text),'',clGreen);

barseries2. AddXY (4,StrToint (dbedit16. Text),'',clGreen);

barseries2. AddXY (5,StrToint (dbedit17. Text),'',clGreen);

barseries2. AddXY (6,StrToint (dbedit18. Text),'',clGreen);

barseries2. AddXY (7,StrToint (dbedit19. Text),'',clGreen);

barseries2. AddXY (8,StrToint (dbedit20. Text),'',clGreen);

barseries2. AddXY (9,StrToint (dbedit21. Text),'',clGreen);

barseries2. AddXY (10,StrToint (dbedit22. Text),'',clGreen);

barseries2. AddXY (11,StrToint (dbedit23. Text),'',clGreen);

barseries2. AddXY (12,StrToint (dbedit24. Text),'',clGreen);

barseries3. Clear;

barseries3. AddXY (1,StrToint (dbedit25. Text),'',clGreen);

barseries3. AddXY (2,StrToint (dbedit26. Text),'',clGreen);

barseries3. AddXY (3,StrToint (dbedit27. Text),'',clGreen);

barseries3. AddXY (4,StrToint (dbedit28. Text),'',clGreen);

barseries3. AddXY (5,StrToint (dbedit29. Text),'',clGreen);

barseries3. AddXY (6,StrToint (dbedit30. Text),'',clGreen);

barseries3. AddXY (7,StrToint (dbedit31. Text),'',clGreen);

barseries3. AddXY (8,StrToint (dbedit32. Text),'',clGreen);

barseries3. AddXY (9,StrToint (dbedit33. Text),'',clGreen);

barseries3. AddXY (10,StrToint (dbedit34. Text),'',clGreen);

barseries3. AddXY (11,StrToint (dbedit35. Text),'',clGreen);

barseries3. AddXY (12,StrToint (dbedit36. Text),'',clGreen);

end;

procedure TForm15. Button2Click (Sender: TObject);

begin

PrinterSetupDialog1. Execute;

Form15. PrintScale: = poPrintToFit;

Form15. Print;

end;

end.

unit Unit16;

interface

uses

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

Dialogs, unit2, DBCtrls, StdCtrls, Mask, Grids, DBGrids;

type

TForm16 = class (TForm)

DBLookupComboBox1: TDBLookupComboBox;

Button1: TButton;

DBLookupComboBox2: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

DBGrid1: TDBGrid;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label16: TLabel;

Label17: TLabel;

Button3: TButton;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label15: TLabel;

Label18: TLabel;

Label19: TLabel;

DBEdit5: TDBEdit;

Label20: TLabel;

PrinterSetupDialog1: TPrinterSetupDialog;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form16: TForm16;

s: string;

implementation

{$R *. dfm}

procedure TForm16. Button1Click (Sender: TObject);

begin

dm. Query21. Active: =false;

dm. Query21. SQL [3]: ='where r1_2='+Chr (39) +DBLookupComboBox1. KeyValue+Chr (39);

dm. Query21. Active: =true;

end;

procedure TForm16. Button2Click (Sender: TObject);

begin

edit1. Text: ='';

edit2. Text: ='';

edit3. Text: ='';

edit4. Text: ='';

edit5. Text: ='';

edit6. Text: ='';

edit7. Text: ='';

edit8. Text: ='';

edit9. Text: ='';

edit10. Text: ='';

edit11. Text: ='';

edit12. Text: ='';

dm. Query19. Active: =false;

s: =DBLookupComboBox2. KeyValue;

dm. Query19. SQL [5]: ='where r1_2='+Chr (39) +DBLookupComboBox1. KeyValue+Chr (39) +' and r2_1='+s;

Продолжение приложения Б

dm. Query19. Active: =true;

dm. Query34. Active: =false;

dm. Query34. SQL [7]: ='where r1_2='+Chr (39) +DBLookupComboBox1. KeyValue+Chr (39) +' and r2_1='+s;

dm. Query34. Active: =true;

try edit1. Text: =dbgrid1. DataSource. DataSet. Fields [0]. AsString; except; end;

try edit2. Text: =dbgrid1. DataSource. DataSet. Fields [1]. AsString; except; end;

try edit3. Text: =dbgrid1. DataSource. DataSet. Fields [2]. AsString; except; end;

try edit4. Text: =dbgrid1. DataSource. DataSet. Fields [3]. AsString; except; end;

try edit5. Text: =dbgrid1. DataSource. DataSet. Fields [4]. AsString; except; end;

try edit6. Text: =dbgrid1. DataSource. DataSet. Fields [5]. AsString; except; end;

try edit7. Text: =dbgrid1. DataSource. DataSet. Fields [6]. AsString; except; end;

try edit8. Text: =dbgrid1. DataSource. DataSet. Fields [7]. AsString; except; end;

try edit9. Text: =dbgrid1. DataSource. DataSet. Fields [8]. AsString; except; end;

try edit10. Text: =dbgrid1. DataSource. DataSet. Fields [9]. AsString; except; end;

try edit11. Text: =dbgrid1. DataSource. DataSet. Fields [10]. AsString; except; end;

try edit12. Text: =dbgrid1. DataSource. DataSet. Fields [11]. AsString; except; end;

end;

procedure TForm16. Button3Click (Sender: TObject);

begin

PrinterSetupDialog1. Execute;

Form16. PrintScale: = poPrintToFit;

Form16. Print;

end;

end.

unit Unit17;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm17 = class (TForm)

QuickRep1: TQuickRep;

v: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRLabel6: TQRLabel;

QRDBText5: TQRDBText;

QRLabel7: TQRLabel;

QRLabel1: TQRLabel;

QRSubDetail1: TQRSubDetail;

QRDBText6: TQRDBText;

QRShape1: TQRShape;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form17: TForm17;

implementation

{$R *. dfm}

end.

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

Страница:


Подобные документы

  • Создание базы данных для преподавательской кафедры

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

    курсовая работа [1,3 M], добавлен 08.08.2012

  • Базы данных

    Словесное описание предметной области. Построение схемы функциональных зависимостей. Реализация базы данных средствами утилиты Enterprise Manager в формате SQL Server Management Studio. Разработка алгоритмов работы программы и приложения пользователя.

    дипломная работа [1,8 M], добавлен 26.03.2015

  • Разработка программы "Расписание учебных занятий"

    Назначение программного модуля (базы данных). Разработка информационной базы данных для колледжа. Поиск пользователями информации о преподавателях и дисциплинах. Анализ входной и выходной информации. Разработка алгоритма работы программы-приложения.

    реферат [513,1 K], добавлен 22.10.2012

  • Проектирование и разработка базы данных "Аэропорт"

    Цели проектирования базы данных "Аэропорт": обработка информации о рейсах, расписании самолетов и билетах. Анализ предметной области. Принцип работы модели. Особенности реализации информационной системы. Среда программирования клиентского приложения.

    лабораторная работа [2,4 M], добавлен 07.01.2014

  • Проектирование и создание базы данных предметной области

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

    курсовая работа [700,0 K], добавлен 14.01.2015

  • Разработка программы автоматизации учета выплат учащимися профсоюзных взносов

    Анализ входной информации необходимой для решения задачи. Разработка исходных данных контрольного примера создания базы данных. Описание технологии и алгоритмов решения задачи и их математических реализаций. Разработка диалогов приложения пользователя.

    курсовая работа [1,3 M], добавлен 26.04.2015

  • Организация автоматизации учета на предприятиях

    Разработка базы данных и приложения для автоматизации ведения кадрового учёта предприятия. Формирование таблицы анкетных данных. Разработка графического интерфейса пользователя клиентских приложений. Возможность подключения к удаленной базе данных.

    дипломная работа [47,6 K], добавлен 17.02.2009

  • Разработка базы данных "ВУЗ"

    Построение концептуальной модели базы данных. Физическое проектирование программы для автоматизации работы пользователя в Microsoft Access. Разработка системы запросов информации на основе таблиц и получения необходимых отчетов в требуемых формах.

    курсовая работа [2,9 M], добавлен 08.05.2015

  • Разработка базы данных для секретаря Дома детского творчества

    Анализ предметной области с использованием моделей методологии ARIS и разработка ER-диаграммы. Описание входной и выходной информации для проектирования реляционной базы данных. Разработка управляющих запросов и связей между ними с помощью языка SQL.

    курсовая работа [975,2 K], добавлен 30.01.2014

  • Разработка базы данных поликлиники

    Анализ предметной области. Обзор программ-аналогов. Рассмотрение средств решения поставленной задачи. Проектирование структуры программы и базовых алгоритмов. Изучение руководства программиста и пользователя. Проектирование структуры базы данных.

    курсовая работа [1,0 M], добавлен 14.11.2017

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены