Правильная ссылка на эту страницу
http://az-design.ru/Projects/AzBook/AZMicro/AZMicro32.shtml

Таблица "План счетов"

       Первая таблица, с которой можно начать — это "План счетов". Хотя бы потому, что предположительно она уже заполнена какой-то информацией и ее можно увидеть.
       Что для этого необходимо?
       — выберите на PageControl страницу "План счетов";
       — на вкладке "Interbase" возьмите компоненты TIBTransaction и TIBQuery и положите их на форму;
       — на вкладке "Data Access" возьмите компонент TDataSource и также положите на форму.
       — на вкладке "Data Control" возьмите компонент TDBNavigator, положите его на форму и установите у него свойство Align равным alTop;
       — на вкладке "Data Control" возьмите компонент TDBGrid, положите его на форму и установите у него свойство Align равным alClient;
       Что в результате получилось показано на рисунке ниже:

План счетов в дизайнере Delphi
Рис.AzMicro003 — "План счетов" в дизайнере Delphi

       Затем нужно изменить настройки у компонентов:
       — у компонента TIBTransaction измените свойства — Name=trAccntDemo, AutoStopAction=saCommitRetaining;
       — у компонента TIBQuery измените свойства — Name=qrAccntDemo, Database=IBDatabase1, Transaction=trAccntDemo;
       — у компонента TIBDatasource измените свойства — Name=dsAccntDemo, DataSet=qrAccntDemo;
       — у компонента TDBGrid измените свойства — Name=grAccntDemo, DataSource=dsAccntDemo;
       — у компонента TDBNavigator измените свойства — Name=nvAccntDemo, DataSource=dsAccntDemo.
       В первом приближении этого достаточно.
       Теперь в процедуре CreateForm можно добавить следующие строки:

  qrAccntDemo.Close;
  qrAccntDemo.SQL.Clear;
  qrAccntDemo.SQL.Add('Select AccntNum,AccTitle from ChartAcc');
  qrAccntDemo.SQL.Add(' order by AccntNum');
  qrAccntDemo.Open;

       первая закрывает компонент Query.
       Вторая очищает свойство SQL для того чтобы потом записать в него запрос:

  Select AccntNum,AccTitle from ChartAcc
   order by AccntNum

       После чего компонент Query открывается. Результат показан на рисунке ниже:

результат просмотра таблицы План счетов
Рис.AzMicro004 — результат просмотра таблицы "План счетов"

Архангельский Андрей




<<< Пред. Оглавление
Начало раздела
След. >>>

Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:56 MSK


Постоянный адрес статьи:
http://az-design.ru/Projects/AzBook/AZMicro/AZMicro32.shtml