实例——调用execsql方法在数据集中插入一个新记录.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

procedure TForm1.FormCreate(Sender: TObject)；
begin
AppendRecordQuery.Close；
AppendRecordQuery.SQL.Clear；
//清楚查询组件的SQL语句
AppendRecordQuery.SQL.Add('INSERT INTO RenYuan (姓名,籍贯,年龄)')；
// AppendRecordQuery为查询组件名，RenYuan为表名
AppendRecordQuery.SQL.Add('VALUES (:XM, :JiGuan, :NianLing)')；
//该SQL语句有三个参数，分别是XM,JiGuan和NianLing
AppendRecordQuery.Params[0].AsString := '李明'；
// AppendRecordQuery.Params[0]指向第一个参数XM
AppendRecordQuery.Params[1].AsString := '上海'；
AppendRecordQuery.Params[2].AsInteger := 28；
AppendRecordQuery.ExecSQL；
//调用查询的ExecSQL方法，完成向数据库表RenYuan中增加记录
End；