Question

DELPHI通过点击按钮,添加/删除数据库的数据的示例代码

DELPHI通过点击按钮,添加/删除数据库的数据的示例代码问题:

我用SQL2000建立的数据库表
用DELPHI连接的数据库

连接数据库用的是ADOTABLE,DATASOURCE,DBGRID(显示TABLE)
我不想用DBnavigator控件来添加/删除数据项,感觉那样既不美观又不安全

能不能通过对按钮的编程实现对数据库项的添加或则删除.
请高手指点,最好能给出示范代码.
我的邮箱是: luwenzheng1986@126.com 要有类似的范例也可以发到我邮箱里

非常敢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOTable1.active=False then exit;

ADOTable1.Append;
ADOTable1.FieldByName('XXXX').asstring:='ABC';
ADOTable1.FieldByName('YYYY').asstring:='DEF';
ADOTable1.Post;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ADOTable1.active and (not ADOTable1.IsEmpty) then
ADOTable1.Delete;
end;