132
begin
close;
end;
procedure TForm23.Button2Click(Sender: TObject);
begin
print;
end;
end.
25. Листингмодуля «Сотрудники» дляпользователятипа
«сотрудникотделакадров»
unitUnit24;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, DB;
type
TForm24 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
133
Label9: TLabel;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBComboBox1: TDBComboBox;
DBCheckBox1: TDBCheckBox;
Button1: TButton;
Button2: TButton;
DBLookupListBox1: TDBLookupListBox;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form24: TForm24;
implementation
{$R *.dfm}
procedure TForm24.Button1Click(Sender: TObject);
134
begin
close;
end;
procedure TForm24.Button2Click(Sender: TObject);
begin
print;
end;
end.
26. Листинг модуля «Отчет ''Входящие документы''»
unit Unit25;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls;
type
TQuickReport25 = class(TQuickRep)
QRBand1: TQRBand;
QRBand2: TQRBand;
QRBand3: TQRBand;
QRBand4: TQRBand;
QRBand6: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
135
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRSysData1: TQRSysData;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRSysData2: TQRSysData;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRDBText5: TQRDBText;
QRDBText8: TQRDBText;
QRLabel8: TQRLabel;
QRLabel11: TQRLabel;
QRBand7: TQRBand;
private
public
end;
var
QuickReport25: TQuickReport25;
implementation
{$R *.DFM}
end.
27. Листингмодуля «Отчет ''Отделы''»
136
unit Unit26;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, QuickRpt, QRCtrls, StdCtrls;
type
TForm26 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRBand2: TQRBand;
QRBand3: TQRBand;
QRBand4: TQRBand;
QRBand5: TQRBand;
QRSysData1: TQRSysData;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel1: TQRLabel;
QRLabel6: TQRLabel;
QRSysData2: TQRSysData;
QRLabel5: TQRLabel;
QRLabel7: TQRLabel;
private
{ Private declarations }
137
public
{ Public declarations }
end;
var
Form26: TForm26;
implementation
{$R *.dfm}
end.
27. Листингмодуля «Отчет ''Сотрудники''»
unit Unit27;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, QRCtrls, QuickRpt, ExtCtrls;
type
TForm27 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRBand2: TQRBand;
QRBand3: TQRBand;
QRBand4: TQRBand;
QRBand5: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
138
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRSysData1: TQRSysData;
QRBand6: TQRBand;
QRSysData2: TQRSysData;
QRSysData3: TQRSysData;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form27: TForm27;
implementation
{$R *.dfm}
begin
end.