Автоматизированная информационная система ‘Учет животных, птиц, рептилий в зоопарке’

Целью данной курсовой работы является разработка и создание базы данных предметной области «Индивидуальный план преподавателя» в СУБД SQL Server 2008 по новым информационным технологиям на платформе Visual Studio 2010 с использованием языка программирования высокого уровня C# 4.0.

Для достижения цели поставлены инженерные задачи разработать:

1) Информационно-логическую модель предметной области по нотациям Ричарда Баркера;

2) Даталогическую модель реляционной БД, нормализованную до НФБК в СУБД SQL Server 2008 в виде диаграммы схемы отношений;

3) Запросы к БД на уровне представлений и функций в СУБД SQL Server 2008;

4) Мероприятия по защите и обеспечению целостности базы данных;

5) Приложение интерфейса для SQL-сервера базы данных на языке программирования С# в программной среде Visual Studio 2010;

6) Инструкцию по администрированию и пользованию БД.

Система SQL Server 2008 отталкивается от концепции платформы данных Майкрософт: она упрощает управление любыми данными в любой момент времени. Она позволяет хранить в базах данных информацию, полученную из структурированных, полу-структурированных и неструктурированных источников.

В SQL Server 2008 имеется большой набор интегрированных служб, расширяющих возможности использования данных, а именно: составлять запросы, выполнять поиск, проводить синхронизацию, делать отчеты, анализировать данные.

Система SQL Server 2008 позволяет обращаться к данным из любого приложения, разработанного с применением технологий Microsoft .NET и Visual Studio.

Анализ данных предметной области

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

1- типы животных

  • происхождение
  • условия обитания

Рисунок 1 — Схема информационных потоков

В ходе анализа данных предметной области были выделены следующие сущности и характеризующие их атрибуты:

  • Сотрудник: Номер, Фамилия, Имя, Отчество, Дата рождения, Пол, Телефон, Семейное положение, Должность, Код супруга;
  • Зона обитания: Код, Название, Характеристика;
  • Вид млекопитающего: Наименование, Происхождение, Группа;
  • Питомец: Номер питомца, Имя, Дата рождения, Пол, Вид млекопитающего, Зона обитания, Номер сотрудника, Номер Типа рациона;
  • Сведения о животном: Код, Название страны, Дата улёта /начала спячки, Дата прилёта/конец спячки, Температура, Номер питомца.

Тип рациона: Номер типа, Название;

9 стр., 4358 слов

Курсовая работа по информатике база данных пгупс

... курсовой работы по дисциплине «Информатика» Сызранов Илья Юрьевич Тема: «Создание и обработка базы данных» Срок сдачи обучающимся законченной работы: 22 мая 2017 года Исходные данные для выполнения проекта: База данных должна содержать следующие элементы данных: Номер ...

  • Рацион: Номер рациона, Наименование, Список продуктов, Номертипа.

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

Анализ данных предметной области 1

Рисунок 2 — Контекстная диаграмма предметной области

Более подробно описание работ показано на диаграмме декомпозиции на рисунке 3.

Анализ данных предметной области 2

Рисунок 3 — Диаграмма декомпозиции предметной области

Как каждый процесс преобразует свои входные данные в выходные, и отношения между этими процессами приведены на диаграмме потоков данных на рисунке 4.

Анализ данных предметной области 3

Рисунок 4 — Диаграмма DFD

база данные программирование delphi

Анализ данных предметной области 4

Рисунок 5 — Диаграмма IDEF3

Информационно-логическая модель базы данных

Информационно-логическая модель предметной области по нотациям Ричарда Баркера приведена на рисунке 6.

Сотрудник Зона обитания Вид млекопитающих

Питомец Сведения о животном

Рацион Тип рациона

Рисунок 6 — Информационно-логическая модель базы данных

Даталогическая модель базы данных

Отношение находится в ЗНФ в том случае, если оно находится во 2НФ, не ключевые атрибуты взаимно независимы (исключены так называемые транзитивные зависимости) и каждый не ключевой атрибут неприводимо зависит от первичного ключа (то есть, возможно изменять значение атрибутов без изменения первичного ключа и других не ключевых атрибутов).

Таким образом, даталогическая модель реляционной БД, нормализованная до 3НФ в СУБД SQL Server 2008 в виде диаграммы схемы отношений имеет вид, представленный на рисунке 7.

