Geum.ru


Разработка информационно-справочной системы по учету вагонов на подъездном пути предприятия

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



0.Button2Click(Sender: TObject);

begin

If ForSort then

begin

if RadioGroup2.ItemIndex = 0 then

ForOrder := RadioGroup3.Items[RadioGroup1.ItemIndex]

else

ForOrder := RadioGroup3.Items[RadioGroup1.ItemIndex] + Desc;

ForReport();

end;

ForSort := false;

ForFiltr := False;

Form10.Close;

end;

end.

unit Unit11;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, QuickRpt, QRCtrls;

type

TForm11 = class(TForm)

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

PageFooterBand1: TQRBand;

QRExpr1: TQRExpr;

QRExpr2: TQRExpr;

QRExpr3: TQRExpr;

QRExpr4: TQRExpr;

QRExpr5: TQRExpr;

QRExpr7: TQRExpr;

QRExpr8: TQRExpr;

QRExpr10: TQRExpr;

QRExpr11: TQRExpr;

QRExpr14: TQRExpr;

QRExpr15: TQRExpr;

QRExpr16: TQRExpr;

QRExpr17: TQRExpr;

QRExpr18: TQRExpr;

QRExpr19: TQRExpr;

QRExpr9: TQRExpr;

QRExpr12: TQRExpr;

QRExpr6: TQRExpr;

QRExpr13: TQRExpr;

QRExpr20: TQRExpr;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

Uses Unit2, Unit9;

{$R *.dfm}

end.

Приложение 3

Результаты работы программы

Форма формирования отчета

Форма печати отчетов