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;
使用Insert方法插入记录
最新推荐文章于 2024-03-13 18:08:21 发布