query组件的参数问题

Question

把sql语句放在参数创建之前试一试。

Answer 1

with DM.Query1 do
    begin
        if Active then close;
        UnPrepare;
        Sql.Clear;
        Sql.add('insert into borrowerinfo ,startdate,enddate)        values(:usern
ame,:pstartdate,:penddate)');
        parambyname('username').asstring:=editName.Text;
        parambyname('pstartdate').asDatetime:=startdate.date;
        parambyname('penddate').asDatetime:=enddate.date;
        
        
        Prepare;
        ExecSQL;
    end;