TADOQuery通過存儲過程傳遞參數的一種方式

    with DMsql.qry do    begin      Close;      SQL.Clear;      SQL.Add(' exec Insert_Equipment ' +        ' :EquipmentID,:PanelID,:PicFileName');      Parameters.ParamByName('EquipmentID').Value := AIData.EquipmentID;      Parameters.ParamByName('PanelID').Value := AIData.PanelID;      Parameters.ParamByName('PicFileName').Value := PicFileName;      ExecSQL;    end;