Как создать в делфи базу данных: Создание простой базы данных на Delphi7

index-of.es/

 Название Размер
 Android / -
 Галерея искусств/                  -
 Атаки / -
 Переполнение буфера / -
 C ++ / -
 CSS / -
 Компьютер / -
 Конференции / -
 Растрескивание / -
 Криптография / -
 Базы данных / -
 Глубокая сеть / -
 Отказ в обслуживании/            -
 Электронные книги / -
 Перечисление / -
 Эксплойт / -
 Техники неудачной атаки / -
 Судебная экспертиза / -
 Галерея / -
 HTML / -
 Взломать / -
 Взлом-веб-сервер / -
 Взлом беспроводных сетей / -
 Взлом / -
 Генератор хешей / -
 JS / -
 Ява/                         -
 Linux / -
 Отмыкание/                  -
 Журналы / -
 Вредоносное ПО / -
 Метасплоит / -
 Разное / -
 Разное / -
 Протоколы сетевой безопасности / -
 Сеть / -
 ОПЕРАЦИОННЫЕ СИСТЕМЫ/                           -
 Другое / -
 PHP / -
 Perl / -
 Программирование / -
 Python / -
 RSS / -
 Rdbms / -
 Разобрать механизм с целью понять, как это работает/          -
 Рубин/                         -
 Сканирование сетей / -
 Безопасность/                     -
 Захват сеанса / -
 Снифферы / -
 Социальная инженерия/           -
 Поддерживает / -
 Системный взлом / -
 Инструменты/                        -
 Учебники / -
 UTF8 / -
 Unix / -
 Вариос-2 / -
 Варианты / -
 Видео/                       -
 Вирусы / -
 Окна / -
 Беспроводная связь / -
 Xml / -
 z0ro-Репозиторий-2 / -
 z0ro-Репозиторий-3 / -
 

Delphi Учебные пособия по базе данных Community Edition, часть 1

Как создать товарный чек из приложения Delphi

Язык программирования Delphi, или Turbo Pascal, стал отправной точкой для многих разработчиков. Благодаря простому и понятному синтаксису и умению писать в процедурном стиле, его оказалось очень легко выучить. Многие сравнивали бы его с Visual Basic, но на пике популярности Delphi давал гораздо больше возможностей благодаря компонентам для работы с базами данных и собственной базе данных — Interbase.

Несмотря на то, что C # и платформа .Net пришли на смену Delphi и VCL, их приверженцев все еще существует. Даже старые приложения, написанные на этом языке, можно легко обновить с помощью современных библиотек, например, генератора отчетов FastReport 6 VCL. Например, автоматизированные системы бухгалтерского учета нуждаются в отчетности.

Автоматизированная система учета продаж должна позволять формировать платежные документы, например товарный чек. В этой статье мы рассмотрим, как создать и распечатать товарный чек из приложения Delphi.Мы будем использовать генератор отчетов FastReport VCL для создания самого чека и пользовательского приложения для его печати. Помимо печати, вы можете просто отобразить квитанцию ​​в окне просмотра отчета, из которого вы можете распечатать квитанцию, сохранить ее в одном из популярных форматов документов, отправить по электронной почте или загрузить в облачное хранилище.

Для создания товарного чека нам необходима информация о: заказе, клиенте, продавце и содержании заказа.

В этом примере мы будем использовать демо.mdb из дистрибутива FastReport VCL.

Для создания приложения мы будем использовать среду разработки Delphi 7.

Давайте добавим в форму две кнопки: одну для запуска дизайнера отчетов, другую для отображения или печати готового отчета. Также добавьте в форму компонент OpenDialog — это позволит нам выбрать нужный файл отчета для открытия.

Перейдем к созданию источника данных для отчета — кассового чека. Как упоминалось выше, мы используем демо.mdb, а точнее таблицы: Заказы, Клиенты, Элементы, Детали и Сотрудник. Мы будем использовать компонент ADOConnection для подключения к базе данных и компоненты ADOTable для получения данных из каждой таблицы. Таблица «Заказы» связана с таблицами «Клиенты», «Элементы» и «Сотрудники». Следовательно, нам необходимо настроить эти подключения. Для этого добавьте компонент DataSource для каждого ADOTable и, чтобы сделать все эти таблицы доступными в отчете, добавьте компонент frxBDDataSet для каждой таблицы.

Таким образом, для работы с одной таблицей мы должны получить три компонента: ADOTable, DataSource, frxDBDataSet.

В ADOConnection создайте соединение с базой данных demo.mdb из поставки FastReport VCL.

Параметры этих компонентов (для каждой из пяти таблиц) приведены ниже.

Таблица заказов:

1. Для ADOTable установите свойства:

— Подключение — ADOConnection1;
— Наименование — Заказы;
— TableName — заказы.

2. Для DataSource установите свойства:

— DataSet — Заказы.

3. Для frxDBDataSet установите свойства:

— DataSet — Заказы;

— Имя пользователя — Заказы.

