Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

Создание кросс-таблицы

Вы можете создать их в DBD как QBE-шки. Пользуясь компонентом TQBE для загрузки одной из библиотек, вы можете непосредственно использовать QBE-шки в вашем Delphi-приложении.

В следующем примере предполагается, что каждый служащий каждый день сообщает оператору о своем месторасположении. Код определяет начало трудовой недели с понедельника плюс еще четыре рабочих дня с показом соответствующей даты. Строки с 1 по 5 в QBE1.QBE (нулевая описательная) в нижеприведенной процедуре заменяются кодом. Результат всего этого в том, что строка (если имеется) для каждого человека отображается в колонке установленного результата и значение 'X' включается если только запись существует. Для создания агрегатной таблицы можно было бы подсчитывать результаты.

Текст в QBE1.QBE :

CALLIN.DB | StaffNo | Date |
 | _join1 | 3/10/95 |
 | _join2 | 3/11/95 |
 | _join3 | 3/12/95 |
 | _join4 | 3/13/95 |
 | _join5 | 3/14/95 |
 
XTAB.DB | StaffNo |Mon |Tue |Wed |Thu |Fri |
 | _join1 |changeto X| | | | |
 | _join2 | |changeto X| | | |
 | _join3 | | |changeto X| | |
 | _join4 | | | |changeto X| |
 | _join5 | | | | |changeto X|



    procedure TCallInReport.ButtonSelectClick(Sender: TObject); begin

TableXTab.active := false ;
if EditWeekOf.Text = '' then
begin
messageBeep( 0 ) ;
messageDlg( 'Для выбора записи необходима дата.', mtInformation, [mbOK], 0 );
exit ;
end ;

Screen.Cursor := crHourGlass ;

dtWeekOf    := StrToDate( EditWeekOf.Text ) ;
dtStartDate := dtWeekOf - DayOfWeek( dtWeekOf ) + 2 ;

TableXTab.active      := false ;
TableXTab.EmptyTable ;
TableXTab.active      := true ;

{
Замените строки 1 - 5 в QBE1.QBE реальными датами
}
QBE1.QBE.Strings[ 1 ] := '  | _join1  | ' + DateToStr( dtStartDate )      + ' | ' ;
QBE1.QBE.Strings[ 2 ] := '  | _join2  | ' + DateToStr( dtStartDate  + 1 ) + ' | ' ;
QBE1.QBE.Strings[ 3 ] := '  | _join3  | ' + DateToStr( dtStartDate  + 2 ) + ' | ' ;
QBE1.QBE.Strings[ 4 ] := '  | _join4  | ' + DateToStr( dtStartDate  + 3 ) + ' | ' ;
QBE1.QBE.Strings[ 5 ] := '  | _join5  | ' + DateToStr( dtStartDate  + 4 ) + ' | ' ;

try
QBE1.active := true ;
except
on E: EDataBaseError do
begin
if E.Message = 'Ошибка создания дескриптора курсора' then { Ничего не делайте. Делая TQBE активной, мы пытаемся создать курсор. Это вызывает исключительную ситуацию, которую мы должны перехватить. Пока я не нашел способа как отделаться от исключения. }
else
begin
Screen.Cursor := crDefault ;
raise ;
end ;
end;
else
Screen.Cursor := crDefault ;
raise ;
end;
TableXTab.refresh ;
Screen.Cursor     := crDefault ;
TableXTab.active  := true ;

end;

Michael Lant

Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 307 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]