procedure TForm1.Button1Click(Sender: TObject);
begin
if not adotable1.Bof then
adotable1.Prior;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if not adotable1.Eof then
adotable1.Next;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
adotable1.Insert;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
adotable1.Delete;
if adotable1.Eof then
showmessage('没有数据了!');
end;
procedure TForm1.DBImage1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
adotable1.Edit;
ADOTable1DSDesigner3.LoadFromFile(opendialog1.FileName);
end;
end;