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;