Работа с отчетами

Работа 7 - Работа с отчетами - Quick Report

Справочную информацию по Interbase можно найти , например на http://klog.h17.ru/interbase/

Задание:

Создайте БД формата InterBase для ведения компьютеризированного учета медицинских записей.
Разработайте приложение в Delphi, позволяющее сформировать и распечатать отчет о текущем состоянии счетов за оказанные медуслуги для данного клиента.

Рис. 1. Форма на стадии разработки
Report

Рис. 2. Предварительный просмотр отчёта. Можно печатать

Создание базы данных

Создаю БД в C:\dbase1\MED.GDB . Запускаю IBConsole.exe . Далее:

В левом окошке этой программы - дв.щелчок на Local Server, ввожу: User name = SYSDBA , password = masterkey (если настройки не изменялись )
Раскрывается список БД, доступных на локальном сервере (но он сейчас не нужен).
Открываю в меню: Database | Create database
В окошке Files вписываю имя создаваемого файла и путь, т.е. например C:\dbase1\MED.GDB Size можно не заполнять. Папка C:\dbase1\ должна существовать.
В окошке Options выбираю настройки. Птичку Register оставляю.
Щелкаю ОК. В левом окошке появляется созданная БД, а на диске - файл C:\dbase1\MED.GDB

Создаю таблицы, используя IBConsole и SQL-запросы:

CREATE TABLE "CLIENT" 
( "NOMPOLIS"	SMALLINT NOT NULL,
  "FIO"	CHAR(30) CHARACTER SET WIN1251 NOT NULL COLLATE PXW_CYRL,
  "ADRES"	CHAR(30) CHARACTER SET WIN1251 NOT NULL COLLATE PXW_CYRL,
  "PASP"	CHAR(15) CHARACTER SET WIN1251 NOT NULL COLLATE PXW_CYRL,
  "DATANAC"	DATE NOT NULL,
  "DATAKON"	DATE NOT NULL,
 PRIMARY KEY ("NOMPOLIS") )

CREATE TABLE "SCETA" 
( "NOMSCET"	SMALLINT NOT NULL,
  "NOMPOLIS"	SMALLINT NOT NULL,
  "KODUSL"	SMALLINT NOT NULL,
  "OPLATA"	SMALLINT NOT NULL,
 PRIMARY KEY ("NOMSCET") )

CREATE TABLE "USLUGI" 
( "KODUSL"	SMALLINT NOT NULL,
  "NAZVAN"	CHAR(20) CHARACTER SET WIN1251 NOT NULL COLLATE PXW_CYRL,
  "STOIM"	FLOAT NOT NULL,
 PRIMARY KEY ("KODUSL") )

Для ввода запросов: Меню | Tools | Interacive SQL.
Справку по синтаксису запросов можно найти в файле \Program Files\Borland\InterBase\bin\SqlRef.hlp (англ)

Для заполнения таблиц данными: щелкаю в левом окне Tables, затем - в правом: дв щелчок по таблице, перехожу на закладку Data. После заполнения 1-й строки - щелкнуть клавишу "стрелка вниз". Для сохранения изменений - щелкнуть кнопку Птичка, для сохранения в БД - щелкнуть кнопку Commit & Refresh. Можно также пользоваться кнопками: + (вставить), - (удалить) и т д. Добавляю в таблицу несколько записей:
Report

Создание Делфи-проекта для работы с базой данных

QuickReport идет в поставке Delphi 7, но по умолчанию его нет в палитре компонентов. Для добавления QuickReport в палитру компонент нужно выполнить следующую последовательность действий:

В главном меню Delphi 7 выбрать пункт меню Component -> Install Packages...
Откроется окно управления загружаемыми пакетами. В нем нужно нажать кнопку Add... Для добавления нового пакета.
Откроется окно выбора файлов. В данном окне нужно перейти в папку куда была установлена Delphi (за частую это С:\Program Files\Borland\Delphi7\) и открыть папку Bin.
В окне выбора файлов установим "Тип файлов" в Package library.bpl
Выберем пакет с именем dclqrt70.bpl и нажмем кнопку Открыть для подтверждения выбора, после чего в списке установленных пакетов добавится QuickReport Components
Нажимаем ОК для закрытия окно.
Тестирование: Создаем новый проект и тестируем работоспособность.