Даталогическая модель базы данных 1

Рисунок 7 — Диаграмма схемы отношений

Физическое проектирование

При физическом проектировании были получены таблицы 1-7.

Вид млекопитающих

Физическое проектирование 1

Зона обитания

Физическое проектирование 2

Питомец

Физическое проектирование 3

Рацион

Физическое проектирование 4

Сведения о животном

Физическое проектирование 5

Сотрудник

Физическое проектирование 6

Тип рациона

Физическое проектирование 7

Мероприятия по защите и обеспечению целостности базы данных

При создании соединения с базой данных используется проверка подлинности Windows. Контроль уровней доступа пользователей осуществляется средствами базы данных — используются роли базы данных.

11 стр., 5123 слов

База данных ‘Библиотека’

... таблицами. 2.1.3 ER - диаграмма На рисунке 2.1 представлена ER-диаграмма базы данных «Библиотека». Рисунок 2.1 - Инфологическая модель базы данных «Библиотека» 2.2 Даталогическая модель базы данных В этoм рaздeлe ... рисунке 6.1 изображен результат работы триггера. библиотека клиентский приложение microsoft access Рисунок 6.1 - Результат работы триггера «UрdatеDеalTrg» 6.3 Триггер для удаления данных ...

Обеспечение целостности базы данных осуществляется путём каскадного обновления и каскадного удаления данных. Так же для каждой таблицы созданы триггеры на операции «INSERT» и «DELETE». В ходе анализа предметной области были выявлены уникальные ключи для каждой таблицы, представленной в базе данных, что обеспечивает целостность таблиц.

  • Приложение интерфейса для SQL-сервера базы данных на языке программирования Delphi в программной среде Embarcadero RAD Studio XE2

Интерфейс пользователя основан на применении форм Windows Forms.

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

Мероприятия по защите и обеспечению целостности базы данных 1

Рисунок 8 — Создание формы для представления таблиц

Поместить на форму компонент TADOConnection (например ADOConnection1) .

В инспекторе объектов требуется выбрать ConnectionString=> UseConnectionString=>MicrosoftOleDBProvider for SQL-server. В резултате появится окно……(рисунки 9 — 10).

После этого нажать “далее” и выбрать имя сервера, аутентификацию WinNT или SQL-Server, и наконец выбрать базу данных на сервере (к этому моменту она уже должна быть создана, либо произвольную) и нажать “Проверить подключение” (рисунок 11).

Далее активировать ADOConnection1, в свойстве Connected поставить True (рисунок 12).

Мероприятия по защите и обеспечению целостности базы данных 2

Рисунок 3.1 — Подключение к базе данных

Мероприятия по защите и обеспечению целостности базы данных 3

Рисунок 9 — Организация подключения

Мероприятия по защите и обеспечению целостности базы данных 4

Рисунок 10 — Выбор подключаемых данных

Мероприятия по защите и обеспечению целостности базы данных 5

Рисунок 11 — Настройки соединения

Мероприятия по защите и обеспечению целостности базы данных 6

Рисунок 12 — Активация подключения

1) Затем добавить компонент ADO Table (рисунок 13).

Мероприятия по защите и обеспечению целостности базы данных 7

Рисунок 13 — ADOTable

После добавить компонент TDataSource (с закладки Data Access).

Свойство DataSet этого DataSource должно быть равным ADOTable1 (рисунок 14).

Мероприятия по защите и обеспечению целостности базы данных 8

Рисунок 14 — DataSource

Затем перенести на форму компонент TDBGrid с закладки DataControls. Установить его свойство DataSource в DataSource1. Данные должны отобразится в сетке DBGrid (рисунки 15 — 16).

Мероприятия по защите и обеспечению целостности базы данных 9

13 стр., 6248 слов

База данных ‘Магазин по продаже автомобилей’

... продажи автомобилей могут использовать компьютерные программы для хранения различных данных (информация о машинах, о клиентах, заказах и т.д.). Целью курсового проекта является создание программы, которая упрощает работу магазина по продаже автомобилей, ... облегчают проектирование, создание БД и выборку данных из нее. база продажа автомобиль пользователь MS Access предоставляет в распоряжение ...

Рисунок 15 — Компонент DBGrid

Мероприятия по защите и обеспечению целостности базы данных 10

Рисунок 16 — Конечная реализация подключения

