Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: декабрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как можно открыть отчёт (в режиме Print Preview а также Print Direct) в MS Access



От: Святой Петр
Кому: Всем на Земле
Дата Октябрь, 1999 от рождества Христова
Тема: Не помирать!
Для ускорения регистрационного процесса у врат Рая, мы стали использовать Microsoft Access, после чего у нас начались серьeзные проблемы. А посему, пожалуйста, не помирайте пока!


 var
   Access: Variant;
 begin
   // Открываем Access
   try
     Access := GetActiveOleObject('Access.Application');
   except
     Access := CreateOleObject('Access.Application');
   end;
   Access.Visible := True;
 
   // Открываем базу данных
   // Второй параметр указывает - будет ли база открыта в Exclusive режиме
   Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True);
 
   // открываем отч¸т
   {Значение второго пораметра может быть одним из следующих
   acViewDesign, acViewNormal, or acViewPreview. acViewNormal,
   которые устанавливаются по умолчанию, для печати отч¸та.
   Если Вы не используете библиотеку типов, то можете определить
   эти значения следующими:
 
   const
   acViewNormal = $00000000;
   acViewDesign = $00000001;
   acViewPreview = $00000002;
 
   Третий параметр - это имя очереди для текущей базы данных.
   Четв¸ртый параметр - это строка для SQL-евского WHERE -
   то есть строка SQL, минус WHERE.}
 
   Access.DoCmd.OpenReport('Titles by Author', acViewPreview, EmptyParam,
     EmptyParam);
 
   < ... >
 
   // Закрываем базу данных
   Access.CloseCurrentDatabase;
 
   // Закрываем Access
   {const
   acQuitPrompt = $00000000;
   acQuitSaveAll = $00000001;
   acQuitSaveNone = $00000002;}
   Access.Quit(acQuitSaveAll);
 end;
 



<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS