只解决一个问题很简单

ADOQ_GDDJ.Close;
  ADOQ_GDDJ.SQL.Clear;
  ADOQ_GDDJ.SQL.Add('Insert Into T_ZDDJ');
  ADOQ_GDDJ.SQl.Add('(ZLesseeDate,ZLesseeID,ZSID,ZDSID,ZDSName)');
  ADOQ_GDDJ.SQl.Add('Values (:ZLesseeDate,:ZLesseeID,:ZSID,:ZDSID,:ZDSName)');
  ADOQ_GDDJ.Parameters.ParamByName('ZLesseeDate').Value:=SDate;
  ADOQ_GDDJ.Parameters.ParamByName('ZLesseeID').Value :=I;
  ADOQ_GDDJ.Parameters.ParamByName('ZSId').Value:=Edit3.Text ;
  ADOQ_GDDJ.Parameters.ParamByName('ZDSID').Value:=Edit6.Text ;
  ADOQ_GDDJ.Parameters.ParamByName('ZDSName').Value:=Edit7.Text;
  ADOQ_GDDJ.ExecSQL;