Затем в данном окне произвести запрос через ADOQuery (рисунок 17).

Мероприятия по защите и обеспечению целостности базы данных 11

Рисунок 17 — Запросы

Подключение Query осуществляется по схеме рассмотренной выше. В данной реализации компонент Table не нужен, сам текст запроса находится в свойстве SQL, без наличия текста запроса объект не может быть активирован. После активации запроса, данные выборки отобразятся в DBGrid (рисунок 18).

Мероприятия по защите и обеспечению целостности базы данных 12

Рисунок 18 — Реализации запроса SQL через среду Delphi

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

В результате выполнения курсовой работы была разработана база данных «Индивидуальный план преподавателя» и были решены поставленные инженерные задачи. База данных отвечает современным требованиям, таким как: простота обновления данных, высокое быстродействие, независимость данных, безопасность данных и т.д. База данных разработана с применением технологий SQL Server Native Client10 , что позволяет использовать её широкому кругу пользователей. Возможности хранения данных в базе могут быть расширены на основе достигнутого, например, введением дополнительных параметров безопасности или добавлением новых таблиц, дающих более подробную информацию о том или ином аспекте предметной области. Таким образом, есть перспективы дальнейшего развития представленной базы данных.

Список использованных источников

[Электронный ресурс]//URL: https://liarte.ru/kursovaya/po-bazam-dannyih-zoopark/

1. Роберт Виейра Программирование баз данных Microsoft SQL Server 2005. Базовый курс. М.: ООО «И.Д. Вильямс», 2007. — 832 с.

  • Владислав Пирогов SQL Server 2005. Программирование клиент-серверных приложений. Изд-во: БХВ-Петербург, СПб, 2006. — 336 с.
  • Библиотека MSDN — http://msdn.microsoft.com/ru-ru/library/ms123401.aspx
  • Алан Бьюли Изучаем SQL.

Изд-во: «Символ-Плюс», 2007. — 312 с.

  • Дунаев В.В. Базы данных. Язык SQL. Изд-во: СПб.: БХВ-Петербург, 2006. — 288 с.
  • Алексей Жилинский Самоучитель Microsoft SQL Server 2005.

Изд-во: БХВ-Петербург, 2007. — 224 с.

Приложение А

Листинг программы

unit Unit1_glavn;

  • interface.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, DBConnAdmin, Data.DBXMSSQL, Data.FMTBcd,.StdCtrls, Data.DB, Data.SqlExpr, inifiles, Vcl.Buttons, Data.DBXSybaseASA,.DBXMySQL, Data.Win.ADODB, comobj;_nast = class(TForm): TLabel;_Host: TEdit;: TLabel;_nameBD: TEdit;: TLabel;_user: TEdit;: TLabel;: TLabel;_pass: TEdit;: TLabel;: TListBox;: TLabel;_proverka: TBitBtn;_save: TBitBtn;: TADOConnection;: TComboBox;: TCheckBox;: TMemo;SaveInifiles;LoadInifiles;FormCreate(Sender: TObject);CheckBox1Click(Sender: TObject);BitBtn_proverkaClick(Sender: TObject);BitBtn_saveClick(Sender: TObject);

{ Private declarations }

20 стр., 9728 слов

Вербицкая М. В. Forward. Английский язык для 11 класса. Unit

... to Exercise 2. Which inventions could be really useful and which are a waste of time, do you think? Why? — Слушайте и проверяйте свои ... приветствуется любителями кофе и лежебоками во всем мире. A-10. It should not be used as protection from wild animals. – Она не должна ... been followed Modal verbs – can be switched, could be downloaded, should not be discussed going to – is going to be shown Ex. 5 ...

