Page 7 - 2581

5.4. Для DBImage встановіть властивість DataSource =
DataSource1, і DataField = Graphic і Stretch = true;
5.5. Запустіть проект.
6. Переміщення по базі даних :
6.1. Навігація за допомогою стандартного компонента
DBNavigator : розмістіть на формі компонент DBNavigator
(навігація по базі даних) і встановите його властивість DataSource =
DataSource1, встановіть відображення підказок, запустіть проект і
спробуйте у дії усі кнопки.
6.2. Навігація "вручну": для доступу до будь-якого
конкретного запису усередині набору даних існують наступні
підпрограми: procedure First (переміщення до першого запису),
procedure Last (переміщення до останнього запису), procedure Next
(переміщення до наступного запису), procedure Prior (переміщення
до попереднього запису), procedure MoveBy (Distance: Integer) -
переміщення на Distance записів вперед або назад. Існують ще дві
властивості для визначення чи знаходитеся ви на початку таблиці
або у кінці: property BOF: Boolean, property EOF: Boolean.
Завдання: написати власний навігатора по базі даних, для
цього розташувати на формі 5 кнопок для кожної підпрограми і
написати відповідний код для кожної з них (для переміщення на
декілька записів вперед або назад можна використовувати
компонент SpinEdit), наприклад, для кнопки "вперед": table1.next.
7. Доступ до полів:
7.1. Встановити поточний вміст конкретного поля з
конкретного запису можна з допомогою властивість Fields[Index:
Integer]: TField або метод FieldByName (const FieldName: string) :
Tfield. Наприклад:
var s: string;
begin
s:=table1.fields[1].AsString;
s:=table1.fieldbyname('Category').AsString.
end;
Завдання: розташувати на формі 2 мітки, потім наліштувати їх
так, щоб першій мітці привласнювалося значення 2 поля, а другій
мітці - значення поля з ім'ям Category (можна використовувати
кнопку). Яким способом зручніше користуватися?
6