92
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit9, Unit10, Unit11, Unit12;
93
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Form10.Show;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
Form11.Show;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
Form12.Show;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
close;
end;
end.
5. Листинг основного модуля для пользователя типа «директор»
unit Unit4;
94
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm4 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit13, Unit14, Unit15, Unit16;
{$R *.dfm}
95
procedure TForm4.Button1Click(Sender: TObject);
begin
Form13.Show;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Form14.Show;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
Form15.Show;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
Form16.Show;
end;
end.
6. Листинг основного модуля для пользователя типа «начальникотдела»
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
96
type
TForm5 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit17, Unit18, Unit19, Unit20;
{$R *.dfm}
procedure TForm5.Button5Click(Sender: TObject);
begin
close;
97
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
Form17.Show;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
Form18.Show;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
Form19.Show;
end;
procedure TForm5.Button4Click(Sender: TObject);
begin
Form20.Show;
end;
end.
7. Листинг основного модуля для пользователя типа «сотрудник отдела
кадров»
unit Unit6;
interface
uses
98
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm6 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit21, Unit22, Unit23, Unit24;
{$R *.dfm}
procedure TForm6.Button5Click(Sender: TObject);
99
begin
close;
end;
procedure TForm6.Button1Click(Sender: TObject);
begin
Form21.Show;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
Form22.Show;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
Form23.Show;
end;
procedure TForm6.Button4Click(Sender: TObject);
begin
Form24.Show;
end;
end.
8. Листинг модуля «Входящие документы» для пользователя типа
«пользователь»
unit Unit7;
interface
100
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, ComCtrls, DBCtrls, Mask, ExtCtrls;
type
TForm7 = class(TForm)
DataSource1: TDataSource;
DBText1: TDBText;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit9: TDBEdit;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label15: TLabel;
Label16: TLabel;
DataSource2: TDataSource;
DBLookupListBox1: TDBLookupListBox;
DBNavigator1: TDBNavigator;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
101
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
print;
end;
end.
9. Листинг модуля «Входящие документы» дляпользователятипа
«пользователь»