实例——使用insert方法插入记录.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

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；