Стол клиентов:

1. Для ADOTable установите свойства:

— Подключение — ADOConnection1;

— Наименование — Заказчик;

— IndexFieldnames — CustNo;

— MasterSource — DataSource1;

— MasterFields — CustNo

— TableName — заказчик.

2. Для DataSource установите свойства:

— DataSet — Клиент.

3. Для frxDBDataSet установите свойства:

— DataSet — Заказчик;

— Имя пользователя — Клиент.

Таблица товаров:

1. Для ADOTable установите свойства:

— Подключение — ADOConnection1;

— Название — Предметы;

— IndexFieldnames — OrderNo;

— MasterSource — DataSource1;

— MasterFields — OrderNo

— TableName — элементы.

2. Для DataSource установите свойства:

— Набор данных — Элементы.

3. Для frxDBDataSet установите свойства:

— DataSet — элементы;

— Имя пользователя — Элементы.

Таблица деталей:

1. Для ADOTable установите свойства:

— Подключение — ADOConnection1;

— Название — Детали;

— TableName — части.

2. Для DataSource установите свойства:

— DataSet — Детали.

3. Для frxDBDataSet установите свойства:

— DataSet — Детали;

— Имя пользователя — Детали.

Стол сотрудников:

1. Для ADOTable установите свойства:

— Подключение — ADOConnection1;

— ФИО — Сотрудник;

— IndexFieldnames — EmpNo;

— MasterSource — DataSource1;

— MasterFields — EmpNo

— TableName — сотрудник.

2.Для DataSource установите свойства:

— DataSet — Сотрудник.

3. Для frxDBDataSet установите свойства:

— DataSet — Сотрудник;

— Имя пользователя — Сотрудник.

Таблицы Customer, Items и Employee связаны с DataSource1 (первая таблица — Orders). Они связаны ключом, так что для одной записи в таблице «Заказы» будут выбраны соответствующие записи из этих таблиц.

Таблица «Предметы» содержит информацию об изделиях в заказе.Конкретных данных о товаре нет — только ссылка на таблицу деталей. Давайте добавим два поля из таблицы Parts — Price и Description — в ADOTable для таблицы Items. Таким образом, нам больше не потребуется использовать таблицу деталей.

Чтобы добавить вычисляемые поля в таблицу Items, дважды щелкните объект ADOTable и увидите окно с полями таблицы. Первоначально он пуст, но вы можете загрузить их из контекстного меню, выбрав Добавить поля…:

Поля «Цена» и «Описание» будут взяты из таблицы «Детали».

Выберите Новое поле… в контекстном меню и добавьте поле Цена:

Добавьте описание продукта (поле Описание) таким же образом:

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

Не забудьте добавить в форму компонент frxReport.

Добавьте событие щелчка для каждой кнопки. Вот код обработчика событий для отображения дизайнера отчетов:

 1
 

 frxReport1.DesignReport (); 

Чтобы распечатать готовый отчет, вы можете добавить в форму диалоговое окно «Открыть файл», чтобы выбрать отчет, созданный в дизайнере. Код для печати отчета будет таким:

 1
2
3
4
5
6
7
8
 

 OpenDialog1.Фильтр: = 'FastReport VCL (* .fr3) | * .FR3';
 OpenDialog1.Execute ();
 если Length (OpenDialog1.FileName)> 0, то
 начинать
 frxReport1.LoadFromFile (OpenDialog1.FileName);
 frxReport1.PrepareReport ();
 frxReport1.Print ();
конец 

Если вам нужно предварительно просмотреть отчет, вы можете заменить функцию печати на отображение отчета:

 1
 

 frxReport1.ShowReport (); 

Теперь вы можете запустить приложение, нажать кнопку «Дизайн отчета» и перейти к созданию отчета.

Прежде всего, выберите наборы данных отчета.

Нам не нужна таблица деталей в этом отчете, поэтому выбирать ее не нужно. Переходим к созданию шаблона. В нашем отчете есть два бэнда данных: MasterData и DetailData. В первом бэнде данных выводим информацию о клиенте:

• наименование — Заказчик.Компания;
Адрес
• — Customer.Addr1;
Телефон
• — Заказчик.

… и заказчик:

• фирменное наименование;
• сотрудник — Employee.FirstName Employee.Last Name;
Номер заказа
• — Orders.OrderNo;
Дата продажи
• — Orders.SaleDate.

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

Итоги, такие как общая сумма нетто, ставка налога, окончательная сумма, включая налог, будут отображаться в нижнем колонтитуле.

Промежуточные итоги строки рассчитываются путем умножения количества и цены товара как часть одной записи в таблице:

[<Товаров. "Кол-во"> * <Товаров. "Цена">]

рассчитываются по формуле:

∑ (количество товара * цена товара)

[СУММ (<Пункты.«Кол-во»> * <Шт. «Цена»>)]

Общая налоговая стоимость:

∑ (количество товара * цена товара * ставка налога)

