Запросы на изменение данных.. Запрос INSERT. procedure TForm1.FormActivate(Sender: TObject);. Внимание. Размеры полей в таблице vipusk.db должны совпадать с размерами соответствующих полей исходной таблицы.. procedure TForm1.Button1Click(Sender: TObject);

Запросы на изменение данных.

Запрос INSERT

Откройте базу данных ШКОЛА. Добавьте на форму новые кнопки как показано на рисунке.

Компонент Table1 свяжите с таблицей school.db. Поместите на форму компонент Datasouce1. Связь этих компонентов задайте не в инспекторе объектов, а программным путем в обработчике события активизации формы.

Рис.1 База данных ШКОЛА.

procedure TForm1.FormActivate(Sender: TObject);

begin Table1.DatabaseName := 'School'; //здесь д.б. имя вашего псевдонима

Table1.TableName := 'school.db';

DataSource1.DataSet:=Table1;

DBGrid1.DataSource:= DataSource1 ;

DBNavigator1.DataSource:= DataSource1 ;

Table1.Active:=True; end;

Поместите на форму компоненты Table2 и Datasouce2, а так же кнопку Button1 “Новая таблица ВЫПУСКНИК”. Нажатием на эту кнопку создается навигационным способом новая таблица Vipusk для хранения данных о выпускниках школы (фамилия, имя, класс и год выпуска).

Внимание. Размеры полей в таблице vipusk.db должны совпадать с размерами соответствующих полей исходной таблицы.

procedure TForm1.Button1Click(Sender: TObject);

begin Table2.DatabaseName := 'School';

Table2.TableName := 'vipusk.db';

Table2.TableType := ttParadox;

Table2.FieldDefs .Clear;

Table2.FieldDefs.Add('Name', ftString, 10, true);

Table2.FieldDefs.Add('Fam', ftString, 15, true);

Table2.FieldDefs.Add('Class', ftString, 4, true);

Table2.FieldDefs.Add('God', ftInteger);

Table2.CreateTable;

Button1.Enabled:=false; end;

Поместите на форму кнопку Button2 «Переписать выпускников», нажатие на которую создает, а затем запускает запрос на добавление в новую таблицу записей , касающихся учеников 11-х классов.

12 Следующая ⇒