調用EXECSQL方法在數據集中插入一個新記錄

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；