If OpenDialog1.Execute then

Begin

Var

Begin

Begin

Case Button of

Begin

Try

Begin

Else

End

Else

Begin

Begin

Var

Except

Try

Begin

Implementation

Var

Public

Private

Type

Uses

Interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, StdCtrls, ComCtrls, Mask, ExtDlgs;

TForm1=class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

Label1: TLabel;

Label2:TLabel;

DBNavigator1: TDBNavigator;

StatusBar1: TStatusBar;

DBEdit1: TDBEdit;

DBEdit2: TDBEDit;

Image1: TImage;

OpenDialog1: TOpenDialog;

DBMemo1: TDBMemo;

Procedure FormClose(Sender: TObject; var Action: TCloseAction);

Procedure FormActivate(Sender: TObject);

Procedure ADODataSet1AfterScroll(DataSet: TDataSet);

Procedure Image1Click(Sender: TObject);

Procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

Procedure ADOConnection1BeforeConnect(Sender: TObject);

{ private declaration }

aPath: string;

procedure ShowImage(img: string); // отображает картинку в поле Image1

{ public declarations }

end;

Form1: TForm1;

{ $R *.dfm}

uses jpeg,

IniFiles,

StrUtils;

// начало работы программы

procedure TForm1.FormActivate (Sender: TObject);

aPath:=’d:\database\’;

ADOConnection1.Open;

ADODataSet1.Open;

StatusBar1.Panels[0].Text:= ‘ Запись: 1’;

on e: Exception do begin

DBEdit1.Enabled:= False;

DBEdit2.Enabled:= False;

DBNavigator1.Enabled:= False;

MessageDlg (‘Ошибка доступа к файлу БД: ‘+

aPath + ‘NoteBook.mdb’, mtError, [mbOk],0);

end;

end;

end;

// событие возникает после перехода к другой записи

procedure TForm1.ADODataSetAfterScroll(DataSet:TDataSet);

Img: string

if ADODataSet1.RecNo <> -1 then

StatusBar1.Panels[0].Text:= ‘Запись: ‘+

IntToStr(ADODataSet1.RecNo);

if ADODataSet1.FieldValues[‘image’]<> Null t hen

Img:=ADODataSet1.FieldValues[‘image’]

Img:=’ ‘;

ShowImage(img);

StatusBar1.Panels[0].Text:=’ Новая запись ’

end;

// отображает иллюстрацию

procedure TForm1.ShowImage(img: string);

If img = ‘ ‘ then

Img:=’ nobody.jpg’;

Image1.Picture.LoadFromFile(aPath+’images\’);

finally

end;

end;

//щелчок на кнопке компонента DBNavigator

procedure TForm1.DBNavigator1Click(Sender: TObject; Button:

TNavigateBtn);

nbInsert, nbDelete, nbEdit:

DBEdit1.ReadOnly:=False;

DBEdit2.ReadOnly:=False;

DBMemo1.ReadOnly:=False;

Image1.Enabled:=True;

If Button = nbInsert then

ShowImage(‘nobody.jpg’);

end;

nbPost, nbCancel:

DBEdit1.ReadOnly:=True;

DBEdit2.ReadOnly:=True;

DBMemo1.ReadOnly:=True;

Image1.Enabled:=False;

end;

end;

end;

// щелчок в поле компонента Image (выбор картинки)

procedure TForm1.Image1Click(Sender: TObject);

nFileName: string;

OpenDialog1.FileName:=’*.jpg’;

Дата добавления: 2015-06-04