База данных - Автомобили / 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.