102
unitUnit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, DB, Menus;
type
TForm8 = class(TForm)
DataSource1: TDataSource;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBNavigator1: TDBNavigator;
StaticText1: TStaticText;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
103
implementation
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm8.Button2Click(Sender: TObject);
begin
print;
end;
end.
10. Листинг модуля «Входящие документы» дляпользователятипа
«администратор»
unitUnit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, DB;
type
TForm9 = class(TForm)
DataSource1: TDataSource;
DataSource2: TDataSource;
104
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBText1: TDBText;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
DBLookupListBox2: TDBLookupListBox;
Label13: TLabel;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
105
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
print;
end;
end.
11. Листингмодуля «Отчеты» дляпользователятипа «администратор»
unitUnit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, StdCtrls;
106
type
TForm10 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses Unit26, Unit25, Unit27;
{$R *.dfm}
procedure TForm10.Button4Click(Sender: TObject);
begin
close;
end;
107
procedure TForm10.Button2Click(Sender: TObject);
begin
Form26.QuickRep1.Preview;
end;
procedure TForm10.Button1Click(Sender: TObject);
begin
QuickReport25.Preview;
end;
procedure TForm10.Button3Click(Sender: TObject);
begin
Form27.QuickRep1.Preview;
end;
end.
12. Листинг модуля «Отделы» для пользователя типа «администратор»
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, ExtCtrls, ComCtrls;
type
TForm11 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
108
Label4: TLabel;
Label6: TLabel;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBRichEdit1: TDBRichEdit;
DBRichEdit2: TDBRichEdit;
DBRichEdit3: TDBRichEdit;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
{$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject);
109
begin
close;
end;
procedure TForm11.Button2Click(Sender: TObject);
begin
print;
end;
end.
13. Листинг модуля «Сотрудники» для пользователя типа
«администратор»
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB;
type
TForm12 = class(TForm)
Label1: TLabel;
Label2: TLabel;
DataSource1: TDataSource;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
110
Label8: TLabel;
DBEdit2: TDBEdit;
DBText1: TDBText;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button1: TButton;
Button2: TButton;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Label9: TLabel;
StaticText1: TStaticText;
DBCheckBox1: TDBCheckBox;
DBLookupListBox1: TDBLookupListBox;
DataSource2: TDataSource;
DBNavigator1: TDBNavigator;
DBComboBox1: TDBComboBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
{$R *.dfm}
end.
14. Листингмодуля «Входящиедокументы» дляпользователятипа
«директор»
111
unitUnit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, DB, StdCtrls, ComCtrls, Mask, ExtCtrls;
type
TForm13 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Button1: TButton;
Button2: TButton;
Label11: TLabel;
Label12: TLabel;
Label15: TLabel;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit6: TDBEdit;