[СУММ (<Товаров. «Кол-во»> * <Товаров. «Цена»>) * 0,05]

Итого к оплате:

∑ (количество товара * цена товара) + ∑ (количество товара * цена товара * ставка налога)

[SUM ( * ) + SUM ( * ) * 0,05]

Также способ оплаты отображается в нижнем колонтитуле базы данных.Ожидается, что это будет указано при печати товарного чека вручную.

Здесь можно сказать, что наш отчет готов к отображению. Сохраните его в локальном хранилище и закройте дизайнер отчетов. Используя вторую кнопку в форме, выберите сохраненный отчет и распечатайте его (если вы использовали опцию печати в коде) или просмотрите его, если вы выбрали опцию предварительного просмотра отчета — ShowReport ().

Вот и все. Приложив небольшие усилия, вы сможете реализовать полезный функционал для своей учетной системы.Теперь из окна просмотра отчета вы можете распечатать его или сохранить в одном из популярных форматов документов: PDF, DOCS, XLSX, XML, RTF и многих других.

Страница не найдена | TELAIR

К сожалению, произошла ошибка.

Страница, которую вы ищете, возможно, была удалена, имеет другое имя или в настоящее время недоступна.

На нашем веб-сайте мы используем файлы cookie.Некоторые из них очень важны, а другие помогают нам улучшить этот веб-сайт и улучшить ваш опыт.

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

Создание и подключение к базе данных MSSQL в Azure с помощью Delphi / C ++ Builder • DelphiABall

Недавно меня несколько раз спрашивали о подключении к базам данных Azure с помощью Delphi и C ++ Builder.Итак… .Я решил снять видео! Здесь даже показано, как использовать данные непосредственно во время разработки в RAD Studio IDE.

Видео следует за 3 фазами.

• Создание учетной записи
• Создание базы данных
• Подключение к базе данных из RAD Studio IDE

Создание учетной записи Azure

Первое, что вам нужно сделать, это создать учетную запись в Azure. Чтобы создать учетную запись бесплатно (и вы даже можете использовать бесплатную пробную версию от Microsoft с большинством вещей, включенных в течение 30 дней), посетите https: // portal.azure.com/

Создание базы данных в Azure

После регистрации вам необходимо Создать ресурс. Я использовал базу данных SQL (потому что это то, о чем у меня были запросы).

На этом этапе отображается мастер, и следовать ему довольно просто.

Создание базы данных SQL — основы

Группа ресурсов Azure

В Azure группа ресурсов объединяет все ресурсы, которые вы используете в развертывании. Это позволяет идентифицировать затраты и легко удалить все аспекты развертывания позже.
Группы ресурсов также можно использовать для создания файла развертывания JSON, который позволяет повторно развернуть конфигурацию снова.

Подробности базы данных

Детали базы данных включают имя вашей базы данных. Это должно быть уникальным на вашем сервере. При первом запуске мастера вам потребуется создать сервер. (используйте гиперссылку «Создать новый»).

Когда вы создаете сервер, он запрашивает уникальное имя сервера, а также имя пользователя и пароль, а также местоположение для размещения базы данных.

Местоположение базы данных может быть важным в зависимости от типа данных, которые будут храниться, и ваших местных географических правил хранения данных. — Полный список расположений данных Azure

Самое приятное здесь то, что это настраивает все, что связано с виртуальной машиной, на которой работает сервер базы данных. У вас нет прямого доступа, поскольку он работает как сервис платформы, что очень эффективно.

Что касается сервера, вы также можете настроить его спецификации здесь, но пока просто используйте стандартную версию.

Создание базы данных SQL — Сеть

