实例——调用append方法.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 13 行

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；