- •Министерство образования российской федерации ростовский государственный экономический университет
- •Borland delphi
- •4.1 Страница Additional 23
- •4.2 Страница Dialogs 24
- •4.3 Страница System 25
- •4.4 Страница vbx 26
- •8.3 Компоненты работы с бд. 63
- •Введение
- •1 Borland Borland Delphi. Основные характеристики продукта
- •2 Среда программирования Delphi
- •2.1 Структура среды программирования
- •2.2 Главные составные части среды программирования
- •2.3 Дополнительные элементы
- •2.4 Стандартные компоненты
- •2.5 Подробнее об Инспекторе Объектов
- •2.6 Сохранение программы
- •2.7 TButton, исходный текст, заголовки и z-упорядочивание
- •3. Управление проектом
- •3.1 Проект Delphi
- •3.2 Пункт меню “File”
- •3.3 Управление проектом
- •3.4 Обзор других пунктов меню
- •3.4.1 Пункт меню “Edit”
- •3.4.2 Пункт меню “Menu”
- •3.4.3 Пункт меню “View”
- •3.4.4 Пункт меню “Compile”
- •4 Обзор Палитры Компонент
- •4.1 Страница Additional
- •4.2 Страница Dialogs
- •4.3 Страница System
- •4.4 Страница vbx
- •5 Свойства в Delphi
- •5.1 Управление свойствами визуальных компонент в режиме выполнения
- •6. Методы в Delphi
- •6.1 Создание методов с помощью визуальных средств
- •Interface
- •Implementation
- •6.2 Передача параметров
- •Interface
- •Implementation
- •7 События в Delphi
- •7.1 Понимание событий
- •7.2 Обработка сообщений Windows в Delphi
- •8 Работа с бд в Delphi.
- •8.1.2 Алиасы
- •8.1.3 Системная информация утилиты настройки bde (bdecfg)
- •8.2 УтилитаDatabaseDesktop
- •8.3 Компоненты работы с бд.
- •8.3.1 Класс TdataSet
- •8.3.1.1 Открытие и закрытие DataSet
- •8.3.2 Навигация (Перемещение по записям)
- •8.3.3 Поля
- •8.3.4 Работа с Данными
- •8.3.5 Основные понятия о TdataSource
- •8.3.5.1 Использование tDataSource для проверки состояния бд
- •8.3.5.2 Отслеживание состояния DataSet
- •8.3.6 Создание таблиц с помощью компонента tTable
- •8.3.7 Управление tdbGrid во время выполнения
- •9 Основные понятия о запросах (queries) и транзакциях
- •9.1 Основные понятия о tQuery
- •9.2 Свойство sql
- •9.3 TQuery и Параметры
- •9.4 Передача параметров через tDataSource
- •9.5 Специальные свойства Tquery
- •10 Создание таблиц с помощью sql-запросов
- •10.1 Создание таблиц с помощью sql
- •11 Управление соединением с базой данных при помощи компоненты tDataBase и объекта Tsession
- •11.1 Класс TdataBase
- •11.2 Создание постоянного соединения с базой данных
- •11.3 Определение собственного диалога при соединении с базой данных
- •11.4 Создание локального псевдонима базы данных
- •11.5 Изменение параметров при соединении
- •11.6 Управление транзакциями
- •11.7 Объект Session
- •11.7.1 Указание сетевого протокола при соединении с бд
- •12 Утилиты для Local InterBase
- •12.1 InterBase Interactive sql
- •12.1.1 Установка соединения
- •12.1.2 Создание новой базы данных
- •12.1.3 Получение информации о структуре базы данных
- •12.1.4 Выполнение sql запросов
- •12.2 InterBase Server Manager
- •12.2.1 Резервное копирование
- •Список использованных источников
2.7 TButton, исходный текст, заголовки и z-упорядочивание
Еще несколько возможностей Инспектора Объектов и Дизайнера Форм.
Задание 2.
Создайте новый проект.
Поместите на форму объект TMemo, а затем TEdit так, чтобы он наполовину перекрывал TMemo, как показано на рис.11.
Теперь выберите пункт меню Edit | Send to Back, что приведет к перемещению TEdit вглубь формы, за объект TMemo. Это называется изменением Z-порядка компонент. БукваZиспользуется потому, что обычно математики обозначают третье измерение буквойZ. Так,XиYиспользуются для обозначения ширины и высоты, иZиспользуется для обозначения глубины.
Рис.11: Объект TEdit перекрывается наполовину объектом TMemo.
Если Вы “потеряли” на форме какой-то объект, то найти его можно в списке Combobox’а, который находится в верхней части Инспектора Объектов.
4. Поместите кнопку TButton в нижнюю часть формы. Теперь растяните Инспектор Объектов так, чтобы свойства Name и Caption были видны одновременно на экране. Теперь измените имя кнопки на Terminate. Заметьте, что заголовок (Caption) поменялся в тот же момент. Такое двойное изменение наблюдается только, если ранее не изменялось свойство Caption.
Текст, который Вы видите на поверхности кнопки - это содержимое свойства Caption, свойство Name служит для внутренних ссылок, Вы будете использовать его при написании кода программы. Если Вы откроете сейчас окно Редактора, то увидите следующий фрагмент кода:
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Terminate: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
В этом фрагменте кнопка TButton называется Terminate из-за того, что Вы присвоили это название свойству Name. Заметьте, что TMemo имеет имя, которое присваивается по умолчанию.
5. Перейдите на форму и дважды щелкните мышкой на объект TButton. Вы сразу попадете в окно Редактора, в котором увидите фрагмент кода вроде этого:
procedure TForm1.TerminateClick(Sender: TObject);
begin
end;
Данный код был создан автоматически, и будет выполняться всякий раз, когда во время работы программы пользователь нажмет кнопку Terminate. Определение класса в начале файла теперь включает ссылку на метод TerminateClick:
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Terminate: TButton;
procedure TerminateClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
При выполнении двойного щелчка на кнопку соответствующий фрагмент кода автоматически заносится в Редактор.
6. Напишите строчку кода для закрытия главной формы, а значит и всего приложения. Это очень простой код, состоящий из одного слова Close:
procedure TForm1.TerminateClick(Sender: TObject);
begin
Close;
end;
7. Для проверки кода запустите программу и нажмите кнопку Terminate. Если все сделано правильно, программа закроется, и Вы вернетесь в режим дизайна.
8. Перейдите в Инспектор Объектов и измените значение свойства Name для кнопки на любое другое, например OK. Нажмите Enter для внесения изменений. Посмотрите в Редактор, Вы увидите, что код, написанный Вами изменился:
procedure TForm1.OkClick(Sender: TObject);
begin
Close;
end;
Заметьте, что аналогичные изменения произошли и в определении класса:
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Ok: TButton;
procedure OkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;