procedure TForm3.Button6Click(Sender: TObject); var   sqlstr:string; begin   sqlstr:='select recordno as 记录号,stuffno as 职工编号,startdate as 开始日期,enddate as 结束日期,days as 加班天数 from ExtraworkTable';   DM.