procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);begin try {Make sure edit field can be converted to integer -- this will raise an exception if it can抰 } StrToInt(Edit1.Text); except Edit1.Text := '0'; end; end;procedure TForm1.Button1Click(Sender: TObject); begin Table1.Insert; Table1.FieldByName('QUANTITY').AsInteger := StrToInt(Edit1.Text); Table1.Post;end;
table.append 是在最后一条记录后再追加一条空记录
table.delete 删除当前记录
另外,你可以用delphi自带的组件来控制,只要将Datasource指定就OK了,非常方便,但是美中不足的是他的界面太丑了,而且修改起来很麻烦。
BTW,还有一种方法,就是使用Actionlist,他自带了许多数据库相关的方法,你可以去看看。
try
{Make sure edit field can be converted to integer --
this will raise an exception if it can抰 }
StrToInt(Edit1.Text);
except
Edit1.Text := '0';
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Insert;
Table1.FieldByName('QUANTITY').AsInteger := StrToInt(Edit1.Text);
Table1.Post;end;
在这里要注意的一点就是要加上一句:table1.post,不然根本就添加不进去。
insert//插入
cancel//取消
这三条语名不用加post;
append//追加,需要加上post;
edit//编辑,需要加上post
具体命令大家都已经说了。