Qry_insert.Next

  sqlstr:='select weekNO,weekDayNO,classNO  from  CAClassroomTimeLimit  '+
    ' where ClassroomID = '''+l_Classroom+''' ';
  DM.Qry_select.Close;
  DM.Qry_select.SQL.Clear ;
  DM.Qry_select.SQL.Add(sqlstr);
  DM.Qry_select.Open;
  while not DM.Qry_select.Eof do
  begin
    a[i]:=DM.Qry_select.Fields[0].value-1;
    l_weekDayNO:=DM.Qry_select.Fields[1].value;
    i:=i+1;
    DM.Qry_select.Next;
  end;