Проектирование баз данных в среде Delphi: Компьтерный методический материал к лабораторным работам. Блюдина Л.С. - 44 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

этой кнопки мы сможем вернуться к форме Form1 во время работы
приложения. Активизируем кнопку Button2 и в открывшемся обработчике
события OnClick введем следующее:
procedure
TForm2.Button2Click(Sender: TObject);
begin
Close;
end
;
10.
Ниже помещенных нами компонент разместим на всю оставшуюся часть
формы компоненту DBGrid со страницы DataControls палитры компонент.
Зададим свойству DataSourse значение Form1.DataSource3. При помощи
редактора списка полей Editing DBGrid1.Columns определим поля, которые
будут отображаться в таблице (эти действия были описаны в лаб./раб. №2):
Family, Name, SecName, Number, Type, задавая при этом через сложное
свойство Titel заголовки столбцов в DBGrid1: Фамилия, Имя, Отчество,
Номер, Тип соответственно.
11.
Поместим в низ формы Form1, приблизительно в центр, еще одну кнопку
Button, которая в тексте модуля будет иметь имя Button2. Изменим ее
свойство Caption на Выход (выход из приложения). Активизируем ее и в
обработчике события напишем:
procedure
TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
12.
Запустим программу командой Run|Run. В результате появится окно, в
котором при нажатии на кнопку Просмотр появится еще одно окно, где,
выбирая в выпадающем списке разные буквы и нажимая кнопку Страница,
можем видеть, как меняется набор отображаемых записей в таблице DBGrid
в соответствии с первой буквой значения фамилии.
13.
Завершим работу нажатием кнопки Выход в основном окне.
14.
Сохраним все изменения в проекте.
При программном использовании TQuery следует сначала закрыть
текущий запрос и удалить все строки, которые уже могут находиться в
свойстве SQL:
Query1.Close;
Query1.SQL.Clear;
При этом всегда безопасно вызывать Close, т.к. если запрос уже закрыт,
то это не вызовет никакой ошибки. Следующим шагом является добавление
новых строк, которые необходимо выполнить, например:
Query1.SQL.Add(‘Select * From People.db’);
Можно использовать свойство Add для добавления в запрос
SQL
от
одной до x строк.
Для того, чтобы Delphi обработало операторы
SQL
и вернуло курсор с
результатами запроса, требуется написать следующий оператор:
Query1.Open;

Страницы