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;
调用Append方法
最新推荐文章于 2021-12-25 14:38:51 发布