Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
Реклама
Сейчас на сайте
Гостей: 23
На сайте нет зарегистрированных пользователей

Пользователей: 13,144
новичок: Pers
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Расчет обратной матрицы на Delphi + Пояснительная записка
моделирование процесса поступления заявок в ЭВМ на GPSS + Пояснительная ...
Обработка задач на ЭВМ на GPSS + Пояснительная записка

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Создание псевдонимов БД (Delphi + Microsoft SQL Server)


Как уже отмечалось ранее, взаимодействие приложения с БД осуществляется через источник данных, для которого задается уникальное на компьютере имя – псевдоним или, по-другому, альяс. Понятия псевдоним и источник данных часто отождествляют. Псевдонимы могут создаваться как с помощью утилиты BDE Administrator, так и с помощью утилиты SQL Explorer. Для обеих утилит этот процесс совершенно аналогичен.
Рассмотрим процесс создания псевдонимов. Откроем SQL Explorer, выбрав пункт Explorer из меню Database Delphi (C++Builder). Выберем пункт ODBC Administrator меню Object. Если данная операция запрещена, то необходимо запустить утилиту C:\WINNT\SYSTEM32\odbcad32.exe. На вкладке Пользовательский DSN нажмем кнопку Добавить. В открывшемся окне (рис. 3) выберем тип драйвера Microsoft SQL Server (или SQL Server) и нажмем кнопку Готово.
Далее (рис. 4) будет предложено ввести имя псевдонима БД, под которым к ней будем обращаться из клиентских приложений и имя сервера (например, WS208).





В качестве имени псевдонима следует указать какое-либо осмысленной буквосочетание, например, Supply, Transport, Нotel и т.д. В следующем окне необходимо выбрать пункт Проверка подлинности учетной записи SQL Server, что означает, что для доступа к серверу будет использовано имя и пароль, задаваемые на сервере, а не имя и пароль, под которым входили в систему. Следует также убрать флажок напротив надписи Получить параметры, используемые по умолчанию от SQL Server, чтобы не указывать имя и пароль для доступа к БД с расширенными полномочиями (в нашем случае это не надо).
В последующих окнах нужно все оставить без изменения, нажимая кнопку Далее и в конце Готово. Альяс будет создан. Обратите внимание, что в окне SQL Explorer альяс пока не появился (появится после закрытия и нового открытия приложения). Следует закрыть SQL Explorer и Borland Delphi (Borland C++Builder).
Далее следует связать альяс с уже созданной базой данных. Во всех рассматриваемых в дальнейшем примерах используется БД Поставка товаров, схема которой представлена на рис. 5.



Для лучшего усвоения материала необходимо создать БД Поставка товаров в СУБД SQL Server 2000. Содержимое таблиц представлено в табл. 1–3.




Далее установления связи альяса с базой данных нужно вновь открыть утилиту SQL Explorer, выбрать свой псевдоним (например, Supply) и ввести необходимые сведения о своей базе (рис. 6):
DATABASE NAME Поставка товаров (имя БД на сервере)
USER NAME sa (имя пользователя сервера)



Утвердить изменения, выбрав пункт Apply меню Object. Следует отметить, что эти сведения можно было ввести и раньше, при создании псевдонима.
Дважды щелкнуть по своему псевдониму, после чего в открывшемся окне ввести пароль, например, sa. Произойдет подключение к удаленной БД. Если в результате попытки подключения произойдет ошибка, повторить попытку.
В левой части окна выбрать пункт Tables и просмотреть сведения об имеющихся в БД таблицах (рис. 7). Просмотреть свойства своих таблиц (структуру полей).
С помощью утилиты SQL Explorer можно также отлаживать SQL запросы. Рассмотрим этот процесс.
С целью настройки программы на нормальное отображение русских букв выбрать пункт Text Font меню View и выбрать шрифт Courier вместо Courier New.
В правой части окна выбрать вкладку Enter SQL (рис. 8). В соответствующем поле ввода ввести текст SQL-запроса, после чего нажать кнопку (выполнить). В нижней правой части окна появятся результаты выполнения запроса. Далее можно вводить новый запрос. Список введенных запросов можно листать кнопками (стрелка вверх) и (стрелка вниз).




Теперь созданный псевдоним можно использовать в клиентских приложениях для доступа к БД

Скрипт создания базы данных Кинотеатры:

Use master
go

create database Kino2
on
(Name='Kino2_data',
Filename='d:\users\stud\547\Kino2_data.mdf',
SIZE=4,
MAXSIZE=10,
FILEGROWTH=1)
LOG ON
(NAME='Kino2_log',
FILENAME='d:\users\stud\547\Kino2_data.ldf', SIZE=4, MAXSIZE=10, FILEGROWTH=1)
GO
USE Kino2_data
GO