{ Public declarations };_nast: TForm_nast;: IConnectionAdmin;: Tinifile;:string;

  • {$R *.dfm}TForm_nast.BitBtn_proverkaClick(Sender: TObject);CheckBox1.Checked then:=’Integrated Security=SSPI;User ID=»»;’else:=»;.Connected:=false;.ConnectionString:=»;:=stroka+’User ID=’+Edit_user.Text+’;
  • Password=’+Edit_pass.Text+’;’;.ConnectionString:=ADOConnection1.ConnectionString+’Provider=’+ComboBox1.Text+’;Persist Security Info=False;
  • Initial Catalog=’+Edit_nameBD.Text+’;Data Source=’+Edit_Host.Text+’;’+ stroka+Memo1.Lines.Text;.Connected:=true;.GetTableNames(ListBox1.Items,false);;TForm_nast.BitBtn_saveClick(Sender: TObject);;;TForm_nast.CheckBox1Click(Sender: TObject);CheckBox1.Checked then begin_pass.Enabled:=false;_user.Enabled:=false;else begin_pass.Enabled:=true;_user.Enabled:=true;;;TForm_nast.FormCreate(Sender: TObject);FDMOApplication : Variant;: Variant;: integer;(ComboBox1.Items);:=’Integrated Security=»»;’;;;TForm_nast.LoadInifiles;FileExists(ExtractFilePath(Application.ExeName)+’Nastroika.ini’) then begin:=TIniFile.Create(ExtractFilePath(Application.ExeName)+’Nastroika.ini’);.Text:=ini.ReadString(‘SQL’,’Драйвер’,»);_Host.Text:=ini.ReadString(‘SQL’,’Сервер’,»);_nameBD.Text:=ini.ReadString(‘SQL’,’БД’,»);_user.Text:=ini.ReadString(‘SQL’,’Логин’,»);_pass.Text:=ini.ReadString(‘SQL’,’Пароль’,»);.Lines.Text:=ini.ReadString(‘SQL’,’Параметры’,»);Ini.ReadString(‘SQL’,’Авторизация’,»)=’True’ then CheckBox1.Checked:=true else.Checked:=false;CheckBox1.Checked then:=’Integrated Security=SSPI;User ID=»»;’else:=»;.Connected:=false;.ConnectionString:=»;:=stroka+’User ID=’+Edit_user.Text+’;
  • Password=’+Edit_pass.Text+’;’;.ConnectionString:=ADOConnection1.ConnectionString+’Provider=’+ComboBox1.Text+’;Persist Security Info=False;
  • Initial Catalog=’+Edit_nameBD.Text+’;Data Source=’+Edit_Host.Text+’;’+ stroka+Memo1.Lines.Text;.Connected:=true;else begin_nast.Show;(‘Задайте параметры подключения к БД’, mtInformation,[mbok],0);;;TForm_nast.SaveInifiles;:=TIniFile.Create(ExtractFilePath(Application.ExeName)+’Nastroika.ini’);.WriteString(‘SQL’,’Драйвер’,ComboBox1.Text);.WriteString(‘SQL’,’Сервер’, Edit_Host.Text);.WriteString(‘SQL’,’БД’,Edit_nameBD.Text);.WriteString(‘SQL’,’Логин’,Edit_user.Text);.WriteString(‘SQL’,’Пароль’,Edit_pass.Text);.WriteString(‘SQL’,’Параметры’,Memo1.Lines.Text);CheckBox1.Checked then Ini.WriteString(‘SQL’,’Авторизация’,’True’) else.WriteString(‘SQL’,’Авторизация’,’False’);.Free;(‘Данные сохранены’,mtInformation,[mbok],0);;.Unit_zona_obit;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons,.Menus, Data.Win.ADODB;_Zona_obit = class(TForm): TPanel;: TDBNavigator;: TDBGrid;: TDataSource;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject;
  • var Action: TCloseAction);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

{ Private declarations }

30 стр., 14808 слов

Реферат локальные базы данных

... распределенные базы данных. В однородном случае каждая локальная база данных управляется одной и той же СУБД. В неоднородной системе локальные базы данных могут относиться даже к разным моделям данных. Сетевая интеграция неоднородных баз данных - ...

{ Public declarations };_Zona_obit: TForm_Zona_obit;unit1_glavn, unit_pitom, unit_main;

  • {$R *.dfm}TForm_Zona_obit.BitBtn_okClick(Sender: TObject);_ok.Visible:=False;_pitom.DBEdit_zona.Field.AsVariant:=DBGrid1.Fields[0].

Value;;;TForm_Zona_obit.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_Zona_obit.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;_ok.Visible:=false;;.Unit_zapros;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons;_zapros = class(TForm): TBitBtn;: TMemo;: TPanel;BitBtn1Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);

{ Private declarations }

{ Public declarations };_zapros: TForm_zapros;unit_main, unit1_glavn;

  • {$R *.dfm}TForm_zapros.BitBtn1Click(Sender: TObject);_glavn.ADOQuery1.Active:=false;_glavn.ADOQuery1.SQL.Clear;_glavn.ADOQuery1.SQL.Text:=Memo1.Lines.Text;_glavn.ADOQuery1.Open;E:Exception do(‘Не удалось выполнить запрос: ‘+E.Message,mtError,[mbok],0);
  • end;;TForm_zapros.FormClose(Sender: TObject;
  • var Action: TCloseAction);_glavn.CheckBox1.Checked:=false;;.Unit_vid_mlek;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons,.Menus, Data.Win.ADODB;_vid_mlek = class(TForm): TPanel;: TDBNavigator;: TDBGrid;: TDataSource;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject;
  • var Action: TCloseAction);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };_vid_mlek: TForm_vid_mlek;unit1_glavn, unit_pitom, unit_main;

  • {$R *.dfm}TForm_vid_mlek.BitBtn_okClick(Sender: TObject);_ok.Visible:=False;_pitom.DBEdit_vid_mlek.Field.AsVariant:=DBGrid1.Fields[0].

Value;;;TForm_vid_mlek.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_vid_mlek.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;_ok.Visible:=false;;.Unit_tip_ras;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Buttons,.Mask, Vcl.Menus, Data.Win.ADODB;_tip_ras = class(TForm): TPanel;: TDBGrid;: TDataSource;: TDBNavigator;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;BitBtn_nom_pitClick(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

17 стр., 8186 слов

Разработка базы данных учеников МОУ СОШ № 12 на языке Delphi

... СОШ №12, созданной в рамках дипломной работы базы данных, в первую очередь повлияет на снижение времени, затрачиваемого на поиск информации. База данных, имеющая техническую направленность на хранение, ... средства - это самим нанять программистов, которые разработают базу данных, доступную для школы. Школам выгодно приобрести такую базу данных, которая будет недорогой, но в то же время ...

{ Private declarations }

{ Public declarations };_tip_ras: TForm_tip_ras;unit1_glavn,unit_main, unit_rasion, unit_pitom;

  • {$R *.dfm}TForm_tip_ras.BitBtn_nom_pitClick(Sender: TObject);_pitom:=TForm_pitom.Create(Application);_pitom.Show;_pitom.ADOQuery1.Connection:=Form_nast.ADOConnection1;_pitom.ADOQuery1.Open;_pitom.BitBtn_ok.Visible:=true;_glavn.id:=’t’;;TForm_tip_ras.BitBtn_okClick(Sender: TObject);Form_glavn.id=’r’ then_ratsion.DBEdit_pitom.Field.Value:=DBGrid1.Fields[0].

Value;Form_glavn.id=’p’ then_pitom.DBEdit2.Field.Value:=DBGrid1.Fields[0].

Value;;;TForm_tip_ras.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_tip_ras.FormClose(Sender: TObject; var Action: TCloseAction);_ok.Visible:=false;:= caFree;;.Unit_sved;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls,.ExtCtrls, Vcl.Grids, Vcl.DBGrids, Data.DB, Datasnap.DBClient, SimpleDS,.Menus, Data.Win.ADODB;_sved = class(TForm): TPanel;: TDBNavigator;_pitom: TDBEdit;: TLabel;_pitom: TButton;: TDBGrid;: TDataSource;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject; var Action: TCloseAction);Button_pitomClick(Sender: TObject);Excel1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };_sved: TForm_sved;unit_pitom, unit1_glavn, unit_main;

  • {$R *.dfm}TForm_sved.Button_pitomClick(Sender: TObject);_pitom:=TForm_pitom.Create(Application);_pitom.Show;_pitom.ADOQuery1.Connection:=Form_nast.ADOConnection1;_pitom.ADOQuery1.Open;_pitom.BitBtn_ok.Visible:=true;_glavn.id:=’s’;;TForm_sved.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_sved.FormClose(Sender: TObject;
  • var Action: TCloseAction);:= caFree;;.Unit_sotr;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.FMTBcd, Vcl.ExtCtrls, Vcl.Grids,.DBGrids, Data.DB, Data.SqlExpr, Datasnap.DBClient, Datasnap.Provider,.DBCtrls, Vcl.StdCtrls, SimpleDS, Vcl.Buttons, Vcl.Menus, Data.Win.ADODB;_sotr = class(TForm): TDBGrid;: TPanel;: TDataSource;: TDBNavigator;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject;
  • var Action: TCloseAction);DBNavigator1Click(Sender: TObject;
  • Button: TNavigateBtn);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };_sotr: TForm_sotr;unit1_glavn, unit_pitom, unit_main;

  • {$R *.dfm}TForm_sotr.BitBtn_okClick(Sender: TObject);_ok.Visible:=False;_pitom.DBEdit_sotr.Field.AsVariant:=DBGrid1.Fields[0].

