1. Запустите Delphi, создайте приложение и модуль данных. В модуль данных поместите IBDatabase1, IBTransaction1, IBTable1, DataSource1. Для удобства работы всем компонентам можно дать соответствующие имена:
IBDatabase1 - Dcars,
IBTransaction1 - Tcars,
IBTable1 - cars,
DataSource - DScars,
В Инспекторе Объектов необходимо сделать следующее:
- компоненту DScars, в свойстве DataSet, присвоить cars;
- компоненту cars, в свойстве Database присвоить Dcars и в свойстве Transaction присвоить Tcars;
- компоненту Tcars, в свойстве DefaultDatabase присвоить Dcars;
Двойным щелчком по компоненту Dcars вызываем окно Database Component Editor.
Нажимаем кнопку Browse и находим папку, где находится созданная база (baza.gdb), открываем ее.
Далее делаем все так, как показано ниже на рисунке и нажимаем ОК.
Этому же компоненту, в свойстве TableName, присвоить tab.
В результате всех преобразований модуль данных должен выглядеть так, как показано ниже.
2. На форму поместите DBGrid1, DBNavigator1, BitBtn1 и BitBtn2.
DBGrid1 - таблица для отображения данных базы данных,
DBNavigator1 - навигатор для управления курсором,
BitBtn1 - кнопка для активизации таблицы,
BitBtn2 - кнопка для закрытия приложения.
DBGrid1 и DBNavigator1 свойству DataSourse присваиваем DM.DScars.
компоненту cars, в свойстве Active присвоить True.
3. DBGrid1, свойству Visible, присвойте False.
DBNavigator1, свойству Enabled, присвойте False.
В процедуре BitBtn1Click (кнопка "показать таблицу") напишите:
DBGrid1.Visible:=True;
DBNavigator1.Enabled:=true;
В процедуре BitBtn2Click (кнопка "закрыть приложение") напишите:
Form1.Close;
4. Сохраните проект на диске С:, в папке IB и запустите проект на выполнение.
При правильной работе программы у вас должно получится приложение, рисунок которого показан ниже:
При нажатии на кнопку "показать таблицу", приложение должно принять вид:
|
