Програмне редагування даних

Оскільки TIBDataSet породжений класом ТDataSet, у нього є три основні методи для зміни даних: Delete, Insert (Append), Edit. Вставимо на форму кнопку Button. Нехай нам потрібно вставити новий запис в IBDataSet1 при натискуванні цієї кнопки. Обробник події OnClick при цьому буде мати вид:

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

with IBDataSet1 do begin

Insert;

FieldByName('EMP_NO').AsInteger:=147;

FieldByName('DEPT_NO').AsInteger:=600;

FieldByName('JOB_CODE').AsString:='VP';

FieldByName('JOB_GRADE').AsInteger:=2;

FieldByName('SALARY').AsInteger:=105900;

FieldByName('HIRE_DATE').AsDateTime:=Now;

FieldByName('JOB_COUNTRY').AsString:='USA';

FieldByName('FIRST_NAME').AsString:='Smit';

FieldByName('LAST_NAME').AsString:='Piter';

Post;

end;

Метод Insert формує пустий буфер для нашого (поки ще не введеного запису), Далі ми задаємо значення потрібних полів. Після виконання методу Post IBDataSet1 виконує запит, записаний у властивості InsertSQL, підставивши замість параметрів значення полів, які ми задали. Якщо запит пройшов успішно, то IBDataSet1 автоматично виконує RefreshSQL для поновлення тільки що вставленого запису – для перевірки змін, які внесені на стороні бази даних.

З А В Д А Н Н Я

1. Скомпонуйте описаний проект для перегляду і редагування таблиці Customer з бази даних Sales.gdb.

2. Запустіть програму на виконання.

3. Вставте в таблицю за допомогою візуальних компонентів новий рядок.

4. Вилучте цей рядок із таблиці.

5. Вставте програмно новий рядок у таблицю.

6. Вилучте цей рядок із таблиці.

КОНТРОЛЬНІ ЗАПИТАННЯ

1. Що виконує компонент TIBDataSet?

2. Що виконує властивість ModifySQL компонента TIBDataSet? Яка команда SQL здійснює це?

3. Що виконують властивості InsertSQL та DeleteSQL компонента TIBDataSet? Які команди SQL здійснює це?

Практична робота № 6