unit DBTestUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, plDateEdit, ExtCtrls, Db, Mask, DBCtrls, DBTables,
  DBGrids, Buttons;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    plDBDateEdit1: TplDBDateEdit;
    Table1CustNo: TFloatField;
    Table1Company: TStringField;
    Table1LastInvoiceDate: TDateTimeField;
    Table1Zip: TStringField;
    DBEdit3: TDBEdit;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  Formを表示したらTableをOpen
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  Table1.Open;
end;

//=============================================================================
//  FormのCloseでTableもClose
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Table1.Close;
end;

//=============================================================================
//  DBBridの選択行は色を変更
//=============================================================================
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with DBGrid1 do begin
    if gdSelected In State Then begin
      Canvas.Brush.Color := $00EFEED3;
      Canvas.Font.Color  := clBlack;
      DefaultDrawColumnCell(Rect,DataCol,Column,State);
    end else begin
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  end;
end;

//=============================================================================
//  現在の編集内容をデータベースに記録
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Table1.Edit;
  Table1.Post;
end;

end.