База данных - Автомобили / 3 / Unit1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, Mask, jpeg,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBImage1: TDBImage;
    Table2: TTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Table3: TTable;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    Table2Firma: TStringField;
    Table2Marka: TStringField;
    Table2Strana: TStringField;
    Table2Nachalo: TSmallintField;
    Table2God: TSmallintField;
    Table2Cena: TStringField;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    InsertButton: TButton;
    EditButton: TButton;
    DeleteButton: TButton;
    PostButton: TButton;
    CanselButton: TButton;
    InsertButton2: TButton;
    EditButton2: TButton;
    DeleteButton2: TButton;
    PostButton2: TButton;
    CancelButton2: TButton;
    Edit1: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    procedure InsertButtonClick(Sender: TObject);
    procedure EditButtonClick(Sender: TObject);
    procedure DeleteButtonClick(Sender: TObject);
    procedure InsertButton2Click(Sender: TObject);
    procedure EditButton2Click(Sender: TObject);
    procedure DeleteButton2Click(Sender: TObject);
    procedure PostButton2Click(Sender: TObject);
    procedure CancelButton2Click(Sender: TObject);
    procedure PostButtonClick(Sender: TObject);
    procedure CanselButtonClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);

   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.InsertButtonClick(Sender: TObject);
begin
if table2.State = dsBrowse then
   table2.Insert;
end;

procedure TForm1.EditButtonClick(Sender: TObject);
begin
if table2.State = dsBrowse then
   table2.Edit;
end;

procedure TForm1.DeleteButtonClick(Sender: TObject);
begin
if table2.State = dsBrowse then
     if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbYes, mbNo],0)=mrYes then
   table2.Delete;
end;

procedure TForm1.InsertButton2Click(Sender: TObject);
begin
if table3.State = dsBrowse then
   table3.Insert;
end;

procedure TForm1.EditButton2Click(Sender: TObject);
begin
if table3.State = dsBrowse then
   table3.Edit;
end;

procedure TForm1.DeleteButton2Click(Sender: TObject);
begin
if table3.State = dsBrowse then
     if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbYes, mbNo],0)=mrYes then
   table3.Delete;
end;

procedure TForm1.PostButton2Click(Sender: TObject);
begin
if table3.State in [dsInsert, dsEdit] then
   table3.post;
end;

procedure TForm1.CancelButton2Click(Sender: TObject);
begin
  if table3.State in [dsInsert, dsEdit] then
   table3.Cancel;
end;

procedure TForm1.PostButtonClick(Sender: TObject);
begin
if table2.State in [dsInsert, dsEdit] then
   table2.post;
end;

procedure TForm1.CanselButtonClick(Sender: TObject);
begin
  if table2.State in [dsInsert, dsEdit] then
   table2.Cancel;
end;


procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then begin
table2.Filter:='Firma='+
Quotedstr(Edit1.Text+'*');
table2.Filtered:=true;
end
else table2.Filtered:= false;

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then begin
table2.Filter:='Marka='+
Quotedstr(Edit2.Text+'*');
table2.Filtered:=true;
end
else table2.Filtered:= false;
end;

end.