Навигация
Главная
Поиск
Форум
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
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Создание отчето... 64970
Модуль Forms 64758
Пример работы с... 63065
ТЕХНОЛОГИИ ДОСТ... 61480
Имитационное мо... 57310
Реклама
Сейчас на сайте
Гостей: 9
На сайте нет зарегистрированных пользователей

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

Поиск пути в графе заданном списками инцедентности на Turbo Pascal
Моделирование процесса обработки заданий пакетным режимом работы с квант...
База данных междугородних телефонных разговоров на Delphi

Реклама



Подписывайся на 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 March 25 2009 12:18:31 · 1 Комментариев · 16693 Прочтений · Для печати

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


Комментарии
Alekcey July 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...
Шаблон для новост...

Случайные загрузки
Голосование для ...
Исправление проц...
PDPcheck
Программа "AutoRu...
Генетический алго...
AdBlaster v2.5 - ...
Нестандартные при...
BDEPack
ScrollCredit
Delphi Russian Kn...
netBIOS
Язык программиров...
Медиа комбайн
Socoban
JanComp
Учебник для продв...
База для Allsubmi...
Редактор анимаций
DateEdit
WebReg v1.3

Топ загрузок
Приложение Клие... 100463
Delphi 7 Enterp... 86573
Converter AMR<-... 20076
GPSS World Stud... 12619
Borland C++Buil... 11743
Borland Delphi ... 8552
Turbo Pascal fo... 7037
Visual Studio 2... 4998
Калькулятор [Ис... 4758
FreeSMS v1.3.1 3541
Случайные статьи
Адаптация нашего к...
Проходящая через и...
Безопасность сети ...
SET ORDER TO TAG L...
Windows
Настенные кондицио...
Унарные операторы
INITIAL (ИНИЦИАЛИЗ...
Контроль перегрузки
Выполнение процеду...
Деструкторы в язы...
Теперь мы можем го...
Итератор q являетс...
Новый шаблон прави...
Cannot call an int...
Символы для формат...
Выбор меток NFC
Часто возникают ди...
Университет
Динамическое храни...
Создание файла про...
Деструктор
Базовые файловые с...
Чтение структуры P...
В перспективе VRML
Статистика



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


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