Azure предлагает отличный вариант для ограничения доступа к базе данных только с определенного IP-адреса (или только из вашей группы ресурсов в облаке. Я оставлю это на усмотрение читателя для дальнейшего изучения, но очень просто определить базу данных для работайте в общедоступном режиме и добавьте свой IP-адрес в качестве разрешенного маршрута только для доступа (отлично, если у вас есть фиксированный IP-адрес)

Создание базы данных SQL — дополнительные настройки

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

Источник данных

Источником данных может быть

• Нет — пустая база
• Backup — резервная копия базы данных (идеально, если вы переходите в облако)
• Пример — который создает копию AdventureWorksLT (что отлично подходит для тестирования установки и конфигурации в первый раз)

Создать базу данных — теги

используются для категоризации и консолидации использования ресурсов Azure, чтобы помочь с информацией о выставлении счетов.Это выходит за рамки этого поста, но, по крайней мере, вы знаете, что это такое!

Создание базы данных SQL — просмотр и создание

Если вы что-то пропустите в мастере, в конце вы получите сообщение об ошибке проверки. Если это произойдет, просто вернитесь к мастеру, используя ссылки на странице (а не кнопку «Назад»). После завершения работы мастера подтвердите, нажав «Создать», и наблюдайте, как создается база данных.

Использование облачной базы данных Azure в RAD Studio

Когда база данных будет запущена, вы сможете подключиться к ней с помощью RAD Studio IDE.Отсюда вы можете перетащить в свои приложения, чтобы начать работу.

В видео я использовал приложение VCL и DataModule. Если вы следуете тому же подходу, вы всегда можете увидеть, сможете ли вы затем использовать один и тот же DataModule в приложении FMX и Target Linux (поскольку я считаю, что есть драйверы MSSQL для Linux). На данный момент, однако, мне нужно было покрыть только Windows… так что на данный момент это выходит за рамки возможностей.

Добавление подключения MSSQL к проводнику данных.

Я ранее писал в блоге об использовании Data Explorer с FireDAC, поэтому я не планирую подробно останавливаться на этом здесь.Короче говоря, щелкните правой кнопкой мыши Microsoft SQL Server, выберите «Добавить новое соединение» и введите необходимые данные.

Последние сведения о подключении см. В статье FireDAC DocWiki для MSSQL.

В сводке — обратите внимание на суффикс «@ » в имени пользователя и префикс «tcp:» в параметрах сервера.

 DriverID = MSSQL
Сервер = tcp: nasdfert6.database.windows.net
База данных = Northwind
Имя_пользователя = addemo @ nasdfert6
Пароль = asd123zxc
Шифрование = Да
MetaDefSchema = dbo
MetaDefCatalog = Northwind 

Для используемого образца замените NorthWind на имя вашей демонстрационной базы данных.Имя пользователя — <имя пользователя>. <Имя сервера> (но только первая часть имени сервера, которое вы добавили). Я обнаружил, что у меня это работает как с tcp :, так и без него, но вы можете добавить это на всякий случай.

После добавления проверьте соединение перед сохранением.

Теперь вы готовы использовать источник данных в среде IDE, исследовать таблицы и данные и перетаскивать их в модуль данных для использования в приложении.

Удачного кодирования!

Начало работы | Документация TMS XData

Очень легко получить свой первый сервер XData и клиентские приложения. ходовой:

1. Создать и запустить «пустой» сервер

2. Добавьте логику на стороне сервера, используя служебные операции

3. Отправлять запросы на сервер от клиентов

4. (Необязательно) Автоматическая публикация существующих сущностей Aurelius

1.Создать и запустить «пустой» сервер

а. В среде IDE Delphi выберите File> New> Other ;

г. В появившемся диалоговом окне перейдите к Delphi Projects> TMS XData ;

г. Дважды щелкните «Сервер TMS XData VCL» , чтобы создать сервер.

Готово : будет создан новый проект, запустить его, и ваш сервер будет работать по адресу «http: // localhost: 2001 / tms» .

У вас есть несколько вариантов для этого шага:

Использование «Мастеров сервера XData» — это еще больше простой способ создать новый сервер.

Если вам не нравятся мастера, вы можете просто создать новую заготовку приложение и бросьте пару компоненты времени разработки создать свой сервер.

Если вам не нравятся компоненты времени разработки, и вы хотите сделать это на 100% из кода просто создайте сервер вручную.

2.Добавьте логику на стороне сервера, используя служебные операции

а. В среде IDE Delphi выберите File> New> Other ;

г. В появившемся диалоговом окне перейдите к Delphi Projects> TMS XData ;

г. Дважды щелкните «TMS XData Service» , чтобы создать новую службу. Пока используйте настройки по умолчанию.

Готово : Два новых блока будут создан, включая два примера методов на стороне сервера: Sum и EchoString .Ваш сервер что-то делает!

Использование «мастера службы XData» это просто более простой способ добавить логику на стороне сервера.

Если вам не нравятся мастера, вы можете просто создать свой сервис операции вручную из кода, создавая Интерфейс ServiceContract и класс ServiceImplementation.

Ваш сервер готов! Подключимся к нему сейчас!

3. Отправлять запросы на сервер от клиентов

Подключение из

Если вы подключаетесь к серверу из Приложение Delphi , доступ к вашему серверу не может быть проще.Все, что вам нужно, это использовать Объект TXDataClient:

  использует {...}, MyService, XData.Client;

вар
  Клиент: TXDataClient;
  MyService: IMyService;
  SumResult: Double;
начинать
  Клиент: = TXDataClient.Create;
  Client.Uri: = 'http: // localhost: 2001 / tms / xdata';
  SumResult: = Client.Service  .Sum (10, 5);
  Client.Free;
конец;
  

И все! Вы вызываете методы XData, как если бы они были обычными процедуры в вашем клиентском приложении.Устройство MyInterface и IMyService интерфейс были созданы в предыдущем шаг выше. Вы просто повторно используете тот же код так что в клиенте вам не нужно ничего делать, кроме как вызвать интерфейсный метод.

Конечно, вы можете использовать гораздо более продвинутые функции, так что вы можете узнать больше о TXDataClient.

Подключение из

Для вызова той же операции Sum , описанной выше без TXDataClient просто выполните HTTP-запрос:

  GET / tms / xdata / myservice / sum? A = 10 & b = 5 HTTP / 1.1
Хост: localhost: 2001
  

И вы получите ответ в формате JSON:

  {
  «значение»: 15
}
  

Конечно, вы можете просто зайти в свой веб-браузер и перейти по адресу «http: // localhost: 2001 / tms / xdata / myservice / sum? A = 10 & b = 5» для проверки.

XData — это стандартный сервер REST / JSON. Это означает, что вы можете получить к нему доступ из любого клиентского приложения, которое может просто обрабатывать JSON и выполнять HTTP Приложения.Это означает практически все виды приложений: настольные, Интернет, мобильные устройства, Интернет вещей и т. д., независимо от того, были ли эти приложения встроены в C # .NET, Java, PHP, JavaScript, TypeScript, C / C ++, Swift и т. Д.

4. (Необязательно) Автоматическая публикация существующих сущностей Aurelius

Если вы используете TMS Aurelius, то TMS XData может автоматически создавать Конечные точки CRUD для некоторых или всех ваших сущностей Аврелия. Это приятная функция, которая экономит ваше время. Обратите внимание, что это необязательно, TMS XData не требует, чтобы вы использовали TMS. Аврелий вообще.

Как продолжить с этого

Теперь вы можете реализовать свой настоящий сервер. Конечно, XData позволяет вам создавать сложные сервисные операции, не просто простые, как Сумма выше.

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

При использовании клиентов, отличных от Delphi, интересно узнать, как маршрутизация и привязка параметров работает, поэтому вы точно знаете, как вызвать службу операция из приложения, отличного от Delphi.Также важно понять, как работает сериализация JSON (как каждый тип Delphi представлен как JSON), чтобы знать, как создать JSON для отправки и как интерпретировать полученный JSON.

Примечание

Любой HTTP-сервер XData основан на TMS Sparkle фреймворк. Согласно документации Sparkle, для использования Windows (http.sys), вы должны сначала зарезервировать URL ваша служба будет обрабатывать запросы от. Если вы установили TMS Сверкайте на своем компьютере, URL «http: // +: 2001 / tms» уже зарезервировано, поэтому вы можете создать свой сервер XData под этим адресом (все в примерах в этой документации используется базовый адрес «http: // server: 2001 / tms / xdata» .Если вы измените свой базовый URL на другой порт или URL-адрес, который не начинается с tms, вы должны зарезервируйте этот URL-адрес, иначе ваш сервер может не запуститься.

Создание сервера с помощью мастеров сервера XData

Самый простой и понятный способ начать работу с XData — это с помощью мастеров.

1. Выберите Файл> Создать> Другой , а затем найдите категорию TMS XData в «Delphi Projects».

2. Здесь вы найдете несколько мастеров для создания нового сервера XData. Применение:

   • Сервер TMS XData VCL : создает VCL приложение, которое запускает сервер XData с использованием http.sys

3. Выберите нужного мастера, дважды щелкните, и приложение будет созданный.

Как только вы запустите свое приложение, сервер будет запущен. В Созданное приложение использует компоненты времени разработки.Просто узнайте о компонентах, чтобы настроить их. Например, вы можете удалить компонент TFDConnection и установить его на TAureliusConnection.AdaptedConnection свойство для связи с базой данных соединение с сервером XData.

Вы также можете создать сервер вручную. Мастера нет обязательно, и это один из способов быстро начать работу.

Создание сервера с использованием компонентов времени разработки

Если вы не хотите использовать мастер сервера XData, другой способ создать сервер XData — вручную удалить компоненты времени разработки.Если вам нужен RAD, подход с отбрасыванием компонентов, это то, что вам нужно.

1. Перетащите компонент диспетчера в модуль формы / данных (например, TSparkeHttpSysDispatcher ).

2. Поместите компонент TXDataDBServer в модуль формы / данных .

3. Свяжите компонент TXDataDBServer с диспетчером с помощью свойства диспетчера .

4. Укажите свойство BaseUrl сервера (например, http: // +: 2001 / tms / xdata ).

5. Установите для свойства Active компонента диспетчера значение true.

Это все, что вам нужно. Если вы хотите иметь готовую базу данных пул подключений, вы можете использовать следующие дополнительные шаги:

6. Отбросьте соединение TAurelius компонент в модуле формы / данных и настройте его так, чтобы он подключался к вашей базе данных (вам нужно будет удалить дополнительные компоненты доступа к базе данных, например, TFDConnection , если вы хотите используйте FireDac, а затем свяжите его с TAureliusConnection.AdaptedConnection ).

7. Удалить пул TXDataConnectionPool компонент в модуле формы / данных и свяжите его с TAureliusConnection через свойство Connection .

8. Свяжите компонент TXDataServer с TXDataConnectionPool компонент через свойство Pool .

Создание сервера вручную

Здесь мы описываем шаги по созданию сервера XData вручную из код без использования мастера сервера XData или компоненты времени разработки:

1. Создайте интерфейс IDBConnectionFactory

2. Создание интерфейса IDBConnectionPool

3. Создать объект TXDataServerModule

4. Создайте THttpSysServer, добавьте к нему модуль и запустите сервер

1.Создайте интерфейс IDBConnectionFactory

Интерфейс IDBConnectionFactory используется для создания Интерфейсы TMS Aurelius IDBConnection который будет использоваться сервером для подключения к нужной базе данных (в объекты базы данных Aurelius будут сохранены). Вы можете прочитать больше подробности по конкретной теме здесь: IDBConnectionFactory интерфейс.

Ниже мы приводим пример кода, который создает интерфейс IDBConnectionFactory. который создает интерфейсы IDBConnection, которые подключаются к MS SQL Server база данных, основанная на существующем компоненте TSQLConnection с именем SQLConnection1 в модуле данных TMyConnectionDataModule.

  использует
  {...}, Aurelius.Drivers.Interfaces, Aurelius.Drivers.Base,
  Aurelius.Drivers.dbExpress;

вар
  ConnectionFactory: IDBConnectionFactory;
начинать
  ConnectionFactory: = TDBConnectionFactory.Create (
    функция: IDBConnection
    вар
      MyDataModule: TMyConnectionDataModule;
    начинать
      MyDataModule: = TMyConnectionDataModule.Create (ноль);
      Результат: = TDBExpressConnectionAdapter.Create (MyDataModule.SQLConnection1, MyDataModule);
    конец
  ));

  // Используйте интерфейс ConnectionFactory для создания интерфейса IDBConnectionPool
конец;
  

2. Создайте интерфейс IDBConnectionPool

Интерфейс IDBConnectionPool используется сервер для получения интерфейса IDBConnection, когда это необходимо. Это содержит список таких интерфейсов, и если он недоступен, он использует интерфейс IDBConnectionFactory для создания нового.Пример:

  использует
  {...}, Aurelius.Drivers.Interfaces, XData.Aurelius.ConnectionPool;

вар
  ConnectionPool: IDBConnectionPool;
  ConnectionFactory: IDBConnectionFactory;
начинать
  {...}
  ConnectionPool: = TDBConnectionPool.Create (
    50, // в пуле доступно максимум 50 подключений
        // Определите число, которое лучше всего соответствует вашим потребностям
    ConnectionFactory
  );

  // Используйте интерфейс IDBConnectionPool для создания серверного модуля XData
конец;
  

3.Создайте объект TXDataServerModule

TXDataServerModule — это основной класс сервера XData. Это Серверный модуль Sparkle который добавляется к серверу Sparkle для определенного адреса. Пример:

  использует
  {...}, XData.Server.Module;
вар
  XDataModule: TXDataServerModule;
  ConnectionPool: IDBConnectionPool;
начинать
  {...}
  XDataModule: = TXDataServerModule.Create ('http: // +: 2001 / tms / xdata', ConnectionPool);
  

4.Создайте THttpSysServer, добавьте к нему модуль и запустите сервер

Наконец, создайте объект TMS Sparkle THttpSysServer, добавьте к нему модуль XData и запустите сервер. Пример:

  использует
  {...}, Sparkle.HttpSys.Server, XData.Server.Module;
вар
  XDataModule: TXDataServerModule;
  Сервер: THttpSysServer;
начинать
  Сервер: = THttpSysServer.Create;
  Server.AddModule (XDataModule);
  Server.Start;
конец;
  

Позже не забудьте уничтожить экземпляр объекта Server , когда приложение заканчивается.

Пример 1: SQLite в памяти для тестирования / разработки

Следующий пример представляет собой минимальное консольное приложение, которое иллюстрирует как запустить сервер XData по адресу «http: // localhost: 2001 / tms / music» с использованием базы данных SQLite в памяти. Он использует модуль с именем AureliusEntities , который здесь не показан для упрощение. Такой отряд должен содержать только отображенный на карте Аврелий. классы, которые будут выставлены сервером.

Дополнительное примечание об этом примере: поскольку это база данных в памяти, база данных будет пустой каждый раз при запуске сервера.Таким образом, до сервер запускается, метод «UpdateDatabase (Connection)», который объявленный в модуле DatabaseUtils (также не перечисленный здесь), будет вызываться для создать необходимые таблицы и данные. Такая штука — обычная ТМС. Aurelius и также выходит за рамки этого примера. В Цель этого примера — показать, как запустить сервер XData.

  программа SQLiteConsoleServer;

{$ КОНСОЛЬ APPTYPE}

использует
  Система.SysUtils,
  Аврелий. Драйверы. Интерфейсы,
  Аврелий. Драйверы. SQLite,
  Aurelius.Sql.SQLite,
  Aurelius.Schema.SQLite,
  Sparkle.HttpSys.Server,
  XData.Aurelius.ConnectionPool,
  XData.Server.Module,
  AureliusEntities,
  DatabaseUtils;

процедура StartServer;
вар
  Сервер: THttpSysServer;
  Подключение: IDBConnection;
начинать
  Сервер: = THttpSysServer.Create;
  пытаться
    Подключение: = TSQLiteNativeConnectionAdapter.Создать (': память:');
    UpdateDatabase (Подключение);
    Server.AddModule (TXDataServerModule.Create ('http: // localhost: 2001 / tms / music',
      TDBConnectionPool.Create (1,
        функция: IDBConnection
        начинать
          Результат: = Подключение;
        конец)));
    Server.Start;
    WriteLn ('Сервер запущен. Для остановки нажмите ENTER.');
    ReadLn;
  наконец-то
    Server.Free;
  конец;
конец;

начинать
  StartServer;
конец.
  

Пример 2: Сервер MySQL с dbExpress (из кода Delphi)

Следующий пример представляет собой минимальное консольное приложение, которое иллюстрирует как запустить сервер XData по адресу «http: // localhost: 2001 / tms / music» с использованием dbExpress для подключения к База данных MySQL.Это настраивается в коде. Он использует единицу с именем AureliusEntities , который не показан здесь для упрощения. Такой unit должен просто содержать сопоставленные классы Aurelius, которые будут предоставляется сервером.

Пул соединений настроен на хранение до 25 подключений к база данных.

  программа DBExpressConsoleServer;

{$ КОНСОЛЬ APPTYPE}

использует
  System.SysUtils, SqlExpr, DBXMySQL,
  Аврелий.Драйверы. База,
  Аврелий. Драйверы. Интерфейсы,
  Aurelius.Drivers.dbExpress,
  Aurelius.Sql.MySQL,
  Aurelius.Schema.MySQL,
  Sparkle.HttpSys.Server,
  XData.Aurelius.ConnectionPool,
  XData.Server.Module,
  AureliusEntities в '.. \ common \ AureliusEntities.pas';

процедура StartServer;
вар
  Сервер: THttpSysServer;
  ConnFactory: IDBConnectionFactory;
начинать
  Сервер: = THttpSysServer.Create;
  пытаться
    // Пример использования dbExpress.Создайте фабрику соединений, чтобы использовать ее позже
    ConnFactory: = TDBConnectionFactory.Create (
      функция: IDBConnection
      вар
        SqlConn: TSQLConnection;
      начинать
        SqlConn: = TSQLConnection.Create (ноль);
        SqlConn.DriverName: = 'MySQL';
        SqlConn.GetDriverFunc: = 'getSQLDriverMySQL';
        SqlConn.VendorLib: = 'libmysql.dll';
        SqlConn.LibraryName: = 'dbxmys.dll';
        SqlConn.Params.Values ​​['HostName']: = 'dbserver';
        SqlConn.Params.Values ​​['База данных']: = 'xdata';
        SqlConn.Params.Values ​​['Имя_пользователя']: = 'пользователь';
        SqlConn.Params.Values ​​['Пароль']: = 'mysql';
        SqlConn.LoginPrompt: = false;
        Результат: = TDBExpressConnectionAdapter.Create (SqlConn, true);
      конец
    );
    Server.AddModule (TXDataServerModule.Create (
      'http: // localhost: 2001 / tms / music',
      TDBConnectionPool.Create (25, ConnFactory)
    ));
    Server.Start;
    WriteLn ('Сервер запущен.Для остановки нажмите ENTER. ');
    ReadLn;
  наконец-то
    Server.Free;
  конец;
конец;

начинать
  StartServer;
конец.
  

Пример 3: MS SQL Server с FireDAC (с использованием TDataModule)

В следующем примере показано, как запустить сервер XData в адрес «http: // localhost: 2001 / tms / music» с помощью FireDac для подключения к любая база данных (в примере база данных MS SQL Server). По сравнению с Пример 2, в этом примере используется TFDConnection , сброшенный на TDataModule для настройки соединение с базой данных во время разработки.Он использует устройство с именем AureliusEntities . который здесь не показан для упрощения. Такой агрегат должен просто содержат сопоставленные классы Aurelius, которые будут предоставлены сервером. Пул соединений настроен на хранение до 15 подключений к база данных.

Таким образом, предположим, что у вас есть модуль данных с существующим настроенным подключение к базе данных с помощью FireDac:

Вы можете использовать такую ​​конфигурацию и создать один экземпляр этих данных. модуль, когда этого требует сервер.Вы можете использовать TFDConnection компонент из него.

  программа FireDacConsoleServer;

{$ КОНСОЛЬ APPTYPE}

использует
  System.SysUtils,
  Аврелий. Водители. База,
  Аврелий. Драйверы. Интерфейсы,
  Аврелий. Драйверы.FireDac,
  Aurelius.Sql.MSSQL,
  Aurelius.Schema.MSSQL,
  Sparkle.HttpSys.Server,
  XData.Aurelius.ConnectionPool,
  XData.Server.Module,
  AureliusEntities в '.. \ common \ AureliusEntities.pas',
  DBDataModuleUnit в 'DBDataModuleUnit.pas '{DBDataModule: TDataModule};

процедура StartServer;
вар
  Сервер: THttpSysServer;
начинать
  Сервер: = THttpSysServer.Create;
  пытаться
    Server.AddModule (TXDataServerModule.Create ('http: // localhost: 2001 / tms / music',
      TDBConnectionPool.Create (15, TDBConnectionFactory.Create (
        функция: IDBConnection
        вар
          DBDataModule: TDBDataModule;
        начинать
          // Пример использования FireDac и модуля данных
          DBDataModule: = TDBDataModule.Создать (ноль);
          Результат: = TFireDacConnectionAdapter.Create (DBDataModule.FDConnection1, DBDataModule);
        конец
    ))));
    Server.Start;
    WriteLn ('Сервер запущен. Для остановки нажмите ENTER.');
    ReadLn;
  наконец-то
    Server.Free;
  конец;
конец;

начинать
  StartServer;
конец.
  

Разработка веб-приложения на основе базы данных с помощью Delphi Rio и TMS Web Core — FlixEngineering LLC

Delphi — это инструмент номер один для разработки настольных приложений в Windows и для Windows.Этому заявлению мало кто возражает. Пару лет назад был выпущен и компилятор для 64-битной Windows. Имея в вашем распоряжении VCL и широкие возможности подключения к базам данных, включенные в продукт, Delphi также занимает лидирующие позиции, когда базы данных попадают в смесь. Однако Delphi никогда не становился лидером в разработке веб-приложений. Несмотря на то, что компоненты для доступа к сети и веб-фреймворк поставляются вместе с продуктом, многие Delphi и веб-разработка никогда не упоминаются в одном и том же направлении.

TMS изменило план игры в 2017 году, представив TMS Web Core в качестве новой платформы для разработки веб-приложений. Вы можете найти много информации об этом фреймворке в Интернете. Просто начните свое путешествие со следующей веб-страницы, и вы найдете видео, статьи и даты мероприятий, чтобы узнать больше об этом:

Программное обеспечение TMS — TMS Web Core

Компоненты для разработки программного обеспечения с Embarcadero Delphi, C ++ Builder и Microsoft Visual Studio

С момента своего появления в 2017 году TMS добавила в структуру множество функций и компонентов.В настоящее время можно даже разрабатывать прогрессивные веб-приложения (PWA) и многоплатформенные настольные (!) Приложения, используя платформу Electron.

Практические примеры

Некоторые разработчики говорят, что практические и реалистичные примеры важнее маркетинговых материалов. Именно здесь я начал создавать видеоролики, демонстрирующие, как использовать TMS Web Core для определенных задач разработки.

• Я хотел создать серию руководств, основанную на следующих рекомендациях:
• Данные взяты из реального активного источника данных / базы данных, которая все еще поддерживается
• Демонстрации должны быть воспроизводимыми и легкодоступными, включая используемые данные
• Создайте все с нуля и начните с очень простого примера
• Далее более сложные обучающие программы будут основаны на фундаменте

Сегодня я хотел бы представить так называемую «серию школьных данных» — вкратце, серию школьных данных.Он точно следует этим рекомендациям. Я использовал базу данных, опубликованную администрацией округа Ли, штат Флорида, США. В данных перечислены все школы (например, государственные начальные, средние и средние школы) в округе с множеством атрибутов:

Как видно на скриншоте, данные можно скачать и импортировать в базу данных.

Это будет отправной точкой для обучения.

Видео 1: подключение к базе данных, доступ из веб-приложения

Первое видео знакомит с содержанием, а также дает краткий обзор того, как будет развиваться серия в последующих частях.Однако основное внимание уделяется вопросу, как подключиться к данным из веб-приложения. Разработчики Delphi обычно могут использовать соединение, запрос и сетку для отображения данных из базы данных. К удивлению большинства людей, которые не знают о TMS Web Core, именно так оно работает в TMS Web Core. Единственное препятствие, с которым вам придется столкнуться, — это тот факт, что для соединения требуется еще один уровень между приложением и сервером базы данных. Этот уровень состоит из веб-службы, которая предоставляет REST-доступ к базе данных.В учебнике будут приведены все аргументы, почему этот подход имеет смысл, а подход без веб-службы не следует рассматривать.

Это будет покрыто:

• Введение в серию видео
• Ознакомиться с данными
• Создание веб-службы REST с поддержкой JSON с использованием TMS XData
• Создайте приложение TMS Web Core с
  • подключение к веб-службе
  • с использованием подключений к базе данных и наборов данных во время разработки
  • отобразить все данные в сетке
• Перспективы на другие части серии
  • добавление данных из базы данных в Google Maps
  • отображать графики на основе информации из базы данных с Google Charts
  • добавить профессиональный веб-дизайн с помощью Bootstrap

Я буду следить за дальнейшими сообщениями в блоге обо всех частях серии.