112
DBRichEdit1: TDBRichEdit;
DBEdit8: TDBEdit;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBText1: TDBText;
DBLookupListBox1: TDBLookupListBox;
DBRichEdit2: TDBRichEdit;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
{$R *.dfm}
procedure TForm13.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm13.Button2Click(Sender: TObject);
begin
print;
113
end;
end.
15. Листингмодуля «Отчеты» дляпользователятипа «директор»
unitUnit14;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm14 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Button3: TButton;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
114
Form14: TForm14;
implementation
uses Unit25, Unit26, Unit27;
{$R *.dfm}
procedure TForm14.Button2Click(Sender: TObject);
begin
QuickReport25.Preview;
end;
procedure TForm14.Button4Click(Sender: TObject);
begin
close;
end;
procedure TForm14.Button1Click(Sender: TObject);
begin
Form26.QuickRep1.Preview;
end;
procedure TForm14.Button3Click(Sender: TObject);
begin
Form27.QuickRep1.Preview;
end;
end.
16. Листинг модуля «Отделы» для пользователя типа «директор»
115
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, ComCtrls, DBCtrls, Mask, ExtCtrls;
type
TForm15 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
DBRichEdit3: TDBRichEdit;
Button1: TButton;
Button2: TButton;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
116
{ Public declarations }
end;
var
Form15: TForm15;
implementation
{$R *.dfm}
procedure TForm15.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm15.Button2Click(Sender: TObject);
begin
print;
end;
end.
17. Листинг модуля «Сотрудники» для пользователя типа «директор»
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, DB, Mask;
117
type
TForm16 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBCheckBox1: TDBCheckBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBLookupListBox2: TDBLookupListBox;
DBComboBox1: TDBComboBox;
Label8: TLabel;
Label9: TLabel;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
118
var
Form16: TForm16;
implementation
{$R *.dfm}
procedure TForm16.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm16.Button2Click(Sender: TObject);
begin
print;
end;
end.
18. Листинг модуля «Входящие документы» для пользователя типа
«начальник отдела»
unit Unit17;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, DB, ExtCtrls;
type
TForm17 = class(TForm)
119
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBText1: TDBText;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBLookupListBox1: TDBLookupListBox;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBNavigator1: TDBNavigator;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
120
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form17: TForm17;
implementation
{$R *.dfm}
procedure TForm17.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm17.Button1Click(Sender: TObject);
begin
print;
end;
end.
19. Листингмодуля «Отчеты» для пользователя типа «начальник
отдела»
unit Unit18;
interface
121
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm18 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form18: TForm18;
implementation
uses Unit26, Unit25, Unit27;
{$R *.dfm}
procedure TForm18.Button1Click(Sender: TObject);
begin