Delphi, Access, базовые знания

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ExitButton: TButton;
    AddButton: TButton;
    DeleteButton: TButton;
    SaveButton: TButton;
    procedure FormShow(Sender: TObject);
    procedure ExitButtonClick(Sender: TObject);
    procedure AddButtonClick(Sender: TObject);
    procedure InsertButtonClick(Sender: TObject);
    procedure DeleteButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AddButtonClick(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1.Append;
end;
 
procedure TForm1.DeleteButtonClick(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1.Delete;
end;
 
procedure TForm1.ExitButtonClick(Sender: TObject);
begin
close;
end;
 
procedure TForm1.FormShow(Sender: TObject);
 
var BaseName, ConString:string;
begin
  BaseName:='test.mdb'; {файл должен находиться в корневом каталоге}
  ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source='+BaseName;
  {создаем поля таблицы в DBGrid}
  DBGrid1.Columns.Add;
  DBGrid1.Columns[0].FieldName:='Имя_поля_1';
  DBGrid1.Columns[0].Width:=70;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[1].FieldName:='Имя_поля_2';
  DBGrid1.Columns[1].Width:=70;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[2].FieldName:='Имя_поля_3';
  DBGrid1.Columns[2].Width:=80;
  DBGrid1.Columns.Add;
  DBGrid1.Columns[3].FieldName:='Имя_поля_4';
  DBGrid1.Columns[3].Width:=80;
 
  AdoConnection1.ConnectionString:=ConString;
  ADOTable1.TableName:='NewTable';  {указываем название таблицы в базе test.mdb}
  AdoConnection1.Open;
  AdoTable1.Active:=true;
 
end;
 
procedure TForm1.InsertButtonClick(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1.Insert;
 
end;
 
procedure TForm1.SaveButtonClick(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1.Post;
end;
 
end.