Примеры баз данных ( 2 семестр ) / лаба 3 / Unit1

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.ExtCtrls, Vcl.DBCtrls,
  Vcl.Grids, Vcl.DBGrids, Data.SqlExpr, Data.Win.ADODB, Vcl.StdCtrls, Vcl.Mask,
  Vcl.ExtDlgs;

type
  TForm1 = class(TForm)
    DBG: TDBGrid;
    DBENameC: TDBEdit;
    Label1: TLabel;
    DBEFind: TDBEdit;
    Label2: TLabel;
    DBMemo: TDBMemo;
    DBIPIcture: TDBImage;
    Label3: TLabel;
    Label4: TLabel;
    ADOQBase: TADOQuery;
    DataSource1: TDataSource;
    ODMemo: TOpenDialog;
    OPDPicture: TOpenPictureDialog;
    DBN: TDBNavigator;
    procedure DBIPIctureClick(Sender: TObject);
    procedure DBMemoChange(Sender: TObject);
    procedure DBNClick(Sender: TObject; Button: TNavigateBtn);
    procedure DBEFindChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.DBEFindChange(Sender: TObject);
begin
with adoqbase do
begin
with sql do
begin
clear;
Add('SELECT * FROM CVETY WHERE namec like ' + QuotedStr('%'+ DBEFind.Text +'%'));
end;
active:=true;
end;
end;

procedure TForm1.DBIPIctureClick(Sender: TObject);
begin
if opdpicture.Execute then
dbipicture.picture.LoadFromFile(opdpicture.FileName);
end;

procedure TForm1.DBMemoChange(Sender: TObject);
begin
if odmemo.Execute then
dbmemo.Lines.LoadFromFile(ODMEMO.FileName);
end;

procedure TForm1.DBNClick(Sender: TObject; Button: TNavigateBtn);
begin
if BUTTON = NBiNSERT then dbenamec.SetFocus;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
s, sdb:string;
begin
s:=extractfilepath(application.exename);
sdb:='provider=microsoft.jet.4.0;datasource='+s+'database.mdb;persist info=false';
with adoqbase do
begin
  active:=false;
  connectionstring:=sdb;
  active:=true;

end;
end;

end.