品名      数量
程序员     1VAR 
  num:integer;begin
    
     这里的语句怎么写,把数量1赋给变量Num?数据集控件随你用好了!
  
end;