Приложение а

unitUnit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,

Mask, jpeg;

type

TForm1 = class(TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Button1: TButton;

Image1: TImage;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);

begin

Form1.show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.close;

Form4.show;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB,

jpeg;

type

TForm2 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Button1: TButton;

Edit1: TEdit;

Label6: TLabel;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.close;

Form4.show;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Фамилия',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids,

jpeg;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Button1: TButton;

Edit1: TEdit;

Label7: TLabel;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4, Unit8;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.close;

Form8.show;

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm3.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

BitBtn1: TBitBtn;

Image1: TImage;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3, Unit8;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.visible:=true;

Form4.Visible:=false;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form2.Visible:=true;

Form4.Visible:=false;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

Form8.Visible:=true;

Form4.Visible:=false;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids,

ExtDlgs, jpeg;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Edit1: TEdit;

Label5: TLabel;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit4, Unit8;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.close;

Form8.show;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm5.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,

ExtDlgs, Buttons,jpeg;

type

TForm6 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

Button1: TButton;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm6.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.close;

Form8.show;

end;

procedure TForm6.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,

jpeg;

type

TForm7 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

Button1: TButton;

DBImage1: TDBImage;

Button2: TButton;

OpenDialog1: TOpenDialog;

Image1: TImage;

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit8;

{$R *.dfm}

procedure TForm7.Edit1Change(Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Locate('Автор',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

dbgrid1.DataSource.DataSet.Locate('Название',Edit1.Text,

[loCaseInsensitive,loPartialKey]);

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

Form7.close;

Form8.show;

end;

procedure TForm7.Button2Click(Sender: TObject);

var

jpeg:TJPEGImage;

bmp:TBitmap;

begin

if OpenDialog1.Execute then

begin

jpeg:=TJPEGImage.Create;

bmp:=TBitmap.Create;

try

jpeg.LoadFromFile(OpenDialog1.FileName);

bmp.Assign(jpeg);

ADOTable1.Edit;

ADOTable1.FieldByName('Фото').Assign(BMP);

ADOTable1.Post;

finally

jpeg.Free;

bmp.Free;

end;

end;

end;

end.

unit Unit8

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm8 = class(TForm)

Button3: TButton;

Button1: TButton;

Button2: TButton;

Button4: TButton;

Image1: TImage;

Button5: TButton;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit3, Unit5, Unit6, Unit7, Unit4;

{$R *.dfm}

procedure TForm8.Button3Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

Form5.show;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

Form6.show;

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

Form7.show;

end;

procedure TForm8.Button5Click(Sender: TObject);

begin

Form8.close;

Form4.show;

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm9 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

procedurechack;

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1, Unit5, Unit4;

{$R *.dfm}

procedure TForm9.chack;

var

a:string;

b:string;

begin

a:=Form9.Edit1.Text;

b:=Form9.Edit2.Text;

if (a='Книги') and (b='123') then

begin

Form9.Visible:=false;

Form4.Visible:=true

end

else

showmessage('Неправильный логин или пароль');

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

chack;

end;

procedure TForm9.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then chack;

end;

procedure TForm9.Edit1Change(Sender: TObject);

begin

end;

end.