三层结果，如何在客户端向数据库服务器中添加记录？

Question

有两种方法，一种是用APPSERVER函数调用，一种是用通讯包方式传输，是吗？
怎么样实现阿，还有，我用Tspackage定义变量时，说它没定义，怎么回事啊？

Answer 1

//Server
procedure TADODCOMServer.Insert(const cntName: WideString;
  cntAmount: Word);
begin
  ADOQryPractice.Close;
  ADOQryPractice.SQL.Clear;
  ADOQryPractice.SQL.Add('Insert Into A1 (Name,Amount) Values(:PName,:PAmount)');
  ADOQryPractice.Parameters.ParamValues['PName']:=cntName;
  ADOQryPractice.Parameters.ParamValues['PAmount']:=cntAmount;
  ADOQryPractice.ExecSQL;
end;//Client
procedure TForm1.Insert2Click(Sender: TObject);
var
  StrName:String;
  intAmount:integer;
begin
  StrName:=self.Edit2.Text;
  intAmount:=StrToInt(self.Edit3.Text);
  DataModule1.DCOMConnection1.Connected:=True;
  DataModule1.DCOMConnection1.AppServer.Insert(StrName,intAmount);
end;