记录无法删除

Question

unit Unit6;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm6 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form6: TForm6;implementation{$R *.dfm}procedure TForm6.Button1Click(Sender: TObject);//添加
begin
  self.ADOTable1.Append;
end;procedure TForm6.Button2Click(Sender: TObject);//修改
begin
 self.ADOTable1.Edit;
end;procedure TForm6.Button3Click(Sender: TObject);？就是这个程序有问题
begin
if Application.MessageBox('确定要删除记录吗？','删除',mb_okcancel)=mb_ok then
    begin
      self.ADOTable1.Delete;？这一句是不是要加一一句什么？      end;
end;procedure TForm6.Button4Click(Sender: TObject);//退出
begin
 if self.ADOTable1.State in [dsEdit,dsInsert] then
     begin
     self.ADOTable1.Post;
     end;
     close;
end;end.

Answer 1

if MessageDlg('确实要删除吗？',mtCustom, [mbyes, mbno], 0) = mrYes then
    begin
      self.ADOTable1.Delete;
    end;

Answer 2

纪录delete后,post语句会报错的，　我以前也是这毛病

Answer 3

不用POST因为他使用ADO来做的，问题出来没有进入到IF判断体内。

Answer 4

if Messagebox(handle,'确实要删除吗？','信息', mb_OkCancel+mb_iconquestion) = idok then
    begin
      ADOTable1.Delete;
    end;

Answer 5

不能Post!是不是提示不是在insert 或edit模式下啊!