CREATE TABLE [dbo].[Кинотеатры] (
[№кинотеатра] [int] NOT NULL ,
[название кинотеатра] [char] (10) COLLATE Cyrillic_General_CI_AS NOT NULL ,
[адрес] [char] (100) COLLATE Cyrillic_General_CI_AS NOT NULL ,
[телефон кассы] [char] (10) COLLATE Cyrillic_General_CI_AS NOT NULL
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Сеансы] (
[№кинотеатра] [int] NOT NULL ,
[код фильма] [int] NOT NULL ,
[номер сеанса] [int] NOT NULL ,
[дата показа] [datetime] NOT NULL ,
[время показа] [datetime] NOT NULL ,
[стоимость] [money] NOT NULL
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[Фильмы] (
[Код фильма] [int] NOT NULL ,
[название] [char] (100) COLLATE Cyrillic_General_CI_AS NOT NULL ,
[страна] [char] (10) COLLATE Cyrillic_General_CI_AS NOT NULL ,
[год выпуска] [char] (10) COLLATE Cyrillic_General_CI_AS NOT NULL
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[Кинотеатры] WITH NOCHECK ADD
CONSTRAINT [PK_Table1] PRIMARY KEY CLUSTERED
(
[№кинотеатра]
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[Сеансы] WITH NOCHECK ADD
CONSTRAINT [PK_Сеансы] PRIMARY KEY CLUSTERED
(
[№кинотеатра],
[код фильма]
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[Фильмы] WITH NOCHECK ADD
CONSTRAINT [PK_Фильмы] PRIMARY KEY CLUSTERED
(
[Код фильма]
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[Сеансы] ADD
CONSTRAINT [FK_Сеансы_Кинотеатры] FOREIGN KEY
(
[№кинотеатра]
) REFERENCES [dbo].[Кинотеатры] (
[№кинотеатра]
) ON DELETE CASCADE ON UPDATE CASCADE ,
CONSTRAINT [FK_Сеансы_Фильмы] FOREIGN KEY
(
[код фильма]
) REFERENCES [dbo].[Фильмы] (
[Код фильма]
) ON DELETE CASCADE ON UPDATE CASCADE
GO


-- Создание умолчания
CREATE DEFAULT D1 AS 0 GO
-- Привязка умолчания к объектам
EXEC sp_bindefault 'D1','Сеансы.Стоимость'
GO
-- Создание правила
CREATE RULE R1 AS @X LIKE '[А-Я, а-я]%'
GO
-- Привязка правила к объектам
EXEC sp_bindrule 'R1','Кинотеатры.[название кинотеатра]'
go




Заполнение базы:

USE Kino2
GO
-- Заполнение таблицы Поставщики
INSERT INTO Кинотеатры ([№кинотеатра], [Название кинотеатра], Адрес, [Телефон кассы])
VALUES (1, 'Прогресс', 'Рязань', '451234')
INSERT INTO Кинотеатры ([№кинотеатра], [Название кинотеатра], Адрес, [Телефон кассы])
VALUES (2, 'Ока', 'Рязань', '920140')
INSERT INTO Кинотеатры ([№кинотеатра], [Название кинотеатра], Адрес, [Телефон кассы])
VALUES (3, 'Уют', 'Москва', '7651044')
INSERT INTO Кинотеатры ([№кинотеатра], [Название кинотеатра], Адрес, [Телефон кассы])
VALUES (4, 'Быт', 'Липецк', '381855')

-- Заполнение таблицы Товары
INSERT INTO Фильмы ([Код фильма], Название, страна, [год выпуска])
VALUES (1, 'Ложка', 'Китай', 10)
INSERT INTO Фильмы ([Код фильма], Название, страна, [год выпуска])
VALUES (2, 'Вилка', 'Китай', 12)
INSERT INTO Фильмы ([Код фильма], Название, страна, [год выпуска])
VALUES (3, 'Тарелка', 'Россия', 100)
INSERT INTO Фильмы ([Код фильма], Название, страна, [год выпуска])
VALUES (4, 'Нож', 'Китай', 50)

-- Заполнение таблицы Поставки
INSERT INTO Сеансы ([№кинотеатра], [код фильма], [номер сеанса], [дата показа],[время показа], стоимость)
VALUES (2, 1, 1,'16.06.2007','15:20:00', 100)
INSERT INTO Сеансы ([№кинотеатра], [код фильма], [номер сеанса], [дата показа],[время показа], стоимость)
VALUES (2, 2, 2,'16.06.2007','15:20:00', 200)
INSERT INTO Сеансы ([№кинотеатра], [код фильма], [номер сеанса], [дата показа],[время показа], стоимость)
VALUES (3, 1, 3,'16.06.2007','15:20:00', 200)






Опубликовал Kest Март 25 2009 12:18:31 · 1 Комментариев · 17534 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Alekcey Июль 12 2010 13:44:13
При выполнении запроса:

with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from ":base1:Const" '); //base1 - название алиаса
Open;
end;


появляется окно Database Login, где необходимо ввести пароль и пользователя (пользователь прописан в USER NAME = sa алиаса).
Ввожу пароль , все работает.

Вопрос : можно ли сделать так, чтобы программа не требовала ввести пароль, не добавляя
компонент TDatabase и не меняя компонент TQuery на TADOQuery
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
DCAVI
Редактор анимаций
Размещение элемен...
Программирование ...
Cooltray
Простой пример ка...
Программирование ...
Игра змейка
Mass Photo Upload
DragMe [Исходник ...
Tank [Исходник на...
Определние размер...
SUIPack
WebReg v1.3
Delphi 2006 - Спр...
TrayIcon
De Knop
Программирование ...
Пример клиента ФТ...
isoCanvas (Редакт...

Топ загрузок
Приложение Клие... 100658
Delphi 7 Enterp... 94856
Converter AMR<-... 20174
GPSS World Stud... 16536
Borland C++Buil... 13773
Borland Delphi ... 9638
Turbo Pascal fo... 7211
Калькулятор [Ис... 5509
Visual Studio 2... 5107
FreeSMS v1.3.1 3610
Случайные статьи
nl
Недвижимость в Чите
Игра «Домино» [Vis...
Мы часто встречаем...
Модальные формы
Расширенные буферы...
функции AddDetails
Раскрутка сайта
Ключевые слова в ...
Электронная почта ...
Промежуточный вари...
ОСНОВНЫЕ РАЗЛИЧИЯ ...
Разработать програ...
Блоки с информацие...
Тонкости дизассемб...
Генерация программ...
Определить номер п...
— только на объект...
Структура книги
внутренней сети
Сейшелы
ОБРАЗОВАНИЕ ПЕРВОГ...
Ассоциативные конт...
Глава 5 Стоимос...
Логическая задача ...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?