Запускаю Делфи7.

Устанавливаю компоненты:

 IBDatabase1, IBTransaction1, IBQuery1, 
С закладки QReport: QuickRep1, QRBand1 (полоса заголовка отчёта) .BandType= rbTitle, 
QRBand2 (полоса итогов), QRBand3(полоса данных (поля результата запроса)).
На QRBand1 устанавливаю: QRLabel1 (Отчет о состоянии счетов по полису № ),
 QRLabel2 (здесь будет № полиса)
На QRBand3 (.BandType= rbDetail) устанавливаю: QRDBText1, QRDBText2, QRDBText3
Настройка для них: .DataSet = IBQuery1, .DataField = NOMSCET, NAZVAN, OPLATA
(соответственно).
На QRBand2 (.BandType= rbSummary) устанавливаю: QRLabel3, QRLabel4, QRLabel5, 
для вывода выражений: QRExpr1, QRExpr2, QRExpr3. Настройка: 
Удобно использовать построитель выражений, например: 
QRExpr1.Expression - щёлкаю кнопку ... в строке Expression
инспектора объектов, щёлкаю кнопку Function, выбираю COUNT (т е число строк 
в результате запроса). Все построенные выражения видны на рисунке Рис. 1.
(При этом IBQuery1 должен быть активен)

Настраиваю их:
- На IBDatabase1 делаю правый щелчок, выбираю Database Editor. Здесь щелкаею Browse и нахожу БД: C:\dbase1\MED.GDB - (файл должен находиться в этой папке)
- На панели Database Parameters вписываю:
  User Name: SYSDBA
  Password : masterkey
  Character set: WIN1251
  Убираю птичку Login prompt, щелкаю ОК . Согласитесь на отключение БД, если будет запрос.
Далее:
```
IBDatabase1.DefaultTransaction = IBTransaction1, 
IBTransaction1.Default = IBDatabase1, 
IBDatabase1.Connected = true; IBTransaction1.Active = true; 
IBQuery1.Database = IBDatabase1; 
IBQuery1.SQL = Select NOMSCET, OPLATA, NAZVAN from Sceta, Uslugi
where (Sceta.KodUsl = Uslugi.KodUsl)

QuickRep1.DataSet = IBQuery1; QuickRep1.Units = MM;  
```

Текст модуля unMed1

unit unMed1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, StdCtrls, ExtCtrls, DB, IBCustomDataSet,
  IBQuery, IBDatabase;

type
  TfrmMed = class(TForm)
    QuickRep1: TQuickRep;
    Label1: TLabel;
    edNom: TEdit;
    btnSQL: TButton;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBQuery1: TIBQuery;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    QRBand3: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRSysData1: TQRSysData;
    QRLabel3: TQRLabel;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    QRExpr3: TQRExpr;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    procedure edNomKeyPress(Sender: TObject; var Key: Char);
    procedure btnSQLClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMed: TfrmMed;

implementation

{$R *.dfm}

procedure TfrmMed.edNomKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    QRLabel2.Caption:=edNom.Text;
end;

procedure TfrmMed.btnSQLClick(Sender: TObject);
begin
QRLabel2.Caption:= edNom.Text;
IBQuery1.Active:=false;
IBQuery1.SQL.Clear;
IBQuery1.SQL.append('Select NOMSCET, Oplata, NAZVAN from Sceta, Uslugi ');
IBQuery1.SQL.append('where (Sceta.KodUsl = Uslugi.KodUsl) ');
IBQuery1.SQL.append('and (Sceta.NOMPOLIS =''' + edNom.Text+''')');
IBQuery1.Active:=true;
QuickRep1.Preview;

end;
end.

Скачать все файлы делфи-проекта и файл БД - MED.GDB