Целью данной курсовой работы является разработка и создание базы данных предметной области «Индивидуальный план преподавателя» в СУБД 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 — Схема информационных потоков
В ходе анализа данных предметной области были выделены следующие сущности и характеризующие их атрибуты:
- Сотрудник: Номер, Фамилия, Имя, Отчество, Дата рождения, Пол, Телефон, Семейное положение, Должность, Код супруга;
- Зона обитания: Код, Название, Характеристика;
- Вид млекопитающего: Наименование, Происхождение, Группа;
- Питомец: Номер питомца, Имя, Дата рождения, Пол, Вид млекопитающего, Зона обитания, Номер сотрудника, Номер Типа рациона;
- Сведения о животном: Код, Название страны, Дата улёта /начала спячки, Дата прилёта/конец спячки, Температура, Номер питомца.
Тип рациона: Номер типа, Название;
Курсовая работа по информатике база данных пгупс
... курсовой работы по дисциплине «Информатика» Сызранов Илья Юрьевич Тема: «Создание и обработка базы данных» Срок сдачи обучающимся законченной работы: 22 мая 2017 года Исходные данные для выполнения проекта: База данных должна содержать следующие элементы данных: Номер ...
- Рацион: Номер рациона, Наименование, Список продуктов, Номертипа.
Все необходимые действия для ведения данных, различные правила и стандарты, механизмы, выполняющие обработку, представлены на контекстной диаграмме на рисунке 2.
Рисунок 2 — Контекстная диаграмма предметной области
Более подробно описание работ показано на диаграмме декомпозиции на рисунке 3.
Рисунок 3 — Диаграмма декомпозиции предметной области
Как каждый процесс преобразует свои входные данные в выходные, и отношения между этими процессами приведены на диаграмме потоков данных на рисунке 4.
Рисунок 4 — Диаграмма DFD
база данные программирование delphi
Рисунок 5 — Диаграмма IDEF3
Информационно-логическая модель базы данных
Информационно-логическая модель предметной области по нотациям Ричарда Баркера приведена на рисунке 6.
Сотрудник Зона обитания Вид млекопитающих
Питомец Сведения о животном
Рацион Тип рациона
Рисунок 6 — Информационно-логическая модель базы данных
Даталогическая модель базы данных
Отношение находится в ЗНФ в том случае, если оно находится во 2НФ, не ключевые атрибуты взаимно независимы (исключены так называемые транзитивные зависимости) и каждый не ключевой атрибут неприводимо зависит от первичного ключа (то есть, возможно изменять значение атрибутов без изменения первичного ключа и других не ключевых атрибутов).
Таким образом, даталогическая модель реляционной БД, нормализованная до 3НФ в СУБД SQL Server 2008 в виде диаграммы схемы отношений имеет вид, представленный на рисунке 7.
Рисунок 7 — Диаграмма схемы отношений
Физическое проектирование
При физическом проектировании были получены таблицы 1-7.
Вид млекопитающих
Зона обитания
Питомец
Рацион
Сведения о животном
Сотрудник
Тип рациона
База данных. Понятие базы данных. Виды баз данных. Объекты для ...
... база данных, разные части которой хранятся на различных компьютерах, объединённых в сеть; 4.Централизованная – база данных, хранящихся на одном компьютере; 5.Реляционная – база данных с табличной организацией данных. ... базы забыли изменить); целостной (все данные должны быть связаны, не должно быть ссылок на несуществующие в базе данные) Реляционная модель баз данных ... нной таблицы и тем самым, задавая ...
Мероприятия по защите и обеспечению целостности базы данных
При создании соединения с базой данных используется проверка подлинности Windows. Контроль уровней доступа пользователей осуществляется средствами базы данных — используются роли базы данных.
Обеспечение целостности базы данных осуществляется путём каскадного обновления и каскадного удаления данных. Так же для каждой таблицы созданы триггеры на операции «INSERT» и «DELETE». В ходе анализа предметной области были выявлены уникальные ключи для каждой таблицы, представленной в базе данных, что обеспечивает целостность таблиц.
- Приложение интерфейса для SQL-сервера базы данных на языке программирования Delphi в программной среде Embarcadero RAD Studio XE2
Интерфейс пользователя основан на применении форм Windows Forms.
Для каждой таблицы создаётся форма, через которую пользователь будет иметь возможность просматривать, создавать, редактировать и удалять записи в таблицах базы данных.
Рисунок 8 — Создание формы для представления таблиц
Поместить на форму компонент TADOConnection (например ADOConnection1) .
В инспекторе объектов требуется выбрать ConnectionString=> UseConnectionString=>MicrosoftOleDBProvider for SQL-server. В резултате появится окно……(рисунки 9 — 10).
После этого нажать “далее” и выбрать имя сервера, аутентификацию WinNT или SQL-Server, и наконец выбрать базу данных на сервере (к этому моменту она уже должна быть создана, либо произвольную) и нажать “Проверить подключение” (рисунок 11).
Далее активировать ADOConnection1, в свойстве Connected поставить True (рисунок 12).
Рисунок 3.1 — Подключение к базе данных
Рисунок 9 — Организация подключения
Рисунок 10 — Выбор подключаемых данных
Рисунок 11 — Настройки соединения
Рисунок 12 — Активация подключения
1) Затем добавить компонент ADO Table (рисунок 13).
Рисунок 13 — ADOTable
После добавить компонент TDataSource (с закладки Data Access).
Свойство DataSet этого DataSource должно быть равным ADOTable1 (рисунок 14).
База данных ‘Библиотека’ в среде Microsoft Access
... сможем управлять собственными данными с помощью Access, необходимо создать базу данных, состоящую из таблиц. В данной работе будет описано, как это сделать. Представленные в данной работе решения задач ... работы с базами данных различных форматов. К примеру, можно прямо обращаться к базам данных dBASE, Paradox или Btrieve без конвертирования их в формат, используемый Access. В состав пакета Access ...
Рисунок 14 — DataSource
Затем перенести на форму компонент TDBGrid с закладки DataControls. Установить его свойство DataSource в DataSource1. Данные должны отобразится в сетке DBGrid (рисунки 15 — 16).
Рисунок 15 — Компонент DBGrid
Рисунок 16 — Конечная реализация подключения
Затем в данном окне произвести запрос через ADOQuery (рисунок 17).
Рисунок 17 — Запросы
Подключение Query осуществляется по схеме рассмотренной выше. В данной реализации компонент Table не нужен, сам текст запроса находится в свойстве SQL, без наличия текста запроса объект не может быть активирован. После активации запроса, данные выборки отобразятся в DBGrid (рисунок 18).
Рисунок 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 с.
Вербицкая М. В. Forward. Английский язык для 11 класса. Unit
... to Exercise 2. Which inventions could be really useful and which are a waste of time, do you think? Why? — Слушайте и проверяйте свои ... — the conductor — Ваше тело — проводник C-2) Text me a coffee – напишите мне кофе A-3) This bag will more than surprise you! — Эта ... been followed Modal verbs – can be switched, could be downloaded, should not be discussed going to – is going to be shown Ex. 5 ...
- Дунаев В.В. Базы данных. Язык 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 }
{ 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 }
Переводы текстов Happy English 11 класс Unit 2 Lesson
... think that a real friend is someone who will never let you down. I don't expect my friend to always agree with me: we can argue and fight, but a true friend ... but people will still have to drive if they need to cover long distances. 4 Тема эссе: The modern teenager is considered by some to be interested only ...
{ 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 }
База данных ‘Магазин по продаже автомобилей’
... продажи автомобилей могут использовать компьютерные программы для хранения различных данных (информация о машинах, о клиентах, заказах и т.д.). Целью курсового проекта является создание программы, которая упрощает работу магазина по продаже автомобилей, ... создание БД и выборку данных из нее. база продажа автомобиль пользователь MS Access ... можно на примере объекта TObject, как базового объекта для ...
{ 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);
{ 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);
{ 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].
Курсовая работа создание базы данных mysql
... накладные расходы по работе с сетевыми средствами незначительны (установка и поддержание соединения с MySQL-сервером обходится довольно дешево). Cтруктура MySQL трехуровневая: базы данных — таблицы — записи. Базы данных и таблицы MySQL физически представляются ...
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 Рацион.Номер_типа=Тип_рациона.Номер_типа;