Value;;;TForm_sotr.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);TD: TTransactionDesc;;TForm_sotr.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_sotr.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;_ok.Visible:=false;;.Unit_rasion;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Mask,.Menus, Data.Win.ADODB;_ratsion = class(TForm): TPanel;: TDBNavigator;: TDBGrid;: TDataSource;: TLabel;_pitom: TDBEdit;_pitom: TButton;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject; var Action: TCloseAction);Button_pitomClick(Sender: TObject);Excel1Click(Sender: TObject);

15 стр., 7336 слов

Создание проигрывателя MP3 Player

... систематизированная обработка музыкальных файлов. Объектом исследования является ООП. Курсовая работа состоит из введения, четырех глав, заключения, списка литературы и приложений. мультимедиа проигрыватель интерфейс программа ... а также поддерживается всеми современными моделями музыкальных центров и DVD-плееров. 1.3 Выходная информация Начало работы с проигрывателем MP3 Player v1.0 Рисунок 1. ...

{ Private declarations }

{ Public declarations };_ratsion: TForm_ratsion;unit_tip_ras, unit1_glavn,unit_main;

  • {$R *.dfm}TForm_ratsion.Button_pitomClick(Sender: TObject);_tip_ras:=TForm_tip_ras.Create(Application);_tip_ras.Show;_tip_ras.ADOQuery1.Connection:=Form_nast.ADOConnection1;_tip_ras.ADOQuery1.Open;_glavn.id:=’r’;_tip_ras.BitBtn_ok.Visible:=true;;TForm_ratsion.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_ratsion.FormClose(Sender: TObject;
  • var Action: TCloseAction);:= caFree;;.Unit_pitom;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Datasnap.DBClient, SimpleDS,.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Mask, Vcl.Grids,.DBGrids, Vcl.Buttons, Vcl.Menus, Data.Win.ADODB;_pitom = class(TForm): TPanel;: TDataSource;: TDBGrid;_nom: TDBEdit;: TLabel;: TLabel;_roj: TDateTimePicker;: TLabel;_pol: TComboBox;: TLabel;: TLabel;: TLabel;: TLabel;: TDBNavigator;_sotr: TBitBtn;_Zona: TBitBtn;: TBitBtn;_zona: TDBEdit;_sotr: TDBEdit;_vid_mlek: TDBEdit;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;: TDBEdit;: TLabel;: TDBEdit;: TBitBtn;FormClose(Sender: TObject;
  • var Action: TCloseAction);BitBtn_ZonaClick(Sender: TObject);BitBtn_sotrClick(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);DateTimePicker_rojChange(Sender: TObject);ComboBox_polClick(Sender: TObject);DBNavigator1Click(Sender: TObject;
  • Button: TNavigateBtn);BitBtn2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };_pitom: TForm_pitom;unit1_glavn, unit_sotr, unit_zona_obit, unit_vid_mlek, unit_sved, unit_main,unit_tip_ras;

  • {$R *.dfm}TForm_pitom.BitBtn1Click(Sender: TObject);_vid_mlek:=TForm_vid_mlek.Create(Application);_vid_mlek.Show;_vid_mlek.ADOQuery1.Connection:=Form_nast.ADOConnection1;_vid_mlek.ADOQuery1.Open;_vid_mlek.BitBtn_ok.Visible:=true;;TForm_pitom.BitBtn2Click(Sender: TObject);_glavn.id:=’p’;_tip_ras:=TForm_tip_ras.Create(Application);_tip_ras.Show;_tip_ras.ADOQuery1.Connection:=Form_nast.ADOConnection1;_tip_ras.ADOQuery1.Open;_tip_ras.BitBtn_ok.Visible:=true;;TForm_pitom.BitBtn_okClick(Sender: TObject);Form_glavn.id=’s’ then_sved.DBEdit_pitom.Field.Value:=DBGrid1.Fields[0].

