使用Insert方法插入记录

procedure TForm1.InsertBtn1Click(Sender: TObject);
begin
      RenYuanQuery.Insert；
      RenYuanQuery.FieldValues['xm'] := Edit1.text；
  //利用编辑框Edit1为姓名字段XM赋值
  RenYuanQuery.FieldValues['nl'] := StrToInt(Edit2.text)；
  //利用编辑框Edit2为年龄字段NL赋值
  RenYuanQuery.FieldValues['BuMen'] :=Edit3.text；
  //利用编辑框Edit3为部门字段BuMen赋值
  RenYuanQuery.FieldValues['ZhiWu'] :=Edit4.text；
  //利用编辑框Edit4为职务字段ZhiWu赋值
  RenYuanQuery.Post；
  //调用Post方法完成提交，即将新增的记录写入到数据库
End；