unit MC_WHCD;

interface

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

type
  TWHCD = class(TForm)
    GroupBox1: TGroupBox;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WHCD: TWHCD;

implementation

{$R *.DFM}

procedure TWHCD.FormShow(Sender: TObject);
begin
  EDIT1.SetFocus;  //啟動窗體時將焦點跳轉到文化程度輸入框
end;

procedure TWHCD.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  IF KEY=#13 THEN  BITBTN1.SetFocus ;   //焦點跳轉到保存按鈕
end;

procedure TWHCD.Edit1Change(Sender: TObject);
begin
  IF EDIT1.TEXT<>'' THEN BITBTN1.Enabled:=TRUE ELSE BITBTN1.Enabled:=FALSE;
end;
procedure TWHCD.BitBtn1Click(Sender: TObject);  //保存輸入
begin
   Table1.AppendRecord([Edit1.Text]);  //保存輸入信息
   EDIT1.Text:='';  //清空輸入框
   EDIT1.SetFocus ;  //將焦點跳轉到輸入框
end;

procedure TWHCD.BitBtn2Click(Sender: TObject); //刪除所選信息
begin
  If Table1.RecordCount <> 0 Then Table1.Delete;
end;
procedure TWHCD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     WHCD.Release;
     WHCD:=Nil;
end;

procedure TWHCD.BitBtn3Click(Sender: TObject);
begin
 CLOSE;
end;
end.