Разработка запросов

Разработка запросов. Для соединения формы с таблицами использовался объект приложения Delphi, ADOConnections, который помещаю в DataModule.

ADOConnections подключается к базе данных. Поставщики данных (Provider) перечислены все доступные ADO драйверы доступа к базам данных: для Access используется драйвер Microsoft Jet OLE DB Provider. Такой драйвер обязательно устанавливается на машину вместе с MS Office, а в последних версиях Windows он устанавливается всегда по умолчанию. В новом окне с заголовком Form1.ADOTable1.ConnectionString нужно выбрать пункт Use Connection String затем, Build в вновь открывшемся окне указывается путь к своей базе данных.

Как только произошёл выбор нужной базы данных, необходимо проверить подключение, для этого нажимается кнопка «Проверить подключение» (Test Connection), чтобы протестировать соединение. Следующий шаг, на форму устанавливается компонент DataSource с вкладки Data Access палитры компонентов. Теперь этому компоненту указывается таблица отображения: свойство DataSet–ADOTable1, который связан с таблицей.

Все приготовления готовы, далее нужно приступить к реальному отображению данных. Самый простой способ отобразить таблицу – установить компонент DBGrid (Вкладка Data Controls). Этот компонент – сетка, которая может отображать данные в виде таблицы. DBGrid (см. рисунок 2.6). Так же есть другой способ отображения данных, с помощью компонента Delphi DBEdit, это так называемое поле (см. рисунок 2.2). DBEdit позволяет отображать конкретное поле из таблицы, эти два способа будут использованы в курсовом проекте.

Чтобы отобразить форму ввода для «Прайс–листа» (см. рисунок 2.6), использовался следующий запрос: SELECT ЦеныТовара. ЦенаТовара, ЦеныТовара. Товар, Товары. Название, ЦеныТовара. Дата, ЦеныТовара. Цен FROM ЦеныТовара, Товары WHERE ЦеныТовара. Товар=Товары.[Код товара] ORDER BY Товары. Название; Этот запрос был реализован в СУБД Access, он подключён через компонент Delphi ADOTeble, и компонент DataSet, данные выведены на форму с помощью DBGrid. Запрос основан на двух таблицах: «ЦеныТовара», «Товары» которые объединены через «Код товара» и упорядочены по текстовому полю таблицы «Товары». Раздел реквизитов формы «Накладная приход» основана на следующем запросе, созданном в СУБД Access: SELECT Накладные. Накладная, Накладные. Номер, Накладные. Приход, Накладные.

Клиент, Накладные. Дата, Накладные. Ответственный, Накладные. Комментарий, Накладные. Обработана FROM Накладные WHERE (((Накладные. Приход)=True) AND ((Накладные. Обработана) Is Null)) ORDER BY Накладные. Дата; Подключение этого запроса к выводу в форму представления данных осуществляется, так же как и для первого примера (Прайс-лист). Он выводит, как можно увидеть из запроса, только те данные из таблицы «Накладные», которые удовлетворяют условиям, перечисленным в разделе WHERE, т.е. значение «Приход» должно быть истинным и значение поля «Обработана» должно равняться значению Null. Это было сделано для того, чтобы человек вводящий данные мог работать только с необработанными накладными, т.е. с теми заказами, которые были сделаны, но не пришли ещё на склад (ожидаемыми поставками). Работа с другими формами основана на тех же принципах, которые были перечислены выше, отличие заключается лишь в выборке данных из таблиц с помощью запросов, например для разработки отчёта «Список поставщиков» (см. рисунок 2.3) был использован следующем запрос: SELECT Клиенты. Клиент, Клиенты.[Вид лица], Клиенты.[Наименование общества], Клиенты.[Название орг], Клиенты. ФИО, Клиенты. Адрес, Клиенты. Телефон FROM Клиенты WHERE (((Клиенты.[Вид лица])=True)) ORDER BY Клиенты.[Название орг];