Value;;;TForm_pitom.BitBtn_sotrClick(Sender: TObject);_sotr:=TForm_sotr.Create(Application);_sotr.Show;_sotr.ADOQuery1.Connection:=Form_nast.ADOConnection1;_sotr.ADOQuery1.Open;_sotr.BitBtn_ok.Visible:=true;;TForm_pitom.BitBtn_ZonaClick(Sender: TObject);_Zona_obit:=TForm_Zona_obit.Create(Application);_Zona_obit.Show;_Zona_obit.ADOQuery1.Connection:=Form_nast.ADOConnection1;_Zona_obit.ADOQuery1.Open;_Zona_obit.BitBtn_ok.Visible:=true;;TForm_pitom.ComboBox_polClick(Sender: TObject);.Fields[3].

15 стр., 7261 слов

Обработка изображений с использованием расширения процессора

... математических операций, обработки графики, кодирования видео и синхронизации потоков данных. Инструкции SSE3 также ... в отдельном модуле процессора. В технологиях MMX для этого использовалось стандартное ... обработке графических изображений; улучшенное качество воспроизведения звуковых и видеофайлов в формате MPEG2, а также одновременное кодирование и декодирование формата MPEG2 в мультимедийных ...

Value:=ComboBox_pol.Text;;TForm_pitom.DateTimePicker_rojChange(Sender: TObject);.Fields[2].

Value:=DateTimePicker_roj.Date;;TForm_pitom.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);Button of: begin.Fields[2].

Value:=DateTimePicker_roj.Date;.Fields[3].

Value:=ComboBox_pol.Text;;;;TForm_pitom.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_pitom.FormClose(Sender: TObject; var Action: TCloseAction);_ok.Visible:=false;:= caFree;;.Unit_main;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.StdCtrls,.ComCtrls, Vcl.Grids, Vcl.DBGrids, Data.DB, Datasnap.DBClient, SimpleDS,ComObj,.Win.ADODB;_glavn = class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TDBGrid;: TCheckBox;: TDataSource;: TPopupMenu;: TMenuItem;: TADOQuery;N2Click(Sender: TObject);N4Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N5Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);N10Click(Sender: TObject);CheckBox1Click(Sender: TObject);N11Click(Sender: TObject);N1Click(Sender: TObject);Excel1Click(Sender: TObject);N12Click(Sender: TObject);N13Click(Sender: TObject);N14Click(Sender: TObject);N3Click(Sender: TObject);

  • // Procedure ExportToExcel(DBgrid:TDBGrid);
  • { Private declarations }:Variant;ExportToExcel(DBgrid:TDBGrid);
  • { Public declarations };_glavn: TForm_glavn;Unit1_glavn, unit_sotr, unit_zona_obit, unit_vid_mlek, unit_pitom, unit_sved, unit_rasion, unit_tip_ras, unit_zapros;
  • {$R *.dfm}TForm_glavn.Excel1Click(Sender: TObject);(DBGrid1);;TForm_glavn.ExportToExcel(DBgrid: TDBGrid);,j,index,z: Integer;,sheet: Variant;:= CreateOleObject(‘Excel.Application’);.Visible := False;.WorkBooks.Add(-4167);.WorkBooks[1].

WorkSheets[1].

name := ‘Export’;:=ExcelApp.WorkBooks[1].

