122
Form26.QuickRep1.Preview;
end;
procedure TForm18.Button3Click(Sender: TObject);
begin
QuickReport25.Preview;
end;
procedure TForm18.Button4Click(Sender: TObject);
begin
close;
end;
procedure TForm18.Button2Click(Sender: TObject);
begin
Form27.QuickRep1.Preview;
end;
end.
20. Листинг модуля «Отделы» для пользователятипа «начальник
отдела»
unitUnit19;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ExtCtrls, DBCtrls, ComCtrls, Mask;
type
123
TForm19 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
DBRichEdit3: TDBRichEdit;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form19: TForm19;
implementation
124
{$R *.dfm}
procedure TForm19.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm19.Button2Click(Sender: TObject);
begin
print;
end;
end.
21. Листинг модуля «Сотрудники» для пользователятипа
«начальникотдела»
unitUnit20;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, DB, Mask;
type
TForm20 = class(TForm)
DBCheckBox1: TDBCheckBox;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
125
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DataSource1: TDataSource;
DataSource2: TDataSource;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Button1: TButton;
Button2: TButton;
DBText1: TDBText;
DBComboBox1: TDBComboBox;
Label9: TLabel;
Label10: TLabel;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form20: TForm20;
implementation
126
{$R *.dfm}
procedure TForm20.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm20.Button2Click(Sender: TObject);
begin
print;
end;
end.
22. Листинг модуля «Входящие документы» для пользователя типа
«сотрудникотделакадров»
unitUnit21;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, DB, ExtCtrls;
type
TForm21 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
127
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit7: TDBEdit;
DBEdit9: TDBEdit;
DBText1: TDBText;
DBLookupListBox1: TDBLookupListBox;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
Button1: TButton;
Button2: TButton;
Label13: TLabel;
DBNavigator1: TDBNavigator;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
128
end;
var
Form21: TForm21;
implementation
{$R *.dfm}
procedure TForm21.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm21.Button2Click(Sender: TObject);
begin
print;
end;
end.
23. Листинг модуля «Отчет» для пользователятипа
«сотрудникотделакадров»
unitUnit22;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
129
type
TForm22 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Button4: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form22: TForm22;
implementation
uses Unit25, Unit27;
{$R *.dfm}
procedure TForm22.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm22.Button1Click(Sender: TObject);
130
begin
QuickReport25.Preview;
end;
procedure TForm22.Button2Click(Sender: TObject);
begin
Form27.QuickRep1.Preview;
end;
procedure TForm22.Button4Click(Sender: TObject);
begin
QuickReport25.Preview;
end;
end.
24. Листинг модуля «Отделы» для пользователя типа «сотрудник отдела
кадров»
unit Unit23;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, ExtCtrls, DB;
type
TForm23 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
131
Label4: TLabel;
Label5: TLabel;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
DBEdit1: TDBEdit;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
DBRichEdit3: TDBRichEdit;
Button1: TButton;
Button2: TButton;
DataSource1: TDataSource;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form23: TForm23;
implementation
{$R *.dfm}
procedure TForm23.Button1Click(Sender: TObject);