实例——调用append方法.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

procedure TForm1.Append_Record_BtnClick(Sender: TObject)；
begin
Table1.Append；
//调用表的Append方法，增加一个新记录
Table1.FieldValues['姓名'] := Edit1.text；
//将编辑框Edit1的内容赋给姓名字段
Table1.FieldValues['籍贯'] := Edit2.text；
Table1.FieldValues['年龄'] := StrToInt(Edit3.text)；
Table1.Post；
//调用表的Post方法，向数据库中存入该记录
End；