WorkSheets[‘Export’];:=2; //Загоняем с первой строки.DataSource.DataSet.First;z := 0 to DBGrid.FieldCount-1 do.cells[index-1,z+1]:=dbgrid.Columns[z].Title.caption;i:=1 to DBGrid.DataSource.DataSet.RecordCount doj:=1 to DBGrid.FieldCount do.cells[index,j]:=DBGrid.fields[j-1].asstring;(index);.DataSource.DataSet.Next;;.Range[ sheet.cells[1,1], sheet.cells[ExcelApp.ActiveSheet.UsedRange.Rows.Count,ExcelApp.ActiveSheet.UsedRange.Columns.Count]].Columns.AutoFit;.Visible := true;;TForm_glavn.CheckBox1Click(Sender: TObject);CheckBox1.Checked then begin_zapros.Show;else Form_zapros.Close;;TForm_glavn.N10Click(Sender: TObject);_tip_ras:=TForm_tip_ras.Create(Application);_tip_ras.Show;_tip_ras.ADOQuery1.Connection:=Form_nast.ADOConnection1;_tip_ras.ADOQuery1.Open;;TForm_glavn.N11Click(Sender: TObject);.Visible:=true;;TForm_glavn.N12Click(Sender: TObject);_zapros.Memo1.Clear;_zapros.Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+’1.txt’);_zapros.BitBtn1.Click;;TForm_glavn.N13Click(Sender: TObject);_zapros.Memo1.Clear;_zapros.Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+’2.txt’);_zapros.BitBtn1.Click;;TForm_glavn.N14Click(Sender: TObject);_zapros.Memo1.Clear;_zapros.Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+’3.txt’);_zapros.BitBtn1.Click;;TForm_glavn.N1Click(Sender: TObject);.Visible:=false;;TForm_glavn.N2Click(Sender: TObject);_nast.Show;;TForm_glavn.N3Click(Sender: TObject);(‘Группа З09 ПОВТ(у) Шарафиев Р.Н.’, mtInformation, [mbok],0);;TForm_glavn.N4Click(Sender: TObject);_sotr:=TForm_sotr.Create(Application);_sotr.Show;_sotr.ADOQuery1.Connection:=Form_nast.ADOConnection1;_sotr.ADOQuery1.Open;;TForm_glavn.N5Click(Sender: TObject);_pitom:=TForm_pitom.Create(Application);_pitom.Show;_pitom.ADOQuery1.Connection:=Form_nast.ADOConnection1;_pitom.ADOQuery1.Open;;TForm_glavn.N6Click(Sender: TObject);_Zona_obit:=TForm_Zona_obit.Create(Application);_Zona_obit.Show;_Zona_obit.ADOQuery1.Connection:=Form_nast.ADOConnection1;_Zona_obit.ADOQuery1.Open;;TForm_glavn.N7Click(Sender: TObject);_vid_mlek:=TForm_vid_mlek.Create(Application);_vid_mlek.Show;_vid_mlek.ADOQuery1.Connection:=Form_nast.ADOConnection1;_vid_mlek.ADOQuery1.Open;;TForm_glavn.N8Click(Sender: TObject);_sved:=TForm_sved.Create(Application);_sved.Show;_sved.ADOQuery1.Connection:=Form_nast.ADOConnection1;_sved.ADOQuery1.Open;;TForm_glavn.N9Click(Sender: TObject);_ratsion:=TForm_ratsion.Create(Application);_ratsion.Show;_ratsion.ADOQuery1.Connection:=Form_nast.ADOConnection1;_ratsion.ADOQuery1.Open;;.

Приложение Б

Скрипты SQL-запросов

Полная информация по типу и имени питомца зоопарка;

  • select Вид_млекопитающих.Наименование as Вид_млекопитающих, Питомец.Имя, Питомец.Дата_рождения, Питомец.Пол, Сотрудник.Имя as Имя_ответственного_сотрудника, Тип_рациона.Название as Название_Типа_рациона, Рацион.Список_продуктов from Вид_млекопитающих,Питомец,Сотрудник, Рацион, Тип_рациона where Вид_млекопитающих.Наименование=’Слон’ and Питомец.Имя=’Пышка’ and Питомец.Вид_млекопитающего=Вид_млекопитающих.Наименование and Питомец.Номер_сотрудника=Сотрудник.Номер and Питомец.Номер_Типа_рациона=Тип_рациона.Номер_типа and Рацион.Номер_типа=Тип_рациона.Номер_типа;
  • Список сотрудников, работающих семейными парами — ФИО, дата рождения, телефон;
  • select Сотрудник.Имя, Сотрудник.Отчество, Сотрудник.Фамилия, Сотрудник.Телефон, Сотрудник.Дата_рождения from Сотрудник where Сотрудник.Код_супруга<>»;
  • Перечень всех животных на текущую дату и номера их рационов.

select Питомец.Имя, Питомец.Дата_рождения, Питомец.Пол, Рацион.Наименование, Рацион.Список_продуктов from Питомец, Рацион, Тип_рациона, Седения_о_животном where Питомец.Номер_питомца=Седения_о_животном.Номер_питомца and Тип_рациона.Номер_типа=Питомец.Номер_Типа_рациона and Рацион.Номер_типа=Тип_рациона.Номер_типа;