//當增、刪、修時：增、刪、修按鈕Enabled，存檔、取消按鈕Disabled
procedure TForm1.ButtonDisplay1;
begin
  if Table1.State in [dsInsert,dsEdit] then
  begin
    btAppend.Enabled := False;
    btDelete.Enabled := False;
    btEdit.Enabled := False;
    btPost.Enabled := True;
    btCancel.Enabled := True;
  end
  else
  begin
    btAppend.Enabled := True;
    btDelete.Enabled := True;
    btEdit.Enabled := True;
    btPost.Enabled := False;
    btCancel.Enabled := False;
  end;
end;    //當資料在首筆時：首筆、第一筆按鈕Disabled
//當資料在末筆時：下一筆、末筆按鈕Disabled
procedure TForm1.ButtonDisplay2;
begin
  if Table1.Bof then
  begin
    btFirst.Enabled := False;
    btPrior.Enabled := False;
    btNext.Enabled := True;
    btLast.Enabled := True;
  end
  else if Table1.Eof then
  begin
    btFirst.Enabled := True;
    btPrior.Enabled := True;
    btNext.Enabled := False;
    btLast.Enabled := False;
  end
  else
  begin
    btFirst.Enabled := True;
    btPrior.Enabled := True;
    btNext.Enabled := True;
    btLast.Enabled := True;
  end;
end;    procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
  ButtonDisplay1;
end;    procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  ButtonDisplay2;
end;    //首筆
procedure TForm1.btFirstClick(Sender: TObject);
begin
  Table1.First;
end;    //上一筆
procedure TForm1.btPriorClick(Sender: TObject);
begin
  if not Table1.Bof then
    Table1.Prior;
end;    //下一筆
procedure TForm1.btNextClick(Sender: TObject);
begin
  if not Table1.Eof then
    Table1.Next;
end;    //末筆
procedure TForm1.btLastClick(Sender: TObject);
begin
  Table1.Last;
end;    //新增
procedure TForm1.btAppendClick(Sender: TObject);
begin
  Table1.Append;
end;    //刪除
procedure TForm1.btDeleteClick(Sender: TObject);
begin
  if MessageDlg('您確定要刪除此筆資料嗎?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Table1.Delete;
end;    //修改
procedure TForm1.btEditClick(Sender: TObject);
begin
  Table1.Edit;
end;    //存檔
procedure TForm1.btPostClick(Sender: TObject);
begin
  Table1.Post;
end;    //取消(存檔)
procedure TForm1.btCancelClick(Sender: TObject);
begin
  Table1.Cancel;
end;