unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, db, sqlite3conn, sqldb, dbf, Sqlite3DS, FileUtil, Forms,
  Controls, Graphics, Dialogs, StdCtrls, DBGrids, DbCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    button_add: TButton;
    button_save: TButton;
    button_del: TButton;
    Datasource1: TDatasource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    edit_kod: TEdit;
    Edit_abon: TEdit;
    Edit_nomer: TEdit;
    Edit_search: TEdit;
    Memo1: TMemo;
    SQLite3Connection1: TSQLite3Connection;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure button_addClick(Sender: TObject);
    procedure button_delClick(Sender: TObject);
    procedure button_saveClick(Sender: TObject);
    procedure Datasource1DataChange(Sender: TObject; Field: TField);
    procedure FormCreate(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLQuery1.Active:=False;
  SQLQuery1.SQL.Text:='select * from baza;';
  SQLQuery1.Active:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SQLQuery1.Active:=False;
  SQLQuery1.SQL.Text:='select * from baza where nomer like "%'+Edit_search.text+'%" or abon like "%'+Edit_search.text+'%" or descript like "%'+Edit_search.text+'%";';
  SQLQuery1.Active:=True;

end;

procedure TForm1.button_addClick(Sender: TObject);
begin
  button_save.Visible:=true;
  button_add.Visible:=false;
  edit_abon.Text:='';
  edit_nomer.text:='';
  Memo1.Text:='';
  edit_abon.SetFocus;


end;

procedure TForm1.button_delClick(Sender: TObject);
begin
   if MessageDlg('Подтверждение', 'Удалить запись из базы?', mtConfirmation,
    [mbYes, mbNo],0) = mrYes
   then
 SQLQuery1.Active:=False;
 SQLQuery1.DeleteSQL.Add('delete from baza where kod="'+edit_kod.text+'";');
 SQLQuery1.ExecSQL;
 SQLQuery1.Active:=True;
end;




procedure TForm1.button_saveClick(Sender: TObject);
begin
  SQLQuery1.Active:=False;
  SQLQuery1.SQL.Text:='insert into baza(abon,nomer,descript) values ("'+edit_abon.text+'","'+edit_nomer.text+'","'+memo1.text+'")';
  SQLQuery1.ExecSQL;
  sqlquery1.sql.Clear;
  SQLQuery1.SQL.Text:='select * from baza;';
  SQLQuery1.Active:=True;
    SQLQuery1.ApplyUpdates();

end;

procedure TForm1.Datasource1DataChange(Sender: TObject; Field: TField);
  var i:integer;
begin
   if (TDataSource(Sender).DataSet.Active)AND(TDataSource(Sender).DataSet.State = dsBrowse) then begin
      //выполение действий (обработка события изменения номера выбранной записи в таблице)
         Memo1.text:=DBGrid1.SelectedField.DataSet.FieldByName('descript').Text;
    Edit_abon.text:=DBGrid1.SelectedField.DataSet.FieldByName('abon').Text;
    Edit_nomer.text:=DBGrid1.SelectedField.DataSet.FieldByName('nomer').Text;
    Edit_kod.text:=DBGrid1.SelectedField.DataSet.FieldByName('kod').Text;

end;
   end;


                      procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.Columns[1].Width:=30;
  DBGrid1.Columns[1].Width:=150;
  DBGrid1.Columns[2].Width:=100;
  DBGrid1.Columns[3].Width:=200;
end;


end.