delphi 中如何执行SqlParameter形式的SQL语句

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.Open(‘xj‘,‘123456‘);
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(‘insert into UserInfo(UserName,UserPwd,Address,RoleID,IsDel,CreateDate) values(:UserName,:UserPwd,:Address,:RoleID,:IsDel,:CreateDate)‘);
  ADOQuery1.Parameters.Clear;
  ADOQuery1.Parameters.CreateParameter(‘UserName‘,ftString,pdInput,50,‘aaa‘);
  ADOQuery1.Parameters.CreateParameter(‘UserPwd‘,‘aaa1‘);
  ADOQuery1.Parameters.CreateParameter(‘Address‘,‘aaa2‘);
  ADOQuery1.Parameters.CreateParameter(‘RoleID‘,ftInteger,1);
  ADOQuery1.Parameters.CreateParameter(‘IsDel‘,0);
  ADOQuery1.Parameters.CreateParameter(‘CreateDate‘,ftDateTime,50,null);
  ADOQuery1.ExecSQL;
  ADOConnection1.Close;
end;

procedure Takhbdsp.Button1Click(Sender: TObject);
begin
  ADOConnection1.Open(‘xj‘,:CreateDate)‘);
  ADOQuery1.Prepared:=True;//预编译置为True
  {
  ADOQuery1.Parameters.Clear;
  ADOQuery1.Parameters.CreateParameter(‘UserName‘,50,UserInfo.UserName);
  ADOQuery1.Parameters.CreateParameter(‘UserPwd‘,UserInfo.UserPwd);
  ADOQuery1.Parameters.CreateParameter(‘Address‘,UserInfo.Address);
  ADOQuery1.Parameters.CreateParameter(‘RoleID‘,UserInfo.RoleID);
  ADOQuery1.Parameters.CreateParameter(‘IsDel‘,UserInfo.IsDel);
  ADOQuery1.Parameters.CreateParameter(‘CreateDate‘,UserInfo.CreateDate);
  }
//不用创建Parameter，而是直接给Parameter赋值，通常都采用这种方法，预编译能够优化SQL语句，提高执行效率。
  ADOQuery1.Parameters[0].Value:=‘aaaun‘;
  ADOQuery1.Parameters[1].Value:=‘aaapwd‘;
  ADOQuery1.Parameters[2].Value:=‘aaaadress‘;
  ADOQuery1.Parameters[3].Value:=‘1‘;
  ADOQuery1.Parameters[4].Value:=‘0‘;
  ADOQuery1.Parameters[5].Value:=‘2008-9-18‘;
  ADOQuery1.ExecSQL;
  ADOConnection1.Close;
end;