使用FieldValues属性为增加的记录字段赋值

procedure TForm1.AppendBtnClick(Sender: TObject);
begin
SQLQuery1.close;
SQLQuery1.open;
SQLQuery1.Append;      //增加一个新记录
SQLQuery1.FieldValues['Name'] :=name_edit.text;
//利用编辑框为新增的记录赋值
SQLQuery1.FieldValues['Age'] := StrToInt(age_edit.text);
SQLQuery1.FieldValues[' native_place'] := JiGuan_edit.text);
SQLQuery1.Post;  //调用Post方法提交，将增加的记录写库
end;